Page 1 Source Listing BOCOH 2014-12-17 20:46 /tmpnwprd/ifortAZAos2.i 1 # 1 "BOCOH.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE BOCOH 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 C SUBPROGRAM: BOCOH UPDATE MASS POINTS ON BOUNDARY 8 C PRGRMMR: JANJIC ORG: W/NP22 DATE: 94-03-08 9 C 10 C ABSTRACT: 11 C TEMPERATURE, SPECIFIC HUMIDITY, AND SURFACE PRESSURE 12 C ARE UPDATED ON THE DOMAIN BOUNDARY BY APPLYING THE 13 C PRE-COMPUTED TENDENCIES AT EACH TIME STEP. 14 C 15 C PROGRAM HISTORY LOG: 16 C 87-??-?? MESINGER - ORIGINATOR 17 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D in HORIZONTAL 18 C 96-12-13 BLACK - FINAL MODIFICATION FOR NESTED RUNS 19 C 98-10-30 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 20 C 21 C USAGE: CALL BOCOH FROM MAIN PROGRAM EBU 22 C INPUT ARGUMENT LIST: 23 C NONE 24 C 25 C OUTPUT ARGUMENT LIST: 26 C NONE 27 C 28 C OUTPUT FILES: 29 C NONE 30 C 31 C SUBPROGRAMS CALLED: 32 C 33 C UNIQUE: NONE 34 C 35 C LIBRARY: NONE 36 C 37 C COMMON BLOCKS: CTLBLK 38 C MASKS 39 C VRBLS 40 C PVRBLS 41 C CLDWTR 42 C BOCO 43 C MAPOT 44 C 45 C ATTRIBUTES: 46 C LANGUAGE: FORTRAN 90 47 C MACHINE : IBM SP 48 C$$$ 49 C ****************************************************************** 50 C----------------------------------------------------------------------- 51 INCLUDE "parmeta" 74 INCLUDE "mpif.h" 591 INCLUDE "mpp.h" 592 # 1 "./sp.h" 1 593 # 4 594 595 # 54 "BOCOH.F" 2 Page 2 Source Listing BOCOH 2014-12-17 20:46 BOCOH.F 596 C----------------------------------------------------------------------- 655 P A R A M E T E R 656 & (IMJM=IM*JM-JM/2,LB=2*IM+JM-3,LP1=LM+1) 657 P A R A M E T E R 658 & (ISIZ1=2*LB,ISIZ2=2*LB*LM) 659 C----------------------------------------------------------------------- 660 L O G I C A L 661 & RUN,FIRST,RESTRT,SIGMA 662 C----------------------------------------------------------------------- 663 INCLUDE "CTLBLK.comm" 664 C----------------------------------------------------------------------- 674 INCLUDE "MASKS.comm" 675 C----------------------------------------------------------------------- 686 INCLUDE "VRBLS.comm" 687 C----------------------------------------------------------------------- 697 INCLUDE "PVRBLS.comm" 698 C----------------------------------------------------------------------- 728 INCLUDE "CLDWTR.comm" 729 C----------------------------------------------------------------------- 737 INCLUDE "BOCO.comm" 738 C----------------------------------------------------------------------- 745 INCLUDE "MAPOT.comm" 746 C----------------------------------------------------------------------- 747 C*********************************************************************** 748 c if(mype.eq.13) then 749 c print*,'At the start of BOCOH' 750 c do l=1,60 751 c print*,'l,t(40,77,l)=',l,t(40,77,l) 752 c enddo 753 c endif 754 C--------------READ FRESH BOUNDARY DATA IF NECESSARY-------------------- 766 IF(NTSD-1.EQ.NBOCO)THEN 767 c print*,'am i in if block?' 768 IF(MYPE.EQ.0)THEN 769 c print*,'nbc=',nbc 770 print*,'BOCOH: read fresh boundary data NTSD=',NTSD 771 READ(NBC)PDB 772 READ(NBC)TB 773 READ(NBC)QB 774 READ(NBC)UB 775 READ(NBC)VB 776 READ(NBC)Q2B 777 READ(NBC)CWMB 778 ENDIF 779 C 780 CALL MPI_BCAST(PDB,ISIZ1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 781 CALL MPI_BCAST(TB,ISIZ2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 782 CALL MPI_BCAST(QB,ISIZ2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 783 CALL MPI_BCAST(UB,ISIZ2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 784 CALL MPI_BCAST(VB,ISIZ2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 785 CALL MPI_BCAST(Q2B,ISIZ2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 786 CALL MPI_BCAST(CWMB,ISIZ2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 787 C*** 788 C*** FIND NEXT BOUNDARY CONDITION READ 789 C*** 790 IF(NTSD.LT.NTSTM)THEN 791 IF(MYPE.EQ.0)READ(NBC)BCHR Page 3 Source Listing BOCOH 2014-12-17 20:46 BOCOH.F 792 CALL MPI_BCAST(BCHR,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 793 NBOCO=INT(BCHR*TSPH+0.5) 794 IF(MYPE.EQ.0)THEN 795 print*,'NEXT read BCHR, NBOCO = ', BCHR, NBOCO 796 END IF 797 ENDIF 798 C 799 ENDIF 800 C----------------------------------------------------------------------- 801 C----------------------------------------------------------------------- 802 IIM=IM-MY_IS_GLB+1 803 JJM=JM-MY_JS_GLB+1 804 C-------------------------------------------------------------- 805 C*** 806 C*** UPDATE THE SURFACE PRESSURE 807 C*** 808 C-------------------------------------------------------------- 809 c if(mype.eq.13) then 810 c print*,'1st break of BOCOH' 811 c do l=1,60 812 c print*,'l,t(40,77,l)=',l,t(40,77,l) 813 c enddo 814 c endif 815 N=1 816 DO 101 I=1,IM 817 PDB(N,1)=PDB(N,1)+PDB(N,2)*DT 818 IF(MY_JS_GLB.EQ.1.AND.I.GE.MY_IS_GLB-ILPAD1. 819 1 AND.I.LE.MY_IE_GLB+IRPAD1)THEN 820 II=I-MY_IS_GLB+1 821 PD(II,1)=PDB(N,1) 822 ENDIF 823 N=N+1 824 101 CONTINUE 825 C 826 DO 102 I=1,IM 827 PDB(N,1)=PDB(N,1)+PDB(N,2)*DT 828 IF(MY_JE_GLB.EQ.JM.AND.I.GE.MY_IS_GLB-ILPAD1. 829 1 AND.I.LE.MY_IE_GLB+IRPAD1)THEN 830 II=I-MY_IS_GLB+1 831 PD(II,JJM)=PDB(N,1) 832 ENDIF 833 N=N+1 834 102 CONTINUE 835 C 836 DO 103 J=3,JM-2,2 837 PDB(N,1)=PDB(N,1)+PDB(N,2)*DT 838 IF(MY_IS_GLB.EQ.1.AND.J.GE.MY_JS_GLB-JBPAD1. 839 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 840 JJ=J-MY_JS_GLB+1 841 PD(1,JJ)=PDB(N,1) 842 ENDIF 843 N=N+1 844 103 CONTINUE 845 C 846 DO 104 J=3,JM-2,2 847 PDB(N,1)=PDB(N,1)+PDB(N,2)*DT 848 IF(MY_IE_GLB.EQ.IM.AND.J.GE.MY_JS_GLB-JBPAD1. Page 4 Source Listing BOCOH 2014-12-17 20:46 BOCOH.F 849 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 850 JJ=J-MY_JS_GLB+1 851 PD(IIM,JJ)=PDB(N,1) 852 ENDIF 853 N=N+1 854 104 CONTINUE 855 c if(mype.eq.13) then 856 c print*,'2nd break of BOCOH' 857 c do l=1,60 858 c print*,'l,t(40,77,l)=',l,t(40,77,l) 859 c enddo 860 c endif 861 C-------------------------------------------------------------- 862 C*** 863 C*** UPDATE THE 3-D MASS VARIABLES 864 C*** 865 C-------------------------------------------------------------- 866 DO 115 L=1,LM 867 C-------------------------------------------------------------- 868 N=1 869 DO 111 I=1,IM 870 TB(N,L,1)=TB(N,L,1)+TB(N,L,2)*DT 871 QB(N,L,1)=QB(N,L,1)+QB(N,L,2)*DT 872 Q2B(N,L,1)=Q2B(N,L,1)+Q2B(N,L,2)*DT 873 CWMB(N,L,1)=CWMB(N,L,1)+CWMB(N,L,2)*DT 874 IF(MY_JS_GLB.EQ.1.AND.I.GE.MY_IS_GLB-ILPAD1. 875 1 AND.I.LE.MY_IE_GLB+IRPAD1)THEN 876 II=I-MY_IS_GLB+1 877 T(II,1,L)=TB(N,L,1) 878 Q(II,1,L)=QB(N,L,1) 879 Q2(II,1,L)=Q2B(N,L,1) 880 CWM(II,1,L)=CWMB(N,L,1) 881 ENDIF 882 N=N+1 883 111 CONTINUE 884 C 885 c if(mype.eq.13) then 886 c print*,'Before 112 block' 887 c do l=1,60 888 c print*,'l,t(40,77,l)=',l,t(40,77,l) 889 c enddo 890 c endif 891 892 DO 112 I=1,IM 893 c if(mype.eq.13) then 894 c print*,'i,n,l,tb(n,l,1),tb(n,l,2),dt=', 895 c * i,n,l,tb(n,l,1),tb(n,l,2),dt 896 c endif 897 TB(N,L,1)=TB(N,L,1)+TB(N,L,2)*DT 898 QB(N,L,1)=QB(N,L,1)+QB(N,L,2)*DT 899 Q2B(N,L,1)=Q2B(N,L,1)+Q2B(N,L,2)*DT 900 CWMB(N,L,1)=CWMB(N,L,1)+CWMB(N,L,2)*DT 901 IF(MY_JE_GLB.EQ.JM.AND.I.GE.MY_IS_GLB-ILPAD1. 902 1 AND.I.LE.MY_IE_GLB+IRPAD1)THEN 903 II=I-MY_IS_GLB+1 904 c if(mype.eq.13.and.ii.eq.40.and.jjm.eq.77) then 905 c print*,'n,l=',n,l Page 5 Source Listing BOCOH 2014-12-17 20:46 BOCOH.F 906 c print*,'tb(n,l,1)=',tb(n,l,1) 907 c endif 908 T(II,JJM,L)=TB(N,L,1) 909 Q(II,JJM,L)=QB(N,L,1) 910 Q2(II,JJM,L)=Q2B(N,L,1) 911 CWM(II,JJM,L)=CWMB(N,L,1) 912 ENDIF 913 N=N+1 914 112 CONTINUE 915 C 916 c if(mype.eq.13) then 917 c print*,'Before 113 block' 918 c do l=1,60 919 c print*,'l,t(40,77,l)=',l,t(40,77,l) 920 c enddo 921 c endif 922 923 DO 113 J=3,JM-2,2 924 TB(N,L,1)=TB(N,L,1)+TB(N,L,2)*DT 925 QB(N,L,1)=QB(N,L,1)+QB(N,L,2)*DT 926 Q2B(N,L,1)=Q2B(N,L,1)+Q2B(N,L,2)*DT 927 CWMB(N,L,1)=CWMB(N,L,1)+CWMB(N,L,2)*DT 928 IF(MY_IS_GLB.EQ.1.AND.J.GE.MY_JS_GLB-JBPAD1. 929 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 930 JJ=J-MY_JS_GLB+1 931 T(1,JJ,L)=TB(N,L,1) 932 Q(1,JJ,L)=QB(N,L,1) 933 Q2(1,JJ,L)=Q2B(N,L,1) 934 CWM(1,JJ,L)=CWMB(N,L,1) 935 ENDIF 936 N=N+1 937 113 CONTINUE 938 C 939 c if(mype.eq.13) then 940 c print*,'Before 114 block' 941 c do l=1,60 942 c print*,'l,t(40,77,l)=',l,t(40,77,l) 943 c enddo 944 c endif 945 946 DO 114 J=3,JM-2,2 947 TB(N,L,1)=TB(N,L,1)+TB(N,L,2)*DT 948 QB(N,L,1)=QB(N,L,1)+QB(N,L,2)*DT 949 Q2B(N,L,1)=Q2B(N,L,1)+Q2B(N,L,2)*DT 950 CWMB(N,L,1)=CWMB(N,L,1)+CWMB(N,L,2)*DT 951 IF(MY_IE_GLB.EQ.IM.AND.J.GE.MY_JS_GLB-JBPAD1. 952 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 953 JJ=J-MY_JS_GLB+1 954 T(IIM,JJ,L)=TB(N,L,1) 955 Q(IIM,JJ,L)=QB(N,L,1) 956 Q2(IIM,JJ,L)=Q2B(N,L,1) 957 CWM(IIM,JJ,L)=CWMB(N,L,1) 958 ENDIF 959 N=N+1 960 114 CONTINUE 961 C 962 115 CONTINUE Page 6 Source Listing BOCOH 2014-12-17 20:46 BOCOH.F 963 c if(mype.eq.13) then 964 c print*,'3rd break of BOCOH' 965 c do l=1,60 966 c print*,'l,t(40,77,l)=',l,t(40,77,l) 967 c enddo 968 c endif 969 C-------------------------------------------------------------------- 970 C 971 C------- SPACE INTERPOLATION OF PD AND T AT THE INNER BOUNDARY ------ 972 C 973 C-------------------------------------------------------------------- 974 IF(IBROW.EQ.1)THEN 975 DO 121 I=MYIS,MYIE1 976 SHTM=HTM(I,1,LM)+HTM(I+1,1,LM)+HTM(I,3,LM)+HTM(I+1,3,LM) 977 PD(I,2)=(PD(I,1)*HTM(I,1,LM)+PD(I+1,1)*HTM(I+1,1,LM) 978 1 +PD(I,3)*HTM(I,3,LM)+PD(I+1,3)*HTM(I+1,3,LM))/SHTM 979 121 CONTINUE 980 ENDIF 981 C 982 IF(ITROW.EQ.1)THEN 983 DO 122 I=MYIS,MYIE1 984 SHTM=HTM(I,JJM-2,LM)+HTM(I+1,JJM-2,LM)+HTM(I,JJM,LM) 985 1 +HTM(I+1,JJM,LM) 986 PD(I,JJM-1)=(PD(I,JJM-2)*HTM(I,JJM-2,LM) 987 1 +PD(I+1,JJM-2)*HTM(I+1,JJM-2,LM) 988 2 +PD(I,JJM)*HTM(I,JJM,LM) 989 3 +PD(I+1,JJM)*HTM(I+1,JJM,LM))/SHTM 990 122 CONTINUE 991 ENDIF 992 C 993 IF(ILCOL.EQ.1)THEN 994 DO 123 J=4,JM-3,2 995 IF(MY_IS_GLB.EQ.1.AND.J.GE.MY_JS_GLB-JBPAD1. 996 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 997 JJ=J-MY_JS_GLB+1 998 SHTM=HTM(1,JJ-1,LM)+HTM(2,JJ-1,LM)+HTM(1,JJ+1,LM) 999 1 +HTM(2,JJ+1,LM) 1000 PD(1,JJ)=(PD(1,JJ-1)*HTM(1,JJ-1,LM) 1001 1 +PD(2,JJ-1)*HTM(2,JJ-1,LM) 1002 2 +PD(1,JJ+1)*HTM(1,JJ+1,LM) 1003 3 +PD(2,JJ+1)*HTM(2,JJ+1,LM))/SHTM 1004 ENDIF 1005 123 CONTINUE 1006 ENDIF 1007 C 1008 IF(IRCOL.EQ.1)THEN 1009 DO 124 J=4,JM-3,2 1010 IF(MY_IE_GLB.EQ.IM.AND.J.GE.MY_JS_GLB-JBPAD1. 1011 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 1012 JJ=J-MY_JS_GLB+1 1013 SHTM=HTM(IIM-1,JJ-1,LM)+HTM(IIM,JJ-1,LM) 1014 1 +HTM(IIM-1,JJ+1,LM)+HTM(IIM,JJ+1,LM) 1015 PD(IIM-1,JJ)=(PD(IIM-1,JJ-1)*HTM(IIM-1,JJ-1,LM) 1016 1 +PD(IIM,JJ-1)*HTM(IIM,JJ-1,LM) 1017 2 +PD(IIM-1,JJ+1)*HTM(IIM-1,JJ+1,LM) 1018 3 +PD(IIM,JJ+1)*HTM(IIM,JJ+1,LM))/SHTM 1019 ENDIF Page 7 Source Listing BOCOH 2014-12-17 20:46 BOCOH.F 1020 124 CONTINUE 1021 ENDIF 1022 c if(mype.eq.13) then 1023 c print*,'4th break of BOCOH' 1024 c do l=1,60 1025 c print*,'l,t(40,77,l)=',l,t(40,77,l) 1026 c enddo 1027 c endif 1028 C 1029 C 1030 C-------------------------------------------------------------------- 1031 DO 135 L=1,LM 1032 C-------------------------------------------------------------------- 1033 c if(mype.eq.13) then 1034 c print*,'l,ibrow,itrow,ircol,ilcol=',l,ibrow,itrow,ircol,ilcol 1035 c endif 1036 IF(IBROW.EQ.1)THEN 1037 DO 131 I=MYIS,MYIE1 1038 RHTM=1./(HTM(I,1,L)+HTM(I+1,1,L)+HTM(I,3,L)+HTM(I+1,3,L)) 1039 T(I,2,L)=(T(I,1,L)*HTM(I,1,L)+T(I+1,1,L)*HTM(I+1,1,L) 1040 1 +T(I,3,L)*HTM(I,3,L)+T(I+1,3,L)*HTM(I+1,3,L))*RHTM 1041 Q(I,2,L)=(Q(I,1,L)*HTM(I,1,L)+Q(I+1,1,L)*HTM(I+1,1,L) 1042 1 +Q(I,3,L)*HTM(I,3,L)+Q(I+1,3,L)*HTM(I+1,3,L))*RHTM 1043 Q2(I,2,L)=(Q2(I,1,L)*HTM(I,1,L)+Q2(I+1,1,L)*HTM(I+1,1,L) 1044 1 +Q2(I,3,L)*HTM(I,3,L)+Q2(I+1,3,L)*HTM(I+1,3,L))*RHTM 1045 CWM(I,2,L)=(CWM(I,1,L)*HTM(I,1,L)+CWM(I+1,1,L)*HTM(I+1,1,L) 1046 1 +CWM(I,3,L)*HTM(I,3,L)+CWM(I+1,3,L)*HTM(I+1,3,L)) 1047 2 *RHTM 1048 131 CONTINUE 1049 ENDIF 1050 C 1051 IF(ITROW.EQ.1)THEN 1052 c print*,'inside itrow.eq.1 block' 1053 c print*,'myis,myie1=',myis,myie1 1054 c print*,'jjm=',jjm 1055 DO 132 I=MYIS,MYIE1 1056 RHTM=1./(HTM(I,JJM-2,L)+HTM(I+1,JJM-2,L) 1057 1 +HTM(I,JJM,L)+HTM(I+1,JJM,L)) 1058 c if(i.eq.40.and.jjm-1.eq.76.and.mype.eq.13) then 1059 c if(i.eq.40.and.mype.eq.13) then 1060 c print*,'i,jjm,l=',i,jjm,l 1061 c print*,'T(I,JJM-2,L)=',T(I,JJM-2,L) 1062 c print*,'HTM(I,JJM-2,L)=',HTM(I,JJM-2,L) 1063 c print*,'T(I+1,JJM-2,L)=',T(I+1,JJM-2,L) 1064 c print*,'HTM(I+1,JJM-2,L)=',HTM(I+1,JJM-2,L) 1065 c print*,'T(I,JJM,L)=',T(I,JJM,L) 1066 c print*,'HTM(I,JJM,L)=',HTM(I,JJM,L) 1067 c print*,'T(I+1,JJM,L)=',T(I+1,JJM,L) 1068 c print*,'HTM(I+1,JJM,L)=',HTM(I+1,JJM,L) 1069 c print*,'rhtm=',rhtm 1070 c endif 1071 T(I,JJM-1,L)=(T(I,JJM-2,L)*HTM(I,JJM-2,L) 1072 1 +T(I+1,JJM-2,L)*HTM(I+1,JJM-2,L) 1073 2 +T(I,JJM,L)*HTM(I,JJM,L) 1074 3 +T(I+1,JJM,L)*HTM(I+1,JJM,L))*RHTM 1075 Q(I,JJM-1,L)=(Q(I,JJM-2,L)*HTM(I,JJM-2,L) 1076 1 +Q(I+1,JJM-2,L)*HTM(I+1,JJM-2,L) Page 8 Source Listing BOCOH 2014-12-17 20:46 BOCOH.F 1077 2 +Q(I,JJM,L)*HTM(I,JJM,L) 1078 3 +Q(I+1,JJM,L)*HTM(I+1,JJM,L))*RHTM 1079 Q2(I,JJM-1,L)=(Q2(I,JJM-2,L)*HTM(I,JJM-2,L) 1080 1 +Q2(I+1,JJM-2,L)*HTM(I+1,JJM-2,L) 1081 2 +Q2(I,JJM,L)*HTM(I,JJM,L) 1082 3 +Q2(I+1,JJM,L)*HTM(I+1,JJM,L))*RHTM 1083 CWM(I,JJM-1,L)=(CWM(I,JJM-2,L)*HTM(I,JJM-2,L) 1084 1 +CWM(I+1,JJM-2,L)*HTM(I+1,JJM-2,L) 1085 2 +CWM(I,JJM,L)*HTM(I,JJM,L) 1086 3 +CWM(I+1,JJM,L)*HTM(I+1,JJM,L))*RHTM 1087 132 CONTINUE 1088 ENDIF 1089 C 1090 IF(ILCOL.EQ.1)THEN 1091 DO 133 J=4,JM-3,2 1092 IF(MY_IS_GLB.EQ.1.AND.J.GE.MY_JS_GLB-JBPAD1. 1093 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 1094 JJ=J-MY_JS_GLB+1 1095 RHTM=1./(HTM(1,JJ-1,L)+HTM(2,JJ-1,L) 1096 1 +HTM(1,JJ+1,L)+HTM(2,JJ+1,L)) 1097 T(1,JJ,L)=(T(1,JJ-1,L)*HTM(1,JJ-1,L) 1098 1 +T(2,JJ-1,L)*HTM(2,JJ-1,L) 1099 2 +T(1,JJ+1,L)*HTM(1,JJ+1,L) 1100 3 +T(2,JJ+1,L)*HTM(2,JJ+1,L))*RHTM 1101 Q(1,JJ,L)=(Q(1,JJ-1,L)*HTM(1,JJ-1,L) 1102 1 +Q(2,JJ-1,L)*HTM(2,JJ-1,L) 1103 2 +Q(1,JJ+1,L)*HTM(1,JJ+1,L) 1104 3 +Q(2,JJ+1,L)*HTM(2,JJ+1,L))*RHTM 1105 Q2(1,JJ,L)=(Q2(1,JJ-1,L)*HTM(1,JJ-1,L) 1106 1 +Q2(2,JJ-1,L)*HTM(2,JJ-1,L) 1107 2 +Q2(1,JJ+1,L)*HTM(1,JJ+1,L) 1108 3 +Q2(2,JJ+1,L)*HTM(2,JJ+1,L))*RHTM 1109 CWM(1,JJ,L)=(CWM(1,JJ-1,L)*HTM(1,JJ-1,L) 1110 1 +CWM(2,JJ-1,L)*HTM(2,JJ-1,L) 1111 2 +CWM(1,JJ+1,L)*HTM(1,JJ+1,L) 1112 3 +CWM(2,JJ+1,L)*HTM(2,JJ+1,L))*RHTM 1113 ENDIF 1114 133 CONTINUE 1115 ENDIF 1116 C 1117 IF(IRCOL.EQ.1)THEN 1118 DO 134 J=4,JM-3,2 1119 IF(MY_IE_GLB.EQ.IM.AND.J.GE.MY_JS_GLB-JBPAD1. 1120 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 1121 JJ=J-MY_JS_GLB+1 1122 RHTM=1./(HTM(IIM-1,JJ-1,L)+HTM(IIM,JJ-1,L) 1123 1 +HTM(IIM-1,JJ+1,L)+HTM(IIM,JJ+1,L)) 1124 c if(iim-1.eq.40.and.jj.eq.77.and.mype.eq.13) then 1125 c print*,'l=',l 1126 c print*,'T(IIM-1,JJ-1,L)=',T(IIM-1,JJ-1,L) 1127 c print*,'HTM(IIM-1,JJ-1,L)=',HTM(IIM-1,JJ-1,L) 1128 c print*,'T(IIM,JJ-1,L)=',T(IIM,JJ-1,L) 1129 c print*,'HTM(IIM,JJ-1,L)=',HTM(IIM,JJ-1,L) 1130 c print*,'T(IIM-1,JJ+1,L)=',T(IIM-1,JJ+1,L) 1131 c print*,'HTM(IIM-1,JJ+1,L)=',HTM(IIM-1,JJ+1,L) 1132 c print*,'T(IIM,JJ+1,L)=',T(IIM,JJ+1,L) 1133 c print*,'HTM(IIM,JJ+1,L)=',HTM(IIM,JJ+1,L) Page 9 Source Listing BOCOH 2014-12-17 20:46 BOCOH.F 1134 c print*,'rhtm=',rhtm 1135 c endif 1136 T(IIM-1,JJ,L)=(T(IIM-1,JJ-1,L)*HTM(IIM-1,JJ-1,L) 1137 1 +T(IIM,JJ-1,L)*HTM(IIM,JJ-1,L) 1138 2 +T(IIM-1,JJ+1,L)*HTM(IIM-1,JJ+1,L) 1139 2 +T(IIM,JJ+1,L)*HTM(IIM,JJ+1,L))*RHTM 1140 Q(IIM-1,JJ,L)=(Q(IIM-1,JJ-1,L)*HTM(IIM-1,JJ-1,L) 1141 1 +Q(IIM,JJ-1,L)*HTM(IIM,JJ-1,L) 1142 2 +Q(IIM-1,JJ+1,L)*HTM(IIM-1,JJ+1,L) 1143 2 +Q(IIM,JJ+1,L)*HTM(IIM,JJ+1,L))*RHTM 1144 Q2(IIM-1,JJ,L)=(Q2(IIM-1,JJ-1,L)*HTM(IIM-1,JJ-1,L) 1145 1 +Q2(IIM,JJ-1,L)*HTM(IIM,JJ-1,L) 1146 2 +Q2(IIM-1,JJ+1,L)*HTM(IIM-1,JJ+1,L) 1147 2 +Q2(IIM,JJ+1,L)*HTM(IIM,JJ+1,L))*RHTM 1148 CWM(IIM-1,JJ,L)=(CWM(IIM-1,JJ-1,L)*HTM(IIM-1,JJ-1,L) 1149 1 +CWM(IIM,JJ-1,L)*HTM(IIM,JJ-1,L) 1150 2 +CWM(IIM-1,JJ+1,L)*HTM(IIM-1,JJ+1,L) 1151 2 +CWM(IIM,JJ+1,L)*HTM(IIM,JJ+1,L))*RHTM 1152 ENDIF 1153 134 CONTINUE 1154 ENDIF 1155 135 CONTINUE 1156 c if(mype.eq.13) then 1157 c print*,'At the end of BOCOH' 1158 c do l=1,60 1159 c print*,'l,t(40,77,l)=',l,t(40,77,l) 1160 c enddo 1161 c endif 1162 C-------------------------------------------------------------------- 1163 C-------------------------------------------------------------------- 1164 RETURN 1165 END Page 10 Source Listing BOCOH 2014-12-17 20:46 Entry Points BOCOH.F ENTRY POINTS Name bocoh_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 101 Label 143 135 102 Label 153 145 103 Label 163 155 104 Label 173 165 111 Label 202 188 112 Label 233 211 113 Label 256 242 114 Label 279 265 115 Label 281 185 121 Label 298 294 122 Label 309 302 123 Label 324 313 124 Label 339 328 131 Label 367 356 132 Label 406 374 133 Label 433 410 134 Label 472 437 135 Label 474 350 ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACPREC Scalar 12 R(4) 4 2 17955 COM AETA Scalar 8 R(4) 4 1 45 COM AFSI Scalar 26 R(4) 4 2 17955 COM AKHS Scalar 7 R(4) 4 2 17955 COM AKMS Scalar 7 R(4) 4 2 17955 COM ALSL Scalar 7 R(4) 4 1 39 COM BCHR Local 110 R(4) 4 scalar 110,111,112,114 BOCO Common 2 1860144 BOCOH Subr 2 CLDEFI Scalar 11 R(4) 4 2 17955 COM CLDWTR Common 2 3447720 CMLD Scalar 6 R(4) 4 scalar COM CPHI0 Scalar 9 R(4) 4 scalar COM CTLBLK Common 4 112 CUPREC Scalar 13 R(4) 4 2 17955 COM CWM Scalar 3 R(4) 4 3 807975 COM 199,230,253,276,364,365,402,403,40 4,405,428,429,430,431,467,468,469, 470 CWMB Scalar 4 R(4) 4 3 77220 COM 96,105,192,199,219,230,246,253,269 ,276 DETA Scalar 8 R(4) 4 1 45 COM DISLP Scalar 7 R(4) 4 scalar COM DLMD Scalar 6 R(4) 4 scalar COM DP30 Scalar 6 R(4) 4 scalar COM DPHD Scalar 6 R(4) 4 scalar COM Page 11 Source Listing BOCOH 2014-12-17 20:46 Symbol Table BOCOH.F Name Object Declared Type Bytes Dimen Elements Attributes References DT Scalar 6 R(4) 4 scalar COM 136,146,156,166,189,190,191,192,21 6,217,218,219,243,244,245,246,266, 267,268,269 ERLAM0 Scalar 9 R(4) 4 scalar COM ETA Scalar 8 R(4) 4 1 46 COM FIRST Scalar 61 L(4) 4 scalar COM FIS Scalar 7 R(4) 4 2 17955 COM G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HBM2 Scalar 8 R(4) 4 2 17955 COM HBM3 Scalar 8 R(4) 4 2 17955 COM HTM Scalar 6 R(4) 4 3 807975 COM 295,296,297,303,304,305,306,307,30 8,317,318,319,320,321,322,332,333, 334,335,336,337,357,358,359,360,36 1,362,363,364,365,375,376,390,391, 392,393,394,395,396,397,398,399,40 0,401,402,403,404,405,414,415,416, 417,418,419,420,421,422,423,424,42 5,426,427,428,429,430,431,441,442, 455,456,457,458,459,460,461,462,46 3,464,465,466,467,468,469,470 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 135 I(4) 4 scalar 135,137,138,139,145,147,148,149,18 8,193,194,195,211,220,221,222,294, 295,296,297,302,303,304,305,306,30 7,308,356,357,358,359,360,361,362, 363,364,365,374,375,376,390,391,39 2,393,394,395,396,397,398,399,400, 401,402,403,404,405 IBROW Scalar 22 I(4) 4 scalar COM 293,355 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM IDIM1 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,21,26 IDIM2 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,21,26 IDTAD Scalar 6 I(4) 4 scalar COM IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHRST Scalar 5 I(4) 4 scalar COM II Local 139 I(4) 4 scalar 139,140,149,150,195,196,197,198,19 9,222,227,228,229,230 IIM Local 121 I(4) 4 scalar 121,170,273,274,275,276,332,333,33 4,335,336,337,441,442,455,456,457, 458,459,460,461,462,463,464,465,46 6,467,468,469,470 ILCOL Scalar 22 I(4) 4 scalar COM 312,409 ILPAD1 Scalar 23 I(4) 4 scalar COM 137,147,193,220 ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM Page 12 Source Listing BOCOH 2014-12-17 20:46 Symbol Table BOCOH.F Name Object Declared Type Bytes Dimen Elements Attributes References IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,56,57,1 21,135,145,167,188,211,270,329,438 IMJM Param 56 I(4) 4 scalar INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INT Func 112 scalar 112 INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Scalar 5 I(4) 4 scalar COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM 327,436 IRPAD1 Scalar 24 I(4) 4 scalar COM 138,148,194,221 IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM IRTN Local 99 I(4) 4 scalar 99,100,101,102,103,104,105,111 ISHDE Scalar 4 I(4) 4 1 99 COM ISIZ1 Param 58 I(4) 4 scalar 99 ISIZ2 Param 58 I(4) 4 scalar 100,101,102,103,104,105 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM 301,370 IXM Scalar 3 I(4) 4 scalar COM IYM Scalar 3 I(4) 4 scalar COM J Local 155 I(4) 4 scalar 155,157,158,159,165,167,168,169,24 2,247,248,249,265,270,271,272,313, 314,315,316,328,329,330,331,410,41 1,412,413,437,438,439,440 JBPAD1 Scalar 25 I(4) 4 scalar COM 157,167,247,270,314,329,411,438 JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,21,26 JDIM2 Param 20 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,21,26 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JJ Local 159 I(4) 4 scalar 159,160,169,170,249,250,251,252,25 3,272,273,274,275,276,316,317,318, 319,320,321,322,331,332,333,334,33 5,336,337,413,414,415,416,417,418, 419,420,421,422,423,424,425,426,42 7,428,429,430,431,440,441,442,455, 456,457,458,459,460,461,462,463,46 4,465,466,467,468,469,470 JJM Local 122 I(4) 4 scalar 122,150,227,228,229,230,303,304,30 5,306,307,308,375,376,390,391,392, 393,394,395,396,397,398,399,400,40 1,402,403,404,405 Page 13 Source Listing BOCOH 2014-12-17 20:46 Symbol Table BOCOH.F Name Object Declared Type Bytes Dimen Elements Attributes References JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,56,57,1 22,147,155,165,220,242,265,313,328 ,410,437 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM 158,168,248,271,315,330,412,439 JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM L Local 185 I(4) 4 scalar 185,189,190,191,192,196,197,198,19 9,216,217,218,219,227,228,229,230, 243,244,245,246,250,251,252,253,26 6,267,268,269,273,274,275,276,350, 357,358,359,360,361,362,363,364,36 5,375,376,390,391,392,393,394,395, 396,397,398,399,400,401,402,403,40 4,405,414,415,416,417,418,419,420, 421,422,423,424,425,426,427,428,42 9,430,431,441,442,455,456,457,458, 459,460,461,462,463,464,465,466,46 7,468,469,470 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LB Param 56 I(4) 4 scalar 3,4,58 LC Scalar 5 I(4) 4 2 17955 COM LIST Scalar 5 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 3,4,5,6,7,8,21,52,56,58,185,295,29 6,297,303,304,305,306,307,308,317, 318,319,320,321,322,332,333,334,33 5,336,337,350 LP1 Param 56 I(4) 4 scalar 8 LSL Scalar 3 I(4) 4 scalar COM LSM Param 3 I(4) 4 scalar 7 MAPOT Common 2 1732 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar Page 14 Source Listing BOCOH 2014-12-17 20:46 Symbol Table BOCOH.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BCAST Subr 99 99,100,101,102,103,104,105,111 MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 99,100,101,102,103,104,105,111 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar Page 15 Source Listing BOCOH 2014-12-17 20:46 Symbol Table BOCOH.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar Page 16 Source Listing BOCOH 2014-12-17 20:46 Symbol Table BOCOH.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar Page 17 Source Listing BOCOH 2014-12-17 20:46 Symbol Table BOCOH.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 99,100,101,102,103,104,105,111 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar Page 18 Source Listing BOCOH 2014-12-17 20:46 Symbol Table BOCOH.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM MYIE1 Scalar 4 I(4) 4 scalar COM 294,302,356,374 MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM Page 19 Source Listing BOCOH 2014-12-17 20:46 Symbol Table BOCOH.F Name Object Declared Type Bytes Dimen Elements Attributes References MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 294,302,356,374 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM Page 20 Source Listing BOCOH 2014-12-17 20:46 Symbol Table BOCOH.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 87,110,113 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM 138,148,167,194,221,270,329,438 MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM 121,137,139,147,149,157,193,195,22 0,222,247,314,411 MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM 147,158,168,220,248,271,315,330,41 2,439 MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM 122,137,157,159,167,169,193,247,24 9,270,272,314,316,329,331,411,413, 438,440 MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM N Local 134 I(4) 4 scalar 134,136,140,142,146,150,152,156,16 0,162,166,170,172,187,189,190,191, 192,196,197,198,199,201,216,217,21 8,219,227,228,229,230,232,243,244, 245,246,250,251,252,253,255,266,26 7,268,269,273,274,275,276,278 NBC Scalar 5 I(4) 4 scalar COM 90,91,92,93,94,95,96,110 NBOCO Scalar 6 I(4) 4 scalar COM 85,112,114 NCNVC Scalar 7 I(4) 4 scalar COM NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 7 I(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM NPHS Scalar 7 I(4) 4 scalar COM NPREC Scalar 6 I(4) 4 scalar COM NRADL Scalar 7 I(4) 4 scalar COM NRADS Scalar 7 I(4) 4 scalar COM NSHDE Scalar 6 I(4) 4 scalar COM NSTART Scalar 6 I(4) 4 scalar COM NTDDMP Scalar 6 I(4) 4 scalar COM NTSD Scalar 6 I(4) 4 scalar COM 85,89,109 NTSTM Scalar 6 I(4) 4 scalar COM 109 PADS_A Scalar 505 CHAR 1 1 3 COM Page 21 Source Listing BOCOH 2014-12-17 20:46 Symbol Table BOCOH.F Name Object Declared Type Bytes Dimen Elements Attributes References PADS_B Scalar 505 CHAR 1 1 3 COM PD Scalar 3 R(4) 4 2 17955 COM 140,150,160,170,296,297,305,306,30 7,308,319,320,321,322,334,335,336, 337 PDB Scalar 3 R(4) 4 2 1716 COM 90,99,136,140,146,150,156,160,166, 170 PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar PREC Scalar 12 R(4) 4 2 17955 COM PSHLTR Scalar 19 R(4) 4 2 17955 COM PT Scalar 5 R(4) 4 scalar COM PVRBLS Common 2 5530140 Q Scalar 6 R(4) 4 3 807975 COM 197,228,251,274,360,361,394,395,39 6,397,420,421,422,423,459,460,461, 462 Q10 Scalar 16 R(4) 4 2 17955 COM Q2 Scalar 21 R(4) 4 3 807975 COM 198,229,252,275,362,363,398,399,40 0,401,424,425,426,427,463,464,465, 466 Q2B Scalar 4 R(4) 4 3 77220 COM 95,104,191,198,218,229,245,252,268 ,275 Q30 Scalar 14 R(4) 4 2 17955 COM QB Scalar 3 R(4) 4 3 77220 COM 92,101,190,197,217,228,244,251,267 ,274 QS Scalar 6 R(4) 4 2 17955 COM QSHLTR Scalar 18 R(4) 4 2 17955 COM QWBS Scalar 9 R(4) 4 2 17955 COM QZ0 Scalar 5 R(4) 4 2 17955 COM R Scalar 5 R(4) 4 scalar COM RES Scalar 7 R(4) 4 2 17955 COM RESTRT Scalar 61 L(4) 4 scalar COM RF Scalar 8 R(4) 4 2 17955 COM RHTM Local 357 R(4) 4 scalar 357,359,361,363,366,375,393,397,40 1,405,414,419,423,427,431,441,458, 462,466,470 RUN Scalar 61 L(4) 4 scalar COM SBD Scalar 6 R(4) 4 scalar COM SHTM Local 295 R(4) 4 scalar 295,297,303,308,317,322,332,337 SI Scalar 10 R(4) 4 2 17955 COM SICE Scalar 4 R(4) 4 2 17955 COM SIGMA Scalar 61 L(4) 4 scalar COM SINGLRST Local 2 L(4) 4 scalar SM Scalar 4 R(4) 4 2 17955 COM SNO Scalar 10 R(4) 4 2 17955 COM SPHI0 Scalar 9 R(4) 4 scalar COM SPL Scalar 7 R(4) 4 1 39 COM SR Scalar 5 R(4) 4 2 17955 COM SUBPOST Scalar 2 L(4) 4 scalar COM T Scalar 5 R(4) 4 3 807975 COM 196,227,250,273,358,359,390,391,39 2,393,416,417,418,419,455,456,457, 458 TB Scalar 3 R(4) 4 3 77220 COM 91,100,189,196,216,227,243,250,266 ,273 TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM Page 22 Source Listing BOCOH 2014-12-17 20:46 Symbol Table BOCOH.F Name Object Declared Type Bytes Dimen Elements Attributes References TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TH10 Scalar 16 R(4) 4 2 17955 COM TH30 Scalar 14 R(4) 4 2 17955 COM THS Scalar 6 R(4) 4 2 17955 COM THZ0 Scalar 5 R(4) 4 2 17955 COM TLM0D Scalar 6 R(4) 4 scalar COM TOPO Common 50 17478548 TPH0D Scalar 6 R(4) 4 scalar COM TSHDE Scalar 8 R(4) 4 1 99 COM TSHLTR Scalar 18 R(4) 4 2 17955 COM TSPH Scalar 5 R(4) 4 scalar COM 112 TTVG Scalar 51 R(4) 4 2 92971 COM TWBS Scalar 9 R(4) 4 2 17955 COM U Scalar 5 R(4) 4 3 807975 COM U00 Scalar 3 R(4) 4 2 17955 COM U10 Scalar 17 R(4) 4 2 17955 COM U30 Scalar 15 R(4) 4 2 17955 COM UB Scalar 3 R(4) 4 3 77220 COM 93,102 UL Scalar 4 R(4) 4 1 90 COM USTAR Scalar 3 R(4) 4 2 17955 COM UZ0 Scalar 4 R(4) 4 2 17955 COM V Scalar 6 R(4) 4 3 807975 COM V10 Scalar 17 R(4) 4 2 17955 COM V30 Scalar 15 R(4) 4 2 17955 COM VB Scalar 3 R(4) 4 3 77220 COM 94,103 VBM2 Scalar 3 R(4) 4 2 17955 COM VBM3 Scalar 3 R(4) 4 2 17955 COM VRBLS Common 2 13143060 VTM Scalar 7 R(4) 4 3 807975 COM VZ0 Scalar 4 R(4) 4 2 17955 COM WBD Scalar 6 R(4) 4 scalar COM X1P Scalar 6 R(4) 4 scalar COM Y1P Scalar 6 R(4) 4 scalar COM Z0 Scalar 3 R(4) 4 2 17955 COM Z0SLP Scalar 7 R(4) 4 scalar COM Page 23 Source Listing BOCOH 2014-12-17 20:46 Subprograms/Common Blocks BOCOH.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References BOCO Common 2 1860144 BOCOH Subr 2 CLDWTR Common 2 3447720 CTLBLK Common 4 112 GLB_TABLE Common 37 128 MAPOT Common 2 1732 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPPCOM Common 1 1464 PVRBLS Common 2 5530140 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 VRBLS Common 2 13143060 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian Page 24 Source Listing BOCOH 2014-12-17 20:46 BOCOH.F -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled Page 25 Source Listing BOCOH 2014-12-17 20:46 BOCOH.F -w uninitialized -w nounused -w usage -includepath : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : BOCOH.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100