Page 1 Source Listing READ_NHB 2025-03-12 18:21 /tmp/ifortv1BLmz.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 2025-03-12 18:21 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 2025-03-12 18:21 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" 925 INCLUDE "mpp.h" 926 # 1 "./sp.h" 1 927 # 4 928 929 # 131 "READ_NHB.F" 2 930 C----------------------------------------------------------------------- 989 INTEGER ISTAT(MPI_STATUS_SIZE) 990 C 991 # 140 992 993 C----------------------------------------------------------------------- 994 C 995 C DECLARE NAMELIST. 996 C 997 NAMELIST /FCSTDATA/ 998 & TSTART,TEND,TCP,RESTRT,SUBPOST,NMAP,TSHDE,SPL 999 &,NPHS,NCNVC,NRADSH,NRADLH 1000 &,TPREC,THEAT,TCLOD,TRDSW,TRDLW,TSRFC 1001 C 1002 C*********************************************************************** 1003 IF(MYPE.EQ.0)THEN 1004 # 170 1005 1006 READ(NHB) 1007 1 NFCST,NBC,LIST 1008 2, DT,IDTAD,SIGMA 1009 3, KHLA,KHHA,KVLA,KVHA,KHL2,KHH2,KVL2,KVH2 1010 1011 c WRITE(0,*)'READ NFCST= ',NFCST,' FROM FILE NHB' 1012 ENDIF 1013 C 1014 CALL MPI_BCAST(NFCST,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1015 CALL MPI_BCAST(NBC,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1016 CALL MPI_BCAST(LIST,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1017 CALL MPI_BCAST(DT,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1018 CALL MPI_BCAST(IDTAD,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1019 CALL MPI_BCAST(SIGMA,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) 1020 C 1021 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1022 C 1023 LIST=6 1024 C----------------------------------------------------------------------- Page 4 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F 1025 C*** 1026 C*** DISTRIBUTE LMH 1027 C*** 1028 IF(MYPE.EQ.0)THEN 1029 # 197 1030 1031 READ(NHB)ITEMP 1032 1033 ENDIF 1034 c WRITE(0,*)'READ LMH' 1035 C 1036 CALL IDSTRB(ITEMP,LMH) 1037 C----------------------------------------------------------------------- 1038 C*** 1039 C*** DISTRIBUTE LMV 1040 C*** 1041 IF(MYPE.EQ.0)THEN 1042 # 212 1043 1044 READ(NHB)ITEMP 1045 1046 ENDIF 1047 c WRITE(0,*)'READ LMV' 1048 C 1049 CALL IDSTRB(ITEMP,LMV) 1050 C----------------------------------------------------------------------- 1051 C*** 1052 C*** DISTRIBUTE HBM2 1053 C*** 1054 IF(MYPE.EQ.0)THEN 1055 READ(NHB)TEMP1 1056 c WRITE(0,*)'READ HBM2' 1057 ENDIF 1058 C 1059 CALL DSTRB(TEMP1,HBM2,1,1,1) 1060 C----------------------------------------------------------------------- 1061 C*** 1062 C*** FILL HBM3 ON EACH PE 1063 C*** 1064 DO J=MYJS,MYJE 1065 DO I=MYIS,MYIE 1066 HBM3(I,J)=0. 1067 ENDDO 1068 ENDDO 1069 C 1070 DO J=MYJS,MYJE 1071 JG=J+MY_JS_GLB-1 1072 IF(JG.GE.4.AND.JG.LE.JM-3)THEN 1073 IHL=2-IHWG(JG) 1074 IHH=IM-2 1075 DO I=MYIS,MYIE 1076 IG=I+MY_IS_GLB-1 1077 IF(IG.GE.IHL.AND.IG.LE.IHH)HBM3(I,J)=1. 1078 ENDDO 1079 ENDIF 1080 ENDDO 1081 C----------------------------------------------------------------------- Page 5 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F 1082 C*** 1083 C*** DISTRIBUTE VBM2 1084 C*** 1085 IF(MYPE.EQ.0)THEN 1086 READ(NHB)TEMP1 1087 c WRITE(0,*)'READ VBM2' 1088 ENDIF 1089 C 1090 CALL DSTRB(TEMP1,VBM2,1,1,1) 1091 C----------------------------------------------------------------------- 1092 C*** 1093 C*** DISTRIBUTE VBM3 1094 C*** 1095 IF(MYPE.EQ.0)THEN 1096 READ(NHB)TEMP1 1097 c WRITE(0,*)'READ VBM3' 1098 ENDIF 1099 C 1100 CALL DSTRB(TEMP1,VBM3,1,1,1) 1101 C----------------------------------------------------------------------- 1102 C*** 1103 C*** DISTRIBUTE SM 1104 C*** 1105 IF(MYPE.EQ.0)THEN 1106 READ(NHB)TEMP1 1107 c WRITE(0,*)'READ SM' 1108 ENDIF 1109 C 1110 CALL DSTRB(TEMP1,SM,1,1,1) 1111 C----------------------------------------------------------------------- 1112 C*** 1113 C*** DISTRIBUTE SICE 1114 C*** 1115 IF(MYPE.EQ.0)THEN 1116 READ(NHB)TEMP1 1117 c WRITE(0,*)'READ SICE' 1118 ENDIF 1119 C 1120 CALL DSTRB(TEMP1,SICE,1,1,1) 1121 C----------------------------------------------------------------------- 1122 C*** 1123 C*** DISTRIBUTE HTM 1124 C*** 1125 DO L=1,LM 1126 IF(MYPE.EQ.0)THEN 1127 READ(NHB)TEMP1 1128 c WRITE(0,*)'READ HTM' 1129 ENDIF 1130 CALL DSTRB(TEMP1,HTM,1,LM,L) 1131 ENDDO 1132 C----------------------------------------------------------------------- 1133 C*** 1134 C*** DISTRIBUTE VTM 1135 C*** 1136 DO L=1,LM 1137 IF(MYPE.EQ.0)THEN 1138 READ(NHB)TEMP1 Page 6 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F 1139 c WRITE(0,*)'READ VTM' 1140 ENDIF 1141 CALL DSTRB(TEMP1,VTM,1,LM,L) 1142 ENDDO 1143 C----------------------------------------------------------------------- 1144 C 1145 IF(MYPE.EQ.0)THEN 1146 READ(NHB)DY,CPGFV,EN,ENT,R,PT,TDDAMP 1147 1, F4D,F4Q,EF4T,DETA,RDETA,AETA,F4Q2,ETA,DFL 1148 2, EM,EMT 1149 c WRITE(0,*)'READ DY' 1150 ENDIF 1151 C 1152 CALL MPI_BCAST(DY,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1153 CALL MPI_BCAST(CPGFV,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1154 CALL MPI_BCAST(EN,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1155 CALL MPI_BCAST(ENT,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1156 CALL MPI_BCAST(R,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1157 CALL MPI_BCAST(PT,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1158 CALL MPI_BCAST(TDDAMP,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1159 CALL MPI_BCAST(F4D,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1160 CALL MPI_BCAST(F4Q,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1161 CALL MPI_BCAST(EF4T,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1162 CALL MPI_BCAST(DETA(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1163 CALL MPI_BCAST(RDETA(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1164 CALL MPI_BCAST(AETA(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1165 CALL MPI_BCAST(F4Q2(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1166 CALL MPI_BCAST(ETA(1),LP1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1167 CALL MPI_BCAST(DFL(1),LP1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1168 CALL MPI_BCAST(EM(1),JAM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1169 CALL MPI_BCAST(EMT(1),JAM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1170 C 1171 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1172 C----------------------------------------------------------------------- 1173 C*** 1174 C*** DISTRIBUTE DX 1175 C*** 1176 IF(MYPE.EQ.0)THEN 1177 READ(NHB)TEMP1 1178 c WRITE(0,*)'READ DX' 1179 ENDIF 1180 C 1181 CALL DSTRB(TEMP1,DX,1,1,1) 1182 C----------------------------------------------------------------------- 1183 C*** 1184 C*** DISTRIBUTE WPDAR 1185 C*** 1186 IF(MYPE.EQ.0)THEN 1187 READ(NHB)TEMP1 1188 c WRITE(0,*)'READ WPDAR' 1189 ENDIF 1190 C 1191 CALL DSTRB(TEMP1,WPDAR,1,1,1) 1192 C----------------------------------------------------------------------- 1193 C*** 1194 C*** DISTRIBUTE CPGFU 1195 C*** Page 7 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F 1196 IF(MYPE.EQ.0)THEN 1197 READ(NHB)TEMP1 1198 c WRITE(0,*)'READ CPGFU' 1199 ENDIF 1200 C 1201 CALL DSTRB(TEMP1,CPGFU,1,1,1) 1202 C----------------------------------------------------------------------- 1203 C*** 1204 C*** DISTRIBUTE CURV 1205 C*** 1206 IF(MYPE.EQ.0)THEN 1207 READ(NHB)TEMP1 1208 c WRITE(0,*)'READ CURV' 1209 ENDIF 1210 C 1211 CALL DSTRB(TEMP1,CURV,1,1,1) 1212 C----------------------------------------------------------------------- 1213 C*** 1214 C*** DISTRIBUTE FCP 1215 C*** 1216 IF(MYPE.EQ.0)THEN 1217 READ(NHB)TEMP1 1218 c WRITE(0,*)'READ FCP' 1219 ENDIF 1220 C 1221 CALL DSTRB(TEMP1,FCP,1,1,1) 1222 C----------------------------------------------------------------------- 1223 C*** 1224 C*** DISTRIBUTE FDIV 1225 C*** 1226 IF(MYPE.EQ.0)THEN 1227 READ(NHB)TEMP1 1228 c WRITE(0,*)'READ FDIV' 1229 ENDIF 1230 C 1231 CALL DSTRB(TEMP1,FDIV,1,1,1) 1232 C----------------------------------------------------------------------- 1233 C*** 1234 C*** DISTRIBUTE FAD 1235 C*** 1236 IF(MYPE.EQ.0)THEN 1237 READ(NHB)TEMP1 1238 c WRITE(0,*)'READ FAD' 1239 ENDIF 1240 C 1241 CALL DSTRB(TEMP1,FAD,1,1,1) 1242 C----------------------------------------------------------------------- 1243 C*** 1244 C*** DISTRIBUTE F 1245 C*** 1246 IF(MYPE.EQ.0)THEN 1247 READ(NHB)TEMP1 1248 c WRITE(0,*)'READ F' 1249 ENDIF 1250 C 1251 CALL DSTRB(TEMP1,F,1,1,1) 1252 C----------------------------------------------------------------------- Page 8 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F 1253 C*** 1254 C*** DISTRIBUTE DDMPU 1255 C*** 1256 IF(MYPE.EQ.0)THEN 1257 READ(NHB)TEMP1 1258 c WRITE(0,*)'READ DDMPU' 1259 ENDIF 1260 C 1261 CALL DSTRB(TEMP1,DDMPU,1,1,1) 1262 C----------------------------------------------------------------------- 1263 C*** 1264 C*** DISTRIBUTE DDMPV 1265 C*** 1266 IF(MYPE.EQ.0)THEN 1267 READ(NHB)TEMP1 1268 c WRITE(0,*)'READ DDMPV' 1269 ENDIF 1270 C 1271 CALL DSTRB(TEMP1,DDMPV,1,1,1) 1272 C----------------------------------------------------------------------- 1273 C*** 1274 C*** DISTRIBUTE PT, GLAT 1275 C*** 1276 IF(MYPE.EQ.0)THEN 1277 READ(NHB)PT2,TEMP1 1278 c WRITE(0,*)'READ PT, GLAT' 1279 ENDIF 1280 C 1281 CALL DSTRB(TEMP1,GLAT,1,1,1) 1282 CALL MPI_BCAST(PT2,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1283 c print*,'glat=',glat 1284 C----------------------------------------------------------------------- 1285 C*** 1286 C*** DISTRIBUTE GLON 1287 C*** 1288 IF(MYPE.EQ.0)THEN 1289 READ(NHB)TEMP1 1290 c WRITE(0,*)'READ GLON' 1291 ENDIF 1292 C 1293 CALL DSTRB(TEMP1,GLON,1,1,1) 1294 c print*,'glon=',glon 1295 C----------------------------------------------------------------------- 1296 C 1297 IF(MYPE.EQ.0)THEN 1298 READ(NHB)PLQ,RDPQ,RDTHEQ,STHEQ,THE0Q 1299 c WRITE(0,*)'READ PLQ' 1300 ENDIF 1301 C 1302 CALL MPI_BCAST(PLQ,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1303 CALL MPI_BCAST(RDPQ,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1304 CALL MPI_BCAST(RDTHEQ,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1305 CALL MPI_BCAST(STHEQ(1),ITBQ,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1306 CALL MPI_BCAST(THE0Q(1),ITBQ,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1307 C 1308 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1309 C----------------------------------------------------------------------- Page 9 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F 1310 C 1311 IF(MYPE.EQ.0)THEN 1312 READ(NHB)ROS,CS,DS,ROI,CI,DI 1313 1, PL,THL,RDQ,RDTH,RDP,RDTHE 1314 2, DETA2,AETA2,DFRLG 1315 3, QS0,SQS,STHE,THE0 1316 c WRITE(0,*)'READ ROS' 1317 ENDIF 1318 C 1319 CALL MPI_BCAST(ROS,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1320 CALL MPI_BCAST(CS,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1321 CALL MPI_BCAST(DS,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1322 CALL MPI_BCAST(ROI,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1323 CALL MPI_BCAST(CI,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1324 CALL MPI_BCAST(DI,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1325 CALL MPI_BCAST(PL,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1326 CALL MPI_BCAST(THL,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1327 CALL MPI_BCAST(RDQ,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1328 CALL MPI_BCAST(RDTH,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1329 CALL MPI_BCAST(RDP,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1330 CALL MPI_BCAST(RDTHE,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1331 CALL MPI_BCAST(DETA2(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1332 CALL MPI_BCAST(AETA2(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1333 CALL MPI_BCAST(DFRLG(1),LP1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1334 CALL MPI_BCAST(QS0(1),JTB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1335 CALL MPI_BCAST(SQS(1),JTB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1336 CALL MPI_BCAST(STHE(1),ITB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1337 CALL MPI_BCAST(THE0(1),ITB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1338 C 1339 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1340 C----------------------------------------------------------------------- 1341 C*** 1342 C*** DISTRIBUTE MXSNAL 1343 C*** 1344 IF(MYPE.EQ.0)THEN 1345 READ(NHB)TEMP1 1346 c WRITE(0,*)'READ MXSNAL' 1347 ENDIF 1348 C 1349 CALL DSTRB(TEMP1,MXSNAL,1,1,1) 1350 C----------------------------------------------------------------------- 1351 C*** 1352 C*** DISTRIBUTE EPSR 1353 C*** 1354 IF(MYPE.EQ.0)THEN 1355 READ(NHB)TEMP1 1356 c WRITE(0,*)'READ EPSR' 1357 ENDIF 1358 C 1359 CALL DSTRB(TEMP1,EPSR,1,1,1) 1360 C----------------------------------------------------------------------- 1361 C*** 1362 C*** DISTRIBUTE TG 1363 C*** 1364 IF(MYPE.EQ.0)THEN 1365 READ(NHB)TEMP1 1366 c WRITE(0,*)'READ TG' Page 10 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F 1367 ENDIF 1368 C 1369 CALL DSTRB(TEMP1,TG,1,1,1) 1370 C----------------------------------------------------------------------- 1371 C*** 1372 C*** DISTRIBUTE GFFC 1373 C*** 1374 IF(MYPE.EQ.0)THEN 1375 READ(NHB)TEMP1 1376 c WRITE(0,*)'READ GFFC' 1377 ENDIF 1378 C 1379 CALL DSTRB(TEMP1,GFFC,1,1,1) 1380 C----------------------------------------------------------------------- 1381 C*** 1382 C*** DISTRIBUTE SST 1383 C*** 1384 IF(MYPE.EQ.0)THEN 1385 READ(NHB)TEMP1 1386 c WRITE(0,*)'READ SST' 1387 ENDIF 1388 C 1389 CALL DSTRB(TEMP1,SST,1,1,1) 1390 C----------------------------------------------------------------------- 1391 C*** 1392 C*** DISTRIBUTE ALBASE 1393 C*** 1394 IF(MYPE.EQ.0)THEN 1395 READ(NHB)TEMP1 1396 c WRITE(0,*)'READ ALBASE' 1397 ENDIF 1398 C 1399 CALL DSTRB(TEMP1,ALBASE,1,1,1) 1400 C----------------------------------------------------------------------- 1401 C*** 1402 C*** DISTRIBUTE HDAC 1403 C*** 1404 IF(MYPE.EQ.0)THEN 1405 READ(NHB)TEMP1 1406 c WRITE(0,*)'READ HDAC' 1407 ENDIF 1408 C 1409 CALL DSTRB(TEMP1,HDAC,1,1,1) 1410 C----------------------------------------------------------------------- 1411 C*** 1412 C*** DISTRIBUTE HDACV 1413 C*** 1414 IF(MYPE.EQ.0)THEN 1415 READ(NHB)TEMP1 1416 c WRITE(0,*)'READ HDACV' 1417 ENDIF 1418 C 1419 CALL DSTRB(TEMP1,HDACV,1,1,1) 1420 C----------------------------------------------------------------------- 1421 C*** 1422 C*** DISTRIBUTE TTBLQ 1423 C*** Page 11 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F 1424 IF(MYPE.EQ.0)THEN 1425 READ(NHB)TTBLQ 1426 c WRITE(0,*)'READ TTBLQ' 1427 ENDIF 1428 C 1429 CALL MPI_BCAST(TTBLQ(1,1),ITBQ*JTBQ,MPI_REAL,0, 1430 1 MPI_COMM_COMP,IRTN) 1431 C 1432 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1433 C----------------------------------------------------------------------- 1434 C 1435 IF(MYPE.EQ.0)THEN 1436 # 613 1437 1438 READ(NHB)PTBL,TTBL 1439 1, R1,PT1,TSPH 1440 2, WBD,SBD,TLM0D,TPH0D,DLMD,DPHD,CMLD,DP30 1441 3, X1P,Y1P,IXM,IYM 1442 4, DETA1,AETA1,ETA1 1443 1444 c WRITE(0,*)'READ PTBL' 1445 ENDIF 1446 c 1447 CALL MPI_BCAST(PTBL(1,1),ITB*JTB,MPI_REAL,0, 1448 1 MPI_COMM_COMP,IRTN) 1449 CALL MPI_BCAST(TTBL(1,1),JTB*ITB,MPI_REAL,0, 1450 1 MPI_COMM_COMP,IRTN) 1451 CALL MPI_BCAST(R1,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1452 CALL MPI_BCAST(PT1,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1453 CALL MPI_BCAST(TSPH,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1454 CALL MPI_BCAST(WBD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1455 CALL MPI_BCAST(SBD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1456 CALL MPI_BCAST(TLM0D,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1457 CALL MPI_BCAST(TPH0D,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1458 CALL MPI_BCAST(DLMD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1459 CALL MPI_BCAST(DPHD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1460 CALL MPI_BCAST(CMLD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1461 CALL MPI_BCAST(DP30,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1462 CALL MPI_BCAST(X1P,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1463 CALL MPI_BCAST(Y1P,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1464 CALL MPI_BCAST(IXM,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1465 CALL MPI_BCAST(IYM,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1466 CALL MPI_BCAST(DETA1(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1467 CALL MPI_BCAST(AETA1(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1468 CALL MPI_BCAST(ETA1(1),LP1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1469 C 1470 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1471 C----------------------------------------------------------------------- 1472 C*** 1473 C*** DISTRIBUTE IVGTYP 1474 C*** 1475 IF(MYPE.EQ.0)THEN 1476 # 655 1477 1478 READ(NHB)ITEMP 1479 1480 ENDIF Page 12 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F 1481 C 1482 CALL IDSTRB(ITEMP,IVGTYP) 1483 C----------------------------------------------------------------------- 1484 C*** 1485 C*** DISTRIBUTE ISLTYP 1486 C*** 1487 IF(MYPE.EQ.0)THEN 1488 # 669 1489 1490 READ(NHB)ITEMP 1491 1492 ENDIF 1493 C 1494 CALL IDSTRB(ITEMP,ISLTYP) 1495 C----------------------------------------------------------------------- 1496 C*** 1497 C*** DISTRIBUTE ISLOPE 1498 C*** 1499 IF(MYPE.EQ.0)THEN 1500 # 683 1501 1502 READ(NHB)ITEMP 1503 1504 ENDIF 1505 C 1506 CALL IDSTRB(ITEMP,ISLOPE) 1507 C----------------------------------------------------------------------- 1508 C*** 1509 C*** DISTRIBUTE VEGFRC 1510 C*** 1511 IF(MYPE.EQ.0)THEN 1512 READ(NHB)TEMP1 1513 ENDIF 1514 C 1515 CALL DSTRB(TEMP1,VEGFRC,1,1,1) 1516 C----------------------------------------------------------------------- 1517 C*** 1518 C*** DISTRIBUTE SLDPTH 1519 C*** 1520 IF(MYPE.EQ.0)THEN 1521 READ(NHB)SLDPTH 1522 ENDIF 1523 C 1524 CALL MPI_BCAST(SLDPTH(1),NSOIL,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1525 C----------------------------------------------------------------------- 1526 C*** 1527 C*** DISTRIBUTE RTDPTH 1528 C*** 1529 IF(MYPE.EQ.0)THEN 1530 READ(NHB)RTDPTH 1531 ENDIF 1532 C 1533 CALL MPI_BCAST(RTDPTH(1),NSOIL,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1534 C----------------------------------------------------------------------- 1535 C 1536 C END OF SUBROUTINE READ_NHB 1537 C Page 13 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F 1538 C----------------------------------------------------------------------- 1539 RETURN 1540 END ENTRY POINTS Name read_nhb_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 282 287288 SAVE ACMCLH Common 275 6463824 SAVE ACMPRE Common 289 287284 SAVE ACMRDL Common 296 3662832 SAVE ACMRDS Common 305 3662832 SAVE ACMSFC Common 314 574576 SAVE BOCO Common 268 1860144 SAVE CLDWTR Common 324 3447720 SAVE CM1 Param 94 R(4) 4 scalar CM2 Param 94 R(4) 4 scalar CM3 Param 94 R(4) 4 scalar CNVCLD Common 332 287280 SAVE CONTIN Common 228 12999420 SAVE CONTRL Local 123 CHAR 40 scalar CTLBLK Common 136 112 SAVE DSTRB Subr 1059 1059,1090,1100,1110,1120,1130,1141 ,1181,1191,1201,1211,1221,1231,124 1,1251,1261,1271,1281,1293,1349,13 59,1369,1379,1389,1399,1409,1419,1 515 DTR Param 104 R(4) 4 scalar DYNAM Common 162 725404 SAVE EPS Param 94 R(4) 4 scalar EPSQ Param 101 R(4) 4 scalar EPSQ2 Param 101 R(4) 4 scalar EPSWET Param 101 R(4) 4 scalar FCM Param 103 R(4) 4 scalar FCSTDATA Local 997 scalar FILALL Local 123 CHAR 40 scalar FILCLD Local 124 CHAR 40 scalar FILMST Local 123 CHAR 40 scalar FILRAD Local 124 CHAR 40 scalar FILSFC Local 124 CHAR 40 scalar FILTKE Local 123 CHAR 40 scalar FILTMP Local 123 CHAR 40 scalar FILUNV Local 123 CHAR 40 scalar G Param 94 R(4) 4 scalar GLB_TABLE Common 967 128 SAVE H105 Param 105 R(4) 4 scalar H1905 Param 105 R(4) 4 scalar H360 Param 104 R(4) 4 scalar Page 14 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References I Local 1065 I(4) 4 scalar 1065,1066,1075,1076,1077 IDATB Local 127 I(4) 4 1 3 IDIM1 Param 84 I(4) 4 scalar 146,152,153,155,156,157,168,169,17 0,171,172,173,189,190,191,192,193, 194,195,196,197,198,199,219,221,22 2,223,229,230,231,232,233,239,240, 241,242,243,244,245,246,247,248,24 9,250,251,252,253,254,255,257,262, 277,278,284,285,291,292,298,299,30 0,301,307,308,309,310,316,317,318, 319,325,327,333,334,340,341,342,34 3,344,345,346,347,356 IDIM2 Param 84 I(4) 4 scalar 146,152,153,155,156,157,168,169,17 0,171,172,173,189,190,191,192,193, 194,195,196,197,198,199,219,221,22 2,223,229,230,231,232,233,239,240, 241,242,243,244,245,246,247,248,24 9,250,251,252,253,254,255,257,262, 277,278,284,285,291,292,298,299,30 0,301,307,308,309,310,316,317,318, 319,325,327,333,334,340,341,342,34 3,344,345,346,347,356 IDSTRB Subr 1036 1036,1049,1482,1494,1506 IG Local 1076 I(4) 4 scalar 1076,1077 IGSTL Param 79 I(4) 4 scalar 84 IGSTR Param 79 I(4) 4 scalar 84 IHH Local 1074 I(4) 4 scalar 1074,1077 IHL Local 1073 I(4) 4 scalar 1073,1077 IM Param 68 I(4) 4 scalar 81,84,109,110,360,973,974,975,976, 977,981,982,987,1074 IMJM Param 109 I(4) 4 scalar IMT Param 110 I(4) 4 scalar INDX Common 353 6564 SAVE INDXG Common 359 8084 SAVE INPES Param 76 I(4) 4 scalar 81,84,957,958,959,968,969 IRTN Local 1014 I(4) 4 scalar 1014,1015,1016,1017,1018,1019,1021 ,1152,1153,1154,1155,1156,1157,115 8,1159,1160,1161,1162,1163,1164,11 65,1166,1167,1168,1169,1171,1282,1 302,1303,1304,1305,1306,1308,1319, 1320,1321,1322,1323,1324,1325,1326 ,1327,1328,1329,1330,1331,1332,133 3,1334,1335,1336,1337,1339,1430,14 32,1448,1450,1451,1452,1453,1454,1 455,1456,1457,1458,1459,1460,1461, 1462,1463,1464,1465,1466,1467,1468 ,1470,1524,1533 ISTAT Local 989 I(4) 4 1 5 ITAIL Param 81 I(4) 4 scalar ITB Param 89 I(4) 4 scalar 186,201,1336,1337,1447,1449 ITBQ Param 89 I(4) 4 scalar 187,201,1305,1306,1429 J Local 1064 I(4) 4 scalar 1064,1066,1070,1071,1077 JAM Param 109 I(4) 4 scalar 145,166,1168,1169 JDIM1 Param 85 I(4) 4 scalar 146,152,153,155,156,157,168,169,17 0,171,172,173,189,190,191,192,193, Page 15 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References 194,195,196,197,198,199,219,221,22 2,223,229,230,231,232,233,239,240, 241,242,243,244,245,246,247,248,24 9,250,251,252,253,254,255,257,262, 277,278,284,285,291,292,298,299,30 0,301,307,308,309,310,316,317,318, 319,325,327,333,334,340,341,342,34 3,344,345,346,347,354,355 JDIM2 Param 85 I(4) 4 scalar 146,152,153,155,156,157,168,169,17 0,171,172,173,189,190,191,192,193, 194,195,196,197,198,199,219,221,22 2,223,229,230,231,232,233,239,240, 241,242,243,244,245,246,247,248,24 9,250,251,252,253,254,255,257,262, 277,278,284,285,291,292,298,299,30 0,301,307,308,309,310,316,317,318, 319,325,327,333,334,340,341,342,34 3,344,345,346,347,354,355 JG Local 1071 I(4) 4 scalar 1071,1072,1073 JGSTL Param 80 I(4) 4 scalar 85 JGSTR Param 80 I(4) 4 scalar 85 JM Param 68 I(4) 4 scalar 82,85,109,360,973,974,975,976,977, 981,982,987,1072 JMP1 Param 109 I(4) 4 scalar JNPES Param 76 I(4) 4 scalar 82,85,957,958,959,968,969 JTAIL Param 82 I(4) 4 scalar JTB Param 89 I(4) 4 scalar 186,201,1334,1335,1447,1449 JTBQ Param 89 I(4) 4 scalar 201,1429 KHH2 Local 1009 I(4) 4 scalar 1009 KHHA Local 1009 I(4) 4 scalar 1009 KHL2 Local 1009 I(4) 4 scalar 1009 KHLA Local 1009 I(4) 4 scalar 1009 KVH2 Local 1009 I(4) 4 scalar 1009 KVHA Local 1009 I(4) 4 scalar 1009 KVL2 Local 1009 I(4) 4 scalar 1009 KVLA Local 1009 I(4) 4 scalar 1009 L Local 1125 I(4) 4 scalar 1125,1130,1136,1141 LABEL Local 121 CHAR 32 scalar LB Param 109 I(4) 4 scalar 269,270 LM Param 68 I(4) 4 scalar 110,155,156,164,185,212,221,222,23 0,231,232,233,257,269,270,277,278, 301,310,325,326,982,1125,1130,1136 ,1141,1162,1163,1164,1165,1331,133 2,1466,1467 LM1 Param 110 I(4) 4 scalar LOOPS Common 144 158840 SAVE LP1 Param 110 I(4) 4 scalar 164,185,212,1166,1167,1333,1468 LSM Param 68 I(4) 4 scalar 211 MAPOT Common 206 1732 SAVE MAPPINGS Common 986 5024 SAVE MASKS Common 151 6894720 SAVE MPIFCMB5 Common 913 4 SAVE MPIFCMB9 Common 914 4 SAVE MPIPRIV1 Common 918 28 SAVE MPIPRIV2 Common 920 24 SAVE Page 16 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPIPRIVC Common 923 2 SAVE MPI_2DOUBLE_PRECISION Param 659 I(4) 4 scalar MPI_2INT Param 743 I(4) 4 scalar MPI_2INTEGER Param 657 I(4) 4 scalar MPI_2REAL Param 661 I(4) 4 scalar MPI_ADDRESS_KIND Param 695 I(4) 4 scalar MPI_AINT Param 773 I(4) 4 scalar MPI_ANY_SOURCE Param 625 I(4) 4 scalar MPI_ANY_TAG Param 627 I(4) 4 scalar MPI_APPNUM Param 589 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 895 L(4) 4 scalar MPI_BAND Param 533 I(4) 4 scalar MPI_BARRIER Subr 1021 1021,1171,1308,1339,1432,1470 MPI_BCAST Subr 1014 1014,1015,1016,1017,1018,1019,1152 ,1153,1154,1155,1156,1157,1158,115 9,1160,1161,1162,1163,1164,1165,11 66,1167,1168,1169,1282,1302,1303,1 304,1305,1306,1319,1320,1321,1322, 1323,1324,1325,1326,1327,1328,1329 ,1330,1331,1332,1333,1334,1335,133 6,1337,1429,1447,1449,1451,1452,14 53,1454,1455,1456,1457,1458,1459,1 460,1461,1462,1463,1464,1465,1466, 1467,1468,1524,1533 MPI_BOR Param 537 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 621 I(4) 4 scalar MPI_BXOR Param 541 I(4) 4 scalar MPI_BYTE Param 665 I(4) 4 scalar MPI_CART Param 633 I(4) 4 scalar MPI_CHAR Param 703 I(4) 4 scalar MPI_CHARACTER Param 663 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 791 I(4) 4 scalar MPI_COMBINER_DARRAY Param 813 I(4) 4 scalar MPI_COMBINER_DUP Param 789 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 817 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 819 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 815 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 803 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 823 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 801 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 797 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 795 I(4) 4 scalar MPI_COMBINER_INDEXED Param 799 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 805 I(4) 4 scalar MPI_COMBINER_NAMED Param 787 I(4) 4 scalar MPI_COMBINER_RESIZED Param 821 I(4) 4 scalar MPI_COMBINER_STRUCT Param 809 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 807 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 811 I(4) 4 scalar MPI_COMBINER_VECTOR Param 793 I(4) 4 scalar Page 17 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_DUP_FN Subr 902 scalar MPI_COMM_NULL Param 557 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 903 scalar MPI_COMM_NULL_DELETE_FN Subr 902 scalar MPI_COMM_SELF Param 553 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 841 I(4) 4 scalar MPI_COMM_WORLD Param 551 I(4) 4 scalar MPI_COMPLEX Param 645 I(4) 4 scalar MPI_COMPLEX16 Param 691 I(4) 4 scalar MPI_COMPLEX32 Param 693 I(4) 4 scalar MPI_COMPLEX8 Param 689 I(4) 4 scalar MPI_CONGRUENT Param 505 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 908 scalar MPI_COUNT Param 777 I(4) 4 scalar MPI_COUNT_KIND Param 699 I(4) 4 scalar MPI_CXX_BOOL Param 779 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 783 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 781 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 785 I(4) 4 scalar MPI_C_BOOL Param 763 I(4) 4 scalar MPI_C_COMPLEX Param 767 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 769 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 765 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 771 I(4) 4 scalar MPI_DATATYPE_NULL Param 567 I(4) 4 scalar 682,780,782,784,786 MPI_DISPLACEMENT_CURRENT Param 891 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 883 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 885 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 889 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 887 I(4) 4 scalar MPI_DIST_GRAPH Param 635 I(4) 4 scalar MPI_DOUBLE Param 725 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 647 I(4) 4 scalar MPI_DOUBLE_INT Param 737 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 653 I(4) 4 scalar MPI_DUP_FN Subr 899 scalar MPI_ERRHANDLER_NULL Param 571 I(4) 4 scalar MPI_ERROR Param 372 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 499 I(4) 4 scalar MPI_ERRORS_RETURN Param 501 I(4) 4 scalar MPI_ERR_ACCESS Param 491 I(4) 4 scalar MPI_ERR_AMODE Param 477 I(4) 4 scalar MPI_ERR_ARG Param 447 I(4) 4 scalar MPI_ERR_ASSERT Param 453 I(4) 4 scalar MPI_ERR_BAD_FILE Param 415 I(4) 4 scalar MPI_ERR_BASE Param 445 I(4) 4 scalar MPI_ERR_BUFFER Param 387 I(4) 4 scalar MPI_ERR_COMM Param 465 I(4) 4 scalar MPI_ERR_CONVERSION Param 481 I(4) 4 scalar MPI_ERR_COUNT Param 391 I(4) 4 scalar MPI_ERR_DIMS Param 429 I(4) 4 scalar MPI_ERR_DISP Param 413 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 395 I(4) 4 scalar MPI_ERR_FILE Param 425 I(4) 4 scalar Page 18 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_FILE_EXISTS Param 407 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 449 I(4) 4 scalar MPI_ERR_GROUP Param 411 I(4) 4 scalar MPI_ERR_INFO Param 439 I(4) 4 scalar MPI_ERR_INFO_KEY Param 443 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 423 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 409 I(4) 4 scalar MPI_ERR_INTERN Param 441 I(4) 4 scalar MPI_ERR_IN_STATUS Param 427 I(4) 4 scalar MPI_ERR_IO Param 487 I(4) 4 scalar MPI_ERR_KEYVAL Param 433 I(4) 4 scalar MPI_ERR_LASTCODE Param 455 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 437 I(4) 4 scalar MPI_ERR_NAME Param 431 I(4) 4 scalar MPI_ERR_NOT_SAME Param 459 I(4) 4 scalar MPI_ERR_NO_MEM Param 451 I(4) 4 scalar MPI_ERR_NO_SPACE Param 383 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 467 I(4) 4 scalar MPI_ERR_OP Param 485 I(4) 4 scalar MPI_ERR_OTHER Param 399 I(4) 4 scalar MPI_ERR_PENDING Param 389 I(4) 4 scalar MPI_ERR_PORT Param 471 I(4) 4 scalar MPI_ERR_QUOTA Param 475 I(4) 4 scalar MPI_ERR_RANK Param 397 I(4) 4 scalar MPI_ERR_READ_ONLY Param 435 I(4) 4 scalar MPI_ERR_REQUEST Param 479 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 401 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 405 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 421 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 483 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 473 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 385 I(4) 4 scalar MPI_ERR_ROOT Param 417 I(4) 4 scalar MPI_ERR_SERVICE Param 393 I(4) 4 scalar MPI_ERR_SIZE Param 403 I(4) 4 scalar MPI_ERR_SPAWN Param 463 I(4) 4 scalar MPI_ERR_TAG Param 493 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 497 I(4) 4 scalar MPI_ERR_TRUNCATE Param 457 I(4) 4 scalar MPI_ERR_TYPE Param 461 I(4) 4 scalar MPI_ERR_UNKNOWN Param 495 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 419 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 469 I(4) 4 scalar MPI_ERR_WIN Param 489 I(4) 4 scalar MPI_FILE_NULL Param 561 I(4) 4 scalar MPI_FLOAT Param 723 I(4) 4 scalar MPI_FLOAT_INT Param 735 I(4) 4 scalar MPI_GRAPH Param 631 I(4) 4 scalar MPI_GROUP_EMPTY Param 555 I(4) 4 scalar MPI_GROUP_NULL Param 563 I(4) 4 scalar MPI_HOST Param 579 I(4) 4 scalar MPI_IDENT Param 503 I(4) 4 scalar MPI_INFO_ENV Param 575 I(4) 4 scalar Page 19 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INFO_NULL Param 573 I(4) 4 scalar MPI_INT Param 715 I(4) 4 scalar MPI_INT16_T Param 749 I(4) 4 scalar MPI_INT32_T Param 751 I(4) 4 scalar MPI_INT64_T Param 753 I(4) 4 scalar MPI_INT8_T Param 747 I(4) 4 scalar MPI_INTEGER Param 655 I(4) 4 scalar 1014,1015,1016,1018,1464,1465 MPI_INTEGER1 Param 673 I(4) 4 scalar MPI_INTEGER16 Param 681 I(4) 4 scalar MPI_INTEGER2 Param 675 I(4) 4 scalar MPI_INTEGER4 Param 677 I(4) 4 scalar MPI_INTEGER8 Param 679 I(4) 4 scalar MPI_INTEGER_KIND Param 701 I(4) 4 scalar MPI_IO Param 581 I(4) 4 scalar MPI_KEYVAL_INVALID Param 619 I(4) 4 scalar MPI_LAND Param 531 I(4) 4 scalar MPI_LASTUSEDCODE Param 587 I(4) 4 scalar MPI_LB Param 669 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 641 I(4) 4 scalar MPI_LOCK_SHARED Param 643 I(4) 4 scalar MPI_LOGICAL Param 649 I(4) 4 scalar 1019 MPI_LONG Param 719 I(4) 4 scalar MPI_LONG_DOUBLE Param 727 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 745 I(4) 4 scalar MPI_LONG_INT Param 739 I(4) 4 scalar MPI_LONG_LONG Param 733 I(4) 4 scalar MPI_LONG_LONG_INT Param 729 I(4) 4 scalar MPI_LOR Param 535 I(4) 4 scalar MPI_LXOR Param 539 I(4) 4 scalar MPI_MAX Param 523 I(4) 4 scalar MPI_MAXLOC Param 545 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 613 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 601 I(4) 4 scalar MPI_MAX_INFO_KEY Param 607 I(4) 4 scalar MPI_MAX_INFO_VAL Param 609 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 615 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 605 I(4) 4 scalar MPI_MAX_PORT_NAME Param 603 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 611 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 845 I(4) 4 scalar MPI_MESSAGE_NULL Param 843 I(4) 4 scalar MPI_MIN Param 525 I(4) 4 scalar MPI_MINLOC Param 543 I(4) 4 scalar MPI_MODE_APPEND Param 869 I(4) 4 scalar MPI_MODE_CREATE Param 865 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 861 I(4) 4 scalar MPI_MODE_EXCL Param 867 I(4) 4 scalar MPI_MODE_NOCHECK Param 831 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 837 I(4) 4 scalar MPI_MODE_NOPUT Param 835 I(4) 4 scalar MPI_MODE_NOSTORE Param 833 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 839 I(4) 4 scalar MPI_MODE_RDONLY Param 855 I(4) 4 scalar MPI_MODE_RDWR Param 857 I(4) 4 scalar Page 20 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_SEQUENTIAL Param 871 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 863 I(4) 4 scalar MPI_MODE_WRONLY Param 859 I(4) 4 scalar MPI_NO_OP Param 549 I(4) 4 scalar MPI_NULL_COPY_FN Subr 899 scalar MPI_NULL_DELETE_FN Subr 899 scalar MPI_OFFSET Param 775 I(4) 4 scalar MPI_OFFSET_KIND Param 697 I(4) 4 scalar MPI_OP_NULL Param 565 I(4) 4 scalar MPI_ORDER_C Param 879 I(4) 4 scalar MPI_ORDER_FORTRAN Param 881 I(4) 4 scalar MPI_PACKED Param 671 I(4) 4 scalar MPI_PROC_NULL Param 623 I(4) 4 scalar MPI_PROD Param 529 I(4) 4 scalar MPI_REAL Param 651 I(4) 4 scalar 1017,1152,1153,1154,1155,1156,1157 ,1158,1159,1160,1161,1162,1163,116 4,1165,1166,1167,1168,1169,1282,13 02,1303,1304,1305,1306,1319,1320,1 321,1322,1323,1324,1325,1326,1327, 1328,1329,1330,1331,1332,1333,1334 ,1335,1336,1337,1429,1447,1449,145 1,1452,1453,1454,1455,1456,1457,14 58,1459,1460,1461,1462,1463,1466,1 467,1468,1524,1533 MPI_REAL16 Param 687 I(4) 4 scalar MPI_REAL4 Param 683 I(4) 4 scalar MPI_REAL8 Param 685 I(4) 4 scalar MPI_REPLACE Param 547 I(4) 4 scalar MPI_REQUEST_NULL Param 569 I(4) 4 scalar MPI_ROOT Param 629 I(4) 4 scalar MPI_SEEK_CUR Param 875 I(4) 4 scalar MPI_SEEK_END Param 877 I(4) 4 scalar MPI_SEEK_SET Param 873 I(4) 4 scalar MPI_SHORT Param 711 I(4) 4 scalar MPI_SHORT_INT Param 741 I(4) 4 scalar MPI_SIGNED_CHAR Param 705 I(4) 4 scalar MPI_SIMILAR Param 507 I(4) 4 scalar MPI_SOURCE Param 372 I(4) 4 scalar MPI_STATUS_SIZE Param 374 I(4) 4 scalar 376,377,989 MPI_SUBARRAYS_SUPPORTED Param 893 L(4) 4 scalar MPI_SUBVERSION Param 639 I(4) 4 scalar MPI_SUCCESS Param 381 I(4) 4 scalar MPI_SUM Param 527 I(4) 4 scalar MPI_TAG Param 372 I(4) 4 scalar MPI_TAG_UB Param 577 I(4) 4 scalar MPI_THREAD_FUNNELED Param 849 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 853 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 851 I(4) 4 scalar MPI_THREAD_SINGLE Param 847 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 829 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 827 I(4) 4 scalar MPI_TYPECLASS_REAL Param 825 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 906 scalar MPI_TYPE_NULL_COPY_FN Subr 907 scalar MPI_TYPE_NULL_DELETE_FN Subr 906 scalar Page 21 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UB Param 667 I(4) 4 scalar MPI_UINT16_T Param 757 I(4) 4 scalar MPI_UINT32_T Param 759 I(4) 4 scalar MPI_UINT64_T Param 761 I(4) 4 scalar MPI_UINT8_T Param 755 I(4) 4 scalar MPI_UNDEFINED Param 617 I(4) 4 scalar MPI_UNEQUAL Param 509 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 585 I(4) 4 scalar MPI_UNSIGNED Param 717 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 707 I(4) 4 scalar MPI_UNSIGNED_LONG Param 721 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 731 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 713 I(4) 4 scalar MPI_VERSION Param 637 I(4) 4 scalar MPI_WCHAR Param 709 I(4) 4 scalar MPI_WIN_BASE Param 591 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 597 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 595 I(4) 4 scalar MPI_WIN_DUP_FN Subr 904 scalar MPI_WIN_FLAVOR_ALLOCATE Param 513 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 511 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 515 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 517 I(4) 4 scalar MPI_WIN_MODEL Param 599 I(4) 4 scalar MPI_WIN_NULL Param 559 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 905 scalar MPI_WIN_NULL_DELETE_FN Subr 904 scalar MPI_WIN_SEPARATE Param 519 I(4) 4 scalar MPI_WIN_SIZE Param 593 I(4) 4 scalar MPI_WIN_UNIFIED Param 521 I(4) 4 scalar MPI_WTICK Func 900 R(8) 8 scalar MPI_WTIME Func 900 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 583 I(4) 4 scalar MPPCOM Common 931 1464 SAVE NHB Dummy 3 I(4) 4 scalar ARG,INOUT 1006,1031,1044,1055,1086,1096,1106 ,1116,1127,1138,1146,1177,1187,119 7,1207,1217,1227,1237,1247,1257,12 67,1277,1289,1298,1312,1345,1355,1 365,1375,1385,1395,1405,1415,1425, 1438,1478,1490,1502,1512,1521,1530 NMAP Local 998 I(4) 4 scalar 998 NRADLH Local 999 I(4) 4 scalar 999 NRADSH Local 999 I(4) 4 scalar 999 NROOT Param 92 I(4) 4 scalar NSOIL Param 92 I(4) 4 scalar 345,346,347,1524,1533 PHYS Common 180 1788916 SAVE PMPI_WTICK Func 901 R(8) 8 scalar PMPI_WTIME Func 901 R(8) 8 scalar PVRBLS Common 238 5530140 SAVE Q2INI Param 101 R(4) 4 scalar READ_NHB Subr 3 RUNB Local 118 L(4) 4 scalar SINGLRST Local 134 L(4) 4 scalar SOIL Common 339 1651892 SAVE TCP Local 998 R(4) 4 scalar 998 Page 22 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References TDDAMP Local 1146 R(4) 4 scalar 1146,1158 TEMPCOM Common 972 6603768 SAVE TEND Local 998 R(4) 4 scalar 998 TOPO Common 980 17478548 SAVE TSTART Local 998 R(4) 4 scalar 998 VRBLS Common 218 13143060 SAVE Z0LAND Param 103 R(4) 4 scalar Z0SEA Param 103 R(4) 4 scalar TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 1292760 2 17955 COM ACFRCV R(4) 4 8 2 17955 COM ACFRST R(4) 4 143648 2 17955 COM ACPREC R(4) 4 1220940 2 17955 COM ACSNOM R(4) 4 71824 2 17955 COM ACSNOW R(4) 4 4 2 17955 COM ACUTIM R(4) 4 20 scalar COM AETA R(4) 4 396 1 45 COM 1147,1164 AETA1 R(4) 4 960 1 45 COM 1442,1467 AETA2 R(4) 4 264 1 45 COM 1314,1332 AFSI R(4) 4 5458320 2 17955 COM AKHS R(4) 4 646380 2 17955 COM AKMS R(4) 4 574560 2 17955 COM ALBASE R(4) 4 1009004 2 17955 COM 1399 ALBEDO R(4) 4 1080824 2 17955 COM ALSL R(4) 4 624 1 39 COM ALWIN R(4) 4 215472 2 17955 COM ALWOUT R(4) 4 287292 2 17955 COM ALWTOA R(4) 4 359112 2 17955 COM APHTIM R(4) 4 574572 scalar COM ARATIM R(4) 4 16 scalar COM ARDLW R(4) 4 8 scalar COM ARDSW R(4) 4 8 scalar COM ASRFC R(4) 4 8 scalar COM ASWIN R(4) 4 215472 2 17955 COM ASWOUT R(4) 4 287292 2 17955 COM ASWTOA R(4) 4 359112 2 17955 COM AVCNVC R(4) 4 12 scalar COM AVRAIN R(4) 4 8 scalar COM BGROFF R(4) 4 215464 2 17955 COM CFRACH R(4) 4 215460 2 17955 COM CFRACL R(4) 4 71820 2 17955 COM CFRACM R(4) 4 143640 2 17955 COM CI R(4) 4 40 scalar COM 1312,1323 CLDEFI R(4) 4 1077300 2 17955 COM CMC R(4) 4 718200 2 17955 COM CMLD R(4) 4 444 scalar COM 1440,1460 CNVBOT R(4) 4 721724 2 17955 COM CNVTOP R(4) 4 649904 2 17955 COM CPGFU R(4) 4 150844 2 17955 COM 1201 CPGFV R(4) 4 4 scalar COM 1146,1153 Page 23 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Type Bytes Offset Dimen Elements Attributes References CPHI0 R(4) 4 1724 scalar COM CS R(4) 4 28 scalar COM 1312,1320 CUPPT R(4) 4 0 2 17955 COM CUPREC R(4) 4 1364580 2 17955 COM CURV R(4) 4 222664 2 17955 COM 1211 CWM R(4) 4 0 3 807975 COM CWMB R(4) 4 1551264 3 77220 COM CZEN R(4) 4 434444 2 17955 COM CZMEAN R(4) 4 1296284 2 17955 COM DDMPU R(4) 4 509944 2 17955 COM 1261 DDMPV R(4) 4 581764 2 17955 COM 1271 DETA R(4) 4 36 1 45 COM 1147,1162 DETA1 R(4) 4 780 1 45 COM 1442,1466 DETA2 R(4) 4 84 1 45 COM 1314,1331 DFL R(4) 4 940 1 46 COM 1147,1167 DFRLG R(4) 4 444 1 46 COM 1314,1333 DI R(4) 4 44 scalar COM 1312,1324 DISLP R(4) 4 460 scalar COM DIV R(4) 4 6607440 3 807975 COM DLMD R(4) 4 436 scalar COM 1440,1458 DP30 R(4) 4 448 scalar COM 1440,1461 DPHD R(4) 4 440 scalar COM 1440,1459 DS R(4) 4 32 scalar COM 1312,1321 DT R(4) 4 48 scalar COM 1008,1017 DTD R(4) 4 16 scalar COM DTQ2 R(4) 4 8 scalar COM DX R(4) 4 7204 2 17955 COM 1181 DY R(4) 4 0 scalar COM 1146,1152 EF4T R(4) 4 32 scalar COM 1147,1161 EM R(4) 4 1124 1 760 COM 1148,1168 EMT R(4) 4 4164 1 760 COM 1148,1169 EN R(4) 4 8 scalar COM 1146,1154 ENT R(4) 4 12 scalar COM 1146,1155 EPSR R(4) 4 75344 2 17955 COM 1359 ERLAM0 R(4) 4 1720 scalar COM ETA R(4) 4 756 1 46 COM 1147,1166 ETA1 R(4) 4 1140 1 46 COM 1442,1468 ETADT R(4) 4 9839340 3 790020 COM F R(4) 4 438124 2 17955 COM 1251 F4D R(4) 4 24 scalar COM 1147,1159 F4Q R(4) 4 28 scalar COM 1147,1160 F4Q2 R(4) 4 576 1 45 COM 1147,1165 FAD R(4) 4 653584 2 17955 COM 1241 FCP R(4) 4 294484 2 17955 COM 1221 FDIV R(4) 4 366304 2 17955 COM 1231 FIRST L(4) 4 24 scalar COM FIS R(4) 4 12999420 2 17955 COM G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GFFC R(4) 4 865364 2 17955 COM 1379 GLAT R(4) 4 290804 2 17955 COM 1281 GLON R(4) 4 362624 2 17955 COM 1293 GRNFLX R(4) 4 287280 2 17955 COM HBM2 R(4) 4 6751080 2 17955 COM 1059 HBM3 R(4) 4 6822900 2 17955 COM 1066,1077 Page 24 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Type Bytes Offset Dimen Elements Attributes References HBOT R(4) 4 578084 2 17955 COM HDAC R(4) 4 1152644 2 17955 COM 1409 HDACV R(4) 4 1224464 2 17955 COM 1419 HTM R(4) 4 287280 3 807975 COM 1130 HTMG R(4) 4 743768 3 4183695 COM HTOP R(4) 4 506264 2 17955 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 620 1 8 COM IDAT I(4) 4 8 1 3 COM IDTAD I(4) 4 72 scalar COM 1008,1018 IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 COM IHE I(4) 4 0 1 399 COM IHEG I(4) 4 0 1 387 COM IHHA I(4) 4 3040 1 760 COM IHLA I(4) 4 0 1 760 COM IHRST I(4) 4 20 scalar COM IHW I(4) 4 1596 1 399 COM IHWG I(4) 4 1548 1 387 COM 1073 ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1064 1 100 COM IOUT I(4) 4 44 scalar COM IQUILT_GROUP I(4) 4 1060 scalar COM IRAD I(4) 4 6384 1 45 COM IRADG I(4) 4 6192 1 473 COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM ISHDE I(4) 4 12 1 99 COM ISLOPE I(4) 4 574560 2 17955 COM 1506 ISLTYP I(4) 4 502740 2 17955 COM 1494 IS_GLB_TABLE I(4) 4 0 1 8 COM IS_LOC_TABLE I(4) 4 492 1 8 COM ITEMP I(4) 4 5870016 2 91719 COM 1031,1036,1044,1049,1478,1482,1490 ,1494,1502,1506 ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM IVE I(4) 4 3192 1 399 COM IVEG I(4) 4 3096 1 387 COM IVGTYP I(4) 4 430920 2 17955 COM 1482 IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM IVW I(4) 4 4788 1 399 COM IVWG I(4) 4 4644 1 387 COM IXM I(4) 4 4 scalar COM 1441,1464 IYM I(4) 4 8 scalar COM 1441,1465 JBPAD1 I(4) 4 452 scalar COM Page 25 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Type Bytes Offset Dimen Elements Attributes References JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JRA I(4) 4 12160 1 760 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM KTM I(4) 4 0 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM LC I(4) 4 3304080 2 17955 COM LIST I(4) 4 40 scalar COM 1007,1016,1023 LMH I(4) 4 15200 2 17955 COM 1036 LMV I(4) 4 87020 2 17955 COM 1049 LSL I(4) 4 0 scalar COM MPI_ARGVS_NULL CHAR 1 0 2 1 COM MPI_ARGV_NULL CHAR 1 1 1 1 COM MPI_BOTTOM I(4) 4 0 scalar COM MPI_COMM_COMP I(4) 4 652 scalar COM 1014,1015,1016,1017,1018,1019,1021 ,1152,1153,1154,1155,1156,1157,115 8,1159,1160,1161,1162,1163,1164,11 65,1166,1167,1168,1169,1171,1282,1 302,1303,1304,1305,1306,1308,1319, 1320,1321,1322,1323,1324,1325,1326 ,1327,1328,1329,1330,1331,1332,133 3,1334,1335,1336,1337,1339,1430,14 32,1448,1450,1451,1452,1453,1454,1 455,1456,1457,1458,1459,1460,1461, 1462,1463,1464,1465,1466,1467,1468 ,1470,1524,1533 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM MPI_ERRCODES_IGNORE I(4) 4 20 1 1 COM MPI_IN_PLACE I(4) 4 4 scalar COM MPI_STATUSES_IGNORE I(4) 4 0 2 5 COM MPI_STATUS_IGNORE I(4) 4 8 1 5 COM MPI_UNWEIGHTED I(4) 4 0 scalar COM MPI_WEIGHTS_EMPTY I(4) 4 0 scalar COM MXSNAL R(4) 4 3524 2 17955 COM 1349 MYIE I(4) 4 52 scalar COM 1065,1075 MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM Page 26 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Type Bytes Offset Dimen Elements Attributes References MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM 1065,1075 MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM MYIS2 I(4) 4 48 scalar COM MYIS_P1 I(4) 4 64 scalar COM MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM 1064,1070 MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM MYJE4_P1 I(4) 4 316 scalar COM MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 1064,1070 MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM Page 27 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Type Bytes Offset Dimen Elements Attributes References MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM 1003,1028,1041,1054,1085,1095,1105 ,1115,1126,1137,1145,1176,1186,119 6,1206,1216,1226,1236,1246,1256,12 66,1276,1288,1297,1311,1344,1354,1 364,1374,1384,1394,1404,1414,1424, 1435,1475,1487,1499,1511,1520,1529 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM 1076 MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 1071 MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM NBC I(4) 4 36 scalar COM 1007,1015 NBOCO I(4) 4 76 scalar COM NCFRCV I(4) 4 71828 2 17955 COM NCFRST I(4) 4 215468 2 17955 COM NCLOD I(4) 4 4 scalar COM NCNVC I(4) 4 92 scalar COM 999 NCP I(4) 4 84 scalar COM NEST I(4) 4 108 scalar COM NFCST I(4) 4 32 scalar COM 1007,1014 NHEAT I(4) 4 4 scalar COM NPES I(4) 4 4 scalar COM NPHS I(4) 4 88 scalar COM 999 NPREC I(4) 4 68 scalar COM NRADL I(4) 4 100 scalar COM NRADS I(4) 4 96 scalar COM NRDLW I(4) 4 4 scalar COM NRDSW I(4) 4 4 scalar COM NSHDE I(4) 4 80 scalar COM NSRFC I(4) 4 4 scalar COM NSTART I(4) 4 60 scalar COM NTDDMP I(4) 4 64 scalar COM NTSD I(4) 4 52 scalar COM NTSTM I(4) 4 56 scalar COM Page 28 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Type Bytes Offset Dimen Elements Attributes References OMGALF R(4) 4 3375540 3 807975 COM PCTSNO R(4) 4 359100 2 17955 COM PD R(4) 4 0 2 17955 COM PDB R(4) 4 0 2 1716 COM PDSL R(4) 4 0 2 17955 COM PL R(4) 4 48 scalar COM 1313,1325 PLQ R(4) 4 72 scalar COM 1298,1302 POTEVP R(4) 4 430932 2 17955 COM POTFLX R(4) 4 502752 2 17955 COM PREC R(4) 4 1149120 2 17955 COM PSDT R(4) 4 71820 2 17955 COM PSHLTR R(4) 4 2154600 2 17955 COM PT R(4) 4 20 scalar COM 1146,1157 PT1 R(4) 4 412 scalar COM 1439,1452 PT2 R(4) 4 4 scalar COM 1277,1282 PTBL R(4) 4 1439924 2 10184 COM 1438,1447 Q R(4) 4 9767520 3 807975 COM Q10 R(4) 4 1795500 2 17955 COM Q2 R(4) 4 2226420 3 807975 COM Q2B R(4) 4 1242384 3 77220 COM Q30 R(4) 4 1508220 2 17955 COM QB R(4) 4 315744 3 77220 COM QS R(4) 4 502740 2 17955 COM QS0 R(4) 4 628 1 134 COM 1315,1334 QSHLTR R(4) 4 2082780 2 17955 COM QWBS R(4) 4 861840 2 17955 COM QZ0 R(4) 4 359100 2 17955 COM R R(4) 4 16 scalar COM 1146,1156 R1 R(4) 4 408 scalar COM 1439,1451 RADIN R(4) 4 147164 2 17955 COM RADOT R(4) 4 218984 2 17955 COM RDETA R(4) 4 216 1 45 COM 1147,1163 RDP R(4) 4 64 scalar COM 1313,1329 RDPQ R(4) 4 76 scalar COM 1298,1303 RDQ R(4) 4 56 scalar COM 1313,1327 RDTH R(4) 4 60 scalar COM 1313,1328 RDTHE R(4) 4 68 scalar COM 1313,1330 RDTHEQ R(4) 4 80 scalar COM 1298,1304 RES R(4) 4 13071240 2 17955 COM RESTRT L(4) 4 28 scalar COM 998 RF R(4) 4 718200 2 17955 COM RLWIN R(4) 4 12 2 17955 COM RLWOUT R(4) 4 71832 2 17955 COM RLWTOA R(4) 4 143652 2 17955 COM RLWTT R(4) 4 430932 3 807975 COM ROI R(4) 4 36 scalar COM 1312,1322 ROS R(4) 4 24 scalar COM 1312,1319 RSWIN R(4) 4 12 2 17955 COM RSWOUT R(4) 4 71832 2 17955 COM RSWTOA R(4) 4 143652 2 17955 COM RSWTT R(4) 4 430932 3 807975 COM RTDPTH R(4) 4 1364596 1 4 COM 1530,1533 RTOP R(4) 4 143640 3 807975 COM RUN L(4) 4 4 scalar COM SBD R(4) 4 424 scalar COM 1440,1455 Page 29 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Type Bytes Offset Dimen Elements Attributes References SFCEVP R(4) 4 359112 2 17955 COM SFCEXC R(4) 4 71820 2 17955 COM SFCLHX R(4) 4 71832 2 17955 COM SFCSHX R(4) 4 12 2 17955 COM SFCUVX R(4) 4 287292 2 17955 COM SH2O R(4) 4 1364612 3 71820 COM SI R(4) 4 1005480 2 17955 COM SICE R(4) 4 215460 2 17955 COM 1120 SIGMA L(4) 4 0 scalar COM 1008,1019 SIGT4 R(4) 4 1368104 2 17955 COM SLDPTH R(4) 4 1364580 1 4 COM 1521,1524 SM R(4) 4 143640 2 17955 COM 1110 SMC R(4) 4 790020 3 71820 COM SMSTAV R(4) 4 143640 2 17955 COM SMSTOT R(4) 4 215460 2 17955 COM SNO R(4) 4 933660 2 17955 COM SNOPCX R(4) 4 215472 2 17955 COM SOILTB R(4) 4 0 2 17955 COM SPHI0 R(4) 4 1728 scalar COM SPL R(4) 4 468 1 39 COM 998 SQS R(4) 4 1164 1 134 COM 1315,1335 SR R(4) 4 3375900 2 17955 COM SSROFF R(4) 4 143644 2 17955 COM SST R(4) 4 937184 2 17955 COM 1389 STC R(4) 4 1077300 3 71820 COM STHE R(4) 4 2004 1 76 COM 1315,1336 STHEQ R(4) 4 2916 1 152 COM 1298,1305 SUBPOST L(4) 4 104 scalar COM 998 SUBSHX R(4) 4 143652 2 17955 COM T R(4) 4 71820 3 807975 COM TB R(4) 4 6864 3 77220 COM TCLOD R(4) 4 0 scalar COM 1000 TCUCN R(4) 4 3231924 3 807975 COM TDTD R(4) 4 20 scalar COM TDTQ2 R(4) 4 12 scalar COM TEMP1 R(4) 4 0 2 91719 COM 1055,1059,1086,1090,1096,1100,1106 ,1110,1116,1120,1127,1130,1138,114 1,1177,1181,1187,1191,1197,1201,12 07,1211,1217,1221,1227,1231,1237,1 241,1247,1251,1257,1261,1267,1271, 1277,1281,1289,1293,1345,1349,1355 ,1359,1365,1369,1375,1379,1385,138 9,1395,1399,1405,1409,1415,1419,15 12,1515 TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM Page 30 Source Listing READ_NHB 2025-03-12 18:21 Symbol Table READ_NHB.F Name Type Bytes Offset Dimen Elements Attributes References TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TG R(4) 4 793544 2 17955 COM 1369 TH10 R(4) 4 1723680 2 17955 COM TH30 R(4) 4 1436400 2 17955 COM THE0 R(4) 4 1700 1 76 COM 1315,1337 THE0Q R(4) 4 2308 1 152 COM 1298,1306 THEAT R(4) 4 0 scalar COM 1000 THL R(4) 4 52 scalar COM 1313,1326 THS R(4) 4 430920 2 17955 COM THZ0 R(4) 4 287280 2 17955 COM TLM0D R(4) 4 428 scalar COM 1440,1456 TPH0D R(4) 4 432 scalar COM 1440,1457 TPREC R(4) 4 0 scalar COM 1000 TRAIN R(4) 4 24 3 807975 COM TRDLW R(4) 4 0 scalar COM 1000 TRDSW R(4) 4 0 scalar COM 1000 TSHDE R(4) 4 1324 1 99 COM 998 TSHLTR R(4) 4 2010960 2 17955 COM TSPH R(4) 4 416 scalar COM 1439,1453 TSRFC R(4) 4 0 scalar COM 1000 TTBL R(4) 4 1480660 2 10184 COM 1438,1449 TTBLQ R(4) 4 1521396 2 66880 COM 1425,1429 TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 790020 2 17955 COM U R(4) 4 3303720 3 807975 COM U00 R(4) 4 3231900 2 17955 COM U10 R(4) 4 1867320 2 17955 COM U30 R(4) 4 1580040 2 17955 COM UB R(4) 4 624624 3 77220 COM UL R(4) 4 3303720 1 90 COM USTAR R(4) 4 71820 2 17955 COM UZ0 R(4) 4 143640 2 17955 COM V R(4) 4 6535620 3 807975 COM V10 R(4) 4 1939140 2 17955 COM V30 R(4) 4 1651860 2 17955 COM VB R(4) 4 933504 3 77220 COM VBM2 R(4) 4 0 2 17955 COM 1090 VBM3 R(4) 4 71820 2 17955 COM 1100 VEGFRC R(4) 4 646380 2 17955 COM 1515 VTM R(4) 4 3519180 3 807975 COM 1141 VZ0 R(4) 4 215460 2 17955 COM WBD R(4) 4 420 scalar COM 1440,1454 WPDAR R(4) 4 79024 2 17955 COM 1191 X1P R(4) 4 452 scalar COM 1441,1462 Y1P R(4) 4 456 scalar COM 1441,1463 Z0 R(4) 4 0 2 17955 COM Z0SLP R(4) 4 464 scalar COM Page 31 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F 1541 Page 32 Source Listing READ_NHB 2025-03-12 18:21 Subprograms/Common Blocks READ_NHB.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 282 287288 SAVE ACMCLH Common 275 6463824 SAVE ACMPRE Common 289 287284 SAVE ACMRDL Common 296 3662832 SAVE ACMRDS Common 305 3662832 SAVE ACMSFC Common 314 574576 SAVE BOCO Common 268 1860144 SAVE CLDWTR Common 324 3447720 SAVE CNVCLD Common 332 287280 SAVE CONTIN Common 228 12999420 SAVE CTLBLK Common 136 112 SAVE DYNAM Common 162 725404 SAVE GLB_TABLE Common 967 128 SAVE INDX Common 353 6564 SAVE INDXG Common 359 8084 SAVE LOOPS Common 144 158840 SAVE MAPOT Common 206 1732 SAVE MAPPINGS Common 986 5024 SAVE MASKS Common 151 6894720 SAVE MPIFCMB5 Common 913 4 SAVE MPIFCMB9 Common 914 4 SAVE MPIPRIV1 Common 918 28 SAVE MPIPRIV2 Common 920 24 SAVE MPIPRIVC Common 923 2 SAVE MPPCOM Common 931 1464 SAVE PHYS Common 180 1788916 SAVE PVRBLS Common 238 5530140 SAVE READ_NHB Subr 3 SOIL Common 339 1651892 SAVE TEMPCOM Common 972 6603768 SAVE TOPO Common 980 17478548 SAVE VRBLS Common 218 13143060 SAVE COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases Page 33 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -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 Page 34 Source Listing READ_NHB 2025-03-12 18:21 READ_NHB.F -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 -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : READ_NHB.lst no -o COMPILER: Intel(R) Fortran 19.1-1655