Page 1 Source Listing READ_NHB 2014-12-17 20:47 /tmpnwprd/ifortePhQgE.i 1 # 1 "READ_NHB.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE READ_NHB(NHB) 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 8 C SUBPROGRAM: READ_NHB READ AND DISTRIBUTE NHB FILE 9 C PRGRMMR: BLACK ORG: W/NP2 DATE: 98-10-22 10 C 11 C ABSTRACT: 12 C READ_NHB READS IN QUANTITIES FROM THE NHB FILE AND THEN 13 C DISTRIBUTES THEM TO THE OTHER NODES/PEs AS NEEDED 14 C 15 C PROGRAM HISTORY LOG: 16 C 97-??-?? MEYS - ORIGINATOR 17 C 97-08-?? BLACK - REWROTE FOR BENCHMARK 18 C 98-??-?? TUCCILLO - MODIFIED FOR SINGLE OR DOUBLE PRECISION 19 C 20 C USAGE: CALL READ_NHB FROM SUBROUTINE INIT 21 C INPUT ARGUMENT LIST: 22 C NHB: FILE NUMBER OF THE NHB FILE 23 C 24 C OUTPUT ARGUMENT LIST: 25 C NONE 26 C 27 C OUTPUT FILES: 28 C NONE 29 C 30 C SUBPROGRAMS CALLED: 31 C UNIQUE: DSTRB 32 C IDSTRB 33 C 34 C LIBRARY: NONE 35 C 36 C COMMON BLOCKS: CTLBLK 37 C LOOPS 38 C MASKS 39 C DYNAM 40 C PHYS2 41 C MAPOT1 42 C VRBLS 43 C CONTIN 44 C PVRBLS 45 C BOCO 46 C ACMCLH 47 C ACMCLD 48 C ACMPRE 49 C ACMRDL 50 C ACMRDS 51 C ACMSFC 52 C CLDWTR 53 C CNVCLD 54 C SOIL 55 C INDX 56 C 57 C ATTRIBUTES: Page 2 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 58 C LANGUAGE: FORTRAN 90 59 C MACHINE : IBM SP 60 C$$$ 61 C 62 C----------------------------------------------------------------------- 63 C INCLUDE/SET PARAMETERS. 64 C----------------------------------------------------------------------- 65 INCLUDE "parmeta" 88 INCLUDE "parm.tbl" 90 INCLUDE "parmsoil" 91 C----------------------------------------------------------------------- 93 P A R A M E T E R 94 & (G=9.8,CM1=2937.4,CM2=4.9283,CM3=23.5518,EPS=0.622 95 C 96 CVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV 97 C &, Q2INI=.01E0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 98 C &, Q2INI=1.0E0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 99 C &, Q2INI=.50E0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 100 C &, Q2INI=.01E0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=0.0E0 101 &, Q2INI=.50,EPSQ2=2.E-2,EPSQ=2.E-12,EPSWET=0.0 102 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 103 &, Z0LAND=.10,Z0SEA=.001,FCM=.00001 104 &, DTR=0.1745329E-1,H360=360.0 105 &, H1905=190.5,H105=105.0) 106 C 107 C----------------------------------------------------------------------- 108 P A R A M E T E R 109 & (IMJM=IM*JM-JM/2,JMP1=JM+1,JAM=6+2*(JM-10),LB=2*IM+JM-3 110 &, LM1=LM-1,LP1=LM+1,IMT=2*IM-1) 111 C 112 C----------------------------------------------------------------------- 113 C 114 C DECLARE VARIABLES 115 C 116 C----------------------------------------------------------------------- 117 L O G I C A L 118 & RUN,RUNB,FIRST,RESTRT,SIGMA 119 C----------------------------------------------------------------------- 120 C H A R A C T E R *32 121 & LABEL 122 C H A R A C T E R *40 123 & CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV 124 &,FILCLD,FILRAD,FILSFC 125 C----------------------------------------------------------------------- 126 I N T E G E R 127 & IDATB(3) 128 C----------------------------------------------------------------------- 129 C 130 C INCLUDE COMMON BLOCKS. 131 C 132 INCLUDE "CTLBLK.comm" 142 INCLUDE "LOOPS.comm" 149 INCLUDE "MASKS.comm" 160 INCLUDE "DYNAM.comm" 176 INCLUDE "PHYS2.comm" 204 INCLUDE "MAPOT1.comm" 216 INCLUDE "VRBLS.comm" Page 3 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 226 INCLUDE "CONTIN.comm" 236 INCLUDE "PVRBLS.comm" 266 INCLUDE "BOCO.comm" 273 INCLUDE "ACMCLH.comm" 280 INCLUDE "ACMCLD.comm" 287 INCLUDE "ACMPRE.comm" 294 INCLUDE "ACMRDL.comm" 303 INCLUDE "ACMRDS.comm" 312 INCLUDE "ACMSFC.comm" 322 INCLUDE "CLDWTR.comm" 330 INCLUDE "CNVCLD.comm" 337 INCLUDE "SOIL.comm" 350 INCLUDE "INDX.comm" 351 C----------------------------------------------------------------------- 363 INCLUDE "mpif.h" 880 INCLUDE "mpp.h" 881 # 1 "./sp.h" 1 882 # 4 883 884 # 131 "READ_NHB.F" 2 885 C----------------------------------------------------------------------- 944 INTEGER ISTAT(MPI_STATUS_SIZE) 945 C 946 # 140 947 948 C----------------------------------------------------------------------- 949 C 950 C DECLARE NAMELIST. 951 C 952 NAMELIST /FCSTDATA/ 953 & TSTART,TEND,TCP,RESTRT,SUBPOST,NMAP,TSHDE,SPL 954 &,NPHS,NCNVC,NRADSH,NRADLH 955 &,TPREC,THEAT,TCLOD,TRDSW,TRDLW,TSRFC 956 C 957 C*********************************************************************** 958 IF(MYPE.EQ.0)THEN 959 # 170 960 961 READ(NHB) 962 1 NFCST,NBC,LIST 963 2, DT,IDTAD,SIGMA 964 3, KHLA,KHHA,KVLA,KVHA,KHL2,KHH2,KVL2,KVH2 965 966 c WRITE(0,*)'READ NFCST= ',NFCST,' FROM FILE NHB' 967 ENDIF 968 C 969 CALL MPI_BCAST(NFCST,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 970 CALL MPI_BCAST(NBC,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 971 CALL MPI_BCAST(LIST,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 972 CALL MPI_BCAST(DT,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 973 CALL MPI_BCAST(IDTAD,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 974 CALL MPI_BCAST(SIGMA,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) 975 C 976 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 977 C 978 LIST=6 979 C----------------------------------------------------------------------- Page 4 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 980 C*** 981 C*** DISTRIBUTE LMH 982 C*** 983 IF(MYPE.EQ.0)THEN 984 # 197 985 986 READ(NHB)ITEMP 987 988 ENDIF 989 c WRITE(0,*)'READ LMH' 990 C 991 CALL IDSTRB(ITEMP,LMH) 992 C----------------------------------------------------------------------- 993 C*** 994 C*** DISTRIBUTE LMV 995 C*** 996 IF(MYPE.EQ.0)THEN 997 # 212 998 999 READ(NHB)ITEMP 1000 1001 ENDIF 1002 c WRITE(0,*)'READ LMV' 1003 C 1004 CALL IDSTRB(ITEMP,LMV) 1005 C----------------------------------------------------------------------- 1006 C*** 1007 C*** DISTRIBUTE HBM2 1008 C*** 1009 IF(MYPE.EQ.0)THEN 1010 READ(NHB)TEMP1 1011 c WRITE(0,*)'READ HBM2' 1012 ENDIF 1013 C 1014 CALL DSTRB(TEMP1,HBM2,1,1,1) 1015 C----------------------------------------------------------------------- 1016 C*** 1017 C*** FILL HBM3 ON EACH PE 1018 C*** 1019 DO J=MYJS,MYJE 1020 DO I=MYIS,MYIE 1021 HBM3(I,J)=0. 1022 ENDDO 1023 ENDDO 1024 C 1025 DO J=MYJS,MYJE 1026 JG=J+MY_JS_GLB-1 1027 IF(JG.GE.4.AND.JG.LE.JM-3)THEN 1028 IHL=2-IHWG(JG) 1029 IHH=IM-2 1030 DO I=MYIS,MYIE 1031 IG=I+MY_IS_GLB-1 1032 IF(IG.GE.IHL.AND.IG.LE.IHH)HBM3(I,J)=1. 1033 ENDDO 1034 ENDIF 1035 ENDDO 1036 C----------------------------------------------------------------------- Page 5 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 1037 C*** 1038 C*** DISTRIBUTE VBM2 1039 C*** 1040 IF(MYPE.EQ.0)THEN 1041 READ(NHB)TEMP1 1042 c WRITE(0,*)'READ VBM2' 1043 ENDIF 1044 C 1045 CALL DSTRB(TEMP1,VBM2,1,1,1) 1046 C----------------------------------------------------------------------- 1047 C*** 1048 C*** DISTRIBUTE VBM3 1049 C*** 1050 IF(MYPE.EQ.0)THEN 1051 READ(NHB)TEMP1 1052 c WRITE(0,*)'READ VBM3' 1053 ENDIF 1054 C 1055 CALL DSTRB(TEMP1,VBM3,1,1,1) 1056 C----------------------------------------------------------------------- 1057 C*** 1058 C*** DISTRIBUTE SM 1059 C*** 1060 IF(MYPE.EQ.0)THEN 1061 READ(NHB)TEMP1 1062 c WRITE(0,*)'READ SM' 1063 ENDIF 1064 C 1065 CALL DSTRB(TEMP1,SM,1,1,1) 1066 C----------------------------------------------------------------------- 1067 C*** 1068 C*** DISTRIBUTE SICE 1069 C*** 1070 IF(MYPE.EQ.0)THEN 1071 READ(NHB)TEMP1 1072 c WRITE(0,*)'READ SICE' 1073 ENDIF 1074 C 1075 CALL DSTRB(TEMP1,SICE,1,1,1) 1076 C----------------------------------------------------------------------- 1077 C*** 1078 C*** DISTRIBUTE HTM 1079 C*** 1080 DO L=1,LM 1081 IF(MYPE.EQ.0)THEN 1082 READ(NHB)TEMP1 1083 c WRITE(0,*)'READ HTM' 1084 ENDIF 1085 CALL DSTRB(TEMP1,HTM,1,LM,L) 1086 ENDDO 1087 C----------------------------------------------------------------------- 1088 C*** 1089 C*** DISTRIBUTE VTM 1090 C*** 1091 DO L=1,LM 1092 IF(MYPE.EQ.0)THEN 1093 READ(NHB)TEMP1 Page 6 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 1094 c WRITE(0,*)'READ VTM' 1095 ENDIF 1096 CALL DSTRB(TEMP1,VTM,1,LM,L) 1097 ENDDO 1098 C----------------------------------------------------------------------- 1099 C 1100 IF(MYPE.EQ.0)THEN 1101 READ(NHB)DY,CPGFV,EN,ENT,R,PT,TDDAMP 1102 1, F4D,F4Q,EF4T,DETA,RDETA,AETA,F4Q2,ETA,DFL 1103 2, EM,EMT 1104 c WRITE(0,*)'READ DY' 1105 ENDIF 1106 C 1107 CALL MPI_BCAST(DY,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1108 CALL MPI_BCAST(CPGFV,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1109 CALL MPI_BCAST(EN,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1110 CALL MPI_BCAST(ENT,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1111 CALL MPI_BCAST(R,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1112 CALL MPI_BCAST(PT,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1113 CALL MPI_BCAST(TDDAMP,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1114 CALL MPI_BCAST(F4D,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1115 CALL MPI_BCAST(F4Q,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1116 CALL MPI_BCAST(EF4T,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1117 CALL MPI_BCAST(DETA(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1118 CALL MPI_BCAST(RDETA(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1119 CALL MPI_BCAST(AETA(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1120 CALL MPI_BCAST(F4Q2(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1121 CALL MPI_BCAST(ETA(1),LP1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1122 CALL MPI_BCAST(DFL(1),LP1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1123 CALL MPI_BCAST(EM(1),JAM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1124 CALL MPI_BCAST(EMT(1),JAM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1125 C 1126 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1127 C----------------------------------------------------------------------- 1128 C*** 1129 C*** DISTRIBUTE DX 1130 C*** 1131 IF(MYPE.EQ.0)THEN 1132 READ(NHB)TEMP1 1133 c WRITE(0,*)'READ DX' 1134 ENDIF 1135 C 1136 CALL DSTRB(TEMP1,DX,1,1,1) 1137 C----------------------------------------------------------------------- 1138 C*** 1139 C*** DISTRIBUTE WPDAR 1140 C*** 1141 IF(MYPE.EQ.0)THEN 1142 READ(NHB)TEMP1 1143 c WRITE(0,*)'READ WPDAR' 1144 ENDIF 1145 C 1146 CALL DSTRB(TEMP1,WPDAR,1,1,1) 1147 C----------------------------------------------------------------------- 1148 C*** 1149 C*** DISTRIBUTE CPGFU 1150 C*** Page 7 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 1151 IF(MYPE.EQ.0)THEN 1152 READ(NHB)TEMP1 1153 c WRITE(0,*)'READ CPGFU' 1154 ENDIF 1155 C 1156 CALL DSTRB(TEMP1,CPGFU,1,1,1) 1157 C----------------------------------------------------------------------- 1158 C*** 1159 C*** DISTRIBUTE CURV 1160 C*** 1161 IF(MYPE.EQ.0)THEN 1162 READ(NHB)TEMP1 1163 c WRITE(0,*)'READ CURV' 1164 ENDIF 1165 C 1166 CALL DSTRB(TEMP1,CURV,1,1,1) 1167 C----------------------------------------------------------------------- 1168 C*** 1169 C*** DISTRIBUTE FCP 1170 C*** 1171 IF(MYPE.EQ.0)THEN 1172 READ(NHB)TEMP1 1173 c WRITE(0,*)'READ FCP' 1174 ENDIF 1175 C 1176 CALL DSTRB(TEMP1,FCP,1,1,1) 1177 C----------------------------------------------------------------------- 1178 C*** 1179 C*** DISTRIBUTE FDIV 1180 C*** 1181 IF(MYPE.EQ.0)THEN 1182 READ(NHB)TEMP1 1183 c WRITE(0,*)'READ FDIV' 1184 ENDIF 1185 C 1186 CALL DSTRB(TEMP1,FDIV,1,1,1) 1187 C----------------------------------------------------------------------- 1188 C*** 1189 C*** DISTRIBUTE FAD 1190 C*** 1191 IF(MYPE.EQ.0)THEN 1192 READ(NHB)TEMP1 1193 c WRITE(0,*)'READ FAD' 1194 ENDIF 1195 C 1196 CALL DSTRB(TEMP1,FAD,1,1,1) 1197 C----------------------------------------------------------------------- 1198 C*** 1199 C*** DISTRIBUTE F 1200 C*** 1201 IF(MYPE.EQ.0)THEN 1202 READ(NHB)TEMP1 1203 c WRITE(0,*)'READ F' 1204 ENDIF 1205 C 1206 CALL DSTRB(TEMP1,F,1,1,1) 1207 C----------------------------------------------------------------------- Page 8 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 1208 C*** 1209 C*** DISTRIBUTE DDMPU 1210 C*** 1211 IF(MYPE.EQ.0)THEN 1212 READ(NHB)TEMP1 1213 c WRITE(0,*)'READ DDMPU' 1214 ENDIF 1215 C 1216 CALL DSTRB(TEMP1,DDMPU,1,1,1) 1217 C----------------------------------------------------------------------- 1218 C*** 1219 C*** DISTRIBUTE DDMPV 1220 C*** 1221 IF(MYPE.EQ.0)THEN 1222 READ(NHB)TEMP1 1223 c WRITE(0,*)'READ DDMPV' 1224 ENDIF 1225 C 1226 CALL DSTRB(TEMP1,DDMPV,1,1,1) 1227 C----------------------------------------------------------------------- 1228 C*** 1229 C*** DISTRIBUTE PT, GLAT 1230 C*** 1231 IF(MYPE.EQ.0)THEN 1232 READ(NHB)PT2,TEMP1 1233 c WRITE(0,*)'READ PT, GLAT' 1234 ENDIF 1235 C 1236 CALL DSTRB(TEMP1,GLAT,1,1,1) 1237 CALL MPI_BCAST(PT2,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1238 c print*,'glat=',glat 1239 C----------------------------------------------------------------------- 1240 C*** 1241 C*** DISTRIBUTE GLON 1242 C*** 1243 IF(MYPE.EQ.0)THEN 1244 READ(NHB)TEMP1 1245 c WRITE(0,*)'READ GLON' 1246 ENDIF 1247 C 1248 CALL DSTRB(TEMP1,GLON,1,1,1) 1249 c print*,'glon=',glon 1250 C----------------------------------------------------------------------- 1251 C 1252 IF(MYPE.EQ.0)THEN 1253 READ(NHB)PLQ,RDPQ,RDTHEQ,STHEQ,THE0Q 1254 c WRITE(0,*)'READ PLQ' 1255 ENDIF 1256 C 1257 CALL MPI_BCAST(PLQ,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1258 CALL MPI_BCAST(RDPQ,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1259 CALL MPI_BCAST(RDTHEQ,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1260 CALL MPI_BCAST(STHEQ(1),ITBQ,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1261 CALL MPI_BCAST(THE0Q(1),ITBQ,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1262 C 1263 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1264 C----------------------------------------------------------------------- Page 9 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 1265 C 1266 IF(MYPE.EQ.0)THEN 1267 READ(NHB)ROS,CS,DS,ROI,CI,DI 1268 1, PL,THL,RDQ,RDTH,RDP,RDTHE 1269 2, DETA2,AETA2,DFRLG 1270 3, QS0,SQS,STHE,THE0 1271 c WRITE(0,*)'READ ROS' 1272 ENDIF 1273 C 1274 CALL MPI_BCAST(ROS,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1275 CALL MPI_BCAST(CS,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1276 CALL MPI_BCAST(DS,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1277 CALL MPI_BCAST(ROI,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1278 CALL MPI_BCAST(CI,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1279 CALL MPI_BCAST(DI,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1280 CALL MPI_BCAST(PL,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1281 CALL MPI_BCAST(THL,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1282 CALL MPI_BCAST(RDQ,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1283 CALL MPI_BCAST(RDTH,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1284 CALL MPI_BCAST(RDP,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1285 CALL MPI_BCAST(RDTHE,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1286 CALL MPI_BCAST(DETA2(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1287 CALL MPI_BCAST(AETA2(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1288 CALL MPI_BCAST(DFRLG(1),LP1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1289 CALL MPI_BCAST(QS0(1),JTB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1290 CALL MPI_BCAST(SQS(1),JTB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1291 CALL MPI_BCAST(STHE(1),ITB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1292 CALL MPI_BCAST(THE0(1),ITB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1293 C 1294 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1295 C----------------------------------------------------------------------- 1296 C*** 1297 C*** DISTRIBUTE MXSNAL 1298 C*** 1299 IF(MYPE.EQ.0)THEN 1300 READ(NHB)TEMP1 1301 c WRITE(0,*)'READ MXSNAL' 1302 ENDIF 1303 C 1304 CALL DSTRB(TEMP1,MXSNAL,1,1,1) 1305 C----------------------------------------------------------------------- 1306 C*** 1307 C*** DISTRIBUTE EPSR 1308 C*** 1309 IF(MYPE.EQ.0)THEN 1310 READ(NHB)TEMP1 1311 c WRITE(0,*)'READ EPSR' 1312 ENDIF 1313 C 1314 CALL DSTRB(TEMP1,EPSR,1,1,1) 1315 C----------------------------------------------------------------------- 1316 C*** 1317 C*** DISTRIBUTE TG 1318 C*** 1319 IF(MYPE.EQ.0)THEN 1320 READ(NHB)TEMP1 1321 c WRITE(0,*)'READ TG' Page 10 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 1322 ENDIF 1323 C 1324 CALL DSTRB(TEMP1,TG,1,1,1) 1325 C----------------------------------------------------------------------- 1326 C*** 1327 C*** DISTRIBUTE GFFC 1328 C*** 1329 IF(MYPE.EQ.0)THEN 1330 READ(NHB)TEMP1 1331 c WRITE(0,*)'READ GFFC' 1332 ENDIF 1333 C 1334 CALL DSTRB(TEMP1,GFFC,1,1,1) 1335 C----------------------------------------------------------------------- 1336 C*** 1337 C*** DISTRIBUTE SST 1338 C*** 1339 IF(MYPE.EQ.0)THEN 1340 READ(NHB)TEMP1 1341 c WRITE(0,*)'READ SST' 1342 ENDIF 1343 C 1344 CALL DSTRB(TEMP1,SST,1,1,1) 1345 C----------------------------------------------------------------------- 1346 C*** 1347 C*** DISTRIBUTE ALBASE 1348 C*** 1349 IF(MYPE.EQ.0)THEN 1350 READ(NHB)TEMP1 1351 c WRITE(0,*)'READ ALBASE' 1352 ENDIF 1353 C 1354 CALL DSTRB(TEMP1,ALBASE,1,1,1) 1355 C----------------------------------------------------------------------- 1356 C*** 1357 C*** DISTRIBUTE HDAC 1358 C*** 1359 IF(MYPE.EQ.0)THEN 1360 READ(NHB)TEMP1 1361 c WRITE(0,*)'READ HDAC' 1362 ENDIF 1363 C 1364 CALL DSTRB(TEMP1,HDAC,1,1,1) 1365 C----------------------------------------------------------------------- 1366 C*** 1367 C*** DISTRIBUTE HDACV 1368 C*** 1369 IF(MYPE.EQ.0)THEN 1370 READ(NHB)TEMP1 1371 c WRITE(0,*)'READ HDACV' 1372 ENDIF 1373 C 1374 CALL DSTRB(TEMP1,HDACV,1,1,1) 1375 C----------------------------------------------------------------------- 1376 C*** 1377 C*** DISTRIBUTE TTBLQ 1378 C*** Page 11 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 1379 IF(MYPE.EQ.0)THEN 1380 READ(NHB)TTBLQ 1381 c WRITE(0,*)'READ TTBLQ' 1382 ENDIF 1383 C 1384 CALL MPI_BCAST(TTBLQ(1,1),ITBQ*JTBQ,MPI_REAL,0, 1385 1 MPI_COMM_COMP,IRTN) 1386 C 1387 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1388 C----------------------------------------------------------------------- 1389 C 1390 IF(MYPE.EQ.0)THEN 1391 # 613 1392 1393 READ(NHB)PTBL,TTBL 1394 1, R1,PT1,TSPH 1395 2, WBD,SBD,TLM0D,TPH0D,DLMD,DPHD,CMLD,DP30 1396 3, X1P,Y1P,IXM,IYM 1397 4, DETA1,AETA1,ETA1 1398 1399 c WRITE(0,*)'READ PTBL' 1400 ENDIF 1401 c 1402 CALL MPI_BCAST(PTBL(1,1),ITB*JTB,MPI_REAL,0, 1403 1 MPI_COMM_COMP,IRTN) 1404 CALL MPI_BCAST(TTBL(1,1),JTB*ITB,MPI_REAL,0, 1405 1 MPI_COMM_COMP,IRTN) 1406 CALL MPI_BCAST(R1,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1407 CALL MPI_BCAST(PT1,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1408 CALL MPI_BCAST(TSPH,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1409 CALL MPI_BCAST(WBD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1410 CALL MPI_BCAST(SBD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1411 CALL MPI_BCAST(TLM0D,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1412 CALL MPI_BCAST(TPH0D,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1413 CALL MPI_BCAST(DLMD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1414 CALL MPI_BCAST(DPHD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1415 CALL MPI_BCAST(CMLD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1416 CALL MPI_BCAST(DP30,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1417 CALL MPI_BCAST(X1P,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1418 CALL MPI_BCAST(Y1P,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1419 CALL MPI_BCAST(IXM,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1420 CALL MPI_BCAST(IYM,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1421 CALL MPI_BCAST(DETA1(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1422 CALL MPI_BCAST(AETA1(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1423 CALL MPI_BCAST(ETA1(1),LP1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1424 C 1425 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1426 C----------------------------------------------------------------------- 1427 C*** 1428 C*** DISTRIBUTE IVGTYP 1429 C*** 1430 IF(MYPE.EQ.0)THEN 1431 # 655 1432 1433 READ(NHB)ITEMP 1434 1435 ENDIF Page 12 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 1436 C 1437 CALL IDSTRB(ITEMP,IVGTYP) 1438 C----------------------------------------------------------------------- 1439 C*** 1440 C*** DISTRIBUTE ISLTYP 1441 C*** 1442 IF(MYPE.EQ.0)THEN 1443 # 669 1444 1445 READ(NHB)ITEMP 1446 1447 ENDIF 1448 C 1449 CALL IDSTRB(ITEMP,ISLTYP) 1450 C----------------------------------------------------------------------- 1451 C*** 1452 C*** DISTRIBUTE ISLOPE 1453 C*** 1454 IF(MYPE.EQ.0)THEN 1455 # 683 1456 1457 READ(NHB)ITEMP 1458 1459 ENDIF 1460 C 1461 CALL IDSTRB(ITEMP,ISLOPE) 1462 C----------------------------------------------------------------------- 1463 C*** 1464 C*** DISTRIBUTE VEGFRC 1465 C*** 1466 IF(MYPE.EQ.0)THEN 1467 READ(NHB)TEMP1 1468 ENDIF 1469 C 1470 CALL DSTRB(TEMP1,VEGFRC,1,1,1) 1471 C----------------------------------------------------------------------- 1472 C*** 1473 C*** DISTRIBUTE SLDPTH 1474 C*** 1475 IF(MYPE.EQ.0)THEN 1476 READ(NHB)SLDPTH 1477 ENDIF 1478 C 1479 CALL MPI_BCAST(SLDPTH(1),NSOIL,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1480 C----------------------------------------------------------------------- 1481 C*** 1482 C*** DISTRIBUTE RTDPTH 1483 C*** 1484 IF(MYPE.EQ.0)THEN 1485 READ(NHB)RTDPTH 1486 ENDIF 1487 C 1488 CALL MPI_BCAST(RTDPTH(1),NSOIL,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1489 C----------------------------------------------------------------------- 1490 C 1491 C END OF SUBROUTINE READ_NHB 1492 C Page 13 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 1493 C----------------------------------------------------------------------- 1494 RETURN 1495 END ENTRY POINTS Name read_nhb_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACFRCV Scalar 4 R(4) 4 2 17955 COM ACFRST Scalar 5 R(4) 4 2 17955 COM ACMCLD Common 2 287288 ACMCLH Common 2 6463824 ACMPRE Common 2 287284 ACMRDL Common 2 3662832 ACMRDS Common 2 3662832 ACMSFC Common 2 574576 ACPREC Scalar 12 R(4) 4 2 17955 COM ACSNOM Scalar 4 R(4) 4 2 17955 COM ACSNOW Scalar 4 R(4) 4 2 17955 COM ACUTIM Scalar 3 R(4) 4 scalar COM AETA Scalar 4 R(4) 4 1 45 COM 316,333 AETA1 Scalar 8 R(4) 4 1 45 COM 618,643 AETA2 Scalar 9 R(4) 4 1 45 COM 483,501 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 ALBASE Scalar 20 R(4) 4 2 17955 COM 568 ALBEDO Scalar 21 R(4) 4 2 17955 COM ALSL Scalar 7 R(4) 4 1 39 COM ALWIN Scalar 5 R(4) 4 2 17955 COM ALWOUT Scalar 6 R(4) 4 2 17955 COM ALWTOA Scalar 6 R(4) 4 2 17955 COM APHTIM Scalar 8 R(4) 4 scalar COM ARATIM Scalar 3 R(4) 4 scalar COM ARDLW Scalar 3 R(4) 4 scalar COM ARDSW Scalar 3 R(4) 4 scalar COM ASRFC Scalar 3 R(4) 4 scalar COM ASWIN Scalar 5 R(4) 4 2 17955 COM ASWOUT Scalar 6 R(4) 4 2 17955 COM ASWTOA Scalar 6 R(4) 4 2 17955 COM AVCNVC Scalar 3 R(4) 4 scalar COM AVRAIN Scalar 3 R(4) 4 scalar COM BGROFF Scalar 5 R(4) 4 2 17955 COM BOCO Common 2 1860144 CFRACH Scalar 4 R(4) 4 2 17955 COM CFRACL Scalar 3 R(4) 4 2 17955 COM CFRACM Scalar 4 R(4) 4 2 17955 COM CI Scalar 6 R(4) 4 scalar COM 481,492 Page 14 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References CLDEFI Scalar 11 R(4) 4 2 17955 COM CLDWTR Common 2 3447720 CM1 Param 69 R(4) 4 scalar CM2 Param 69 R(4) 4 scalar CM3 Param 69 R(4) 4 scalar CMC Scalar 8 R(4) 4 2 17955 COM CMLD Scalar 6 R(4) 4 scalar COM 616,636 CNVBOT Scalar 18 R(4) 4 2 17955 COM CNVCLD Common 2 287280 CNVTOP Scalar 18 R(4) 4 2 17955 COM CONTIN Common 2 12999420 CONTRL Local 98 CHAR 40 scalar CPGFU Scalar 9 R(4) 4 2 17955 COM 370 CPGFV Scalar 3 R(4) 4 scalar COM 315,322 CPHI0 Scalar 9 R(4) 4 scalar COM CS Scalar 6 R(4) 4 scalar COM 481,489 CTLBLK Common 4 112 CUPPT Scalar 3 R(4) 4 2 17955 COM CUPREC Scalar 13 R(4) 4 2 17955 COM CURV Scalar 9 R(4) 4 2 17955 COM 380 CWM Scalar 3 R(4) 4 3 807975 COM CWMB Scalar 4 R(4) 4 3 77220 COM CZEN Scalar 16 R(4) 4 2 17955 COM CZMEAN Scalar 23 R(4) 4 2 17955 COM DDMPU Scalar 12 R(4) 4 2 17955 COM 430 DDMPV Scalar 12 R(4) 4 2 17955 COM 440 DETA Scalar 4 R(4) 4 1 45 COM 316,331 DETA1 Scalar 8 R(4) 4 1 45 COM 618,642 DETA2 Scalar 9 R(4) 4 1 45 COM 483,500 DFL Scalar 4 R(4) 4 1 46 COM 316,336 DFRLG Scalar 9 R(4) 4 1 46 COM 483,502 DI Scalar 6 R(4) 4 scalar COM 481,493 DISLP Scalar 7 R(4) 4 scalar COM DIV Scalar 6 R(4) 4 3 807975 COM DLMD Scalar 6 R(4) 4 scalar COM 616,634 DP30 Scalar 6 R(4) 4 scalar COM 616,637 DPHD Scalar 6 R(4) 4 scalar COM 616,635 DS Scalar 6 R(4) 4 scalar COM 481,490 DSTRB Subr 228 228,259,269,279,289,299,310,350,36 0,370,380,390,400,410,420,430,440, 450,462,518,528,538,548,558,568,57 8,588,697 DT Scalar 6 R(4) 4 scalar COM 173,182 DTD Scalar 5 R(4) 4 scalar COM DTQ2 Scalar 5 R(4) 4 scalar COM DTR Param 79 R(4) 4 scalar DX Scalar 8 R(4) 4 2 17955 COM 350 DY Scalar 3 R(4) 4 scalar COM 315,321 DYNAM Common 2 725404 EF4T Scalar 3 R(4) 4 scalar COM 316,330 EM Scalar 6 R(4) 4 1 760 COM 317,337 EMT Scalar 6 R(4) 4 1 760 COM 317,338 EN Scalar 3 R(4) 4 scalar COM 315,323 ENT Scalar 3 R(4) 4 scalar COM 315,324 EPS Param 69 R(4) 4 scalar Page 15 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References EPSQ Param 76 R(4) 4 scalar EPSQ2 Param 76 R(4) 4 scalar EPSR Scalar 13 R(4) 4 2 17955 COM 528 EPSWET Param 76 R(4) 4 scalar ERLAM0 Scalar 9 R(4) 4 scalar COM ETA Scalar 4 R(4) 4 1 46 COM 316,335 ETA1 Scalar 8 R(4) 4 1 46 COM 618,644 ETADT Scalar 7 R(4) 4 3 790020 COM F Scalar 11 R(4) 4 2 17955 COM 420 F4D Scalar 3 R(4) 4 scalar COM 316,328 F4Q Scalar 3 R(4) 4 scalar COM 316,329 F4Q2 Scalar 4 R(4) 4 1 45 COM 316,334 FAD Scalar 13 R(4) 4 2 17955 COM 410 FCM Param 78 R(4) 4 scalar FCP Scalar 10 R(4) 4 2 17955 COM 390 FCSTDATA Local 145 scalar FDIV Scalar 10 R(4) 4 2 17955 COM 400 FILALL Local 98 CHAR 40 scalar FILCLD Local 99 CHAR 40 scalar FILMST Local 98 CHAR 40 scalar FILRAD Local 99 CHAR 40 scalar FILSFC Local 99 CHAR 40 scalar FILTKE Local 98 CHAR 40 scalar FILTMP Local 98 CHAR 40 scalar FILUNV Local 98 CHAR 40 scalar FIRST Scalar 93 L(4) 4 scalar COM FIS Scalar 7 R(4) 4 2 17955 COM G Param 69 R(4) 4 scalar G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GFFC Scalar 19 R(4) 4 2 17955 COM 548 GLAT Scalar 15 R(4) 4 2 17955 COM 450 GLB_TABLE Common 37 128 GLON Scalar 15 R(4) 4 2 17955 COM 462 GRNFLX Scalar 5 R(4) 4 2 17955 COM H105 Param 80 R(4) 4 scalar H1905 Param 80 R(4) 4 scalar H360 Param 79 R(4) 4 scalar HBM2 Scalar 8 R(4) 4 2 17955 COM 228 HBM3 Scalar 8 R(4) 4 2 17955 COM 235,246 HBOT Scalar 17 R(4) 4 2 17955 COM HDAC Scalar 22 R(4) 4 2 17955 COM 578 HDACV Scalar 22 R(4) 4 2 17955 COM 588 HTM Scalar 6 R(4) 4 3 807975 COM 299 HTMG Scalar 52 R(4) 4 3 4183695 COM HTOP Scalar 17 R(4) 4 2 17955 COM I Local 234 I(4) 4 scalar 234,235,244,245,246 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM IDATB Local 102 I(4) 4 1 3 IDIM1 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,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,20,21,22,23,26 Page 16 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References IDSTRB Subr 203 203,218,660,674,688 IDTAD Scalar 6 I(4) 4 scalar COM 173,183 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IG Local 245 I(4) 4 scalar 245,246 IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHE Scalar 3 I(4) 4 1 399 COM IHEG Scalar 9 I(4) 4 1 387 COM IHH Local 243 I(4) 4 scalar 243,246 IHHA Scalar 3 I(4) 4 1 760 COM IHL Local 242 I(4) 4 scalar 242,246 IHLA Scalar 3 I(4) 4 1 760 COM IHRST Scalar 5 I(4) 4 scalar COM IHW Scalar 3 I(4) 4 1 399 COM IHWG Scalar 9 I(4) 4 1 387 COM 242 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM 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 IM Param 3 I(4) 4 scalar 9,16,19,43,44,45,46,47,51,52,57,84 ,85,243 IMJM Param 84 I(4) 4 scalar IMT Param 85 I(4) 4 scalar INDX Common 2 6564 INDXG Common 8 8084 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 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 IRAD Scalar 5 I(4) 4 1 45 COM IRADG Scalar 9 I(4) 4 1 473 COM IRCOL Scalar 22 I(4) 4 scalar COM IRPAD1 Scalar 24 I(4) 4 scalar COM 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 179 I(4) 4 scalar 179,180,181,182,183,184,186,321,32 2,323,324,325,326,327,328,329,330, 331,332,333,334,335,336,337,338,34 0,451,471,472,473,474,475,477,488, 489,490,491,492,493,494,495,496,49 7,498,499,500,501,502,503,504,505, 506,508,599,601,624,626,627,628,62 9,630,631,632,633,634,635,636,637, 638,639,640,641,642,643,644,646,70 6,715 ISHDE Scalar 4 I(4) 4 1 99 COM ISLOPE Scalar 7 I(4) 4 2 17955 COM 688 ISLTYP Scalar 6 I(4) 4 2 17955 COM 674 ISTAT Local 132 I(4) 4 1 5 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM Page 17 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 10,25,505,506,623,625 ITBQ Param 1 I(4) 4 scalar 11,25,474,475,598 ITEMP Scalar 47 I(4) 4 2 91719 COM 198,203,213,218,656,660,670,674,68 4,688 ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM IVE Scalar 4 I(4) 4 1 399 COM IVEG Scalar 9 I(4) 4 1 387 COM IVGTYP Scalar 6 I(4) 4 2 17955 COM 660 IVHA Scalar 3 I(4) 4 1 760 COM IVLA Scalar 3 I(4) 4 1 760 COM IVW Scalar 4 I(4) 4 1 399 COM IVWG Scalar 9 I(4) 4 1 387 COM IXM Scalar 3 I(4) 4 scalar COM 617,640 IYM Scalar 3 I(4) 4 scalar COM 617,641 J Local 233 I(4) 4 scalar 233,235,239,240,246 JAM Param 84 I(4) 4 scalar 3,6,337,338 JBPAD1 Scalar 25 I(4) 4 scalar COM 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,20,21,22,23,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,20,21,22,23,26 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JG Local 240 I(4) 4 scalar 240,241,242 JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JM Param 3 I(4) 4 scalar 9,17,20,43,44,45,46,47,51,52,57,84 ,241 JMP1 Param 84 I(4) 4 scalar JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JRA Scalar 3 I(4) 4 1 760 COM 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 JTB Param 1 I(4) 4 scalar 10,25,503,504,623,625 JTBQ Param 1 I(4) 4 scalar 25,598 JTPAD1 Scalar 26 I(4) 4 scalar COM 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 KHH2 Local 174 I(4) 4 scalar 174 KHHA Local 174 I(4) 4 scalar 174 KHL2 Local 174 I(4) 4 scalar 174 KHLA Local 174 I(4) 4 scalar 174 KTM Scalar 5 I(4) 4 scalar COM KVH2 Local 174 I(4) 4 scalar 174 KVHA Local 174 I(4) 4 scalar 174 Page 18 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References KVL2 Local 174 I(4) 4 scalar 174 KVLA Local 174 I(4) 4 scalar 174 L Local 294 I(4) 4 scalar 294,299,305,310 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LABEL Local 96 CHAR 32 scalar LB Param 84 I(4) 4 scalar 3,4 LC Scalar 5 I(4) 4 2 17955 COM LIST Scalar 5 I(4) 4 scalar COM 172,181,188 LM Param 3 I(4) 4 scalar 3,4,5,6,7,8,9,21,52,85,294,299,305 ,310,331,332,333,334,500,501,642,6 43 LM1 Param 85 I(4) 4 scalar LMH Scalar 4 I(4) 4 2 17955 COM 203 LMV Scalar 4 I(4) 4 2 17955 COM 218 LOOPS Common 2 158840 LP1 Param 85 I(4) 4 scalar 4,8,9,335,336,502,644 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 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_BARRIER Subr 186 186,340,477,508,601,646 MPI_BCAST Subr 179 179,180,181,182,183,184,321,322,32 3,324,325,326,327,328,329,330,331, 332,333,334,335,336,337,338,451,47 1,472,473,474,475,488,489,490,491, 492,493,494,495,496,497,498,499,50 Page 19 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References 0,501,502,503,504,505,506,598,623, 625,627,628,629,630,631,632,633,63 4,635,636,637,638,639,640,641,642, 643,644,706,715 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 179,180,181,182,183,184,186,321,32 2,323,324,325,326,327,328,329,330, 331,332,333,334,335,336,337,338,34 0,451,471,472,473,474,475,477,488, 489,490,491,492,493,494,495,496,49 7,498,499,500,501,502,503,504,505, 506,508,599,601,624,626,627,628,62 9,630,631,632,633,634,635,636,637, 638,639,640,641,642,643,644,646,70 6,715 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 Page 20 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_CONGRUENT Param 134 I(4) 4 scalar 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 Page 21 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar 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 179,180,181,183,640,641 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 184 Page 22 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LONG Param 326 I(4) 4 scalar 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 182,321,322,323,324,325,326,327,32 8,329,330,331,332,333,334,335,336, 337,338,451,471,472,473,474,475,48 8,489,490,491,492,493,494,495,496, 497,498,499,500,501,502,503,504,50 5,506,598,623,625,627,628,629,630, 631,632,633,634,635,636,637,638,63 9,642,643,644,706,715 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 Page 23 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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,132 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 Page 24 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MXSNAL Scalar 2 R(4) 4 2 17955 COM 518 MYIE Scalar 4 I(4) 4 scalar COM 234,244 MYIE1 Scalar 4 I(4) 4 scalar COM 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 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 234,244 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 233,239 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 233,239 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 Page 25 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 151,193,208,223,254,264,274,284,29 5,306,314,345,355,365,375,385,395, 405,415,425,435,445,457,466,480,51 3,523,533,543,553,563,573,583,593, 604,651,665,679,693,702,711 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM 245 MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM 240 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 NBC Scalar 5 I(4) 4 scalar COM 172,180 NBOCO Scalar 6 I(4) 4 scalar COM NCFRCV Scalar 4 I(4) 4 2 17955 COM NCFRST Scalar 5 I(4) 4 2 17955 COM NCLOD Scalar 3 I(4) 4 scalar COM NCNVC Scalar 7 I(4) 4 scalar COM 147 NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 7 I(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM 172,179 NHB Dummy 2 I(4) 4 scalar ARG,INOUT 171,198,213,224,255,265,275,285,29 6,307,315,346,356,366,376,386,396, 406,416,426,436,446,458,467,481,51 4,524,534,544,554,564,574,584,594, 614,656,670,684,694,703,712 Page 26 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References NHEAT Scalar 3 I(4) 4 scalar COM NMAP Local 146 I(4) 4 scalar 146 NPES Scalar 2 I(4) 4 scalar COM NPHS Scalar 7 I(4) 4 scalar COM 147 NPREC Scalar 6 I(4) 4 scalar COM NRADL Scalar 7 I(4) 4 scalar COM NRADLH Local 147 I(4) 4 scalar 147 NRADS Scalar 7 I(4) 4 scalar COM NRADSH Local 147 I(4) 4 scalar 147 NRDLW Scalar 3 I(4) 4 scalar COM NRDSW Scalar 3 I(4) 4 scalar COM NROOT Param 1 I(4) 4 scalar NSHDE Scalar 6 I(4) 4 scalar COM NSOIL Param 1 I(4) 4 scalar 8,9,10,706,715 NSRFC Scalar 3 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 NTSTM Scalar 6 I(4) 4 scalar COM OMGALF Scalar 5 R(4) 4 3 807975 COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PCTSNO Scalar 5 R(4) 4 2 17955 COM PD Scalar 3 R(4) 4 2 17955 COM PDB Scalar 3 R(4) 4 2 1716 COM PDSL Scalar 3 R(4) 4 2 17955 COM PHYS Common 4 1788916 PL Scalar 7 R(4) 4 scalar COM 482,494 PLQ Scalar 8 R(4) 4 scalar COM 467,471 PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar POTEVP Scalar 7 R(4) 4 2 17955 COM POTFLX Scalar 7 R(4) 4 2 17955 COM PREC Scalar 12 R(4) 4 2 17955 COM PSDT Scalar 3 R(4) 4 2 17955 COM PSHLTR Scalar 19 R(4) 4 2 17955 COM PT Scalar 3 R(4) 4 scalar COM 315,326 PT1 Scalar 5 R(4) 4 scalar COM 615,628 PT2 Scalar 5 R(4) 4 scalar COM 446,451 PTBL Scalar 25 R(4) 4 2 10184 COM 614,623 PVRBLS Common 2 5530140 Q Scalar 6 R(4) 4 3 807975 COM Q10 Scalar 16 R(4) 4 2 17955 COM Q2 Scalar 21 R(4) 4 3 807975 COM Q2B Scalar 4 R(4) 4 3 77220 COM Q2INI Param 76 R(4) 4 scalar Q30 Scalar 14 R(4) 4 2 17955 COM QB Scalar 3 R(4) 4 3 77220 COM QS Scalar 6 R(4) 4 2 17955 COM QS0 Scalar 10 R(4) 4 1 134 COM 484,503 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 3 R(4) 4 scalar COM 315,325 R1 Scalar 5 R(4) 4 scalar COM 615,627 Page 27 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References RADIN Scalar 14 R(4) 4 2 17955 COM RADOT Scalar 14 R(4) 4 2 17955 COM RDETA Scalar 4 R(4) 4 1 45 COM 316,332 RDP Scalar 7 R(4) 4 scalar COM 482,498 RDPQ Scalar 8 R(4) 4 scalar COM 467,472 RDQ Scalar 7 R(4) 4 scalar COM 482,496 RDTH Scalar 7 R(4) 4 scalar COM 482,497 RDTHE Scalar 7 R(4) 4 scalar COM 482,499 RDTHEQ Scalar 8 R(4) 4 scalar COM 467,473 READ_NHB Subr 2 RES Scalar 7 R(4) 4 2 17955 COM RESTRT Scalar 93 L(4) 4 scalar COM 146 RF Scalar 8 R(4) 4 2 17955 COM RLWIN Scalar 4 R(4) 4 2 17955 COM RLWOUT Scalar 4 R(4) 4 2 17955 COM RLWTOA Scalar 5 R(4) 4 2 17955 COM RLWTT Scalar 7 R(4) 4 3 807975 COM ROI Scalar 6 R(4) 4 scalar COM 481,491 ROS Scalar 6 R(4) 4 scalar COM 481,488 RSWIN Scalar 4 R(4) 4 2 17955 COM RSWOUT Scalar 4 R(4) 4 2 17955 COM RSWTOA Scalar 5 R(4) 4 2 17955 COM RSWTT Scalar 7 R(4) 4 3 807975 COM RTDPTH Scalar 10 R(4) 4 1 4 COM 712,715 RTOP Scalar 4 R(4) 4 3 807975 COM RUN Scalar 93 L(4) 4 scalar COM RUNB Local 93 L(4) 4 scalar SBD Scalar 6 R(4) 4 scalar COM 616,631 SFCEVP Scalar 6 R(4) 4 2 17955 COM SFCEXC Scalar 3 R(4) 4 2 17955 COM SFCLHX Scalar 4 R(4) 4 2 17955 COM SFCSHX Scalar 4 R(4) 4 2 17955 COM SFCUVX Scalar 6 R(4) 4 2 17955 COM SH2O Scalar 10 R(4) 4 3 71820 COM SI Scalar 10 R(4) 4 2 17955 COM SICE Scalar 4 R(4) 4 2 17955 COM 289 SIGMA Scalar 93 L(4) 4 scalar COM 173,184 SIGT4 Scalar 23 R(4) 4 2 17955 COM SINGLRST Local 2 L(4) 4 scalar SLDPTH Scalar 10 R(4) 4 1 4 COM 703,706 SM Scalar 4 R(4) 4 2 17955 COM 279 SMC Scalar 8 R(4) 4 3 71820 COM SMSTAV Scalar 4 R(4) 4 2 17955 COM SMSTOT Scalar 4 R(4) 4 2 17955 COM SNO Scalar 10 R(4) 4 2 17955 COM SNOPCX Scalar 5 R(4) 4 2 17955 COM SOIL Common 2 1651892 SOILTB Scalar 3 R(4) 4 2 17955 COM SPHI0 Scalar 9 R(4) 4 scalar COM SPL Scalar 7 R(4) 4 1 39 COM 146 SQS Scalar 10 R(4) 4 1 134 COM 484,504 SR Scalar 5 R(4) 4 2 17955 COM SSROFF Scalar 5 R(4) 4 2 17955 COM SST Scalar 20 R(4) 4 2 17955 COM 558 STC Scalar 9 R(4) 4 3 71820 COM Page 28 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References STHE Scalar 10 R(4) 4 1 76 COM 484,505 STHEQ Scalar 11 R(4) 4 1 152 COM 467,474 SUBPOST Scalar 2 L(4) 4 scalar COM 146 SUBSHX Scalar 5 R(4) 4 2 17955 COM T Scalar 5 R(4) 4 3 807975 COM TB Scalar 3 R(4) 4 3 77220 COM TCLOD Scalar 3 R(4) 4 scalar COM 148 TCP Local 146 R(4) 4 scalar 146 TCUCN Scalar 5 R(4) 4 3 807975 COM TDDAMP Local 315 R(4) 4 scalar 315,327 TDTD Scalar 5 R(4) 4 scalar COM TDTQ2 Scalar 5 R(4) 4 scalar COM TEMP1 Scalar 43 R(4) 4 2 91719 COM 224,228,255,259,265,269,275,279,28 5,289,296,299,307,310,346,350,356, 360,366,370,376,380,386,390,396,40 0,406,410,416,420,426,430,436,440, 446,450,458,462,514,518,524,528,53 4,538,544,548,554,558,564,568,574, 578,584,588,694,697 TEMP10 Scalar 45 R(4) 4 2 91719 COM 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 TEND Local 146 R(4) 4 scalar 146 TG Scalar 19 R(4) 4 2 17955 COM 538 TH10 Scalar 16 R(4) 4 2 17955 COM TH30 Scalar 14 R(4) 4 2 17955 COM THE0 Scalar 10 R(4) 4 1 76 COM 484,506 THE0Q Scalar 11 R(4) 4 1 152 COM 467,475 THEAT Scalar 3 R(4) 4 scalar COM 148 THL Scalar 7 R(4) 4 scalar COM 482,495 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 616,632 TOPO Common 50 17478548 TPH0D Scalar 6 R(4) 4 scalar COM 616,633 TPREC Scalar 3 R(4) 4 scalar COM 148 TRAIN Scalar 4 R(4) 4 3 807975 COM TRDLW Scalar 3 R(4) 4 scalar COM 148 TRDSW Scalar 3 R(4) 4 scalar COM 148 TSHDE Scalar 8 R(4) 4 1 99 COM 146 TSHLTR Scalar 18 R(4) 4 2 17955 COM Page 29 Source Listing READ_NHB 2014-12-17 20:47 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References TSPH Scalar 5 R(4) 4 scalar COM 615,629 TSRFC Scalar 3 R(4) 4 scalar COM 148 TSTART Local 146 R(4) 4 scalar 146 TTBL Scalar 25 R(4) 4 2 10184 COM 614,625 TTBLQ Scalar 25 R(4) 4 2 66880 COM 594,598 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 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 VBM2 Scalar 3 R(4) 4 2 17955 COM 259 VBM3 Scalar 3 R(4) 4 2 17955 COM 269 VEGFRC Scalar 7 R(4) 4 2 17955 COM 697 VRBLS Common 2 13143060 VTM Scalar 7 R(4) 4 3 807975 COM 310 VZ0 Scalar 4 R(4) 4 2 17955 COM WBD Scalar 6 R(4) 4 scalar COM 616,630 WPDAR Scalar 8 R(4) 4 2 17955 COM 360 X1P Scalar 6 R(4) 4 scalar COM 617,638 Y1P Scalar 6 R(4) 4 scalar COM 617,639 Z0 Scalar 3 R(4) 4 2 17955 COM Z0LAND Param 78 R(4) 4 scalar Z0SEA Param 78 R(4) 4 scalar Z0SLP Scalar 7 R(4) 4 scalar COM Page 30 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 1496 Page 31 Source Listing READ_NHB 2014-12-17 20:47 Subprograms/Common Blocks READ_NHB.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 2 287288 ACMCLH Common 2 6463824 ACMPRE Common 2 287284 ACMRDL Common 2 3662832 ACMRDS Common 2 3662832 ACMSFC Common 2 574576 BOCO Common 2 1860144 CLDWTR Common 2 3447720 CNVCLD Common 2 287280 CONTIN Common 2 12999420 CTLBLK Common 4 112 DYNAM Common 2 725404 GLB_TABLE Common 37 128 INDX Common 2 6564 INDXG Common 8 8084 LOOPS Common 2 158840 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 PHYS Common 4 1788916 PVRBLS Common 2 5530140 READ_NHB Subr 2 SOIL Common 2 1651892 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 Page 32 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F -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 -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 Page 33 Source Listing READ_NHB 2014-12-17 20:47 READ_NHB.F 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 -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 : READ_NHB.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100