Page 1 Source Listing READ_NHB 2025-03-12 18:22 /tmp/ifortI8x3ld.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:22 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" 89 INCLUDE "parm.tbl" 91 INCLUDE "parmsoil" 92 C----------------------------------------------------------------------- 94 P A R A M E T E R 95 & (G=9.8,CM1=2937.4,CM2=4.9283,CM3=23.5518,EPS=0.622 96 C 97 CVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV 98 C &, Q2INI=.01E0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 99 C &, Q2INI=1.0E0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 100 C &, Q2INI=.50E0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 101 C &, Q2INI=.01E0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=0.0E0 102 &, Q2INI=.50,EPSQ2=2.E-2,EPSQ=2.E-12,EPSWET=0.0 103 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 104 &, Z0LAND=.10,Z0SEA=.001,FCM=.00001 105 &, DTR=0.1745329E-1,H360=360.0 106 &, H1905=190.5,H105=105.0) 107 C 108 C----------------------------------------------------------------------- 109 P A R A M E T E R 110 & (IMJM=IM*JM-JM/2,JMP1=JM+1,JAM=6+2*(JM-10),LB=2*IM+JM-3 111 &, LM1=LM-1,LP1=LM+1,IMT=2*IM-1) 112 C 113 C----------------------------------------------------------------------- 114 C 115 C DECLARE VARIABLES 116 C 117 C----------------------------------------------------------------------- 118 L O G I C A L 119 & RUN,RUNB,FIRST,RESTRT,SIGMA 120 C----------------------------------------------------------------------- 121 C H A R A C T E R *32 122 & LABEL 123 C H A R A C T E R *40 124 & CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV 125 &,FILCLD,FILRAD,FILSFC 126 C----------------------------------------------------------------------- 127 I N T E G E R 128 & IDATB(3) 129 C----------------------------------------------------------------------- 130 C 131 C INCLUDE COMMON BLOCKS. 132 C 133 INCLUDE "CTLBLK.comm" 143 INCLUDE "LOOPS.comm" 150 INCLUDE "MASKS.comm" 161 INCLUDE "DYNAM.comm" 177 INCLUDE "PHYS2.comm" 205 INCLUDE "MAPOT1.comm" 217 INCLUDE "VRBLS.comm" Page 3 Source Listing READ_NHB 2025-03-12 18:22 READ_NHB.F 227 INCLUDE "CONTIN.comm" 237 INCLUDE "PVRBLS.comm" 267 INCLUDE "BOCO.comm" 274 INCLUDE "ACMCLH.comm" 281 INCLUDE "ACMCLD.comm" 288 INCLUDE "ACMPRE.comm" 295 INCLUDE "ACMRDL.comm" 304 INCLUDE "ACMRDS.comm" 313 INCLUDE "ACMSFC.comm" 323 INCLUDE "CLDWTR.comm" 331 INCLUDE "CNVCLD.comm" 338 INCLUDE "SOIL.comm" 351 INCLUDE "INDX.comm" 352 C----------------------------------------------------------------------- 364 INCLUDE "mpif.h" 926 INCLUDE "mpp.h" 927 # 1 "./sp.h" 1 928 # 4 929 930 # 131 "READ_NHB.F" 2 931 C----------------------------------------------------------------------- 990 INTEGER ISTAT(MPI_STATUS_SIZE) 991 C 992 # 140 993 994 C----------------------------------------------------------------------- 995 C 996 C DECLARE NAMELIST. 997 C 998 NAMELIST /FCSTDATA/ 999 & TSTART,TEND,TCP,RESTRT,SUBPOST,NMAP,TSHDE,SPL 1000 &,NPHS,NCNVC,NRADSH,NRADLH 1001 &,TPREC,THEAT,TCLOD,TRDSW,TRDLW,TSRFC 1002 C 1003 C*********************************************************************** 1004 IF(MYPE.EQ.0)THEN 1005 # 170 1006 1007 READ(NHB) 1008 1 NFCST,NBC,LIST 1009 2, DT,IDTAD,SIGMA 1010 3, KHLA,KHHA,KVLA,KVHA,KHL2,KHH2,KVL2,KVH2 1011 1012 c WRITE(0,*)'READ NFCST= ',NFCST,' FROM FILE NHB' 1013 ENDIF 1014 C 1015 CALL MPI_BCAST(NFCST,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1016 CALL MPI_BCAST(NBC,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1017 CALL MPI_BCAST(LIST,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1018 CALL MPI_BCAST(DT,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1019 CALL MPI_BCAST(IDTAD,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1020 CALL MPI_BCAST(SIGMA,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) 1021 C 1022 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1023 C 1024 LIST=6 1025 C----------------------------------------------------------------------- Page 4 Source Listing READ_NHB 2025-03-12 18:22 READ_NHB.F 1026 C*** 1027 C*** DISTRIBUTE LMH 1028 C*** 1029 IF(MYPE.EQ.0)THEN 1030 # 197 1031 1032 READ(NHB)ITEMP 1033 1034 ENDIF 1035 c WRITE(0,*)'READ LMH' 1036 C 1037 CALL IDSTRB(ITEMP,LMH) 1038 C----------------------------------------------------------------------- 1039 C*** 1040 C*** DISTRIBUTE LMV 1041 C*** 1042 IF(MYPE.EQ.0)THEN 1043 # 212 1044 1045 READ(NHB)ITEMP 1046 1047 ENDIF 1048 c WRITE(0,*)'READ LMV' 1049 C 1050 CALL IDSTRB(ITEMP,LMV) 1051 C----------------------------------------------------------------------- 1052 C*** 1053 C*** DISTRIBUTE HBM2 1054 C*** 1055 IF(MYPE.EQ.0)THEN 1056 READ(NHB)TEMP1 1057 c WRITE(0,*)'READ HBM2' 1058 ENDIF 1059 C 1060 CALL DSTRB(TEMP1,HBM2,1,1,1) 1061 C----------------------------------------------------------------------- 1062 C*** 1063 C*** FILL HBM3 ON EACH PE 1064 C*** 1065 DO J=MYJS,MYJE 1066 DO I=MYIS,MYIE 1067 HBM3(I,J)=0. 1068 ENDDO 1069 ENDDO 1070 C 1071 DO J=MYJS,MYJE 1072 JG=J+MY_JS_GLB-1 1073 IF(JG.GE.4.AND.JG.LE.JM-3)THEN 1074 IHL=2-IHWG(JG) 1075 IHH=IM-2 1076 DO I=MYIS,MYIE 1077 IG=I+MY_IS_GLB-1 1078 IF(IG.GE.IHL.AND.IG.LE.IHH)HBM3(I,J)=1. 1079 ENDDO 1080 ENDIF 1081 ENDDO 1082 C----------------------------------------------------------------------- Page 5 Source Listing READ_NHB 2025-03-12 18:22 READ_NHB.F 1083 C*** 1084 C*** DISTRIBUTE VBM2 1085 C*** 1086 IF(MYPE.EQ.0)THEN 1087 READ(NHB)TEMP1 1088 c WRITE(0,*)'READ VBM2' 1089 ENDIF 1090 C 1091 CALL DSTRB(TEMP1,VBM2,1,1,1) 1092 C----------------------------------------------------------------------- 1093 C*** 1094 C*** DISTRIBUTE VBM3 1095 C*** 1096 IF(MYPE.EQ.0)THEN 1097 READ(NHB)TEMP1 1098 c WRITE(0,*)'READ VBM3' 1099 ENDIF 1100 C 1101 CALL DSTRB(TEMP1,VBM3,1,1,1) 1102 C----------------------------------------------------------------------- 1103 C*** 1104 C*** DISTRIBUTE SM 1105 C*** 1106 IF(MYPE.EQ.0)THEN 1107 READ(NHB)TEMP1 1108 c WRITE(0,*)'READ SM' 1109 ENDIF 1110 C 1111 CALL DSTRB(TEMP1,SM,1,1,1) 1112 C----------------------------------------------------------------------- 1113 C*** 1114 C*** DISTRIBUTE SICE 1115 C*** 1116 IF(MYPE.EQ.0)THEN 1117 READ(NHB)TEMP1 1118 c WRITE(0,*)'READ SICE' 1119 ENDIF 1120 C 1121 CALL DSTRB(TEMP1,SICE,1,1,1) 1122 C----------------------------------------------------------------------- 1123 C*** 1124 C*** DISTRIBUTE HTM 1125 C*** 1126 DO L=1,LM 1127 IF(MYPE.EQ.0)THEN 1128 READ(NHB)TEMP1 1129 c WRITE(0,*)'READ HTM' 1130 ENDIF 1131 CALL DSTRB(TEMP1,HTM,1,LM,L) 1132 ENDDO 1133 C----------------------------------------------------------------------- 1134 C*** 1135 C*** DISTRIBUTE VTM 1136 C*** 1137 DO L=1,LM 1138 IF(MYPE.EQ.0)THEN 1139 READ(NHB)TEMP1 Page 6 Source Listing READ_NHB 2025-03-12 18:22 READ_NHB.F 1140 c WRITE(0,*)'READ VTM' 1141 ENDIF 1142 CALL DSTRB(TEMP1,VTM,1,LM,L) 1143 ENDDO 1144 C----------------------------------------------------------------------- 1145 C 1146 IF(MYPE.EQ.0)THEN 1147 READ(NHB)DY,CPGFV,EN,ENT,R,PT,TDDAMP 1148 1, F4D,F4Q,EF4T,DETA,RDETA,AETA,F4Q2,ETA,DFL 1149 2, EM,EMT 1150 c WRITE(0,*)'READ DY' 1151 ENDIF 1152 C 1153 CALL MPI_BCAST(DY,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1154 CALL MPI_BCAST(CPGFV,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1155 CALL MPI_BCAST(EN,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1156 CALL MPI_BCAST(ENT,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1157 CALL MPI_BCAST(R,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1158 CALL MPI_BCAST(PT,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1159 CALL MPI_BCAST(TDDAMP,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1160 CALL MPI_BCAST(F4D,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1161 CALL MPI_BCAST(F4Q,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1162 CALL MPI_BCAST(EF4T,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1163 CALL MPI_BCAST(DETA(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1164 CALL MPI_BCAST(RDETA(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1165 CALL MPI_BCAST(AETA(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1166 CALL MPI_BCAST(F4Q2(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1167 CALL MPI_BCAST(ETA(1),LP1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1168 CALL MPI_BCAST(DFL(1),LP1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1169 CALL MPI_BCAST(EM(1),JAM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1170 CALL MPI_BCAST(EMT(1),JAM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1171 C 1172 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1173 C----------------------------------------------------------------------- 1174 C*** 1175 C*** DISTRIBUTE DX 1176 C*** 1177 IF(MYPE.EQ.0)THEN 1178 READ(NHB)TEMP1 1179 c WRITE(0,*)'READ DX' 1180 ENDIF 1181 C 1182 CALL DSTRB(TEMP1,DX,1,1,1) 1183 C----------------------------------------------------------------------- 1184 C*** 1185 C*** DISTRIBUTE WPDAR 1186 C*** 1187 IF(MYPE.EQ.0)THEN 1188 READ(NHB)TEMP1 1189 c WRITE(0,*)'READ WPDAR' 1190 ENDIF 1191 C 1192 CALL DSTRB(TEMP1,WPDAR,1,1,1) 1193 C----------------------------------------------------------------------- 1194 C*** 1195 C*** DISTRIBUTE CPGFU 1196 C*** Page 7 Source Listing READ_NHB 2025-03-12 18:22 READ_NHB.F 1197 IF(MYPE.EQ.0)THEN 1198 READ(NHB)TEMP1 1199 c WRITE(0,*)'READ CPGFU' 1200 ENDIF 1201 C 1202 CALL DSTRB(TEMP1,CPGFU,1,1,1) 1203 C----------------------------------------------------------------------- 1204 C*** 1205 C*** DISTRIBUTE CURV 1206 C*** 1207 IF(MYPE.EQ.0)THEN 1208 READ(NHB)TEMP1 1209 c WRITE(0,*)'READ CURV' 1210 ENDIF 1211 C 1212 CALL DSTRB(TEMP1,CURV,1,1,1) 1213 C----------------------------------------------------------------------- 1214 C*** 1215 C*** DISTRIBUTE FCP 1216 C*** 1217 IF(MYPE.EQ.0)THEN 1218 READ(NHB)TEMP1 1219 c WRITE(0,*)'READ FCP' 1220 ENDIF 1221 C 1222 CALL DSTRB(TEMP1,FCP,1,1,1) 1223 C----------------------------------------------------------------------- 1224 C*** 1225 C*** DISTRIBUTE FDIV 1226 C*** 1227 IF(MYPE.EQ.0)THEN 1228 READ(NHB)TEMP1 1229 c WRITE(0,*)'READ FDIV' 1230 ENDIF 1231 C 1232 CALL DSTRB(TEMP1,FDIV,1,1,1) 1233 C----------------------------------------------------------------------- 1234 C*** 1235 C*** DISTRIBUTE FAD 1236 C*** 1237 IF(MYPE.EQ.0)THEN 1238 READ(NHB)TEMP1 1239 c WRITE(0,*)'READ FAD' 1240 ENDIF 1241 C 1242 CALL DSTRB(TEMP1,FAD,1,1,1) 1243 C----------------------------------------------------------------------- 1244 C*** 1245 C*** DISTRIBUTE F 1246 C*** 1247 IF(MYPE.EQ.0)THEN 1248 READ(NHB)TEMP1 1249 c WRITE(0,*)'READ F' 1250 ENDIF 1251 C 1252 CALL DSTRB(TEMP1,F,1,1,1) 1253 C----------------------------------------------------------------------- Page 8 Source Listing READ_NHB 2025-03-12 18:22 READ_NHB.F 1254 C*** 1255 C*** DISTRIBUTE DDMPU 1256 C*** 1257 IF(MYPE.EQ.0)THEN 1258 READ(NHB)TEMP1 1259 c WRITE(0,*)'READ DDMPU' 1260 ENDIF 1261 C 1262 CALL DSTRB(TEMP1,DDMPU,1,1,1) 1263 C----------------------------------------------------------------------- 1264 C*** 1265 C*** DISTRIBUTE DDMPV 1266 C*** 1267 IF(MYPE.EQ.0)THEN 1268 READ(NHB)TEMP1 1269 c WRITE(0,*)'READ DDMPV' 1270 ENDIF 1271 C 1272 CALL DSTRB(TEMP1,DDMPV,1,1,1) 1273 C----------------------------------------------------------------------- 1274 C*** 1275 C*** DISTRIBUTE PT, GLAT 1276 C*** 1277 IF(MYPE.EQ.0)THEN 1278 READ(NHB)PT2,TEMP1 1279 c WRITE(0,*)'READ PT, GLAT' 1280 ENDIF 1281 C 1282 CALL DSTRB(TEMP1,GLAT,1,1,1) 1283 CALL MPI_BCAST(PT2,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1284 c print*,'glat=',glat 1285 C----------------------------------------------------------------------- 1286 C*** 1287 C*** DISTRIBUTE GLON 1288 C*** 1289 IF(MYPE.EQ.0)THEN 1290 READ(NHB)TEMP1 1291 c WRITE(0,*)'READ GLON' 1292 ENDIF 1293 C 1294 CALL DSTRB(TEMP1,GLON,1,1,1) 1295 c print*,'glon=',glon 1296 C----------------------------------------------------------------------- 1297 C 1298 IF(MYPE.EQ.0)THEN 1299 READ(NHB)PLQ,RDPQ,RDTHEQ,STHEQ,THE0Q 1300 c WRITE(0,*)'READ PLQ' 1301 ENDIF 1302 C 1303 CALL MPI_BCAST(PLQ,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1304 CALL MPI_BCAST(RDPQ,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1305 CALL MPI_BCAST(RDTHEQ,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1306 CALL MPI_BCAST(STHEQ(1),ITBQ,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1307 CALL MPI_BCAST(THE0Q(1),ITBQ,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1308 C 1309 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1310 C----------------------------------------------------------------------- Page 9 Source Listing READ_NHB 2025-03-12 18:22 READ_NHB.F 1311 C 1312 IF(MYPE.EQ.0)THEN 1313 READ(NHB)ROS,CS,DS,ROI,CI,DI 1314 1, PL,THL,RDQ,RDTH,RDP,RDTHE 1315 2, DETA2,AETA2,DFRLG 1316 3, QS0,SQS,STHE,THE0 1317 c WRITE(0,*)'READ ROS' 1318 ENDIF 1319 C 1320 CALL MPI_BCAST(ROS,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1321 CALL MPI_BCAST(CS,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1322 CALL MPI_BCAST(DS,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1323 CALL MPI_BCAST(ROI,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1324 CALL MPI_BCAST(CI,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1325 CALL MPI_BCAST(DI,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1326 CALL MPI_BCAST(PL,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1327 CALL MPI_BCAST(THL,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1328 CALL MPI_BCAST(RDQ,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1329 CALL MPI_BCAST(RDTH,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1330 CALL MPI_BCAST(RDP,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1331 CALL MPI_BCAST(RDTHE,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1332 CALL MPI_BCAST(DETA2(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1333 CALL MPI_BCAST(AETA2(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1334 CALL MPI_BCAST(DFRLG(1),LP1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1335 CALL MPI_BCAST(QS0(1),JTB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1336 CALL MPI_BCAST(SQS(1),JTB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1337 CALL MPI_BCAST(STHE(1),ITB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1338 CALL MPI_BCAST(THE0(1),ITB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1339 C 1340 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1341 C----------------------------------------------------------------------- 1342 C*** 1343 C*** DISTRIBUTE MXSNAL 1344 C*** 1345 IF(MYPE.EQ.0)THEN 1346 READ(NHB)TEMP1 1347 c WRITE(0,*)'READ MXSNAL' 1348 ENDIF 1349 C 1350 CALL DSTRB(TEMP1,MXSNAL,1,1,1) 1351 C----------------------------------------------------------------------- 1352 C*** 1353 C*** DISTRIBUTE EPSR 1354 C*** 1355 IF(MYPE.EQ.0)THEN 1356 READ(NHB)TEMP1 1357 c WRITE(0,*)'READ EPSR' 1358 ENDIF 1359 C 1360 CALL DSTRB(TEMP1,EPSR,1,1,1) 1361 C----------------------------------------------------------------------- 1362 C*** 1363 C*** DISTRIBUTE TG 1364 C*** 1365 IF(MYPE.EQ.0)THEN 1366 READ(NHB)TEMP1 1367 c WRITE(0,*)'READ TG' Page 10 Source Listing READ_NHB 2025-03-12 18:22 READ_NHB.F 1368 ENDIF 1369 C 1370 CALL DSTRB(TEMP1,TG,1,1,1) 1371 C----------------------------------------------------------------------- 1372 C*** 1373 C*** DISTRIBUTE GFFC 1374 C*** 1375 IF(MYPE.EQ.0)THEN 1376 READ(NHB)TEMP1 1377 c WRITE(0,*)'READ GFFC' 1378 ENDIF 1379 C 1380 CALL DSTRB(TEMP1,GFFC,1,1,1) 1381 C----------------------------------------------------------------------- 1382 C*** 1383 C*** DISTRIBUTE SST 1384 C*** 1385 IF(MYPE.EQ.0)THEN 1386 READ(NHB)TEMP1 1387 c WRITE(0,*)'READ SST' 1388 ENDIF 1389 C 1390 CALL DSTRB(TEMP1,SST,1,1,1) 1391 C----------------------------------------------------------------------- 1392 C*** 1393 C*** DISTRIBUTE ALBASE 1394 C*** 1395 IF(MYPE.EQ.0)THEN 1396 READ(NHB)TEMP1 1397 c WRITE(0,*)'READ ALBASE' 1398 ENDIF 1399 C 1400 CALL DSTRB(TEMP1,ALBASE,1,1,1) 1401 C----------------------------------------------------------------------- 1402 C*** 1403 C*** DISTRIBUTE HDAC 1404 C*** 1405 IF(MYPE.EQ.0)THEN 1406 READ(NHB)TEMP1 1407 c WRITE(0,*)'READ HDAC' 1408 ENDIF 1409 C 1410 CALL DSTRB(TEMP1,HDAC,1,1,1) 1411 C----------------------------------------------------------------------- 1412 C*** 1413 C*** DISTRIBUTE HDACV 1414 C*** 1415 IF(MYPE.EQ.0)THEN 1416 READ(NHB)TEMP1 1417 c WRITE(0,*)'READ HDACV' 1418 ENDIF 1419 C 1420 CALL DSTRB(TEMP1,HDACV,1,1,1) 1421 C----------------------------------------------------------------------- 1422 C*** 1423 C*** DISTRIBUTE TTBLQ 1424 C*** Page 11 Source Listing READ_NHB 2025-03-12 18:22 READ_NHB.F 1425 IF(MYPE.EQ.0)THEN 1426 READ(NHB)TTBLQ 1427 c WRITE(0,*)'READ TTBLQ' 1428 ENDIF 1429 C 1430 CALL MPI_BCAST(TTBLQ(1,1),ITBQ*JTBQ,MPI_REAL,0, 1431 1 MPI_COMM_COMP,IRTN) 1432 C 1433 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1434 C----------------------------------------------------------------------- 1435 C 1436 IF(MYPE.EQ.0)THEN 1437 # 613 1438 1439 READ(NHB)PTBL,TTBL 1440 1, R1,PT1,TSPH 1441 2, WBD,SBD,TLM0D,TPH0D,DLMD,DPHD,CMLD,DP30 1442 3, X1P,Y1P,IXM,IYM 1443 4, DETA1,AETA1,ETA1 1444 1445 c WRITE(0,*)'READ PTBL' 1446 ENDIF 1447 c 1448 CALL MPI_BCAST(PTBL(1,1),ITB*JTB,MPI_REAL,0, 1449 1 MPI_COMM_COMP,IRTN) 1450 CALL MPI_BCAST(TTBL(1,1),JTB*ITB,MPI_REAL,0, 1451 1 MPI_COMM_COMP,IRTN) 1452 CALL MPI_BCAST(R1,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1453 CALL MPI_BCAST(PT1,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1454 CALL MPI_BCAST(TSPH,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1455 CALL MPI_BCAST(WBD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1456 CALL MPI_BCAST(SBD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1457 CALL MPI_BCAST(TLM0D,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1458 CALL MPI_BCAST(TPH0D,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1459 CALL MPI_BCAST(DLMD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1460 CALL MPI_BCAST(DPHD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1461 CALL MPI_BCAST(CMLD,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1462 CALL MPI_BCAST(DP30,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1463 CALL MPI_BCAST(X1P,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1464 CALL MPI_BCAST(Y1P,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1465 CALL MPI_BCAST(IXM,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1466 CALL MPI_BCAST(IYM,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1467 CALL MPI_BCAST(DETA1(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1468 CALL MPI_BCAST(AETA1(1),LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1469 CALL MPI_BCAST(ETA1(1),LP1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1470 C 1471 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1472 C----------------------------------------------------------------------- 1473 C*** 1474 C*** DISTRIBUTE IVGTYP 1475 C*** 1476 IF(MYPE.EQ.0)THEN 1477 # 655 1478 1479 READ(NHB)ITEMP 1480 1481 ENDIF Page 12 Source Listing READ_NHB 2025-03-12 18:22 READ_NHB.F 1482 C 1483 CALL IDSTRB(ITEMP,IVGTYP) 1484 C----------------------------------------------------------------------- 1485 C*** 1486 C*** DISTRIBUTE ISLTYP 1487 C*** 1488 IF(MYPE.EQ.0)THEN 1489 # 669 1490 1491 READ(NHB)ITEMP 1492 1493 ENDIF 1494 C 1495 CALL IDSTRB(ITEMP,ISLTYP) 1496 C----------------------------------------------------------------------- 1497 C*** 1498 C*** DISTRIBUTE ISLOPE 1499 C*** 1500 IF(MYPE.EQ.0)THEN 1501 # 683 1502 1503 READ(NHB)ITEMP 1504 1505 ENDIF 1506 C 1507 CALL IDSTRB(ITEMP,ISLOPE) 1508 C----------------------------------------------------------------------- 1509 C*** 1510 C*** DISTRIBUTE VEGFRC 1511 C*** 1512 IF(MYPE.EQ.0)THEN 1513 READ(NHB)TEMP1 1514 ENDIF 1515 C 1516 CALL DSTRB(TEMP1,VEGFRC,1,1,1) 1517 C----------------------------------------------------------------------- 1518 C*** 1519 C*** DISTRIBUTE SLDPTH 1520 C*** 1521 IF(MYPE.EQ.0)THEN 1522 READ(NHB)SLDPTH 1523 ENDIF 1524 C 1525 CALL MPI_BCAST(SLDPTH(1),NSOIL,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1526 C----------------------------------------------------------------------- 1527 C*** 1528 C*** DISTRIBUTE RTDPTH 1529 C*** 1530 IF(MYPE.EQ.0)THEN 1531 READ(NHB)RTDPTH 1532 ENDIF 1533 C 1534 CALL MPI_BCAST(RTDPTH(1),NSOIL,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1535 C----------------------------------------------------------------------- 1536 C 1537 C END OF SUBROUTINE READ_NHB 1538 C Page 13 Source Listing READ_NHB 2025-03-12 18:22 READ_NHB.F 1539 C----------------------------------------------------------------------- 1540 RETURN 1541 END ENTRY POINTS Name read_nhb_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 283 101112 SAVE ACMCLH Common 276 2274864 SAVE ACMPRE Common 290 101108 SAVE ACMRDL Common 297 1289088 SAVE ACMRDS Common 306 1289088 SAVE ACMSFC Common 315 202224 SAVE BOCO Common 269 1860144 SAVE CLDWTR Common 325 1213608 SAVE CM1 Param 95 R(4) 4 scalar CM2 Param 95 R(4) 4 scalar CM3 Param 95 R(4) 4 scalar CNVCLD Common 333 101104 SAVE CONTIN Common 229 4574956 SAVE CONTRL Local 124 CHAR 40 scalar CTLBLK Common 137 112 SAVE DSTRB Subr 1060 1060,1091,1101,1111,1121,1131,1142 ,1182,1192,1202,1212,1222,1232,124 2,1252,1262,1272,1282,1294,1350,13 60,1370,1380,1390,1400,1410,1420,1 516 DTR Param 105 R(4) 4 scalar DYNAM Common 163 259964 SAVE EPS Param 95 R(4) 4 scalar EPSQ Param 102 R(4) 4 scalar EPSQ2 Param 102 R(4) 4 scalar EPSWET Param 102 R(4) 4 scalar FCM Param 104 R(4) 4 scalar FCSTDATA Local 998 scalar FILALL Local 124 CHAR 40 scalar FILCLD Local 125 CHAR 40 scalar FILMST Local 124 CHAR 40 scalar FILRAD Local 125 CHAR 40 scalar FILSFC Local 125 CHAR 40 scalar FILTKE Local 124 CHAR 40 scalar FILTMP Local 124 CHAR 40 scalar FILUNV Local 124 CHAR 40 scalar G Param 95 R(4) 4 scalar GLB_TABLE Common 968 336 SAVE H105 Param 106 R(4) 4 scalar H1905 Param 106 R(4) 4 scalar H360 Param 105 R(4) 4 scalar Page 14 Source Listing READ_NHB 2025-03-12 18:22 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References I Local 1066 I(4) 4 scalar 1066,1067,1076,1077,1078 IDATB Local 128 I(4) 4 1 3 IDIM1 Param 85 I(4) 4 scalar 147,153,154,156,157,158,169,170,17 1,172,173,174,190,191,192,193,194, 195,196,197,198,199,200,220,222,22 3,224,230,231,232,233,234,240,241, 242,243,244,245,246,247,248,249,25 0,251,252,253,254,255,256,258,263, 278,279,285,286,292,293,299,300,30 1,302,308,309,310,311,317,318,319, 320,326,328,334,335,341,342,343,34 4,345,346,347,348,357 IDIM2 Param 85 I(4) 4 scalar 147,153,154,156,157,158,169,170,17 1,172,173,174,190,191,192,193,194, 195,196,197,198,199,200,220,222,22 3,224,230,231,232,233,234,240,241, 242,243,244,245,246,247,248,249,25 0,251,252,253,254,255,256,258,263, 278,279,285,286,292,293,299,300,30 1,302,308,309,310,311,317,318,319, 320,326,328,334,335,341,342,343,34 4,345,346,347,348,357 IDSTRB Subr 1037 1037,1050,1483,1495,1507 IG Local 1077 I(4) 4 scalar 1077,1078 IGSTL Param 80 I(4) 4 scalar 85 IGSTR Param 80 I(4) 4 scalar 85 IHH Local 1075 I(4) 4 scalar 1075,1078 IHL Local 1074 I(4) 4 scalar 1074,1078 IM Param 68 I(4) 4 scalar 82,85,110,111,361,974,975,976,977, 978,982,983,988,1075 IMJM Param 110 I(4) 4 scalar IMT Param 111 I(4) 4 scalar INDX Common 354 1708 SAVE INDXG Common 360 8084 SAVE INPES Param 77 I(4) 4 scalar 82,85,958,959,960,969,970 IRTN Local 1015 I(4) 4 scalar 1015,1016,1017,1018,1019,1020,1022 ,1153,1154,1155,1156,1157,1158,115 9,1160,1161,1162,1163,1164,1165,11 66,1167,1168,1169,1170,1172,1283,1 303,1304,1305,1306,1307,1309,1320, 1321,1322,1323,1324,1325,1326,1327 ,1328,1329,1330,1331,1332,1333,133 4,1335,1336,1337,1338,1340,1431,14 33,1449,1451,1452,1453,1454,1455,1 456,1457,1458,1459,1460,1461,1462, 1463,1464,1465,1466,1467,1468,1469 ,1471,1525,1534 ISTAT Local 990 I(4) 4 1 5 ITAIL Param 82 I(4) 4 scalar ITB Param 90 I(4) 4 scalar 187,202,1337,1338,1448,1450 ITBQ Param 90 I(4) 4 scalar 188,202,1306,1307,1430 J Local 1065 I(4) 4 scalar 1065,1067,1071,1072,1078 JAM Param 110 I(4) 4 scalar 146,167,1169,1170 JDIM1 Param 86 I(4) 4 scalar 147,153,154,156,157,158,169,170,17 1,172,173,174,190,191,192,193,194, Page 15 Source Listing READ_NHB 2025-03-12 18:22 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References 195,196,197,198,199,200,220,222,22 3,224,230,231,232,233,234,240,241, 242,243,244,245,246,247,248,249,25 0,251,252,253,254,255,256,258,263, 278,279,285,286,292,293,299,300,30 1,302,308,309,310,311,317,318,319, 320,326,328,334,335,341,342,343,34 4,345,346,347,348,355,356 JDIM2 Param 86 I(4) 4 scalar 147,153,154,156,157,158,169,170,17 1,172,173,174,190,191,192,193,194, 195,196,197,198,199,200,220,222,22 3,224,230,231,232,233,234,240,241, 242,243,244,245,246,247,248,249,25 0,251,252,253,254,255,256,258,263, 278,279,285,286,292,293,299,300,30 1,302,308,309,310,311,317,318,319, 320,326,328,334,335,341,342,343,34 4,345,346,347,348,355,356 JG Local 1072 I(4) 4 scalar 1072,1073,1074 JGSTL Param 81 I(4) 4 scalar 86 JGSTR Param 81 I(4) 4 scalar 86 JM Param 68 I(4) 4 scalar 83,86,110,361,974,975,976,977,978, 982,983,988,1073 JMP1 Param 110 I(4) 4 scalar JNPES Param 77 I(4) 4 scalar 83,86,958,959,960,969,970 JTAIL Param 83 I(4) 4 scalar JTB Param 90 I(4) 4 scalar 187,202,1335,1336,1448,1450 JTBQ Param 90 I(4) 4 scalar 202,1430 KHH2 Local 1010 I(4) 4 scalar 1010 KHHA Local 1010 I(4) 4 scalar 1010 KHL2 Local 1010 I(4) 4 scalar 1010 KHLA Local 1010 I(4) 4 scalar 1010 KVH2 Local 1010 I(4) 4 scalar 1010 KVHA Local 1010 I(4) 4 scalar 1010 KVL2 Local 1010 I(4) 4 scalar 1010 KVLA Local 1010 I(4) 4 scalar 1010 L Local 1126 I(4) 4 scalar 1126,1131,1137,1142 LABEL Local 122 CHAR 32 scalar LB Param 110 I(4) 4 scalar 270,271 LM Param 68 I(4) 4 scalar 111,156,157,165,186,213,222,223,23 1,232,233,234,258,270,271,278,279, 302,311,326,327,983,1126,1131,1137 ,1142,1163,1164,1165,1166,1332,133 3,1467,1468 LM1 Param 111 I(4) 4 scalar LOOPS Common 145 65752 SAVE LP1 Param 111 I(4) 4 scalar 165,186,213,1167,1168,1334,1469 LSM Param 68 I(4) 4 scalar 212 MAPOT Common 207 1732 SAVE MAPPINGS Common 987 5024 SAVE MASKS Common 152 2426496 SAVE MPIFCMB5 Common 914 4 SAVE MPIFCMB9 Common 915 4 SAVE MPIPRIV1 Common 919 28 SAVE MPIPRIV2 Common 921 24 SAVE Page 16 Source Listing READ_NHB 2025-03-12 18:22 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPIPRIVC Common 924 2 SAVE MPI_2DOUBLE_PRECISION Param 660 I(4) 4 scalar MPI_2INT Param 744 I(4) 4 scalar MPI_2INTEGER Param 658 I(4) 4 scalar MPI_2REAL Param 662 I(4) 4 scalar MPI_ADDRESS_KIND Param 696 I(4) 4 scalar MPI_AINT Param 774 I(4) 4 scalar MPI_ANY_SOURCE Param 626 I(4) 4 scalar MPI_ANY_TAG Param 628 I(4) 4 scalar MPI_APPNUM Param 590 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 896 L(4) 4 scalar MPI_BAND Param 534 I(4) 4 scalar MPI_BARRIER Subr 1022 1022,1172,1309,1340,1433,1471 MPI_BCAST Subr 1015 1015,1016,1017,1018,1019,1020,1153 ,1154,1155,1156,1157,1158,1159,116 0,1161,1162,1163,1164,1165,1166,11 67,1168,1169,1170,1283,1303,1304,1 305,1306,1307,1320,1321,1322,1323, 1324,1325,1326,1327,1328,1329,1330 ,1331,1332,1333,1334,1335,1336,133 7,1338,1430,1448,1450,1452,1453,14 54,1455,1456,1457,1458,1459,1460,1 461,1462,1463,1464,1465,1466,1467, 1468,1469,1525,1534 MPI_BOR Param 538 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 622 I(4) 4 scalar MPI_BXOR Param 542 I(4) 4 scalar MPI_BYTE Param 666 I(4) 4 scalar MPI_CART Param 634 I(4) 4 scalar MPI_CHAR Param 704 I(4) 4 scalar MPI_CHARACTER Param 664 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 792 I(4) 4 scalar MPI_COMBINER_DARRAY Param 814 I(4) 4 scalar MPI_COMBINER_DUP Param 790 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 818 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 820 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 816 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 804 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 824 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 802 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 798 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 796 I(4) 4 scalar MPI_COMBINER_INDEXED Param 800 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 806 I(4) 4 scalar MPI_COMBINER_NAMED Param 788 I(4) 4 scalar MPI_COMBINER_RESIZED Param 822 I(4) 4 scalar MPI_COMBINER_STRUCT Param 810 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 808 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 812 I(4) 4 scalar MPI_COMBINER_VECTOR Param 794 I(4) 4 scalar Page 17 Source Listing READ_NHB 2025-03-12 18:22 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_DUP_FN Subr 903 scalar MPI_COMM_NULL Param 558 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 904 scalar MPI_COMM_NULL_DELETE_FN Subr 903 scalar MPI_COMM_SELF Param 554 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 842 I(4) 4 scalar MPI_COMM_WORLD Param 552 I(4) 4 scalar MPI_COMPLEX Param 646 I(4) 4 scalar MPI_COMPLEX16 Param 692 I(4) 4 scalar MPI_COMPLEX32 Param 694 I(4) 4 scalar MPI_COMPLEX8 Param 690 I(4) 4 scalar MPI_CONGRUENT Param 506 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 909 scalar MPI_COUNT Param 778 I(4) 4 scalar MPI_COUNT_KIND Param 700 I(4) 4 scalar MPI_CXX_BOOL Param 780 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 784 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 782 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 786 I(4) 4 scalar MPI_C_BOOL Param 764 I(4) 4 scalar MPI_C_COMPLEX Param 768 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 770 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 766 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 772 I(4) 4 scalar MPI_DATATYPE_NULL Param 568 I(4) 4 scalar 683,781,783,785,787 MPI_DISPLACEMENT_CURRENT Param 892 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 884 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 886 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 890 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 888 I(4) 4 scalar MPI_DIST_GRAPH Param 636 I(4) 4 scalar MPI_DOUBLE Param 726 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 648 I(4) 4 scalar MPI_DOUBLE_INT Param 738 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 654 I(4) 4 scalar MPI_DUP_FN Subr 900 scalar MPI_ERRHANDLER_NULL Param 572 I(4) 4 scalar MPI_ERROR Param 373 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 500 I(4) 4 scalar MPI_ERRORS_RETURN Param 502 I(4) 4 scalar MPI_ERR_ACCESS Param 492 I(4) 4 scalar MPI_ERR_AMODE Param 478 I(4) 4 scalar MPI_ERR_ARG Param 448 I(4) 4 scalar MPI_ERR_ASSERT Param 454 I(4) 4 scalar MPI_ERR_BAD_FILE Param 416 I(4) 4 scalar MPI_ERR_BASE Param 446 I(4) 4 scalar MPI_ERR_BUFFER Param 388 I(4) 4 scalar MPI_ERR_COMM Param 466 I(4) 4 scalar MPI_ERR_CONVERSION Param 482 I(4) 4 scalar MPI_ERR_COUNT Param 392 I(4) 4 scalar MPI_ERR_DIMS Param 430 I(4) 4 scalar MPI_ERR_DISP Param 414 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 396 I(4) 4 scalar MPI_ERR_FILE Param 426 I(4) 4 scalar Page 18 Source Listing READ_NHB 2025-03-12 18:22 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_FILE_EXISTS Param 408 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 450 I(4) 4 scalar MPI_ERR_GROUP Param 412 I(4) 4 scalar MPI_ERR_INFO Param 440 I(4) 4 scalar MPI_ERR_INFO_KEY Param 444 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 424 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 410 I(4) 4 scalar MPI_ERR_INTERN Param 442 I(4) 4 scalar MPI_ERR_IN_STATUS Param 428 I(4) 4 scalar MPI_ERR_IO Param 488 I(4) 4 scalar MPI_ERR_KEYVAL Param 434 I(4) 4 scalar MPI_ERR_LASTCODE Param 456 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 438 I(4) 4 scalar MPI_ERR_NAME Param 432 I(4) 4 scalar MPI_ERR_NOT_SAME Param 460 I(4) 4 scalar MPI_ERR_NO_MEM Param 452 I(4) 4 scalar MPI_ERR_NO_SPACE Param 384 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 468 I(4) 4 scalar MPI_ERR_OP Param 486 I(4) 4 scalar MPI_ERR_OTHER Param 400 I(4) 4 scalar MPI_ERR_PENDING Param 390 I(4) 4 scalar MPI_ERR_PORT Param 472 I(4) 4 scalar MPI_ERR_QUOTA Param 476 I(4) 4 scalar MPI_ERR_RANK Param 398 I(4) 4 scalar MPI_ERR_READ_ONLY Param 436 I(4) 4 scalar MPI_ERR_REQUEST Param 480 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 402 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 406 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 422 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 484 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 474 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 386 I(4) 4 scalar MPI_ERR_ROOT Param 418 I(4) 4 scalar MPI_ERR_SERVICE Param 394 I(4) 4 scalar MPI_ERR_SIZE Param 404 I(4) 4 scalar MPI_ERR_SPAWN Param 464 I(4) 4 scalar MPI_ERR_TAG Param 494 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 498 I(4) 4 scalar MPI_ERR_TRUNCATE Param 458 I(4) 4 scalar MPI_ERR_TYPE Param 462 I(4) 4 scalar MPI_ERR_UNKNOWN Param 496 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 420 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 470 I(4) 4 scalar MPI_ERR_WIN Param 490 I(4) 4 scalar MPI_FILE_NULL Param 562 I(4) 4 scalar MPI_FLOAT Param 724 I(4) 4 scalar MPI_FLOAT_INT Param 736 I(4) 4 scalar MPI_GRAPH Param 632 I(4) 4 scalar MPI_GROUP_EMPTY Param 556 I(4) 4 scalar MPI_GROUP_NULL Param 564 I(4) 4 scalar MPI_HOST Param 580 I(4) 4 scalar MPI_IDENT Param 504 I(4) 4 scalar MPI_INFO_ENV Param 576 I(4) 4 scalar Page 19 Source Listing READ_NHB 2025-03-12 18:22 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INFO_NULL Param 574 I(4) 4 scalar MPI_INT Param 716 I(4) 4 scalar MPI_INT16_T Param 750 I(4) 4 scalar MPI_INT32_T Param 752 I(4) 4 scalar MPI_INT64_T Param 754 I(4) 4 scalar MPI_INT8_T Param 748 I(4) 4 scalar MPI_INTEGER Param 656 I(4) 4 scalar 1015,1016,1017,1019,1465,1466 MPI_INTEGER1 Param 674 I(4) 4 scalar MPI_INTEGER16 Param 682 I(4) 4 scalar MPI_INTEGER2 Param 676 I(4) 4 scalar MPI_INTEGER4 Param 678 I(4) 4 scalar MPI_INTEGER8 Param 680 I(4) 4 scalar MPI_INTEGER_KIND Param 702 I(4) 4 scalar MPI_IO Param 582 I(4) 4 scalar MPI_KEYVAL_INVALID Param 620 I(4) 4 scalar MPI_LAND Param 532 I(4) 4 scalar MPI_LASTUSEDCODE Param 588 I(4) 4 scalar MPI_LB Param 670 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 642 I(4) 4 scalar MPI_LOCK_SHARED Param 644 I(4) 4 scalar MPI_LOGICAL Param 650 I(4) 4 scalar 1020 MPI_LONG Param 720 I(4) 4 scalar MPI_LONG_DOUBLE Param 728 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 746 I(4) 4 scalar MPI_LONG_INT Param 740 I(4) 4 scalar MPI_LONG_LONG Param 734 I(4) 4 scalar MPI_LONG_LONG_INT Param 730 I(4) 4 scalar MPI_LOR Param 536 I(4) 4 scalar MPI_LXOR Param 540 I(4) 4 scalar MPI_MAX Param 524 I(4) 4 scalar MPI_MAXLOC Param 546 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 614 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 602 I(4) 4 scalar MPI_MAX_INFO_KEY Param 608 I(4) 4 scalar MPI_MAX_INFO_VAL Param 610 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 616 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 606 I(4) 4 scalar MPI_MAX_PORT_NAME Param 604 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 612 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 846 I(4) 4 scalar MPI_MESSAGE_NULL Param 844 I(4) 4 scalar MPI_MIN Param 526 I(4) 4 scalar MPI_MINLOC Param 544 I(4) 4 scalar MPI_MODE_APPEND Param 870 I(4) 4 scalar MPI_MODE_CREATE Param 866 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 862 I(4) 4 scalar MPI_MODE_EXCL Param 868 I(4) 4 scalar MPI_MODE_NOCHECK Param 832 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 838 I(4) 4 scalar MPI_MODE_NOPUT Param 836 I(4) 4 scalar MPI_MODE_NOSTORE Param 834 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 840 I(4) 4 scalar MPI_MODE_RDONLY Param 856 I(4) 4 scalar MPI_MODE_RDWR Param 858 I(4) 4 scalar Page 20 Source Listing READ_NHB 2025-03-12 18:22 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_SEQUENTIAL Param 872 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 864 I(4) 4 scalar MPI_MODE_WRONLY Param 860 I(4) 4 scalar MPI_NO_OP Param 550 I(4) 4 scalar MPI_NULL_COPY_FN Subr 900 scalar MPI_NULL_DELETE_FN Subr 900 scalar MPI_OFFSET Param 776 I(4) 4 scalar MPI_OFFSET_KIND Param 698 I(4) 4 scalar MPI_OP_NULL Param 566 I(4) 4 scalar MPI_ORDER_C Param 880 I(4) 4 scalar MPI_ORDER_FORTRAN Param 882 I(4) 4 scalar MPI_PACKED Param 672 I(4) 4 scalar MPI_PROC_NULL Param 624 I(4) 4 scalar MPI_PROD Param 530 I(4) 4 scalar MPI_REAL Param 652 I(4) 4 scalar 1018,1153,1154,1155,1156,1157,1158 ,1159,1160,1161,1162,1163,1164,116 5,1166,1167,1168,1169,1170,1283,13 03,1304,1305,1306,1307,1320,1321,1 322,1323,1324,1325,1326,1327,1328, 1329,1330,1331,1332,1333,1334,1335 ,1336,1337,1338,1430,1448,1450,145 2,1453,1454,1455,1456,1457,1458,14 59,1460,1461,1462,1463,1464,1467,1 468,1469,1525,1534 MPI_REAL16 Param 688 I(4) 4 scalar MPI_REAL4 Param 684 I(4) 4 scalar MPI_REAL8 Param 686 I(4) 4 scalar MPI_REPLACE Param 548 I(4) 4 scalar MPI_REQUEST_NULL Param 570 I(4) 4 scalar MPI_ROOT Param 630 I(4) 4 scalar MPI_SEEK_CUR Param 876 I(4) 4 scalar MPI_SEEK_END Param 878 I(4) 4 scalar MPI_SEEK_SET Param 874 I(4) 4 scalar MPI_SHORT Param 712 I(4) 4 scalar MPI_SHORT_INT Param 742 I(4) 4 scalar MPI_SIGNED_CHAR Param 706 I(4) 4 scalar MPI_SIMILAR Param 508 I(4) 4 scalar MPI_SOURCE Param 373 I(4) 4 scalar MPI_STATUS_SIZE Param 375 I(4) 4 scalar 377,378,990 MPI_SUBARRAYS_SUPPORTED Param 894 L(4) 4 scalar MPI_SUBVERSION Param 640 I(4) 4 scalar MPI_SUCCESS Param 382 I(4) 4 scalar MPI_SUM Param 528 I(4) 4 scalar MPI_TAG Param 373 I(4) 4 scalar MPI_TAG_UB Param 578 I(4) 4 scalar MPI_THREAD_FUNNELED Param 850 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 854 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 852 I(4) 4 scalar MPI_THREAD_SINGLE Param 848 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 830 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 828 I(4) 4 scalar MPI_TYPECLASS_REAL Param 826 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 907 scalar MPI_TYPE_NULL_COPY_FN Subr 908 scalar MPI_TYPE_NULL_DELETE_FN Subr 907 scalar Page 21 Source Listing READ_NHB 2025-03-12 18:22 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UB Param 668 I(4) 4 scalar MPI_UINT16_T Param 758 I(4) 4 scalar MPI_UINT32_T Param 760 I(4) 4 scalar MPI_UINT64_T Param 762 I(4) 4 scalar MPI_UINT8_T Param 756 I(4) 4 scalar MPI_UNDEFINED Param 618 I(4) 4 scalar MPI_UNEQUAL Param 510 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 586 I(4) 4 scalar MPI_UNSIGNED Param 718 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 708 I(4) 4 scalar MPI_UNSIGNED_LONG Param 722 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 732 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 714 I(4) 4 scalar MPI_VERSION Param 638 I(4) 4 scalar MPI_WCHAR Param 710 I(4) 4 scalar MPI_WIN_BASE Param 592 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 598 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 596 I(4) 4 scalar MPI_WIN_DUP_FN Subr 905 scalar MPI_WIN_FLAVOR_ALLOCATE Param 514 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 512 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 516 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 518 I(4) 4 scalar MPI_WIN_MODEL Param 600 I(4) 4 scalar MPI_WIN_NULL Param 560 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 906 scalar MPI_WIN_NULL_DELETE_FN Subr 905 scalar MPI_WIN_SEPARATE Param 520 I(4) 4 scalar MPI_WIN_SIZE Param 594 I(4) 4 scalar MPI_WIN_UNIFIED Param 522 I(4) 4 scalar MPI_WTICK Func 901 R(8) 8 scalar MPI_WTIME Func 901 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 584 I(4) 4 scalar MPPCOM Common 932 1724 SAVE NHB Dummy 3 I(4) 4 scalar ARG,INOUT 1007,1032,1045,1056,1087,1097,1107 ,1117,1128,1139,1147,1178,1188,119 8,1208,1218,1228,1238,1248,1258,12 68,1278,1290,1299,1313,1346,1356,1 366,1376,1386,1396,1406,1416,1426, 1439,1479,1491,1503,1513,1522,1531 NMAP Local 999 I(4) 4 scalar 999 NRADLH Local 1000 I(4) 4 scalar 1000 NRADSH Local 1000 I(4) 4 scalar 1000 NROOT Param 93 I(4) 4 scalar NSOIL Param 93 I(4) 4 scalar 346,347,348,1525,1534 PHYS Common 181 858036 SAVE PMPI_WTICK Func 902 R(8) 8 scalar PMPI_WTIME Func 902 R(8) 8 scalar PVRBLS Common 239 1946252 SAVE Q2INI Param 102 R(4) 4 scalar READ_NHB Subr 3 RUNB Local 119 L(4) 4 scalar SINGLRST Local 135 L(4) 4 scalar SOIL Common 340 581380 SAVE TCP Local 999 R(4) 4 scalar 999 Page 22 Source Listing READ_NHB 2025-03-12 18:22 Symbol Table READ_NHB.F Name Object Declared Type Bytes Dimen Elements Attributes References TDDAMP Local 1147 R(4) 4 scalar 1147,1159 TEMPCOM Common 973 6603768 SAVE TEND Local 999 R(4) 4 scalar 999 TOPO Common 981 17478548 SAVE TSTART Local 999 R(4) 4 scalar 999 VRBLS Common 219 4625508 SAVE Z0LAND Param 104 R(4) 4 scalar Z0SEA Param 104 R(4) 4 scalar TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 454968 2 6319 COM ACFRCV R(4) 4 8 2 6319 COM ACFRST R(4) 4 50560 2 6319 COM ACPREC R(4) 4 429692 2 6319 COM ACSNOM R(4) 4 25280 2 6319 COM ACSNOW R(4) 4 4 2 6319 COM ACUTIM R(4) 4 20 scalar COM AETA R(4) 4 396 1 45 COM 1148,1165 AETA1 R(4) 4 960 1 45 COM 1443,1468 AETA2 R(4) 4 264 1 45 COM 1315,1333 AFSI R(4) 4 1920976 2 6319 COM AKHS R(4) 4 227484 2 6319 COM AKMS R(4) 4 202208 2 6319 COM ALBASE R(4) 4 357388 2 6319 COM 1400 ALBEDO R(4) 4 382664 2 6319 COM ALSL R(4) 4 624 1 39 COM ALWIN R(4) 4 75840 2 6319 COM ALWOUT R(4) 4 101116 2 6319 COM ALWTOA R(4) 4 126392 2 6319 COM APHTIM R(4) 4 202220 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 75840 2 6319 COM ASWOUT R(4) 4 101116 2 6319 COM ASWTOA R(4) 4 126392 2 6319 COM AVCNVC R(4) 4 12 scalar COM AVRAIN R(4) 4 8 scalar COM BGROFF R(4) 4 75832 2 6319 COM CFRACH R(4) 4 75828 2 6319 COM CFRACL R(4) 4 25276 2 6319 COM CFRACM R(4) 4 50552 2 6319 COM CI R(4) 4 40 scalar COM 1313,1324 CLDEFI R(4) 4 379140 2 6319 COM CMC R(4) 4 252760 2 6319 COM CMLD R(4) 4 444 scalar COM 1441,1461 CNVBOT R(4) 4 256284 2 6319 COM CNVTOP R(4) 4 231008 2 6319 COM CPGFU R(4) 4 57756 2 6319 COM 1202 CPGFV R(4) 4 4 scalar COM 1147,1154 Page 23 Source Listing READ_NHB 2025-03-12 18:22 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 1313,1321 CUPPT R(4) 4 0 2 6319 COM CUPREC R(4) 4 480244 2 6319 COM CURV R(4) 4 83032 2 6319 COM 1212 CWM R(4) 4 0 3 284355 COM CWMB R(4) 4 1551264 3 77220 COM CZEN R(4) 4 155180 2 6319 COM CZMEAN R(4) 4 458492 2 6319 COM DDMPU R(4) 4 184136 2 6319 COM 1262 DDMPV R(4) 4 209412 2 6319 COM 1272 DETA R(4) 4 36 1 45 COM 1148,1163 DETA1 R(4) 4 780 1 45 COM 1443,1467 DETA2 R(4) 4 84 1 45 COM 1315,1332 DFL R(4) 4 940 1 46 COM 1148,1168 DFRLG R(4) 4 444 1 46 COM 1315,1334 DI R(4) 4 44 scalar COM 1313,1325 DISLP R(4) 4 460 scalar COM DIV R(4) 4 2325392 3 284355 COM DLMD R(4) 4 436 scalar COM 1441,1459 DP30 R(4) 4 448 scalar COM 1441,1462 DPHD R(4) 4 440 scalar COM 1441,1460 DS R(4) 4 32 scalar COM 1313,1322 DT R(4) 4 48 scalar COM 1009,1018 DTD R(4) 4 16 scalar COM DTQ2 R(4) 4 8 scalar COM DX R(4) 4 7204 2 6319 COM 1182 DY R(4) 4 0 scalar COM 1147,1153 EF4T R(4) 4 32 scalar COM 1148,1162 EM R(4) 4 1124 1 760 COM 1149,1169 EMT R(4) 4 4164 1 760 COM 1149,1170 EN R(4) 4 8 scalar COM 1147,1155 ENT R(4) 4 12 scalar COM 1147,1156 EPSR R(4) 4 28800 2 6319 COM 1360 ERLAM0 R(4) 4 1720 scalar COM ETA R(4) 4 756 1 46 COM 1148,1167 ETA1 R(4) 4 1140 1 46 COM 1443,1469 ETADT R(4) 4 3462812 3 278036 COM F R(4) 4 158860 2 6319 COM 1252 F4D R(4) 4 24 scalar COM 1148,1160 F4Q R(4) 4 28 scalar COM 1148,1161 F4Q2 R(4) 4 576 1 45 COM 1148,1166 FAD R(4) 4 234688 2 6319 COM 1242 FCP R(4) 4 108308 2 6319 COM 1222 FDIV R(4) 4 133584 2 6319 COM 1232 FIRST L(4) 4 24 scalar COM FIS R(4) 4 4574956 2 6319 COM G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GFFC R(4) 4 306836 2 6319 COM 1380 GLAT R(4) 4 104628 2 6319 COM 1282 GLON R(4) 4 129904 2 6319 COM 1294 GRNFLX R(4) 4 101104 2 6319 COM HBM2 R(4) 4 2375944 2 6319 COM 1060 HBM3 R(4) 4 2401220 2 6319 COM 1067,1078 Page 24 Source Listing READ_NHB 2025-03-12 18:22 Symbol Table READ_NHB.F Name Type Bytes Offset Dimen Elements Attributes References HBOT R(4) 4 205732 2 6319 COM HDAC R(4) 4 407940 2 6319 COM 1410 HDACV R(4) 4 433216 2 6319 COM 1420 HTM R(4) 4 101104 3 284355 COM 1131 HTMG R(4) 4 743768 3 4183695 COM HTOP R(4) 4 180456 2 6319 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 828 1 21 COM IDAT I(4) 4 8 1 3 COM IDTAD I(4) 4 72 scalar COM 1009,1019 IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM IHE I(4) 4 0 1 89 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 356 1 89 COM IHWG I(4) 4 1548 1 387 COM 1074 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 1324 1 100 COM IOUT I(4) 4 44 scalar COM IQUILT_GROUP I(4) 4 1320 scalar COM IRAD I(4) 4 1424 1 71 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 202208 2 6319 COM 1507 ISLTYP I(4) 4 176932 2 6319 COM 1495 IS_GLB_TABLE I(4) 4 0 1 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM ITEMP I(4) 4 5870016 2 91719 COM 1032,1037,1045,1050,1479,1483,1491 ,1495,1503,1507 ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM IVE I(4) 4 712 1 89 COM IVEG I(4) 4 3096 1 387 COM IVGTYP I(4) 4 151656 2 6319 COM 1483 IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM IVW I(4) 4 1068 1 89 COM IVWG I(4) 4 4644 1 387 COM IXM I(4) 4 4 scalar COM 1442,1465 IYM I(4) 4 8 scalar COM 1442,1466 JBPAD1 I(4) 4 452 scalar COM Page 25 Source Listing READ_NHB 2025-03-12 18:22 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 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM JRA I(4) 4 12160 1 760 COM JS_GLB_TABLE I(4) 4 168 1 21 COM JS_LOC_TABLE I(4) 4 576 1 21 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 1163056 2 6319 COM LIST I(4) 4 40 scalar COM 1008,1017,1024 LMH I(4) 4 15200 2 6319 COM 1037 LMV I(4) 4 40476 2 6319 COM 1050 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 912 scalar COM 1015,1016,1017,1018,1019,1020,1022 ,1153,1154,1155,1156,1157,1158,115 9,1160,1161,1162,1163,1164,1165,11 66,1167,1168,1169,1170,1172,1283,1 303,1304,1305,1306,1307,1309,1320, 1321,1322,1323,1324,1325,1326,1327 ,1328,1329,1330,1331,1332,1333,133 4,1335,1336,1337,1338,1340,1431,14 33,1449,1451,1452,1453,1454,1455,1 456,1457,1458,1459,1460,1461,1462, 1463,1464,1465,1466,1467,1468,1469 ,1471,1525,1534 MPI_COMM_INTER I(4) 4 916 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 920 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 6319 COM 1350 MYIE I(4) 4 52 scalar COM 1066,1076 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:22 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 1066,1076 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 1065,1071 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 1065,1071 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:22 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 1004,1029,1042,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, 1436,1476,1488,1500,1512,1521,1530 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 1077 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 1072 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 1008,1016 NBOCO I(4) 4 76 scalar COM NCFRCV I(4) 4 25284 2 6319 COM NCFRST I(4) 4 75836 2 6319 COM NCLOD I(4) 4 4 scalar COM NCNVC I(4) 4 92 scalar COM 1000 NCP I(4) 4 84 scalar COM NEST I(4) 4 108 scalar COM NFCST I(4) 4 32 scalar COM 1008,1015 NHEAT I(4) 4 4 scalar COM NPES I(4) 4 4 scalar COM NPHS I(4) 4 88 scalar COM 1000 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:22 Symbol Table READ_NHB.F Name Type Bytes Offset Dimen Elements Attributes References OMGALF R(4) 4 1187972 3 284355 COM PCTSNO R(4) 4 126380 2 6319 COM PD R(4) 4 0 2 6319 COM PDB R(4) 4 0 2 1716 COM PDSL R(4) 4 0 2 6319 COM PL R(4) 4 48 scalar COM 1314,1326 PLQ R(4) 4 72 scalar COM 1299,1303 POTEVP R(4) 4 151668 2 6319 COM POTFLX R(4) 4 176944 2 6319 COM PREC R(4) 4 404416 2 6319 COM PSDT R(4) 4 25276 2 6319 COM PSHLTR R(4) 4 758280 2 6319 COM PT R(4) 4 20 scalar COM 1147,1158 PT1 R(4) 4 412 scalar COM 1440,1453 PT2 R(4) 4 4 scalar COM 1278,1283 PTBL R(4) 4 509044 2 10184 COM 1439,1448 Q R(4) 4 3437536 3 284355 COM Q10 R(4) 4 631900 2 6319 COM Q2 R(4) 4 783556 3 284355 COM Q2B R(4) 4 1242384 3 77220 COM Q30 R(4) 4 530796 2 6319 COM QB R(4) 4 315744 3 77220 COM QS R(4) 4 176932 2 6319 COM QS0 R(4) 4 628 1 134 COM 1316,1335 QSHLTR R(4) 4 733004 2 6319 COM QWBS R(4) 4 303312 2 6319 COM QZ0 R(4) 4 126380 2 6319 COM R R(4) 4 16 scalar COM 1147,1157 R1 R(4) 4 408 scalar COM 1440,1452 RADIN R(4) 4 54076 2 6319 COM RADOT R(4) 4 79352 2 6319 COM RDETA R(4) 4 216 1 45 COM 1148,1164 RDP R(4) 4 64 scalar COM 1314,1330 RDPQ R(4) 4 76 scalar COM 1299,1304 RDQ R(4) 4 56 scalar COM 1314,1328 RDTH R(4) 4 60 scalar COM 1314,1329 RDTHE R(4) 4 68 scalar COM 1314,1331 RDTHEQ R(4) 4 80 scalar COM 1299,1305 RES R(4) 4 4600232 2 6319 COM RESTRT L(4) 4 28 scalar COM 999 RF R(4) 4 252760 2 6319 COM RLWIN R(4) 4 12 2 6319 COM RLWOUT R(4) 4 25288 2 6319 COM RLWTOA R(4) 4 50564 2 6319 COM RLWTT R(4) 4 151668 3 284355 COM ROI R(4) 4 36 scalar COM 1313,1323 ROS R(4) 4 24 scalar COM 1313,1320 RSWIN R(4) 4 12 2 6319 COM RSWOUT R(4) 4 25288 2 6319 COM RSWTOA R(4) 4 50564 2 6319 COM RSWTT R(4) 4 151668 3 284355 COM RTDPTH R(4) 4 480260 1 4 COM 1531,1534 RTOP R(4) 4 50552 3 284355 COM RUN L(4) 4 4 scalar COM SBD R(4) 4 424 scalar COM 1441,1456 Page 29 Source Listing READ_NHB 2025-03-12 18:22 Symbol Table READ_NHB.F Name Type Bytes Offset Dimen Elements Attributes References SFCEVP R(4) 4 126392 2 6319 COM SFCEXC R(4) 4 25276 2 6319 COM SFCLHX R(4) 4 25288 2 6319 COM SFCSHX R(4) 4 12 2 6319 COM SFCUVX R(4) 4 101116 2 6319 COM SH2O R(4) 4 480276 3 25276 COM SI R(4) 4 353864 2 6319 COM SICE R(4) 4 75828 2 6319 COM 1121 SIGMA L(4) 4 0 scalar COM 1009,1020 SIGT4 R(4) 4 483768 2 6319 COM SLDPTH R(4) 4 480244 1 4 COM 1522,1525 SM R(4) 4 50552 2 6319 COM 1111 SMC R(4) 4 278036 3 25276 COM SMSTAV R(4) 4 50552 2 6319 COM SMSTOT R(4) 4 75828 2 6319 COM SNO R(4) 4 328588 2 6319 COM SNOPCX R(4) 4 75840 2 6319 COM SOILTB R(4) 4 0 2 6319 COM SPHI0 R(4) 4 1728 scalar COM SPL R(4) 4 468 1 39 COM 999 SQS R(4) 4 1164 1 134 COM 1316,1336 SR R(4) 4 1188332 2 6319 COM SSROFF R(4) 4 50556 2 6319 COM SST R(4) 4 332112 2 6319 COM 1390 STC R(4) 4 379140 3 25276 COM STHE R(4) 4 2004 1 76 COM 1316,1337 STHEQ R(4) 4 2916 1 152 COM 1299,1306 SUBPOST L(4) 4 104 scalar COM 999 SUBSHX R(4) 4 50564 2 6319 COM T R(4) 4 25276 3 284355 COM TB R(4) 4 6864 3 77220 COM TCLOD R(4) 4 0 scalar COM 1001 TCUCN R(4) 4 1137444 3 284355 COM TDTD R(4) 4 20 scalar COM TDTQ2 R(4) 4 12 scalar COM TEMP1 R(4) 4 0 2 91719 COM 1056,1060,1087,1091,1097,1101,1107 ,1111,1117,1121,1128,1131,1139,114 2,1178,1182,1188,1192,1198,1202,12 08,1212,1218,1222,1228,1232,1238,1 242,1248,1252,1258,1262,1268,1272, 1278,1282,1290,1294,1346,1350,1356 ,1360,1366,1370,1376,1380,1386,139 0,1396,1400,1406,1410,1416,1420,15 13,1516 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:22 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 281560 2 6319 COM 1370 TH10 R(4) 4 606624 2 6319 COM TH30 R(4) 4 505520 2 6319 COM THE0 R(4) 4 1700 1 76 COM 1316,1338 THE0Q R(4) 4 2308 1 152 COM 1299,1307 THEAT R(4) 4 0 scalar COM 1001 THL R(4) 4 52 scalar COM 1314,1327 THS R(4) 4 151656 2 6319 COM THZ0 R(4) 4 101104 2 6319 COM TLM0D R(4) 4 428 scalar COM 1441,1457 TPH0D R(4) 4 432 scalar COM 1441,1458 TPREC R(4) 4 0 scalar COM 1001 TRAIN R(4) 4 24 3 284355 COM TRDLW R(4) 4 0 scalar COM 1001 TRDSW R(4) 4 0 scalar COM 1001 TSHDE R(4) 4 1324 1 99 COM 999 TSHLTR R(4) 4 707728 2 6319 COM TSPH R(4) 4 416 scalar COM 1440,1454 TSRFC R(4) 4 0 scalar COM 1001 TTBL R(4) 4 549780 2 10184 COM 1439,1450 TTBLQ R(4) 4 590516 2 66880 COM 1426,1430 TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 278036 2 6319 COM U R(4) 4 1162696 3 284355 COM U00 R(4) 4 1137420 2 6319 COM U10 R(4) 4 657176 2 6319 COM U30 R(4) 4 556072 2 6319 COM UB R(4) 4 624624 3 77220 COM UL R(4) 4 1162696 1 90 COM USTAR R(4) 4 25276 2 6319 COM UZ0 R(4) 4 50552 2 6319 COM V R(4) 4 2300116 3 284355 COM V10 R(4) 4 682452 2 6319 COM V30 R(4) 4 581348 2 6319 COM VB R(4) 4 933504 3 77220 COM VBM2 R(4) 4 0 2 6319 COM 1091 VBM3 R(4) 4 25276 2 6319 COM 1101 VEGFRC R(4) 4 227484 2 6319 COM 1516 VTM R(4) 4 1238524 3 284355 COM 1142 VZ0 R(4) 4 75828 2 6319 COM WBD R(4) 4 420 scalar COM 1441,1455 WPDAR R(4) 4 32480 2 6319 COM 1192 X1P R(4) 4 452 scalar COM 1442,1463 Y1P R(4) 4 456 scalar COM 1442,1464 Z0 R(4) 4 0 2 6319 COM Z0SLP R(4) 4 464 scalar COM Page 31 Source Listing READ_NHB 2025-03-12 18:22 READ_NHB.F 1542 Page 32 Source Listing READ_NHB 2025-03-12 18:22 Subprograms/Common Blocks READ_NHB.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 283 101112 SAVE ACMCLH Common 276 2274864 SAVE ACMPRE Common 290 101108 SAVE ACMRDL Common 297 1289088 SAVE ACMRDS Common 306 1289088 SAVE ACMSFC Common 315 202224 SAVE BOCO Common 269 1860144 SAVE CLDWTR Common 325 1213608 SAVE CNVCLD Common 333 101104 SAVE CONTIN Common 229 4574956 SAVE CTLBLK Common 137 112 SAVE DYNAM Common 163 259964 SAVE GLB_TABLE Common 968 336 SAVE INDX Common 354 1708 SAVE INDXG Common 360 8084 SAVE LOOPS Common 145 65752 SAVE MAPOT Common 207 1732 SAVE MAPPINGS Common 987 5024 SAVE MASKS Common 152 2426496 SAVE MPIFCMB5 Common 914 4 SAVE MPIFCMB9 Common 915 4 SAVE MPIPRIV1 Common 919 28 SAVE MPIPRIV2 Common 921 24 SAVE MPIPRIVC Common 924 2 SAVE MPPCOM Common 932 1724 SAVE PHYS Common 181 858036 SAVE PVRBLS Common 239 1946252 SAVE READ_NHB Subr 3 SOIL Common 340 581380 SAVE TEMPCOM Common 973 6603768 SAVE TOPO Common 981 17478548 SAVE VRBLS Common 219 4625508 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:22 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:22 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