Page 1 Source Listing CHKOUT 2025-03-12 18:22 /tmp/ifort063RVu.i 1 # 1 "CHKOUT.F" 2 SUBROUTINE CHKOUT 3 C 4 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 5 C . . . 6 C SUBPROGRAM: CHKOUT POSTS PROFILES AND OUTPUT POST DATA 7 C PRGRMMR: TREADON ORG: W/NP2 DATE: 93-02-26 8 C 9 C ABSTRACT: THIS ROUTINE POSTS PROFILE DATA AND WRITES 10 C COMMON BLOCKS TO TEMPORARY FILE FOR USE BY THE POST 11 C PROCESSOR. OPTIONALLY, IF RUN UNDER PSHELL THIS 12 C ROUTINE WILL SUBMIT POST JOBS AS THE MODEL RUNS. 13 C THIS ROUTINE REPLACES ETA MODEL SUBROUTINE OUTMAP. 14 C . 15 C 16 C PROGRAM HISTORY LOG: 17 C 93-02-26 RUSS TREADON 18 C 93-08-30 RUSS TREADON - ADDED DOCBLOC AND DIAGNOSTIC PROFILES. 19 C 95-03-31 T BLACK - CONVERTED FROM 1-D TO 2-D IN HORIZONTAL. 20 C 95-07-31 MIKE BALDWIN - REMOVED SOUNDING DIAGNOSTICS AND BUFR. 21 C 96-03-13 F MESINGER - IMPROVED REDUCTION TO SEA LEVEL 22 C (TO ACHIEVE EXACT CONSISTENCY WITH THE 23 C MODEL'S HYDROSTATIC EQUATION NEXT TO 24 C MOUNTAIN SIDES) 25 C 96-04-12 MIKE BALDWIN - MODIFIED SOUNDING OUTPUT 26 C 96-10-31 T BLACK - MODIFICATIONS FOR GENERATIONS OF NEST'S BCs 27 C 98-11-17 T BLACK - MODIFIED FOR DISTRIBUTED MEMORY 28 C 99-05-03 T BLACK - SLP REDUCTION, BCEX, AND PROFILES REMOVED; 29 C EACH PE WRITES ITS OWN MINI-RESTRT FILE 30 C 00-08-01 JIM TUCCILLO - QUILT SERVER CAPABILITY ADDED 31 C 00-10-11 T BLACK - MODIFICATIONS FOR RESTART CAPABILITY 32 C 33 C 34 C USAGE: CALL CHKOUT 35 C INPUT ARGUMENT LIST: 36 C NONE 37 C 38 C OUTPUT ARGUMENT LIST: 39 C NONE 40 C 41 C OUTPUT FILES: 42 C NONE 43 C 44 C SUBPROGRAMS CALLED: 45 C UTILITIES: 46 C 47 C LIBRARY: NONE 48 C 49 C COMMON BLOCKS: OUTFIL 50 C CTLBLK 51 C LOOPS 52 C MASKS 53 C MAPOT 54 C VRBLS 55 C PVRBLS 56 C DYNAMD 57 C PHYS2 Page 2 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 58 C BOCO 59 C CNVCLD 60 C CLDWTR 61 C CUINIT 62 C ACMCLD 63 C ACMCLH 64 C ACMPRE 65 C ACMRDL 66 C ACMRDS 67 C ACMSFC 68 C SOIL 69 C PRFHLD 70 C TEMPV 71 C INDX 72 C 73 C ATTRIBUTES: 74 C LANGUAGE: FORTRAN 90 75 C MACHINE : IBM SP 76 C$$$ 77 C 78 C INCLUDE/DECLARE PARAMETERS. 79 C 80 INCLUDE "parmeta" 104 INCLUDE "parm.tbl" 106 INCLUDE "parmsoil" 108 INCLUDE "mpp.h" 167 INCLUDE "mpif.h" 168 # 1 "./sp.h" 1 169 # 4 170 171 # 85 "CHKOUT.F" 2 172 C-------------------------------------------------------------------- 734 P A R A M E T E R 735 & (IMJM=IM*JM-JM/2,IMT=2*IM-1,JMT=JM/2+1,LB=2*IM+JM-3) 736 C-------------------------------------------------------------------- 737 P A R A M E T E R 738 & (LM1=LM-1,LP1=LM+1,JAM=6+2*(JM-10) 739 &, NRLX1=250,NRLX2=100) 740 C-------------------------------------------------------------------- 741 P A R A M E T E R 742 & (CAPA=0.285896) 743 C-------------------------------------------------------------------- 744 C 745 C DECLARE VARIABLES. 746 C 747 C-------------------------------------------------------------------- 748 L O G I C A L 749 & RUN,FIRST,RESTRT,SIGMA,STDRD,MESO,ONHOUR,EXBC,NEST 750 C-------------------------------------------------------------------- 751 CHARACTER*2 FHR 752 CHARACTER*8 OUTJOB 753 CHARACTER*13 ASSIGN 754 CHARACTER*4 ASTMRK,TMYY 755 CHARACTER*15 SUBMIT 756 CHARACTER*32 LABEL 757 INTEGER LABINT(4) 758 EQUIVALENCE(LABEL, LABINT) Page 3 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 759 CHARACTER*80 LINE 760 CHARACTER*1 LINE1(80) 761 CHARACTER*4 RESTHR 762 EQUIVALENCE (LINE,LINE1) 763 C-------------------------------------------------------------------- 764 R E A L 765 & PSLP (IDIM1:IDIM2,JDIM1:JDIM2) 766 &,PDS (IDIM1:IDIM2,JDIM1:JDIM2) 767 &,FACTR (IDIM1:IDIM2,JDIM1:JDIM2) 768 &,SWTTC (IDIM1:IDIM2,JDIM1:JDIM2,LM) 769 &,TTND (IDIM1:IDIM2,JDIM1:JDIM2,LM) 770 C 771 I N T E G E R 772 & IKNTS(0:INPES*JNPES-1),IDISP(0:INPES*JNPES-1) 773 C 774 R E A L 775 &,ALLOCATABLE,DIMENSION(:,:,:) :: TEMPSOIL 776 C 777 C-------------------------------------------------------------------- 778 CHARACTER FINFIL*50,DONE*10 779 C-------------------------------------------------------------------- 780 C 781 C INCLUDE COMMON BLOCKS. 782 C 783 C-------------------------------------------------------------------- 784 INCLUDE "OUTFIL.comm" 790 INCLUDE "CTLBLK.comm" 800 INCLUDE "LOOPS.comm" 807 INCLUDE "MASKS.comm" 818 INCLUDE "MAPOT.comm" 830 INCLUDE "VRBLS.comm" 840 INCLUDE "PVRBLS.comm" 870 INCLUDE "DYNAMD.comm" 886 INCLUDE "PHYS2.comm" 914 INCLUDE "BOCO.comm" 921 INCLUDE "CNVCLD.comm" 928 INCLUDE "ACMCLD.comm" 935 INCLUDE "ACMCLH.comm" 942 INCLUDE "ACMPRE.comm" 949 INCLUDE "ACMRDL.comm" 958 INCLUDE "ACMRDS.comm" 967 INCLUDE "ACMSFC.comm" 977 INCLUDE "SOIL.comm" 990 INCLUDE "PRFHLD.comm" 994 INCLUDE "CLDWTR.comm" 1002 INCLUDE "INDX.comm" 1014 INCLUDE "CONTIN.comm" 1024 INCLUDE "TEMPV.comm" 1031 INCLUDE "BUFFER.comm" 1040 INCLUDE "QFLX.comm" 1064 INCLUDE "PPTASM.comm" 1065 !-------------------------------------------------------------------- 1089 COMMON /CUINIT/ CURAD 1090 save /cuinit/ 1091 LOGICAL CURAD 1092 C-------------------------------------------------------------------- 1093 C Page 4 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1094 C DECLARE EQUIVALENCES. 1095 C 1096 C-------------------------------------------------------------------- 1097 E Q U I V A L E N C E 1098 & (TTND (1,1,1),SWTTC(1,1,1)) 1099 C-------------------------------------------------------------------- 1100 I N T E G E R 1101 & JSTAT(MPI_STATUS_SIZE) 1102 C-------------------------------------------------------------------- 1103 REAL(8) SUMT(LM), 1104 & SUMT_0(LM), 1105 & SUMT2(LM), 1106 & SUMT2_0(LM) 1107 REAL(8) STDEV,RMS,TMEAN 1108 REAL TMAX(LM), TMAX_0(LM), TMIN(LM), TMIN_0(LM) 1109 REAL(8) STRWAIT, ENDWAIT, rtc 1110 INTEGER IHS 1111 DATA IHS/MPI_REQUEST_NULL/ 1112 INTEGER STATUS(MPI_STATUS_SIZE) 1113 INTEGER ISERVE 1114 C 1115 DATA ISERVE / 1 / 1116 C 1117 C-------------------------------------------------------------------- 1118 C*** 1119 C*** THE FOLLOWING ARE USED FOR TIMIMG PURPOSES ONLY 1120 C*** 1121 real*8 timef 1122 real nhb_tim,mpp_tim,init_tim 1123 common/timing/surfce_tim,nhb_tim,res_tim,exch_tim 1124 save /timing/ 1125 1126 common/timchk/slp_tim,gath_tim,wrt_tim,prof_tim 1127 1, bcex_tim,stat_tim 1128 save /timchk/ 1129 C*********************************************************************** 1130 C START CHKOUT HERE. 1131 C*********************************************************************** 1132 C*** 1133 C*** ON FIRST ENTRY INITIALIZE THE OUTPUT FILE TAG TO ZERO 1134 C*** AND DO PRELIMINARY PROFILE DATA ASSIGNMENTS 1135 C*** 1136 IF(NTSD.EQ.1)THEN 1137 ITAG=0 1138 C 1139 DO J=MYJS,MYJE 1140 DO I=MYIS,MYIE 1141 LMHK=LMH(I,J) 1142 TLL1=T(I,J,LMHK) 1143 TLMIN(I,J)=TLL1 1144 TLMAX(I,J)=TLL1 1145 ENDDO 1146 ENDDO 1147 ENDIF 1148 C*********************************************************************** 1149 C*** 1150 C*** UPDATE MAX AND MIN LOWEST LAYER TEMPS Page 5 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1151 C*** 1152 DO J=MYJS,MYJE 1153 DO I=MYIS,MYIE 1154 LMHK=LMH(I,J) 1155 TLL1=T(I,J,LMHK) 1156 IF(TLL1.LT.TLMIN(I,J))TLMIN(I,J)=TLL1 1157 IF(TLL1.GT.TLMAX(I,J))TLMAX(I,J)=TLL1 1158 ENDDO 1159 ENDDO 1160 C*********************************************************************** 1161 C*** 1162 C*** FIGURE OUT JUST WHERE IN THE FORECAST WE ARE. 1163 C*** 1164 NTSPH=INT(3600./DT+0.50) 1165 TIMES=(NTSD-1)*DT 1166 ONHOUR=.FALSE. 1167 IF((MOD(TIMES,3600.).EQ.0.).OR. 1168 1 (MOD(TIMES,3600.).GT.3600.-DT))ONHOUR=.TRUE. 1169 C------------------------------------------------------------------ 1170 C 1171 C IF THE CURRENT FORECAST TIME IS A FULL HOUR OR EQUALS 1172 C A FULL BLOWN POST TIME, THEN WRITE THE FIELDS. 1173 C IF NOT, EXIT THIS ROUTINE. 1174 C 1175 IF((NTSD.EQ.NSHDE).OR.ONHOUR)GO TO 100 1176 IF(NSTART.GT.0.AND.NSTART+1.EQ.NSHDE.AND. 1177 1 NTSD-1.EQ.NSHDE)GO TO 100 1178 ! 1179 !--- Begin: Initialize convective cloud fields for radiation before 1180 ! returning to EBU (Ferrier 23 Jan 02) 1181 ! 1182 IF (CURAD) THEN 1183 IF (MYPE .EQ. 0) THEN 1184 WRITE(0,"(a)") 'CHKOUT: Initialize CUPPT,HTOP,HBOT' 1185 WRITE(6,"(a)") 'CHKOUT: Initialize CUPPT,HTOP,HBOT' 1186 ENDIF 1187 DO J=MYJS,MYJE 1188 DO I=MYIS,MYIE 1189 CUPPT(I,J)=0. 1190 HTOP(I,J)=100. 1191 HBOT(I,J)=0. 1192 ENDDO 1193 ENDDO 1194 CURAD=.FALSE. 1195 ENDIF 1196 ! 1197 !--- End: 1198 ! 1199 RETURN 1200 C 1201 C IT IS TIME TO WRITE TO THE PROFILE FILE AND/OR WRITE 1202 C TEMPORARY FILES FOR A FULL BLOWN POST. 1203 C 1204 100 CONTINUE 1205 C--------------------------------------------------------------------- 1206 C 1207 C SET FORECAST HOUR. Page 6 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1208 C 1209 IHR=NTSD/TSPH+0.5 1210 C-------------------------------------------------------------------- 1211 C*** IF THIS IS NOT A FULL BLOWN OUTPUT TIME, 1212 C*** SKIP THE RESTART FILE AND POST JOB WRITES AND GO TO SECTION 1213 C*** WHERE ACCUMULATION ARRAYS ARE ZEROED OUT IF NECESSARY. 1214 C-------------------------------------------------------------------- 1215 C 1216 IF(NTSD.NE.NSHDE.AND.NSTART+1.NE.NSHDE)GO TO 1310 1217 C 1218 C-------------------------------------------------------------------- 1219 C*** 1220 C*** COMPUTE TEMPERATURE STATISTICS 1221 C*** 1222 C-------------------------------------------------------------------- 1223 btim0=timef() 1224 DO 1100 L=1,LM 1225 C 1226 TMAX(L)=-1.E6 1227 TMIN(L)=1.E6 1228 SUMT(L)=0. 1229 SUMT2(L)=0. 1230 C 1231 JJ=0 1232 DO J=MY_JS_GLB,MY_JE_GLB 1233 JJ=JJ+1 1234 IF(MOD(J+1,2).NE.0.and.MY_IE_GLB.EQ.IM)THEN 1235 IMAX=MY_IE_LOC-1 1236 ELSE 1237 IMAX=MY_IE_LOC 1238 ENDIF 1239 DO I=MYIS,IMAX 1240 SUMT(L)=SUMT(L)+T(I,JJ,L) 1241 SUMT2(L)=SUMT2(L)+T(I,JJ,L)**2 1242 TMAX(L)=AMAX1(TMAX(L),T(I,JJ,L)) 1243 TMIN(L)=AMIN1(TMIN(L),T(I,JJ,L)) 1244 ENDDO 1245 ENDDO 1246 1100 CONTINUE 1247 C 1248 C*** GLOBAL STATS 1249 C 1250 CALL MPI_REDUCE(SUMT,SUMT_0,LM,MPI_REAL8,MPI_SUM,0, 1251 1 MPI_COMM_COMP,IRTN) 1252 CALL MPI_REDUCE(SUMT2,SUMT2_0,LM,MPI_REAL8,MPI_SUM,0, 1253 1 MPI_COMM_COMP,IRTN) 1254 CALL MPI_REDUCE(TMAX,TMAX_0,LM,MPI_REAL,MPI_MAX,0, 1255 1 MPI_COMM_COMP,IRTN) 1256 CALL MPI_REDUCE(TMIN,TMIN_0,LM,MPI_REAL,MPI_MIN,0, 1257 1 MPI_COMM_COMP,IRTN) 1258 C 1259 C 1260 IF(MYPE.EQ.0)THEN 1261 DO L=1,LM 1262 TMEAN=SUMT_0(L)/DBLE(IMJM) 1263 STDEV=DSQRT((DBLE(IMJM)*SUMT2_0(L)-SUMT_0(L)**2)/ 1264 1 DBLE(DBLE(IMJM)*(DBLE(IMJM-1)))) Page 7 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1265 RMS =DSQRT(SUMT2_0(L)/DBLE(IMJM)) 1266 WRITE(6,1094)L,TMAX_0(L),TMIN_0(L) 1267 WRITE(6,1095)TMEAN,STDEV,RMS 1268 1094 FORMAT(' LAYER=',I2,' TMAX=',E13.6,' TMIN=',E13.6) 1269 1095 FORMAT(9X,' TMEAN=',E13.6,' STDEV=',E13.6, 1270 1 ' RMS=',E13.6) 1271 ENDDO 1272 ENDIF 1273 C 1274 stat_tim=stat_tim+timef()-btim0 1275 C 1276 C---------------------------------------------------------------------- 1277 C*** WE REACH THE CODE BELOW ONLY IF IT IS A FULL BLOWN POSTING TIME. 1278 C*** WRITE DATA REQUIRED TO RESTART THE MODEL/INITIALIZE THE POST. 1279 C---------------------------------------------------------------------- 1280 CALL MPI_BARRIER(MPI_COMM_COMP,ISTAT) 1281 C 1282 C PDS IS SURFACE PRESSURE. 1283 C TSHLTR HOLDS THE 2M THETA, CONVERT TO TEMPERATURE. 1284 C TERM1 IS 2m*G/(Rd*T) 1285 C 1286 !$omp parallel do 1287 DO J=MYJS,MYJE 1288 DO I=MYIS,MYIE 1289 LLMH=LMH(I,J) 1290 PDS(I,J)=PD(I,J)+PT 1291 TERM1=-0.068283/T(I,J,LLMH) 1292 PSHLTR(I,J)=PDS(I,J)*EXP(TERM1) 1293 TSHLTR(I,J)=TSHLTR(I,J)*(PSHLTR(I,J)*1.E-5)**CAPA 1294 C 1295 IF(CZMEAN(I,J).GT.0.)THEN 1296 FACTR(I,J)=CZEN(I,J)/CZMEAN(I,J) 1297 ELSE 1298 FACTR(I,J)=0. 1299 ENDIF 1300 C 1301 ENDDO 1302 ENDDO 1303 C 1304 C MAKE SURE POST DOES NOT BLOW UP WHEN COMPUTING RH 1305 C ON THE GLOBAL N/S BOUNDARIES 1306 C 1307 IF(MYPE.LT.INPES)THEN 1308 DO J=1,2 1309 DO I=MYIS,MYIE 1310 TSHLTR(I,J)=TSHLTR(I,3) 1311 QSHLTR(I,J)=QSHLTR(I,3) 1312 ENDDO 1313 ENDDO 1314 ENDIF 1315 IF(MYPE.GE.NPES-INPES)THEN 1316 DO J=MYJE-1,MYJE 1317 DO I=MYIS,MYIE 1318 TSHLTR(I,J)=TSHLTR(I,MYJE-2) 1319 QSHLTR(I,J)=QSHLTR(I,MYJE-2) 1320 ENDDO 1321 ENDDO Page 8 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1322 ENDIF 1323 C 1324 C SWTTC IS THE CURRENT SW TEMP TENDENCIES. 1325 C 1326 !$omp parallel do 1327 DO L=1,LM 1328 DO J=MYJS,MYJE 1329 DO I=MYIS,MYIE 1330 SWTTC(I,J,L)=RSWTT(I,J,L)*FACTR(I,J) 1331 ENDDO 1332 ENDDO 1333 ENDDO 1334 C 1335 C*** TTND IS THE CURRENT RAD TEMP TENDENCIES. 1336 C 1337 DO L=1,LM 1338 DO J=MYJS,MYJE 1339 DO I=MYIS,MYIE 1340 TTND(I,J,L)=RLWTT(I,J,L)+SWTTC(I,J,L) 1341 ENDDO 1342 ENDDO 1343 ENDDO 1344 C*** 1345 C*** CREATE NAME FOR RESTART FILE. 1346 C*** 1347 c IF(MYPE.EQ.0)THEN 1348 C 1349 ITAG=NTSD/TSPH+0.5 1350 CALL get_environment_variable("tmmark",RESTHR) 1351 IF(RESTHR.EQ.' ')THEN 1352 c WRITE(RSTFIL,1150)ITAG,MYPE 1353 c1150 FORMAT('restrt',I2.2 1354 c 1, '.',I3.3) 1355 WRITE(RSTFIL,1150)ITAG 1356 1150 FORMAT('restrt',I2.2 1357 1, '.quilt') 1358 ELSE 1359 c WRITE(RSTFIL,1155)ITAG,MYPE,RESTHR 1360 c1155 FORMAT('restrt',I2.2 1361 c 1, '.',I3.3,'.',a4) 1362 WRITE(RSTFIL,1155)ITAG,RESTHR 1363 1155 FORMAT('restrt',I2.2 1364 1, '.quilt.',a4) 1365 ENDIF 1366 C*** 1367 C*** OPEN UNIT TO RESTART FILE. 1368 C*** 1369 C wne LRSTRT=8 1370 LRSTRT=81 1371 c 1372 wrt_tim=0. 1373 btimw=timef() 1374 btim0=timef() 1375 c 1376 CLOSE(LRSTRT) 1377 c OPEN(UNIT=LRSTRT,FILE=RSTFIL,FORM='UNFORMATTED',IOSTAT=IER) 1378 c IF(IER.NE.0)WRITE(LIST,*)' LRSTRT OPEN UNIT ERROR IER=',IER Page 9 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1379 C 1380 C BE SURE THAT THE BUFFER IF AVAILABLE 1381 C 1382 STRWAIT = rtc() 1383 CALL MPI_WAIT(IHS,STATUS,IERR) 1384 ENDWAIT = rtc() - STRWAIT 1385 C 1386 IF(MYPE.EQ.0)THEN 1387 IF(ENDWAIT.GE.1.)THEN 1388 PRINT*,' Appears to be wait time in CHKOUT, time = ' 1389 1, ENDWAIT 1390 ENDIF 1391 ENDIF 1392 C 1393 C PLACEHOLDER FOR RECORD LENGTH 1394 CALL COAL(DUMMY,-1) 1395 C*** 1396 C*** WRITE DATE AND TIMESTEP INFORMATION TO RESTART FILE. 1397 C*** 1398 LABEL='OMEGA-ALPHA*DT/CP' 1399 c WRITE(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1400 print*,'rstfil=',rstfil 1401 print*,'idat,ihrst,ntsd=',idat,ihrst,ntsd 1402 CALL COAL(RUN,1) 1403 CALL COAL(IDAT,3) 1404 CALL COAL(IHRST,1) 1405 CALL COAL(NTSD,1) 1406 CALL COAL(LABEL,8) 1407 c ENDIF 1408 C---------------------------------------------------------------------- 1409 C*** 1410 C*** BEGIN WRITING THE RESTRT FILE 1411 C*** 1412 C---------------------------------------------------------------------- 1413 C 1414 c WRITE(LRSTRT)((PD(I,J),I=1,MYIE),J=1,MYJE) 1415 c 1, ((RES(I,J),I=1,MYIE),J=1,MYJE) 1416 CALL COAL(PD(1:MYIE,1:MYJE),MYIE*MYJE) 1417 CALL COAL(RES(1:MYIE,1:MYJE),MYIE*MYJE) 1418 C---------------------------------------------------------------------- 1419 C 1420 DO L=1,LM 1421 c WRITE(LRSTRT)((OMGALF(I,J,L),I=1,MYIE),J=1,MYJE) 1422 CALL COAL(OMGALF(1:MYIE,1:MYJE,L),MYIE*MYJE) 1423 ENDDO 1424 c rec46 1425 C 1426 LABEL = 'BND,PD,RES,T,Q,U,V,Q2,TTND,CWM,TRAIN,TCUCN' 1427 c WRITE(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1428 c 1, FIRST,IOUT,NSHDE 1429 CALL COAL(RUN,1) 1430 CALL COAL(IDAT,3) 1431 CALL COAL(IHRST,1) 1432 CALL COAL(NTSD,1) 1433 CALL COAL(LABEL,8) 1434 CALL COAL(FIRST,1) 1435 CALL COAL(IOUT,1) Page 10 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1436 CALL COAL(NSHDE,1) 1437 c rec47 1438 C---------------------------------------------------------------------- 1439 C 1440 c WRITE(LRSTRT)((PD(I,J),I=1,MYIE),J=1,MYJE) 1441 c 1, ((RES(I,J),I=1,MYIE),J=1,MYJE) 1442 c 2, ((FIS(I,J),I=1,MYIE),J=1,MYJE) 1443 CALL COAL(PD(1:MYIE,1:MYJE),MYIE*MYJE) 1444 CALL COAL(RES(1:MYIE,1:MYJE),MYIE*MYJE) 1445 CALL COAL(FIS(1:MYIE,1:MYJE),MYIE*MYJE) 1446 CCCCC 1447 CCCCC 1448 CCCCC BOUNDARY CONDITION WRITE CHANGED TO BLANK RECORD 1449 CCCCC 1450 CCCCC 1451 c WRITE(LRSTRT) 1452 CALL COAL(PDB,LB*2) 1453 CALL COAL(TB,LB*LM*2) 1454 CALL COAL(QB,LB*LM*2) 1455 CALL COAL(UB,LB*LM*2) 1456 CALL COAL(VB,LB*LM*2) 1457 CALL COAL(Q2B,LB*LM*2) 1458 CALL COAL(CWMB,LB*LM*2) 1459 c rec48 1460 C---------------------------------------------------------------------- 1461 C 1462 DO L = 1,LM 1463 c WRITE(LRSTRT)((T(I,J,L),I=1,MYIE),J=1,MYJE) 1464 CALL COAL(T(1:MYIE,1:MYJE,L),MYIE*MYJE) 1465 C 1466 c WRITE(LRSTRT)((Q(I,J,L),I=1,MYIE),J=1,MYJE) 1467 CALL COAL(Q(1:MYIE,1:MYJE,L),MYIE*MYJE) 1468 C 1469 c WRITE(LRSTRT)((U(I,J,L),I=1,MYIE),J=1,MYJE) 1470 CALL COAL(U(1:MYIE,1:MYJE,L),MYIE*MYJE) 1471 C 1472 c WRITE(LRSTRT)((V(I,J,L),I=1,MYIE),J=1,MYJE) 1473 CALL COAL(V(1:MYIE,1:MYJE,L),MYIE*MYJE) 1474 C 1475 c WRITE(LRSTRT)((Q2(I,J,L),I=1,MYIE),J=1,MYJE) 1476 CALL COAL(Q2(1:MYIE,1:MYJE,L),MYIE*MYJE) 1477 C 1478 c WRITE(LRSTRT)((TTND(I,J,L),I=1,MYIE),J=1,MYJE) 1479 CALL COAL(TTND(1:MYIE,1:MYJE,L),MYIE*MYJE) 1480 C 1481 c WRITE(LRSTRT)((CWM(I,J,L),I=1,MYIE),J=1,MYJE) 1482 CALL COAL(CWM(1:MYIE,1:MYJE,L),MYIE*MYJE) 1483 C 1484 c WRITE(LRSTRT)((TRAIN(I,J,L),I=1,MYIE),J=1,MYJE) 1485 CALL COAL(TRAIN(1:MYIE,1:MYJE,L),MYIE*MYJE) 1486 C 1487 c WRITE(LRSTRT)((TCUCN(I,J,L),I=1,MYIE),J=1,MYJE) 1488 CALL COAL(TCUCN(1:MYIE,1:MYJE,L),MYIE*MYJE) 1489 ENDDO 1490 c rec453 1491 C---------------------------------------------------------------------- 1492 C Page 11 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1493 LABEL = 'MISC VARIABLES' 1494 c WRITE(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1495 c 1, ((RSWIN(I,J),I=1,MYIE),J=1,MYJE) 1496 c 2, ((RSWOUT(I,J),I=1,MYIE),J=1,MYJE) 1497 c 3, ((TG(I,J),I=1,MYIE),J=1,MYJE) 1498 c 4, ((Z0(I,J),I=1,MYIE),J=1,MYJE) 1499 c 5, ((AKMS(I,J),I=1,MYIE),J=1,MYJE) 1500 c 6, ((CZEN(I,J),I=1,MYIE),J=1,MYJE) 1501 CALL COAL(RUN,1) 1502 CALL COAL(IDAT,3) 1503 CALL COAL(IHRST,1) 1504 CALL COAL(NTSD,1) 1505 CALL COAL(LABEL,8) 1506 CALL COAL(RSWIN(1:MYIE,1:MYJE),MYIE*MYJE) 1507 CALL COAL(RSWOUT(1:MYIE,1:MYJE),MYIE*MYJE) 1508 CALL COAL(TG(1:MYIE,1:MYJE),MYIE*MYJE) 1509 CALL COAL(Z0(1:MYIE,1:MYJE),MYIE*MYJE) 1510 CALL COAL(AKMS(1:MYIE,1:MYJE),MYIE*MYJE) 1511 CALL COAL(CZEN(1:MYIE,1:MYJE),MYIE*MYJE) 1512 1513 c rec454 1514 C---------------------------------------------------------------------- 1515 C 1516 c WRITE(LRSTRT)((AKHS(I,J),I=1,MYIE),J=1,MYJE) 1517 c 1, ((THS(I,J),I=1,MYIE),J=1,MYJE) 1518 c 2, ((QS(I,J),I=1,MYIE),J=1,MYJE) 1519 c 3, ((TWBS(I,J),I=1,MYIE),J=1,MYJE) 1520 c 4, ((QWBS(I,J),I=1,MYIE),J=1,MYJE) 1521 c 5, ((HBOT(I,J),I=1,MYIE),J=1,MYJE) 1522 c 6, ((CFRACL(I,J),I=1,MYIE),J=1,MYJE) 1523 CALL COAL(AKHS(1:MYIE,1:MYJE),MYIE*MYJE) 1524 CALL COAL(THS(1:MYIE,1:MYJE),MYIE*MYJE) 1525 CALL COAL(QS(1:MYIE,1:MYJE),MYIE*MYJE) 1526 CALL COAL(TWBS(1:MYIE,1:MYJE),MYIE*MYJE) 1527 CALL COAL(QWBS(1:MYIE,1:MYJE),MYIE*MYJE) 1528 CALL COAL(HBOT(1:MYIE,1:MYJE),MYIE*MYJE) 1529 CALL COAL(CFRACL(1:MYIE,1:MYJE),MYIE*MYJE) 1530 c rec455 1531 C---------------------------------------------------------------------- 1532 C 1533 c WRITE(LRSTRT)((THZ0(I,J),I=1,MYIE),J=1,MYJE) 1534 c 1, ((QZ0(I,J),I=1,MYIE),J=1,MYJE) 1535 c 2, ((UZ0(I,J),I=1,MYIE),J=1,MYJE) 1536 c 3, ((VZ0(I,J),I=1,MYIE),J=1,MYJE) 1537 c 4, ((USTAR(I,J),I=1,MYIE),J=1,MYJE) 1538 c 5, ((HTOP(I,J),I=1,MYIE),J=1,MYJE) 1539 c 6, ((CFRACM(I,J),I=1,MYIE),J=1,MYJE) 1540 CALL COAL(THZ0(1:MYIE,1:MYJE),MYIE*MYJE) 1541 CALL COAL(QZ0(1:MYIE,1:MYJE),MYIE*MYJE) 1542 CALL COAL(UZ0(1:MYIE,1:MYJE),MYIE*MYJE) 1543 CALL COAL(VZ0(1:MYIE,1:MYJE),MYIE*MYJE) 1544 CALL COAL(USTAR(1:MYIE,1:MYJE),MYIE*MYJE) 1545 CALL COAL(HTOP(1:MYIE,1:MYJE),MYIE*MYJE) 1546 CALL COAL(CFRACM(1:MYIE,1:MYJE),MYIE*MYJE) 1547 c rec456 1548 C---------------------------------------------------------------------- 1549 C Page 12 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1550 c WRITE(LRSTRT)((SNO(I,J),I=1,MYIE),J=1,MYJE) 1551 c 1, ((SI(I,J),I=1,MYIE),J=1,MYJE) 1552 c 2, ((CLDEFI(I,J),I=1,MYIE),J=1,MYJE) 1553 c 3, ((RF(I,J),I=1,MYIE),J=1,MYJE) 1554 c 4, ((PSLP(I,J),I=1,MYIE),J=1,MYJE) 1555 c 5, ((CUPPT(I,J),I=1,MYIE),J=1,MYJE) 1556 c 6, ((CFRACH(I,J),I=1,MYIE),J=1,MYJE) 1557 CALL COAL(SNO(1:MYIE,1:MYJE),MYIE*MYJE) 1558 CALL COAL(SI(1:MYIE,1:MYJE),MYIE*MYJE) 1559 CALL COAL(CLDEFI(1:MYIE,1:MYJE),MYIE*MYJE) 1560 CALL COAL(RF(1:MYIE,1:MYJE),MYIE*MYJE) 1561 CALL COAL(PSLP(1:MYIE,1:MYJE),MYIE*MYJE) 1562 CALL COAL(CUPPT(1:MYIE,1:MYJE),MYIE*MYJE) 1563 CALL COAL(CFRACH(1:MYIE,1:MYJE),MYIE*MYJE) 1564 c rec457 1565 C---------------------------------------------------------------------- 1566 C 1567 c WRITE(LRSTRT)((SOILTB(I,J),I=1,MYIE),J=1,MYJE) 1568 c 1, ((SFCEXC(I,J),I=1,MYIE),J=1,MYJE) 1569 c 2, ((SMSTAV(I,J),I=1,MYIE),J=1,MYJE) 1570 c 3, ((SMSTOT(I,J),I=1,MYIE),J=1,MYJE) 1571 c 4, ((GRNFLX(I,J),I=1,MYIE),J=1,MYJE) 1572 c 5, ((PCTSNO(I,J),I=1,MYIE),J=1,MYJE) 1573 CALL COAL(SOILTB(1:MYIE,1:MYJE),MYIE*MYJE) 1574 CALL COAL(SFCEXC(1:MYIE,1:MYJE),MYIE*MYJE) 1575 CALL COAL(SMSTAV(1:MYIE,1:MYJE),MYIE*MYJE) 1576 CALL COAL(SMSTOT(1:MYIE,1:MYJE),MYIE*MYJE) 1577 CALL COAL(GRNFLX(1:MYIE,1:MYJE),MYIE*MYJE) 1578 CALL COAL(PCTSNO(1:MYIE,1:MYJE),MYIE*MYJE) 1579 c rec458 1580 C---------------------------------------------------------------------- 1581 C 1582 c WRITE(LRSTRT)((RLWIN(I,J),I=1,MYIE),J=1,MYJE) 1583 c 1, ((RADOT(I,J),I=1,MYIE),J=1,MYJE) 1584 c 2, ((CZMEAN(I,J),I=1,MYIE),J=1,MYJE) 1585 c 3, ((SIGT4(I,J),I=1,MYIE),J=1,MYJE) 1586 CALL COAL(RLWIN(1:MYIE,1:MYJE),MYIE*MYJE) 1587 CALL COAL(RADOT(1:MYIE,1:MYJE),MYIE*MYJE) 1588 CALL COAL(CZMEAN(1:MYIE,1:MYJE),MYIE*MYJE) 1589 CALL COAL(SIGT4(1:MYIE,1:MYJE),MYIE*MYJE) 1590 c rec459 1591 C---------------------------------------------------------------------- 1592 C 1593 c WRITE(LRSTRT)((U00(I,J),I=1,MYIE),J=1,MYJE) 1594 c 1, UL 1595 c 2, ((LC(I,J),I=1,MYIE),J=1,MYJE) 1596 c 3, ((SR(I,J),I=1,MYIE),J=1,MYJE) 1597 CALL COAL(U00(1:MYIE,1:MYJE),MYIE*MYJE) 1598 CALL COAL(UL,2*LM) 1599 CALL COAL(LC(1:MYIE,1:MYJE),MYIE*MYJE) 1600 CALL COAL(SR(1:MYIE,1:MYJE),MYIE*MYJE) 1601 c rec460 1602 C---------------------------------------------------------------------- 1603 C 1604 LABEL = 'ACCUMULATED VARIABLES' 1605 c WRITE(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1606 c 1, ((PREC(I,J),I=1,MYIE),J=1,MYJE) Page 13 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1607 c 2, ((ACPREC(I,J),I=1,MYIE),J=1,MYJE) 1608 c 3, ((ACCLIQ(I,J),I=1,MYIE),J=1,MYJE) 1609 c 4, ((CUPREC(I,J),I=1,MYIE),J=1,MYJE) 1610 CALL COAL(RUN,1) 1611 CALL COAL(IDAT,3) 1612 CALL COAL(IHRST,1) 1613 CALL COAL(NTSD,1) 1614 CALL COAL(LABEL,8) 1615 CALL COAL(PREC(1:MYIE,1:MYJE),MYIE*MYJE) 1616 CALL COAL(ACPREC(1:MYIE,1:MYJE),MYIE*MYJE) 1617 CALL COAL(ACCLIQ(1:MYIE,1:MYJE),MYIE*MYJE) 1618 CALL COAL(CUPREC(1:MYIE,1:MYJE),MYIE*MYJE) 1619 c rec461 1620 C---------------------------------------------------------------------- 1621 C 1622 c WRITE(LRSTRT)((ACFRCV(I,J),I=1,MYIE),J=1,MYJE) 1623 c 1, ((NCFRCV(I,J),I=1,MYIE),J=1,MYJE) 1624 c 2, ((ACFRST(I,J),I=1,MYIE),J=1,MYJE) 1625 c 3, ((NCFRST(I,J),I=1,MYIE),J=1,MYJE) 1626 CALL COAL(ACFRCV(1:MYIE,1:MYJE),MYIE*MYJE) 1627 CALL COAL(NCFRCV(1:MYIE,1:MYJE),MYIE*MYJE) 1628 CALL COAL(ACFRST(1:MYIE,1:MYJE),MYIE*MYJE) 1629 CALL COAL(NCFRST(1:MYIE,1:MYJE),MYIE*MYJE) 1630 c rec462 1631 C---------------------------------------------------------------------- 1632 C 1633 c WRITE(LRSTRT)((ACSNOW(I,J),I=1,MYIE),J=1,MYJE) 1634 c 1, ((ACSNOM(I,J),I=1,MYIE),J=1,MYJE) 1635 c 2, ((SSROFF(I,J),I=1,MYIE),J=1,MYJE) 1636 c 3, ((BGROFF(I,J),I=1,MYIE),J=1,MYJE) 1637 CALL COAL(ACSNOW(1:MYIE,1:MYJE),MYIE*MYJE) 1638 CALL COAL(ACSNOM(1:MYIE,1:MYJE),MYIE*MYJE) 1639 CALL COAL(SSROFF(1:MYIE,1:MYJE),MYIE*MYJE) 1640 CALL COAL(BGROFF(1:MYIE,1:MYJE),MYIE*MYJE) 1641 c rec463 1642 C---------------------------------------------------------------------- 1643 C 1644 c WRITE(LRSTRT)((SFCSHX(I,J),I=1,MYIE),J=1,MYJE) 1645 c 1, ((SFCLHX(I,J),I=1,MYIE),J=1,MYJE) 1646 c 2, ((SUBSHX(I,J),I=1,MYIE),J=1,MYJE) 1647 c 3, ((SNOPCX(I,J),I=1,MYIE),J=1,MYJE) 1648 c 4, ((SFCUVX(I,J),I=1,MYIE),J=1,MYJE) 1649 c 5, ((SFCEVP(I,J),I=1,MYIE),J=1,MYJE) 1650 c 6, ((POTEVP(I,J),I=1,MYIE),J=1,MYJE) 1651 CALL COAL(SFCSHX(1:MYIE,1:MYJE),MYIE*MYJE) 1652 CALL COAL(SFCLHX(1:MYIE,1:MYJE),MYIE*MYJE) 1653 CALL COAL(SUBSHX(1:MYIE,1:MYJE),MYIE*MYJE) 1654 CALL COAL(SNOPCX(1:MYIE,1:MYJE),MYIE*MYJE) 1655 CALL COAL(SFCUVX(1:MYIE,1:MYJE),MYIE*MYJE) 1656 CALL COAL(SFCEVP(1:MYIE,1:MYJE),MYIE*MYJE) 1657 CALL COAL(POTEVP(1:MYIE,1:MYJE),MYIE*MYJE) 1658 c rec464 1659 C---------------------------------------------------------------------- 1660 C 1661 c WRITE(LRSTRT)((ASWIN(I,J),I=1,MYIE),J=1,MYJE) 1662 c 1, ((ASWOUT(I,J),I=1,MYIE),J=1,MYJE) 1663 c 2, ((ASWTOA(I,J),I=1,MYIE),J=1,MYJE) Page 14 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1664 c 3, ((ALWIN(I,J),I=1,MYIE),J=1,MYJE) 1665 c 4, ((ALWOUT(I,J),I=1,MYIE),J=1,MYJE) 1666 c 5, ((ALWTOA(I,J),I=1,MYIE),J=1,MYJE) 1667 CALL COAL(ASWIN(1:MYIE,1:MYJE),MYIE*MYJE) 1668 CALL COAL(ASWOUT(1:MYIE,1:MYJE),MYIE*MYJE) 1669 CALL COAL(ASWTOA(1:MYIE,1:MYJE),MYIE*MYJE) 1670 CALL COAL(ALWIN(1:MYIE,1:MYJE),MYIE*MYJE) 1671 CALL COAL(ALWOUT(1:MYIE,1:MYJE),MYIE*MYJE) 1672 CALL COAL(ALWTOA(1:MYIE,1:MYJE),MYIE*MYJE) 1673 C 1674 c WRITE(LRSTRT)ARDSW,ARDLW,ASRFC,AVRAIN,AVCNVC 1675 CALL COAL(ARDSW,1) 1676 CALL COAL(ARDLW,1) 1677 CALL COAL(ASRFC,1) 1678 CALL COAL(AVRAIN,1) 1679 CALL COAL(AVCNVC,1) 1680 c rec465 1681 C 1682 c WRITE(LRSTRT)((TH10(I,J),I=1,MYIE),J=1,MYJE) 1683 c 1, ((Q10(I,J),I=1,MYIE),J=1,MYJE) 1684 c 2, ((U10(I,J),I=1,MYIE),J=1,MYJE) 1685 c 3, ((V10(I,J),I=1,MYIE),J=1,MYJE) 1686 c 4, ((TSHLTR(I,J),I=1,MYIE),J=1,MYJE) 1687 c 5, ((QSHLTR(I,J),I=1,MYIE),J=1,MYJE) 1688 c 6, ((PSHLTR(I,J),I=1,MYIE),J=1,MYJE) 1689 c 1, ((TH30(I,J),I=1,MYIE),J=1,MYJE) 1690 c 2, ((Q30(I,J),I=1,MYIE),J=1,MYJE) 1691 c 3, ((U30(I,J),I=1,MYIE),J=1,MYJE) 1692 c 4, ((V30(I,J),I=1,MYIE),J=1,MYJE) 1693 CALL COAL(TH10(1:MYIE,1:MYJE),MYIE*MYJE) 1694 CALL COAL(Q10(1:MYIE,1:MYJE),MYIE*MYJE) 1695 CALL COAL(U10(1:MYIE,1:MYJE),MYIE*MYJE) 1696 CALL COAL(V10(1:MYIE,1:MYJE),MYIE*MYJE) 1697 CALL COAL(TSHLTR(1:MYIE,1:MYJE),MYIE*MYJE) 1698 CALL COAL(QSHLTR(1:MYIE,1:MYJE),MYIE*MYJE) 1699 CALL COAL(PSHLTR(1:MYIE,1:MYJE),MYIE*MYJE) 1700 CALL COAL(TH30(1:MYIE,1:MYJE),MYIE*MYJE) 1701 CALL COAL(Q30(1:MYIE,1:MYJE),MYIE*MYJE) 1702 CALL COAL(U30(1:MYIE,1:MYJE),MYIE*MYJE) 1703 CALL COAL(V30(1:MYIE,1:MYJE),MYIE*MYJE) 1704 c rec466 1705 C---------------------------------------------------------------------- 1706 C 1707 c WRITE(LRSTRT)(((SMC(I,J,N),I=1,MYIE),J=1,MYJE),N=1,NSOIL) 1708 CALL COAL(SMC(1:MYIE,1:MYJE,1:NSOIL),MYIE*MYJE*NSOIL) 1709 c rec467 1710 C---------------------------------------------------------------------- 1711 C 1712 c WRITE(LRSTRT)((CMC(I,J),I=1,MYIE),J=1,MYJE) 1713 CALL COAL(CMC(1:MYIE,1:MYJE),MYIE*MYJE) 1714 c rec468 1715 C---------------------------------------------------------------------- 1716 C 1717 c WRITE(LRSTRT)(((STC(I,J,N),I=1,MYIE),J=1,MYJE),N=1,NSOIL) 1718 CALL COAL(STC(1:MYIE,1:MYJE,1:NSOIL),MYIE*MYJE*NSOIL) 1719 c rec469 1720 C---------------------------------------------------------------------- Page 15 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1721 C 1722 c WRITE(LRSTRT)(((SH2O(I,J,N),I=1,MYIE),J=1,MYJE),N=1,NSOIL) 1723 CALL COAL(SH2O(1:MYIE,1:MYJE,1:NSOIL),MYIE*MYJE*NSOIL) 1724 c rec??? 1725 C---------------------------------------------------------------------- 1726 C 1727 c WRITE(LRSTRT)((ALBEDO(I,J),I=1,MYIE),J=1,MYJE) 1728 CALL COAL(ALBEDO(1:MYIE,1:MYJE),MYIE*MYJE) 1729 c rec??? 1730 C---------------------------------------------------------------------- 1731 C 1732 c WRITE(LRSTRT)((FQU(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1733 c 2, ((FQV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1734 c 3, ((DQFLX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1735 c 4, ((FCU(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1736 c 5, ((FCV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1737 c 6, ((DCFLX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1738 1739 c 7, ((FQU7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1740 c 8, ((FQV7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1741 c 9, ((DQFLX7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1742 c 0, ((FCU7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1743 c 1, ((FCV7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1744 c 2, ((DCFLX7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1745 1746 c 3, ((DQADV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1747 c 4, ((FQNEV1(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1748 c 5, ((FQSEV1(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1749 CALL COAL(FQU(1:MYIE,1:MYJE),MYIE*MYJE) 1750 CALL COAL(FQV(1:MYIE,1:MYJE),MYIE*MYJE) 1751 CALL COAL(DQFLX(1:MYIE,1:MYJE),MYIE*MYJE) 1752 CALL COAL(FCU(1:MYIE,1:MYJE),MYIE*MYJE) 1753 CALL COAL(FCV(1:MYIE,1:MYJE),MYIE*MYJE) 1754 CALL COAL(DCFLX(1:MYIE,1:MYJE),MYIE*MYJE) 1755 1756 CALL COAL(FQU7(1:MYIE,1:MYJE),MYIE*MYJE) 1757 CALL COAL(FQV7(1:MYIE,1:MYJE),MYIE*MYJE) 1758 CALL COAL(DQFLX7(1:MYIE,1:MYJE),MYIE*MYJE) 1759 CALL COAL(FCU7(1:MYIE,1:MYJE),MYIE*MYJE) 1760 CALL COAL(FCV7(1:MYIE,1:MYJE),MYIE*MYJE) 1761 CALL COAL(DCFLX7(1:MYIE,1:MYJE),MYIE*MYJE) 1762 1763 CALL COAL(DQADV(1:MYIE,1:MYJE),MYIE*MYJE) 1764 CALL COAL(FQNEV1(1:MYIE,1:MYJE),MYIE*MYJE) 1765 CALL COAL(FQSEV1(1:MYIE,1:MYJE),MYIE*MYJE) 1766 c rec??? 1767 C---------------------------------------------------------------------- 1768 C 1769 c WRITE(LRSTRT)((VAPINC(I,J),I=1,MYIE),J=1,MYJE) 1770 c 2, ((CLDINC(I,J),I=1,MYIE),J=1,MYJE) 1771 c 3, ((VAPINC7(I,J),I=1,MYIE),J=1,MYJE) 1772 c 4, ((CLDINC7(I,J),I=1,MYIE),J=1,MYJE) 1773 CALL COAL(VAPINC(1:MYIE,1:MYJE),MYIE*MYJE) 1774 CALL COAL(CLDINC(1:MYIE,1:MYJE),MYIE*MYJE) 1775 CALL COAL(VAPINC7(1:MYIE,1:MYJE),MYIE*MYJE) 1776 CALL COAL(CLDINC7(1:MYIE,1:MYJE),MYIE*MYJE) 1777 c rec??? Page 16 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1778 C---------------------------------------------------------------------- 1779 c WRITE(LRSTRT)((POTFLX(I,J),I=1,MYIE),J=1,MYJE) 1780 c 1, ((TLMIN(I,J),I=1,MYIE),J=1,MYJE) 1781 c 2, ((TLMAX(I,J),I=1,MYIE),J=1,MYJE) 1782 c 3, ACUTIM,ARATIM,APHTIM 1783 c 4, NHEAT,NPHS,NCNVC,NPREC,NRDSW,NRDLW,NSRFC 1784 c 5, TPH0D,TLM0D,RESTRT 1785 CALL COAL(POTFLX(1:MYIE,1:MYJE),MYIE*MYJE) 1786 CALL COAL(TLMIN(1:MYIE,1:MYJE),MYIE*MYJE) 1787 CALL COAL(TLMAX(1:MYIE,1:MYJE),MYIE*MYJE) 1788 CALL COAL(ACUTIM,1) 1789 CALL COAL(ARATIM,1) 1790 CALL COAL(APHTIM,1) 1791 CALL COAL(NHEAT,1) 1792 CALL COAL(NPHS,1) 1793 CALL COAL(NCNVC,1) 1794 CALL COAL(NPREC,1) 1795 CALL COAL(NRDSW,1) 1796 CALL COAL(NRDLW,1) 1797 CALL COAL(NSRFC,1) 1798 CALL COAL(TPH0D,1) 1799 CALL COAL(TLM0D,1) 1800 CALL COAL(RESTRT,1) 1801 c rec470 1802 C---------------------------------------------------------------------- 1803 DO L=1,LM 1804 c WRITE(LRSTRT)((RSWTT(I,J,L),I=1,MYIE),J=1,MYJE) 1805 c WRITE(LRSTRT)((RLWTT(I,J,L),I=1,MYIE),J=1,MYJE) 1806 CALL COAL(RSWTT(1:MYIE,1:MYJE,L),MYIE*MYJE) 1807 CALL COAL(RLWTT(1:MYIE,1:MYJE,L),MYIE*MYJE) 1808 ENDDO 1809 C 1810 DO L=1,LM 1811 c WRITE(LRSTRT)((T0(I,J,L),I=1,MYIE),J=1,MYJE) 1812 c WRITE(LRSTRT)((Q0(I,J,L),I=1,MYIE),J=1,MYJE) 1813 CALL COAL(T0(1:MYIE,1:MYJE,L),MYIE*MYJE) 1814 CALL COAL(Q0(1:MYIE,1:MYJE,L),MYIE*MYJE) 1815 ENDDO 1816 C 1817 c WRITE(LRSTRT)((P0(I,J),I=1,MYIE),J=1,MYJE) 1818 CALL COAL(P0(1:MYIE,1:MYJE),MYIE*MYJE) 1819 C 1820 c WRITE(LRSTRT)((CNVBOT(I,J),I=1,MYIE),J=1,MYJE) 1821 c WRITE(LRSTRT)((CNVTOP(I,J),I=1,MYIE),J=1,MYJE) 1822 CALL COAL(CNVBOT(1:MYIE,1:MYJE),MYIE*MYJE) 1823 CALL COAL(CNVTOP(1:MYIE,1:MYJE),MYIE*MYJE) 1824 C 1825 c WRITE(LRSTRT)((RSWTOA(I,J),I=1,MYIE),J=1,MYJE) 1826 c WRITE(LRSTRT)((RLWTOA(I,J),I=1,MYIE),J=1,MYJE) 1827 CALL COAL(RSWTOA(1:MYIE,1:MYJE),MYIE*MYJE) 1828 CALL COAL(RLWTOA(1:MYIE,1:MYJE),MYIE*MYJE) 1829 c rec560 1830 C---------------------------------------------------------------------- 1831 C AT THIS POINT WE HAVE ACCUMULATED ALL OF THE DATA INTO BUF. 1832 C WE WANT TO KNOW THE MAXIMUM AMOUNT ACROSS ALL MPI TASKS 1833 C THIS IS USEFUL IN CASE WE DECIDE TO WRITE A FILE 1834 C INSTEAD OF SENDING THE DATA TO THE I/O SERVERS Page 17 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1835 C 1836 CALL MPI_ALLREDUCE(IP,IPMAX,1,MPI_INTEGER,MPI_MAX, 1837 * MPI_COMM_COMP,IERR) 1838 C 1839 C IPMAX IS THE MAXIMUM NUMBER OF 4 BYTE REALS ACROSS 1840 C THE MPI TASKS 1841 C LETS COMPUTE A RECLEN THAT IS A MULTIPLE OF 2**18 BYTES 1842 C WE WILL USE THIS WHEN OPENING THE DIRECT ACCESS FILE 1843 C 1844 IBLOCK = ((IPMAX*4)/(2**18) ) + 1 1845 IRECLEN = IBLOCK * ( 2**18 ) 1846 C 1847 C WE WILL PLACE THE RECLEN IN THE BEGINNING OF THE FILE 1848 C THIS IS HANDY 1849 C 1850 CALL REPLACE(IRECLEN,1,1) 1851 C 1852 C IF WE HAVE ANY I/O SERVERS WE WILL SEND THE DATA TO THEM 1853 C FOR PROCESSING 1854 C 1855 IF ( IQUILT_GROUP .GT. 0 ) THEN 1856 C 1857 IF ( MYPE .EQ. 0 ) THEN 1858 CALL MPI_SEND 1859 * (ITAG,1,MPI_INTEGER,0,0,MPI_COMM_INTER_ARRAY(ISERVE),IERR) 1860 ENDIF 1861 C 1862 DO I = 0, INUMQ(ISERVE) -1 1863 CALL PARA_RANGE(0, jnpes-1, INUMQ(ISERVE), I, ISTART, IEND) 1864 cwas call para_range(0, NPES-1,inumq(iserve), i, istart, iend) 1865 MYPE_ROW = MYPE / INPES 1866 C 1867 IF(MYPE_ROW .GE. ISTART .AND. MYPE_ROW .LE. IEND )THEN 1868 CALL MPI_ISEND 1869 * (BUF,IP,mpi_real,I,ITAG,MPI_COMM_INTER_ARRAY(ISERVE),IHS,IERR) 1870 ENDIF 1871 C 1872 ENDDO 1873 C 1874 C IN CASE WE HAVE MULTIPLE GROUPS OF I/O SERVERS, INCREMENT TO THE 1875 C NEXT SERVER FOR THE NEXT OUTPUT TIME 1876 C 1877 ISERVE = ISERVE + 1 1878 IF ( ISERVE .GT. IQUILT_GROUP ) ISERVE = 1 1879 C 1880 C APPARENTLY, WE HAVE CHOSEN NOT TO SUPPLY ANY I/O SERVERS 1881 C WE WILL WRITE A DIRECT ACCESS FILE INSTEAD 1882 C 1883 ELSE 1884 C 1885 OPEN(UNIT=LRSTRT,FILE=RSTFIL,FORM='UNFORMATTED',IOSTAT=IER, 1886 * ACCESS='DIRECT',RECL=IRECLEN) 1887 IF(IER.NE.0)WRITE(LIST,*)' LRSTRT OPEN UNIT ERROR IER=',IER 1888 C 1889 WRITE(LRSTRT,REC=MYPE+1) (BUF(I),I=1,IP) 1890 CLOSE(LRSTRT) 1891 C Page 18 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1892 ENDIF 1893 c 1894 dif_tim=timef()-btim0 1895 wrt_tim=wrt_tim+dif_tim 1896 call mpi_reduce(wrt_tim,wrt_tim_0,1,MPI_REAL,MPI_MAX,0, 1897 1 MPI_COMM_COMP,ierr) 1898 if(mype.eq.0)then 1899 write(6,*)' SHIPPED OR WROTE DATA, TIME = ', 1900 * wrt_tim_0*1.e-03 1901 endif 1902 CALL MPI_BARRIER(MPI_COMM_COMP,ISTAT) 1903 C*** 1904 C*** SEND SIGNAL THAT ALL TASKS HAVE FINISHED WRITING 1905 C*** 1906 IF(IQUILT_GROUP.EQ.0)THEN 1907 IF(MYPE.EQ.0)THEN 1908 DONE='DONE' 1909 WRITE(FINFIL,1190)ITAG,RESTHR 1910 1190 FORMAT('fcstdone',I2.2,'.',A4) 1911 LFINFIL=91 1912 CLOSE(LFINFIL) 1913 OPEN(UNIT=LFINFIL,FILE=FINFIL,FORM='UNFORMATTED',IOSTAT=IER) 1914 WRITE(LFINFIL)DONE 1915 CLOSE(LFINFIL) 1916 IF(IER.NE.0)WRITE(LIST,*)' SIGNAL SENT TO FINFIL: DONE' 1917 ENDIF 1918 ENDIF 1919 C---------------------------------------------------------------------- 1920 C 1921 C*** RESET ACCUMULATION COUNTERS TO ZERO. 1922 C 1923 APHTIM=0. 1924 ACUTIM=0. 1925 ARATIM=0. 1926 C---------------------------------------------------------------------- 1927 C*** 1928 C*** EDIT POST JOB SCRIPT TO ACCESS DATA JUST WRITTEN. 1929 C*** 1930 C---------------------------------------------------------------------- 1931 IF(MYPE.EQ.0)THEN 1932 CALL get_environment_variable("tmmark",ASTMRK) 1933 IF(ASTMRK.EQ.' ')THEN 1934 WRITE(ASSIGN,1200)ITAG 1935 1200 FORMAT('.assign',I2.2) 1936 ELSE 1937 WRITE(ASSIGN,1230)ITAG,ASTMRK 1938 1230 FORMAT('.assign',I2.2,A4) 1939 ENDIF 1940 C 1941 WRITE(OUTJOB,1240) ITAG 1942 1240 FORMAT('outjob',I2.2) 1943 WRITE(LIST,*)'CHKOUT: GENERATE POST SCRIPT FILE ',OUTJOB 1944 C 1945 LUNIN = 21 1946 LUNOT = 5 1947 REWIND(LUNIN) 1948 OPEN(LUNOT,FILE=OUTJOB) Page 19 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 1949 1250 READ(LUNIN,1260,END=1290) LINE 1950 1260 FORMAT(A80) 1951 C 1952 C*** TMMARK STATEMENT. 1953 C 1954 IF(INDEX(LINE,'tmmark=').NE.0)THEN 1955 IF(LINE1(11).EQ.'0')THEN 1956 CALL get_environment_variable("TM00",TMYY) 1957 ELSEIF(LINE1(11).EQ.'3')THEN 1958 CALL get_environment_variable("TM03",TMYY) 1959 ELSEIF(LINE1(11).EQ.'6')THEN 1960 CALL get_environment_variable("TM06",TMYY) 1961 ELSEIF(LINE1(11).EQ.'9')THEN 1962 CALL get_environment_variable("TM09",TMYY) 1963 ELSEIF(LINE1(11).EQ.'2')THEN 1964 CALL get_environment_variable("TM12",TMYY) 1965 ENDIF 1966 WRITE(LUNOT,1260) LINE 1967 GO TO 1250 1968 ENDIF 1969 C 1970 C*** TMYY STATEMENT 1971 C 1972 IF(INDEX(LINE,'TMYY=').NE.0)THEN 1973 LINE = 'TMYY='//TMYY 1974 WRITE(LUNOT,1260) LINE 1975 GO TO 1250 1976 ENDIF 1977 C 1978 C*** ASSIGN STATEMENT. 1979 C 1980 IF(INDEX(LINE,'ASSIGN=').NE.0)THEN 1981 LINE = 'ASSIGN='//ASSIGN 1982 WRITE(LUNOT,1260) LINE 1983 GO TO 1250 1984 ENDIF 1985 C 1986 C*** MODEL RESTART FILE. 1987 C 1988 IF(INDEX(LINE,'RESTRT=').NE.0)THEN 1989 LINE = 'RESTRT='//RSTFIL 1990 WRITE(LUNOT,1260) LINE 1991 GO TO 1250 1992 ENDIF 1993 C 1994 C*** LINES CONTAINING qq NEED TO BE MODIFIED FOR DISPOSAL 1995 C*** FROM AND TO PROPER PLACES 1996 C 1997 IF(INDEX(LINE,'qq').NE.0)THEN 1998 IHR1 = IHR / 10 1999 IHR2 = IHR - 10 * IHR1 2000 IPUTIT = INDEX(LINE,'qq') 2001 WRITE(LINE1(IPUTIT),1270)IHR1 2002 WRITE(LINE1(IPUTIT+1),1270)IHR2 2003 1270 FORMAT(I1) 2004 ISTRT = IPUTIT + 2 2005 C Page 20 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 2006 DO I = ISTRT,80 2007 IF(LINE1(I).EQ.'q')THEN 2008 WRITE(LINE1(I),1270)IHR1 2009 WRITE(LINE1(I+1),1270)IHR2 2010 GO TO 1280 2011 ENDIF 2012 ENDDO 2013 1280 CONTINUE 2014 C 2015 WRITE(LUNOT,1260)LINE 2016 GO TO 1250 2017 ENDIF 2018 C 2019 C*** TURN ON LINE TO QUEUE JOB AFTER ALL OUTPUT JOBS. 2020 C 2021 IF(NTSD.GE.NTSTM)THEN 2022 IF(INDEX(LINE,'$LAST').NE.0)THEN 2023 LXX = INDEX(LINE,'#') 2024 LINE = LINE(LXX+1:80) 2025 WRITE(LUNOT,1260) LINE 2026 GO TO 1250 2027 ENDIF 2028 ENDIF 2029 C 2030 C*** IF NOTHING TRIGGERED ABOVE, WRITE LINE TO OUTPUT FILE. 2031 C 2032 WRITE(LUNOT,1260) LINE 2033 GO TO 1250 2034 C 2035 1290 CONTINUE 2036 CLOSE(LUNOT) 2037 C 2038 ENDIF 2039 C 2040 C*** IF SUBPOST (NAMELIST INPUT VARIABLE) IS TRUE THEN 2041 C*** THE FOLLOWING CALL TO ISHELL WILL SUBMIT A POST JOB TO 2042 C*** PROCESS THE DATA JUST WRITTEN TO THE TEMPORARY FILES. 2043 C 2044 C*** IF SUBPOST IS FALSE ISHELL WILL NOT BE CALLED AND 2045 C*** THE POST JOB SHOULD BE SUBMITTED LATER IN THE SCRIPT 2046 C 2047 ccccc IF(SUBPOST)THEN 2048 ccccc SUBMIT = 'qsub ' // OUTJOB 2049 ccccc WRITE(LIST,*)'CHKOUT: SUBMIT POST JOB ',SUBMIT 2050 ccccc CALL ISHELL(SUBMIT) 2051 ccccc ENDIF 2052 C-------------------------------------------------------------------- 2053 C*** 2054 C*** POST-POSTING UPDATING AND INITIALIZING. 2055 C*** 2056 C-------------------------------------------------------------------- 2057 C*** IF (NTSD.EQ.NSHDE), THEN THIS WAS ALSO A FORECAST 2058 C*** OUTPUT TIME. WE NEED TO INCREMENT NSHDE FOR THE 2059 C*** NEXT FORECAST OUTPUT TIME. 2060 C 2061 IF(NTSD.EQ.NSHDE.OR.NSTART+1.EQ.NSHDE)THEN 2062 IOUT = IOUT+1 Page 21 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 2063 IF (.NOT.RESTRT) GO TO 1300 2064 IF (NTSD.EQ.NSHDE.OR.NSTART+1.EQ.NSHDE) GO TO 1300 2065 IOUT = IOUT-1 2066 1300 NSHDE = ISHDE(IOUT) 2067 ENDIF 2068 C 2069 C*** ZERO ACCUMULATOR ARRAYS. 2070 C*** AVERAGE CLOUD AMOUNT ARRAY 2071 C 2072 1310 CONTINUE 2073 IF(MOD(NTSD,NCLOD).LT.NPHS)THEN 2074 IF(MYPE.EQ.0)WRITE(LIST,*)'CHKOUT: ZERO AVG CLD AMT ARRAY' 2075 DO J=MYJS,MYJE 2076 DO I=MYIS,MYIE 2077 ACFRCV(I,J) = 0. 2078 NCFRCV(I,J) = 0 2079 ACFRST(I,J) = 0. 2080 NCFRST(I,J) = 0 2081 ENDDO 2082 ENDDO 2083 ENDIF 2084 C 2085 C*** TOTAL AND CONVECTIVE PRECIPITATION ARRAYS. 2086 C*** TOTAL SNOW AND SNOW MELT ARRAYS. 2087 C*** STORM SURFACE AND BASE GROUND RUN OFF ARRAYS. 2088 C*** PRECIPITATION TYPE ARRAY 2089 C 2090 IF(MOD(NTSD,NPREC).LT.NCNVC)THEN 2091 IF(MYPE.EQ.0)WRITE(LIST,*) 2092 1 'CHKOUT: ZERO ACCUM PRECIP ARRAYS' 2093 DO J=MYJS,MYJE 2094 DO I=MYIS,MYIE 2095 ACPREC(I,J) = 0. 2096 CUPREC(I,J) = 0. 2097 ACSNOW(I,J) = 0. 2098 ACSNOM(I,J) = 0. 2099 SSROFF(I,J) = 0. 2100 BGROFF(I,J) = 0. 2101 SFCEVP(I,J) = 0. 2102 POTEVP(I,J) = 0. 2103 ENDDO 2104 ENDDO 2105 CduleS 2106 DO J=JDIM1,JDIM2 2107 DO I=IDIM1,IDIM2 2108 VAPINC(I,J) = 0. 2109 CLDINC(I,J) = 0. 2110 VAPINC7(I,J) = 0. 2111 CLDINC7(I,J) = 0. 2112 C 2113 FQNEV(I,J)=0. 2114 FQSEV(I,J)=0. 2115 FCNEV(I,J)=0. 2116 FCSEV(I,J)=0. 2117 FCNEV7(I,J)=0. 2118 FCSEV7(I,J)=0. 2119 FQNEV7(I,J)=0. Page 22 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 2120 FQSEV7(I,J)=0. 2121 FQU(I,J)=0. 2122 FQV(I,J)=0. 2123 FCU(I,J)=0. 2124 FCV(I,J)=0. 2125 FQU7(I,J)=0. 2126 FQV7(I,J)=0. 2127 FCU7(I,J)=0. 2128 FCV7(I,J)=0. 2129 DQADV(I,J)=0. 2130 DQFLX(I,J)=0. 2131 DCFLX(I,J)=0. 2132 DQFLX7(I,J)=0. 2133 DCFLX7(I,J)=0. 2134 ENDDO 2135 ENDDO 2136 CduleE 2137 ENDIF 2138 C 2139 C*** GRID-SCALE AND CONVECTIVE (LATENT) HEATING ARRAYS. 2140 C 2141 IF(MOD(NTSD,NHEAT).LT.NCNVC)THEN 2142 IF(MYPE.EQ.0)WRITE(LIST,*) 2143 1 'CHKOUT: ZERO ACCUM LATENT HEATING ARRAYS' 2144 AVRAIN = 0. 2145 AVCNVC = 0. 2146 DO L=1,LM 2147 DO J=MYJS,MYJE 2148 DO I=MYIS,MYIE 2149 TRAIN(I,J,L) = 0. 2150 TCUCN(I,J,L) = 0. 2151 ENDDO 2152 ENDDO 2153 ENDDO 2154 ENDIF 2155 ! 2156 !--- Begin: Initialize convective cloud fields for radiation before 2157 ! returning to EBU (Ferrier 23 Jan 02) 2158 ! 2159 IF (CURAD) THEN 2160 IF (MYPE .EQ. 0) THEN 2161 WRITE(0,"(a)") 'CHKOUT: Initialize CUPPT,HTOP,HBOT' 2162 WRITE(6,"(a)") 'CHKOUT: Initialize CUPPT,HTOP,HBOT' 2163 ENDIF 2164 DO J=MYJS,MYJE 2165 DO I=MYIS,MYIE 2166 CUPPT(I,J)=0. 2167 HTOP(I,J)=100. 2168 HBOT(I,J)=0. 2169 ENDDO 2170 ENDDO 2171 CURAD=.FALSE. 2172 ENDIF 2173 C 2174 C*** RESET CONVECTIVE CLOUD TOP AND BOTTOM ARRAYS 2175 C (diagnostic only; these fields are not cycled & not read when TSTART=0) 2176 C Page 23 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 2177 DO J=MYJS,MYJE 2178 DO I=MYIS,MYIE 2179 CNVTOP(I,J)=100. 2180 CNVBOT(I,J)=0. 2181 ENDDO 2182 ENDDO 2183 ! 2184 !--- End: 2185 ! 2186 C 2187 C*** LONG WAVE RADIATION ARRAYS. 2188 C 2189 IF(MOD(NTSD,NRDLW).LT.NPHS)THEN 2190 IF(MYPE.EQ.0)WRITE(LIST,*) 2191 1 'CHKOUT: ZERO ACCUM LW RADTN ARRAYS' 2192 ARDLW = 0. 2193 DO J=MYJS,MYJE 2194 DO I=MYIS,MYIE 2195 ALWIN(I,J) = 0. 2196 ALWOUT(I,J) = 0. 2197 ALWTOA(I,J) = 0. 2198 ENDDO 2199 ENDDO 2200 ENDIF 2201 C 2202 C*** SHORT WAVE RADIATION ARRAYS. 2203 C 2204 IF(MOD(NTSD,NRDSW).LT.NPHS)THEN 2205 IF(MYPE.EQ.0)WRITE(LIST,*) 2206 1 'CHKOUT: ZERO ACCUM SW RADTN ARRAYS' 2207 ARDSW = 0. 2208 DO J=MYJS,MYJE 2209 DO I=MYIS,MYIE 2210 ASWIN(I,J) = 0. 2211 ASWOUT(I,J) = 0. 2212 ASWTOA(I,J) = 0. 2213 ENDDO 2214 ENDDO 2215 ENDIF 2216 C 2217 C*** SURFACE SENSIBLE AND LATENT HEAT FLUX ARRAYS. 2218 C 2219 IF(MOD(NTSD,NSRFC).LT.NPHS)THEN 2220 IF(MYPE.EQ.0)WRITE(LIST,*) 2221 1 'CHKOUT: ZERO ACCUM SFC FLUX ARRAYS' 2222 ASRFC = 0. 2223 DO J=MYJS,MYJE 2224 DO I=MYIS,MYIE 2225 SFCSHX(I,J) = 0. 2226 SFCLHX(I,J) = 0. 2227 SUBSHX(I,J) = 0. 2228 SNOPCX(I,J) = 0. 2229 SFCUVX(I,J) = 0. 2230 POTFLX(I,J) = 0. 2231 ENDDO 2232 ENDDO 2233 ENDIF Page 24 Source Listing CHKOUT 2025-03-12 18:22 CHKOUT.F 2234 C 2235 C*** RESET THE MAX/MIN TEMPERATURE ARRAYS 2236 C 2237 DO J=MYJS,MYJE 2238 DO I=MYIS,MYIE 2239 TLMIN(I,J)=999. 2240 TLMAX(I,J)=-999. 2241 ENDDO 2242 ENDDO 2243 C 2244 C END OF ROUTINE. 2245 C 2246 RETURN 2247 END ENTRY POINTS Name chkout_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 1204 1175,1177 1094 Label 1268 1266 1095 Label 1269 1267 1100 Label 1246 1224 1150 Label 1356 1355 1155 Label 1363 1362 1190 Label 1910 1909 1200 Label 1935 1934 1230 Label 1938 1937 1240 Label 1942 1941 1250 Label 1949 1967,1975,1983,1991,2016,2026,2033 1260 Label 1950 1949,1966,1974,1982,1990,2015,2025 ,2032 1270 Label 2003 2001,2002,2008,2009 1280 Label 2013 2010 1290 Label 2035 1949 1300 Label 2066 2063,2064 1310 Label 2072 1216 ACMCLD Common 930 101112 SAVE ACMCLH Common 937 2274864 SAVE ACMPRE Common 944 101108 SAVE ACMRDL Common 951 1289088 SAVE ACMRDS Common 960 1289088 SAVE ACMSFC Common 969 202224 SAVE AMAX1 Func 1242 scalar 1242 AMIN1 Func 1243 scalar 1243 ASSIGN Local 753 CHAR 13 scalar 1934,1937,1981 ASTMRK Local 754 CHAR 4 scalar 1932,1933,1937 BOCO Common 916 1860144 SAVE BTIM0 Local 1223 R(4) 4 scalar 1223,1274,1374,1894 Page 25 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References BTIMW Local 1373 R(4) 4 scalar 1373 BUFFER Common 1038 12000000 SAVE 4 CAPA Param 742 R(4) 4 scalar 1293 CHKOUT Subr 2 CLDWTR Common 996 1213608 SAVE CNVCLD Common 923 101104 SAVE COAL Subr 1394 1394,1402,1403,1404,1405,1406,1416 ,1417,1422,1429,1430,1431,1432,143 3,1434,1435,1436,1443,1444,1445,14 52,1453,1454,1455,1456,1457,1458,1 464,1467,1470,1473,1476,1479,1482, 1485,1488,1501,1502,1503,1504,1505 ,1506,1507,1508,1509,1510,1511,152 3,1524,1525,1526,1527,1528,1529,15 40,1541,1542,1543,1544,1545,1546,1 557,1558,1559,1560,1561,1562,1563, 1573,1574,1575,1576,1577,1578,1586 ,1587,1588,1589,1597,1598,1599,160 0,1610,1611,1612,1613,1614,1615,16 16,1617,1618,1626,1627,1628,1629,1 637,1638,1639,1640,1651,1652,1653, 1654,1655,1656,1657,1667,1668,1669 ,1670,1671,1672,1675,1676,1677,167 8,1679,1693,1694,1695,1696,1697,16 98,1699,1700,1701,1702,1703,1708,1 713,1718,1723,1728,1749,1750,1751, 1752,1753,1754,1756,1757,1758,1759 ,1760,1761,1763,1764,1765,1773,177 4,1775,1776,1785,1786,1787,1788,17 89,1790,1791,1792,1793,1794,1795,1 796,1797,1798,1799,1800,1806,1807, 1813,1814,1818,1822,1823,1827,1828 CONTIN Common 1016 4574956 SAVE CTLBLK Common 794 112 SAVE CUINIT Common 1089 4 SAVE DBLE Func 1262 scalar 1262,1263,1264,1265 DIF_TIM Local 1894 R(4) 4 scalar 1894,1895 DONE Local 778 CHAR 10 scalar 1908,1914 DSQRT Func 1263 scalar 1263,1265 DUMMY Local 1394 R(4) 4 scalar 1394 DYNAM Common 872 259964 SAVE ENDWAIT Local 1109 R(8) 8 scalar 1384,1387,1389 EXBC Local 749 L(4) 4 scalar EXP Func 1292 scalar 1292 FACTR Local 767 R(4) 4 2 6319 1296,1298,1330 FHR Local 751 CHAR 2 scalar FINFIL Local 778 CHAR 50 scalar 1909,1913 GET_ENVIRONMENT_VARIABLE Intrin 1350 1350,1932,1956,1958,1960,1962,1964 GLB_TABLE Common 145 336 SAVE I Local 1140 I(4) 4 scalar 1140,1141,1142,1143,1144,1153,1154 ,1155,1156,1157,1188,1189,1190,119 1,1239,1240,1241,1242,1243,1288,12 89,1290,1291,1292,1293,1295,1296,1 298,1309,1310,1311,1317,1318,1319, Page 26 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 1329,1330,1339,1340,1862,1863,1869 ,1889,2006,2007,2008,2009,2076,207 7,2078,2079,2080,2094,2095,2096,20 97,2098,2099,2100,2101,2102,2107,2 108,2109,2110,2111,2113,2114,2115, 2116,2117,2118,2119,2120,2121,2122 ,2123,2124,2125,2126,2127,2128,212 9,2130,2131,2132,2133,2148,2149,21 50,2165,2166,2167,2168,2178,2179,2 180,2194,2195,2196,2197,2209,2210, 2211,2212,2224,2225,2226,2227,2228 ,2229,2230,2238,2239,2240 IBLOCK Local 1844 I(4) 4 scalar 1844,1845 IBUFMAX Param 1033 I(4) 4 scalar 1038 IDIM1 Param 100 I(4) 4 scalar 765,766,767,768,769,804,810,811,81 3,814,815,833,835,836,837,843,844, 845,846,847,848,849,850,851,852,85 3,854,855,856,857,858,859,861,866, 878,879,880,881,882,883,899,900,90 1,902,903,904,905,906,907,908,909, 924,925,932,933,939,940,946,947,95 3,954,955,956,962,963,964,965,971, 972,973,974,980,981,982,983,984,98 5,986,987,992,997,999,1007,1017,10 18,1019,1020,1021,1027,1028,1042,1 043,1045,1046,1048,1049,1050,1051, 1053,1054,1055,1056,1058,1059,1060 ,1061,1067,1068,1070,1071,2107 IDIM2 Param 100 I(4) 4 scalar 765,766,767,768,769,804,810,811,81 3,814,815,833,835,836,837,843,844, 845,846,847,848,849,850,851,852,85 3,854,855,856,857,858,859,861,866, 878,879,880,881,882,883,899,900,90 1,902,903,904,905,906,907,908,909, 924,925,932,933,939,940,946,947,95 3,954,955,956,962,963,964,965,971, 972,973,974,980,981,982,983,984,98 5,986,987,992,997,999,1007,1017,10 18,1019,1020,1021,1027,1028,1042,1 043,1045,1046,1048,1049,1050,1051, 1053,1054,1055,1056,1058,1059,1060 ,1061,1067,1068,1070,1071,2107 IDISP Local 772 I(4) 4 1 20 IEND Local 1863 I(4) 4 scalar 1863,1867 IER Local 1885 I(4) 4 scalar 1885,1887,1913,1916 IERR Local 1383 I(4) 4 scalar 1383,1837,1859,1869,1897 IGSTL Param 95 I(4) 4 scalar 100 IGSTR Param 95 I(4) 4 scalar 100 IHR Local 1209 I(4) 4 scalar 1209,1998,1999 IHR1 Local 1998 I(4) 4 scalar 1998,1999,2001,2008 IHR2 Local 1999 I(4) 4 scalar 1999,2002,2009 IHS Local 1110 I(4) 4 scalar 1111,1383,1869 IKNTS Local 772 I(4) 4 1 20 IM Param 83 I(4) 4 scalar 97,100,151,152,153,154,155,159,160 ,165,735,1011,1234 Page 27 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References IMAX Local 1235 I(4) 4 scalar 1235,1237,1239 IMJM Param 735 I(4) 4 scalar 1262,1263,1264,1265 IMT Param 735 I(4) 4 scalar INDEX Func 1954 scalar 1954,1972,1980,1988,1997,2000,2022 ,2023 INDX Common 1004 1708 SAVE INDXG Common 1010 8084 SAVE INIT_TIM Local 1122 R(4) 4 scalar INPES Param 92 I(4) 4 scalar 97,100,135,136,137,146,147,772,130 7,1315,1865 INT Func 1164 scalar 1164 IPMAX Local 1836 I(4) 4 scalar 1836,1844 IPUTIT Local 2000 I(4) 4 scalar 2000,2001,2002,2004 IRECLEN Local 1845 I(4) 4 scalar 1845,1850,1886 IRTN Local 1251 I(4) 4 scalar 1251,1253,1255,1257 ISERVE Local 1113 I(4) 4 scalar 1115,1859,1862,1863,1869,1877,1878 ISTART Local 1863 I(4) 4 scalar 1863,1867 ISTAT Local 1280 I(4) 4 scalar 1280,1902 ISTRT Local 2004 I(4) 4 scalar 2004,2006 ITAIL Param 97 I(4) 4 scalar ITB Param 105 I(4) 4 scalar 896,911 ITBQ Param 105 I(4) 4 scalar 897,911 J Local 1139 I(4) 4 scalar 1139,1141,1142,1143,1144,1152,1154 ,1155,1156,1157,1187,1189,1190,119 1,1232,1234,1287,1289,1290,1291,12 92,1293,1295,1296,1298,1308,1310,1 311,1316,1318,1319,1328,1330,1338, 1340,2075,2077,2078,2079,2080,2093 ,2095,2096,2097,2098,2099,2100,210 1,2102,2106,2108,2109,2110,2111,21 13,2114,2115,2116,2117,2118,2119,2 120,2121,2122,2123,2124,2125,2126, 2127,2128,2129,2130,2131,2132,2133 ,2147,2149,2150,2164,2166,2167,216 8,2177,2179,2180,2193,2195,2196,21 97,2208,2210,2211,2212,2223,2225,2 226,2227,2228,2229,2230,2237,2239, 2240 JAM Param 738 I(4) 4 scalar 803,876 JDIM1 Param 101 I(4) 4 scalar 765,766,767,768,769,804,810,811,81 3,814,815,833,835,836,837,843,844, 845,846,847,848,849,850,851,852,85 3,854,855,856,857,858,859,861,866, 878,879,880,881,882,883,899,900,90 1,902,903,904,905,906,907,908,909, 924,925,932,933,939,940,946,947,95 3,954,955,956,962,963,964,965,971, 972,973,974,980,981,982,983,984,98 5,986,987,992,997,999,1005,1006,10 17,1018,1019,1020,1021,1027,1028,1 042,1043,1045,1046,1048,1049,1050, 1051,1053,1054,1055,1056,1058,1059 ,1060,1061,1067,1068,1070,1071,210 6 JDIM2 Param 101 I(4) 4 scalar 765,766,767,768,769,804,810,811,81 Page 28 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 3,814,815,833,835,836,837,843,844, 845,846,847,848,849,850,851,852,85 3,854,855,856,857,858,859,861,866, 878,879,880,881,882,883,899,900,90 1,902,903,904,905,906,907,908,909, 924,925,932,933,939,940,946,947,95 3,954,955,956,962,963,964,965,971, 972,973,974,980,981,982,983,984,98 5,986,987,992,997,999,1005,1006,10 17,1018,1019,1020,1021,1027,1028,1 042,1043,1045,1046,1048,1049,1050, 1051,1053,1054,1055,1056,1058,1059 ,1060,1061,1067,1068,1070,1071,210 6 JGSTL Param 96 I(4) 4 scalar 101 JGSTR Param 96 I(4) 4 scalar 101 JJ Local 1231 I(4) 4 scalar 1231,1233,1240,1241,1242,1243 JM Param 83 I(4) 4 scalar 98,101,151,152,153,154,155,159,160 ,165,735,738,1011 JMT Param 735 I(4) 4 scalar JNPES Param 92 I(4) 4 scalar 98,101,135,136,137,146,147,772,186 3 JSTAT Local 1101 I(4) 4 1 5 JTAIL Param 98 I(4) 4 scalar JTB Param 105 I(4) 4 scalar 896,911 JTBQ Param 105 I(4) 4 scalar 911 L Local 1224 I(4) 4 scalar 1224,1226,1227,1228,1229,1240,1241 ,1242,1243,1261,1262,1263,1265,126 6,1327,1330,1337,1340,1420,1422,14 62,1464,1467,1470,1473,1476,1479,1 482,1485,1488,1803,1806,1807,1810, 1813,1814,2146,2149,2150 LABEL Local 756 CHAR 32 scalar 1398,1406,1426,1433,1493,1505,1604 ,1614 LABINT Local 757 I(4) 4 1 4 LB Param 735 I(4) 4 scalar 917,918,1452,1453,1454,1455,1456,1 457,1458 LFINFIL Local 1911 I(4) 4 scalar 1911,1912,1913,1914,1915 LINE Local 759 CHAR 80 scalar 1949,1954,1966,1972,1973,1974,1980 ,1981,1982,1988,1989,1990,1997,200 0,2015,2022,2023,2024,2025,2032 LINE1 Local 760 CHAR 1 1 80 1955,1957,1959,1961,1963,2001,2002 ,2007,2008,2009 LLMH Local 1289 I(4) 4 scalar 1289,1291 LM Param 83 I(4) 4 scalar 160,738,768,769,813,814,826,835,83 6,861,874,895,917,918,939,940,956, 965,997,998,1018,1019,1020,1021,10 27,1061,1067,1103,1104,1105,1106,1 108,1224,1250,1252,1254,1256,1261, 1327,1337,1420,1453,1454,1455,1456 ,1457,1458,1462,1598,1803,1810,214 6 LM1 Param 738 I(4) 4 scalar LMHK Local 1141 I(4) 4 scalar 1141,1142,1154,1155 LOOPS Common 802 65752 SAVE Page 29 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References LP1 Param 738 I(4) 4 scalar 826,874,895 LSM Param 83 I(4) 4 scalar 825 LUNIN Local 1945 I(4) 4 scalar 1945,1947,1949 LUNOT Local 1946 I(4) 4 scalar 1946,1948,1966,1974,1982,1990,2015 ,2025,2032,2036 LXX Local 2023 I(4) 4 scalar 2023,2024 MAPOT Common 820 1732 SAVE MAPPINGS Common 164 5024 SAVE MASKS Common 809 2426496 SAVE MESO Local 749 L(4) 4 scalar MOD Func 1167 scalar 1167,1168,1234,2073,2090,2141,2189 ,2204,2219 MPIFCMB5 Common 722 4 SAVE MPIFCMB9 Common 723 4 SAVE MPIPRIV1 Common 727 28 SAVE MPIPRIV2 Common 729 24 SAVE MPIPRIVC Common 732 2 SAVE MPI_2DOUBLE_PRECISION Param 468 I(4) 4 scalar MPI_2INT Param 552 I(4) 4 scalar MPI_2INTEGER Param 466 I(4) 4 scalar MPI_2REAL Param 470 I(4) 4 scalar MPI_ADDRESS_KIND Param 504 I(4) 4 scalar MPI_AINT Param 582 I(4) 4 scalar MPI_ALLREDUCE Subr 1836 1836 MPI_ANY_SOURCE Param 434 I(4) 4 scalar MPI_ANY_TAG Param 436 I(4) 4 scalar MPI_APPNUM Param 398 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 704 L(4) 4 scalar MPI_BAND Param 342 I(4) 4 scalar MPI_BARRIER Subr 1280 1280,1902 MPI_BOR Param 346 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 430 I(4) 4 scalar MPI_BXOR Param 350 I(4) 4 scalar MPI_BYTE Param 474 I(4) 4 scalar MPI_CART Param 442 I(4) 4 scalar MPI_CHAR Param 512 I(4) 4 scalar MPI_CHARACTER Param 472 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 600 I(4) 4 scalar MPI_COMBINER_DARRAY Param 622 I(4) 4 scalar MPI_COMBINER_DUP Param 598 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 626 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 628 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 624 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 612 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 632 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 610 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 606 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 604 I(4) 4 scalar MPI_COMBINER_INDEXED Param 608 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 614 I(4) 4 scalar MPI_COMBINER_NAMED Param 596 I(4) 4 scalar Page 30 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_RESIZED Param 630 I(4) 4 scalar MPI_COMBINER_STRUCT Param 618 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 616 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 620 I(4) 4 scalar MPI_COMBINER_VECTOR Param 602 I(4) 4 scalar MPI_COMM_DUP_FN Subr 711 scalar MPI_COMM_NULL Param 366 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 712 scalar MPI_COMM_NULL_DELETE_FN Subr 711 scalar MPI_COMM_SELF Param 362 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 650 I(4) 4 scalar MPI_COMM_WORLD Param 360 I(4) 4 scalar MPI_COMPLEX Param 454 I(4) 4 scalar MPI_COMPLEX16 Param 500 I(4) 4 scalar MPI_COMPLEX32 Param 502 I(4) 4 scalar MPI_COMPLEX8 Param 498 I(4) 4 scalar MPI_CONGRUENT Param 314 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 717 scalar MPI_COUNT Param 586 I(4) 4 scalar MPI_COUNT_KIND Param 508 I(4) 4 scalar MPI_CXX_BOOL Param 588 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 592 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 590 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 594 I(4) 4 scalar MPI_C_BOOL Param 572 I(4) 4 scalar MPI_C_COMPLEX Param 576 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 578 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 574 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 580 I(4) 4 scalar MPI_DATATYPE_NULL Param 376 I(4) 4 scalar 491,589,591,593,595 MPI_DISPLACEMENT_CURRENT Param 700 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 692 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 694 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 698 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 696 I(4) 4 scalar MPI_DIST_GRAPH Param 444 I(4) 4 scalar MPI_DOUBLE Param 534 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 456 I(4) 4 scalar MPI_DOUBLE_INT Param 546 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 462 I(4) 4 scalar MPI_DUP_FN Subr 708 scalar MPI_ERRHANDLER_NULL Param 380 I(4) 4 scalar MPI_ERROR Param 181 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 308 I(4) 4 scalar MPI_ERRORS_RETURN Param 310 I(4) 4 scalar MPI_ERR_ACCESS Param 300 I(4) 4 scalar MPI_ERR_AMODE Param 286 I(4) 4 scalar MPI_ERR_ARG Param 256 I(4) 4 scalar MPI_ERR_ASSERT Param 262 I(4) 4 scalar MPI_ERR_BAD_FILE Param 224 I(4) 4 scalar MPI_ERR_BASE Param 254 I(4) 4 scalar MPI_ERR_BUFFER Param 196 I(4) 4 scalar MPI_ERR_COMM Param 274 I(4) 4 scalar Page 31 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_CONVERSION Param 290 I(4) 4 scalar MPI_ERR_COUNT Param 200 I(4) 4 scalar MPI_ERR_DIMS Param 238 I(4) 4 scalar MPI_ERR_DISP Param 222 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 204 I(4) 4 scalar MPI_ERR_FILE Param 234 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 216 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 258 I(4) 4 scalar MPI_ERR_GROUP Param 220 I(4) 4 scalar MPI_ERR_INFO Param 248 I(4) 4 scalar MPI_ERR_INFO_KEY Param 252 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 232 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 218 I(4) 4 scalar MPI_ERR_INTERN Param 250 I(4) 4 scalar MPI_ERR_IN_STATUS Param 236 I(4) 4 scalar MPI_ERR_IO Param 296 I(4) 4 scalar MPI_ERR_KEYVAL Param 242 I(4) 4 scalar MPI_ERR_LASTCODE Param 264 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 246 I(4) 4 scalar MPI_ERR_NAME Param 240 I(4) 4 scalar MPI_ERR_NOT_SAME Param 268 I(4) 4 scalar MPI_ERR_NO_MEM Param 260 I(4) 4 scalar MPI_ERR_NO_SPACE Param 192 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 276 I(4) 4 scalar MPI_ERR_OP Param 294 I(4) 4 scalar MPI_ERR_OTHER Param 208 I(4) 4 scalar MPI_ERR_PENDING Param 198 I(4) 4 scalar MPI_ERR_PORT Param 280 I(4) 4 scalar MPI_ERR_QUOTA Param 284 I(4) 4 scalar MPI_ERR_RANK Param 206 I(4) 4 scalar MPI_ERR_READ_ONLY Param 244 I(4) 4 scalar MPI_ERR_REQUEST Param 288 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 210 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 214 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 230 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 292 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 282 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 194 I(4) 4 scalar MPI_ERR_ROOT Param 226 I(4) 4 scalar MPI_ERR_SERVICE Param 202 I(4) 4 scalar MPI_ERR_SIZE Param 212 I(4) 4 scalar MPI_ERR_SPAWN Param 272 I(4) 4 scalar MPI_ERR_TAG Param 302 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 306 I(4) 4 scalar MPI_ERR_TRUNCATE Param 266 I(4) 4 scalar MPI_ERR_TYPE Param 270 I(4) 4 scalar MPI_ERR_UNKNOWN Param 304 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 228 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 278 I(4) 4 scalar MPI_ERR_WIN Param 298 I(4) 4 scalar MPI_FILE_NULL Param 370 I(4) 4 scalar MPI_FLOAT Param 532 I(4) 4 scalar MPI_FLOAT_INT Param 544 I(4) 4 scalar Page 32 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_GRAPH Param 440 I(4) 4 scalar MPI_GROUP_EMPTY Param 364 I(4) 4 scalar MPI_GROUP_NULL Param 372 I(4) 4 scalar MPI_HOST Param 388 I(4) 4 scalar MPI_IDENT Param 312 I(4) 4 scalar MPI_INFO_ENV Param 384 I(4) 4 scalar MPI_INFO_NULL Param 382 I(4) 4 scalar MPI_INT Param 524 I(4) 4 scalar MPI_INT16_T Param 558 I(4) 4 scalar MPI_INT32_T Param 560 I(4) 4 scalar MPI_INT64_T Param 562 I(4) 4 scalar MPI_INT8_T Param 556 I(4) 4 scalar MPI_INTEGER Param 464 I(4) 4 scalar 1836,1859 MPI_INTEGER1 Param 482 I(4) 4 scalar MPI_INTEGER16 Param 490 I(4) 4 scalar MPI_INTEGER2 Param 484 I(4) 4 scalar MPI_INTEGER4 Param 486 I(4) 4 scalar MPI_INTEGER8 Param 488 I(4) 4 scalar MPI_INTEGER_KIND Param 510 I(4) 4 scalar MPI_IO Param 390 I(4) 4 scalar MPI_ISEND Subr 1868 1868 MPI_KEYVAL_INVALID Param 428 I(4) 4 scalar MPI_LAND Param 340 I(4) 4 scalar MPI_LASTUSEDCODE Param 396 I(4) 4 scalar MPI_LB Param 478 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 450 I(4) 4 scalar MPI_LOCK_SHARED Param 452 I(4) 4 scalar MPI_LOGICAL Param 458 I(4) 4 scalar MPI_LONG Param 528 I(4) 4 scalar MPI_LONG_DOUBLE Param 536 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 554 I(4) 4 scalar MPI_LONG_INT Param 548 I(4) 4 scalar MPI_LONG_LONG Param 542 I(4) 4 scalar MPI_LONG_LONG_INT Param 538 I(4) 4 scalar MPI_LOR Param 344 I(4) 4 scalar MPI_LXOR Param 348 I(4) 4 scalar MPI_MAX Param 332 I(4) 4 scalar 1254,1836,1896 MPI_MAXLOC Param 354 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 422 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 410 I(4) 4 scalar MPI_MAX_INFO_KEY Param 416 I(4) 4 scalar MPI_MAX_INFO_VAL Param 418 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 424 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 414 I(4) 4 scalar MPI_MAX_PORT_NAME Param 412 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 420 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 654 I(4) 4 scalar MPI_MESSAGE_NULL Param 652 I(4) 4 scalar MPI_MIN Param 334 I(4) 4 scalar 1256 MPI_MINLOC Param 352 I(4) 4 scalar MPI_MODE_APPEND Param 678 I(4) 4 scalar MPI_MODE_CREATE Param 674 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 670 I(4) 4 scalar MPI_MODE_EXCL Param 676 I(4) 4 scalar Page 33 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_NOCHECK Param 640 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 646 I(4) 4 scalar MPI_MODE_NOPUT Param 644 I(4) 4 scalar MPI_MODE_NOSTORE Param 642 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 648 I(4) 4 scalar MPI_MODE_RDONLY Param 664 I(4) 4 scalar MPI_MODE_RDWR Param 666 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 680 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 672 I(4) 4 scalar MPI_MODE_WRONLY Param 668 I(4) 4 scalar MPI_NO_OP Param 358 I(4) 4 scalar MPI_NULL_COPY_FN Subr 708 scalar MPI_NULL_DELETE_FN Subr 708 scalar MPI_OFFSET Param 584 I(4) 4 scalar MPI_OFFSET_KIND Param 506 I(4) 4 scalar MPI_OP_NULL Param 374 I(4) 4 scalar MPI_ORDER_C Param 688 I(4) 4 scalar MPI_ORDER_FORTRAN Param 690 I(4) 4 scalar MPI_PACKED Param 480 I(4) 4 scalar MPI_PROC_NULL Param 432 I(4) 4 scalar MPI_PROD Param 338 I(4) 4 scalar MPI_REAL Param 460 I(4) 4 scalar 1254,1256,1869,1896 MPI_REAL16 Param 496 I(4) 4 scalar MPI_REAL4 Param 492 I(4) 4 scalar MPI_REAL8 Param 494 I(4) 4 scalar 1250,1252 MPI_REDUCE Subr 1250 1250,1252,1254,1256,1896 MPI_REPLACE Param 356 I(4) 4 scalar MPI_REQUEST_NULL Param 378 I(4) 4 scalar 1111 MPI_ROOT Param 438 I(4) 4 scalar MPI_SEEK_CUR Param 684 I(4) 4 scalar MPI_SEEK_END Param 686 I(4) 4 scalar MPI_SEEK_SET Param 682 I(4) 4 scalar MPI_SEND Subr 1858 1858 MPI_SHORT Param 520 I(4) 4 scalar MPI_SHORT_INT Param 550 I(4) 4 scalar MPI_SIGNED_CHAR Param 514 I(4) 4 scalar MPI_SIMILAR Param 316 I(4) 4 scalar MPI_SOURCE Param 181 I(4) 4 scalar MPI_STATUS_SIZE Param 183 I(4) 4 scalar 185,186,1101,1112 MPI_SUBARRAYS_SUPPORTED Param 702 L(4) 4 scalar MPI_SUBVERSION Param 448 I(4) 4 scalar MPI_SUCCESS Param 190 I(4) 4 scalar MPI_SUM Param 336 I(4) 4 scalar 1250,1252 MPI_TAG Param 181 I(4) 4 scalar MPI_TAG_UB Param 386 I(4) 4 scalar MPI_THREAD_FUNNELED Param 658 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 662 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 660 I(4) 4 scalar MPI_THREAD_SINGLE Param 656 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 638 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 636 I(4) 4 scalar MPI_TYPECLASS_REAL Param 634 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 715 scalar MPI_TYPE_NULL_COPY_FN Subr 716 scalar MPI_TYPE_NULL_DELETE_FN Subr 715 scalar Page 34 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UB Param 476 I(4) 4 scalar MPI_UINT16_T Param 566 I(4) 4 scalar MPI_UINT32_T Param 568 I(4) 4 scalar MPI_UINT64_T Param 570 I(4) 4 scalar MPI_UINT8_T Param 564 I(4) 4 scalar MPI_UNDEFINED Param 426 I(4) 4 scalar MPI_UNEQUAL Param 318 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 394 I(4) 4 scalar MPI_UNSIGNED Param 526 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 516 I(4) 4 scalar MPI_UNSIGNED_LONG Param 530 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 540 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 522 I(4) 4 scalar MPI_VERSION Param 446 I(4) 4 scalar MPI_WAIT Subr 1383 1383 MPI_WCHAR Param 518 I(4) 4 scalar MPI_WIN_BASE Param 400 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 406 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 404 I(4) 4 scalar MPI_WIN_DUP_FN Subr 713 scalar MPI_WIN_FLAVOR_ALLOCATE Param 322 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 320 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 324 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 326 I(4) 4 scalar MPI_WIN_MODEL Param 408 I(4) 4 scalar MPI_WIN_NULL Param 368 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 714 scalar MPI_WIN_NULL_DELETE_FN Subr 713 scalar MPI_WIN_SEPARATE Param 328 I(4) 4 scalar MPI_WIN_SIZE Param 402 I(4) 4 scalar MPI_WIN_UNIFIED Param 330 I(4) 4 scalar MPI_WTICK Func 709 R(8) 8 scalar MPI_WTIME Func 709 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 392 I(4) 4 scalar MPPCOM Common 109 1724 SAVE MPP_TIM Local 1122 R(4) 4 scalar MYPE_ROW Local 1865 I(4) 4 scalar 1865,1867 NRLX1 Param 739 I(4) 4 scalar NRLX2 Param 739 I(4) 4 scalar NROOT Param 107 I(4) 4 scalar NSOIL Param 107 I(4) 4 scalar 985,986,987,1708,1718,1723 NTSPH Local 1164 I(4) 4 scalar 1164 ONHOUR Local 749 L(4) 4 scalar 1166,1168,1175 OUTFIL Common 787 58 SAVE OUTJOB Local 752 CHAR 8 scalar 1941,1943,1948 PARA_RANGE Subr 1863 1863 PDS Local 766 R(4) 4 2 6319 1290,1292 PHYS Common 890 858036 SAVE PMPI_WTICK Func 710 R(8) 8 scalar PMPI_WTIME Func 710 R(8) 8 scalar PPTASM Common 1066 1364916 SAVE PRFHLD Common 991 50552 SAVE PSLP Local 765 R(4) 4 2 6319 1561 PVRBLS Common 842 1946252 SAVE QFLX Common 1041 1769320 SAVE Page 35 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References REPLACE Subr 1850 1850 RESTHR Local 761 CHAR 4 scalar 1350,1351,1362,1909 RMS Local 1107 R(8) 8 scalar 1265,1267 RTC Func 1109 R(8) 8 scalar 1382,1384 SINGLRST Local 792 L(4) 4 scalar SOIL Common 979 581380 SAVE STATUS Local 1112 I(4) 4 1 5 1383 STDEV Local 1107 R(8) 8 scalar 1263,1267 STDRD Local 749 L(4) 4 scalar STRWAIT Local 1109 R(8) 8 scalar 1382,1384 SUBMIT Local 755 CHAR 15 scalar SUMT Local 1103 R(8) 8 1 45 1228,1240,1250 SUMT2 Local 1105 R(8) 8 1 45 1229,1241,1252 SUMT2_0 Local 1106 R(8) 8 1 45 1252,1263,1265 SUMT_0 Local 1104 R(8) 8 1 45 1250,1262,1263 SWTTC Local 768 R(4) 4 3 284355 1330,1340 TEMPCOM Common 150 6603768 SAVE TEMPSOIL Local 775 R(4) 4 3 1 ALC TEMPV Common 1026 2300116 SAVE TERM1 Local 1291 R(4) 4 scalar 1291,1292 TIMCHK Common 1126 24 SAVE TIMEF Func 1121 R(8) 8 scalar 1223,1274,1373,1374,1894 TIMES Local 1165 R(4) 4 scalar 1165,1167,1168 TIMING Common 1123 16 SAVE TLL1 Local 1142 R(4) 4 scalar 1142,1143,1144,1155,1156,1157 TMAX Local 1108 R(4) 4 1 45 1226,1242,1254 TMAX_0 Local 1108 R(4) 4 1 45 1254,1266 TMEAN Local 1107 R(8) 8 scalar 1262,1267 TMIN Local 1108 R(4) 4 1 45 1227,1243,1256 TMIN_0 Local 1108 R(4) 4 1 45 1256,1266 TMYY Local 754 CHAR 4 scalar 1956,1958,1960,1962,1964,1973 TOPO Common 158 17478548 SAVE TTND Local 769 R(4) 4 3 284355 1340,1479 VRBLS Common 832 4625508 SAVE WRT_TIM_0 Local 1896 R(4) 4 scalar 1896,1900 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 454968 2 6319 COM 1617 ACFRCV R(4) 4 8 2 6319 COM 1626,2077 ACFRST R(4) 4 50560 2 6319 COM 1628,2079 ACPREC R(4) 4 429692 2 6319 COM 1616,2095 ACSNOM R(4) 4 25280 2 6319 COM 1638,2098 ACSNOW R(4) 4 4 2 6319 COM 1637,2097 ACUTIM R(4) 4 20 scalar COM 1788,1924 AETA R(4) 4 960 1 45 COM AETA2 R(4) 4 264 1 45 COM AETAD R(4) 4 396 1 45 COM AFSI R(4) 4 1920976 2 6319 COM AKHS R(4) 4 227484 2 6319 COM 1523 AKMS R(4) 4 202208 2 6319 COM 1510 ALBASE R(4) 4 357388 2 6319 COM Page 36 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Type Bytes Offset Dimen Elements Attributes References ALBEDO R(4) 4 382664 2 6319 COM 1728 ALSL R(4) 4 624 1 39 COM ALWIN R(4) 4 75840 2 6319 COM 1670,2195 ALWOUT R(4) 4 101116 2 6319 COM 1671,2196 ALWTOA R(4) 4 126392 2 6319 COM 1672,2197 APHTIM R(4) 4 202220 scalar COM 1790,1923 APREC R(4) 4 1238524 2 6319 COM ARATIM R(4) 4 16 scalar COM 1789,1925 ARDLW R(4) 4 8 scalar COM 1676,2192 ARDSW R(4) 4 8 scalar COM 1675,2207 ASRFC R(4) 4 8 scalar COM 1677,2222 ASWIN R(4) 4 75840 2 6319 COM 1667,2210 ASWOUT R(4) 4 101116 2 6319 COM 1668,2211 ASWTOA R(4) 4 126392 2 6319 COM 1669,2212 AVCNVC R(4) 4 12 scalar COM 1679,2145 AVRAIN R(4) 4 8 scalar COM 1678,2144 BCEX_TIM R(4) 4 16 scalar COM BGROFF R(4) 4 75832 2 6319 COM 1640,2100 BUF R(4) 4 4 1 30000000 COM 1869,1889 CFRACH R(4) 4 75828 2 6319 COM 1563 CFRACL R(4) 4 25276 2 6319 COM 1529 CFRACM R(4) 4 50552 2 6319 COM 1546 CI R(4) 4 40 scalar COM CLDEFI R(4) 4 379140 2 6319 COM 1559 CLDINC R(4) 4 1314364 2 6319 COM 1774,2109 CLDINC7 R(4) 4 1339640 2 6319 COM 1776,2111 CMC R(4) 4 252760 2 6319 COM 1713 CMLD R(4) 4 444 scalar COM CNVBOT R(4) 4 256284 2 6319 COM 1822,2180 CNVTOP R(4) 4 231008 2 6319 COM 1823,2179 CPGFUX R(4) 4 57756 2 6319 COM CPGFV R(4) 4 4 scalar COM CPHI0 R(4) 4 1724 scalar COM CS R(4) 4 28 scalar COM CUPPT R(4) 4 0 2 6319 COM 1189,1562,2166 CUPREC R(4) 4 480244 2 6319 COM 1618,2096 CURAD L(4) 4 0 scalar COM 1182,1194,2159,2171 CURVX R(4) 4 83032 2 6319 COM CWM R(4) 4 0 3 284355 COM 1482 CWMB R(4) 4 1551264 3 77220 COM 1458 CZEN R(4) 4 155180 2 6319 COM 1296,1511 CZMEAN R(4) 4 458492 2 6319 COM 1295,1296,1588 DCFLX R(4) 4 429692 2 6319 COM 1754,2131 DCFLX7 R(4) 4 480244 2 6319 COM 1761,2133 DDMPUX R(4) 4 184136 2 6319 COM DDMPVX R(4) 4 209412 2 6319 COM DETA R(4) 4 780 1 45 COM DETA2 R(4) 4 84 1 45 COM DETAD R(4) 4 36 1 45 COM DFL R(4) 4 940 1 46 COM DFRLG R(4) 4 444 1 46 COM DI R(4) 4 44 scalar COM DISLP R(4) 4 460 scalar COM DIV R(4) 4 2325392 3 284355 COM DLMD R(4) 4 436 scalar COM Page 37 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Type Bytes Offset Dimen Elements Attributes References DP30 R(4) 4 448 scalar COM DPHD R(4) 4 440 scalar COM DQADV R(4) 4 505520 2 6319 COM 1763,2129 DQFLX R(4) 4 404416 2 6319 COM 1751,2130 DQFLX7 R(4) 4 454968 2 6319 COM 1758,2132 DS R(4) 4 32 scalar COM DT R(4) 4 48 scalar COM 1164,1165,1168 DTD R(4) 4 16 scalar COM DTQ2 R(4) 4 8 scalar COM DXX R(4) 4 7204 2 6319 COM DY R(4) 4 0 scalar COM EF4T R(4) 4 32 scalar COM EM R(4) 4 1124 1 760 COM EMT R(4) 4 4164 1 760 COM EN R(4) 4 8 scalar COM ENT R(4) 4 12 scalar COM EPSR R(4) 4 28800 2 6319 COM ERLAM0 R(4) 4 1720 scalar COM ETA R(4) 4 1140 1 46 COM ETAD R(4) 4 756 1 46 COM ETADT R(4) 4 3462812 3 278036 COM EXCH_TIM R(4) 4 12 scalar COM F4D R(4) 4 24 scalar COM F4Q R(4) 4 28 scalar COM F4Q2 R(4) 4 576 1 45 COM FADX R(4) 4 234688 2 6319 COM FCNEV R(4) 4 101104 2 6319 COM 2115 FCNEV1 R(4) 4 581348 2 6319 COM FCNEV7 R(4) 4 151656 2 6319 COM 2117 FCP R(4) 4 108308 2 6319 COM FCSEV R(4) 4 126380 2 6319 COM 2116 FCSEV1 R(4) 4 606624 2 6319 COM FCSEV7 R(4) 4 176932 2 6319 COM 2118 FCU R(4) 4 252760 2 6319 COM 1752,2123 FCU7 R(4) 4 353864 2 6319 COM 1759,2127 FCV R(4) 4 278036 2 6319 COM 1753,2124 FCV7 R(4) 4 379140 2 6319 COM 1760,2128 FDIVX R(4) 4 133584 2 6319 COM FIRST L(4) 4 24 scalar COM 1434 FIS R(4) 4 4574956 2 6319 COM 1445 FQNEV R(4) 4 0 2 6319 COM 2113 FQNEV1 R(4) 4 530796 2 6319 COM 1764 FQNEV7 R(4) 4 50552 2 6319 COM 2119 FQSEV R(4) 4 25276 2 6319 COM 2114 FQSEV1 R(4) 4 556072 2 6319 COM 1765 FQSEV7 R(4) 4 75828 2 6319 COM 2120 FQU R(4) 4 202208 2 6319 COM 1749,2121 FQU7 R(4) 4 303312 2 6319 COM 1756,2125 FQV R(4) 4 227484 2 6319 COM 1750,2122 FQV7 R(4) 4 328588 2 6319 COM 1757,2126 FX R(4) 4 158860 2 6319 COM G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GATH_TIM R(4) 4 4 scalar COM GFFC R(4) 4 306836 2 6319 COM Page 38 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Type Bytes Offset Dimen Elements Attributes References GLAT R(4) 4 104628 2 6319 COM GLON R(4) 4 129904 2 6319 COM GRNFLX R(4) 4 101104 2 6319 COM 1577 HBM2 R(4) 4 2375944 2 6319 COM HBM3 R(4) 4 2401220 2 6319 COM HBOT R(4) 4 205732 2 6319 COM 1191,1528,2168 HDAC R(4) 4 407940 2 6319 COM HDACV R(4) 4 433216 2 6319 COM HTM R(4) 4 101104 3 284355 COM HTMG R(4) 4 743768 3 4183695 COM HTOP R(4) 4 180456 2 6319 COM 1190,1545,2167 IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 828 1 21 COM IDAT I(4) 4 8 1 3 COM 1401,1403,1430,1502,1611 IDTAD I(4) 4 72 scalar COM 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 1401,1404,1431,1503,1612 IHW I(4) 4 356 1 89 COM IHWG I(4) 4 1548 1 387 COM 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 1862,1863 IOUT I(4) 4 44 scalar COM 1435,2062,2065,2066 IP I(4) 4 0 scalar COM 1836,1869,1889 IQUILT_GROUP I(4) 4 1320 scalar COM 1855,1878,1906 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 2066 ISLOPE I(4) 4 202208 2 6319 COM ISLTYP I(4) 4 176932 2 6319 COM IS_GLB_TABLE I(4) 4 0 1 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM ITAG I(4) 4 0 scalar COM 1137,1349,1355,1362,1859,1869,1909 ,1934,1937,1941 ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM ITSTLOC I(4) 4 1263800 scalar COM IVE I(4) 4 712 1 89 COM IVEG I(4) 4 3096 1 387 COM Page 39 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Type Bytes Offset Dimen Elements Attributes References IVGTYP I(4) 4 151656 2 6319 COM 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 IYM I(4) 4 8 scalar COM JBPAD1 I(4) 4 452 scalar COM 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 JTSTLOC I(4) 4 1263804 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 1599 LIST I(4) 4 40 scalar COM 1887,1916,1943,2074,2091,2142,2190 ,2205,2220 LMH I(4) 4 15200 2 6319 COM 1141,1154,1289 LMV I(4) 4 40476 2 6319 COM LRSTRT I(4) 4 4 scalar COM 1370,1376,1885,1889,1890 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 1251,1253,1255,1257,1280,1837,1897 ,1902 MPI_COMM_INTER I(4) 4 916 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 920 1 100 COM 1859,1869 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 MTSTPE I(4) 4 1263808 scalar COM MXSNAL R(4) 4 3524 2 6319 COM MYIE I(4) 4 52 scalar COM 1140,1153,1188,1288,1309,1317,1329 ,1339,1416,1417,1422,1443,1444,144 5,1464,1467,1470,1473,1476,1479,14 82,1485,1488,1506,1507,1508,1509,1 510,1511,1523,1524,1525,1526,1527, 1528,1529,1540,1541,1542,1543,1544 ,1545,1546,1557,1558,1559,1560,156 Page 40 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Type Bytes Offset Dimen Elements Attributes References 1,1562,1563,1573,1574,1575,1576,15 77,1578,1586,1587,1588,1589,1597,1 599,1600,1615,1616,1617,1618,1626, 1627,1628,1629,1637,1638,1639,1640 ,1651,1652,1653,1654,1655,1656,165 7,1667,1668,1669,1670,1671,1672,16 93,1694,1695,1696,1697,1698,1699,1 700,1701,1702,1703,1708,1713,1718, 1723,1728,1749,1750,1751,1752,1753 ,1754,1756,1757,1758,1759,1760,176 1,1763,1764,1765,1773,1774,1775,17 76,1785,1786,1787,1806,1807,1813,1 814,1818,1822,1823,1827,1828,2076, 2094,2148,2165,2178,2194,2209,2224 ,2238 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 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 1140,1153,1188,1239,1288,1309,1317 ,1329,1339,2076,2094,2148,2165,217 8,2194,2209,2224,2238 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 1139,1152,1187,1287,1316,1318,1319 ,1328,1338,1416,1417,1422,1443,144 4,1445,1464,1467,1470,1473,1476,14 79,1482,1485,1488,1506,1507,1508,1 509,1510,1511,1523,1524,1525,1526, 1527,1528,1529,1540,1541,1542,1543 ,1544,1545,1546,1557,1558,1559,156 0,1561,1562,1563,1573,1574,1575,15 76,1577,1578,1586,1587,1588,1589,1 597,1599,1600,1615,1616,1617,1618, 1626,1627,1628,1629,1637,1638,1639 ,1640,1651,1652,1653,1654,1655,165 6,1657,1667,1668,1669,1670,1671,16 72,1693,1694,1695,1696,1697,1698,1 Page 41 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Type Bytes Offset Dimen Elements Attributes References 699,1700,1701,1702,1703,1708,1713, 1718,1723,1728,1749,1750,1751,1752 ,1753,1754,1756,1757,1758,1759,176 0,1761,1763,1764,1765,1773,1774,17 75,1776,1785,1786,1787,1806,1807,1 813,1814,1818,1822,1823,1827,1828, 2075,2093,2147,2164,2177,2193,2208 ,2223,2237 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 1139,1152,1187,1287,1328,1338,2075 ,2093,2147,2164,2177,2193,2208,222 3,2237 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 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 Page 42 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Type Bytes Offset Dimen Elements Attributes References MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM 1183,1260,1307,1315,1386,1857,1865 ,1889,1898,1907,1931,2074,2091,214 2,2160,2190,2205,2220 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM 1234 MY_IE_LOC I(4) 4 28 scalar COM 1235,1237 MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM 1232 MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 1232 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 NBOCO I(4) 4 76 scalar COM NCFRCV I(4) 4 25284 2 6319 COM 1627,2078 NCFRST I(4) 4 75836 2 6319 COM 1629,2080 NCLOD I(4) 4 4 scalar COM 2073 NCNVC I(4) 4 92 scalar COM 1793,2090,2141 NCP I(4) 4 84 scalar COM NEST L(4) 4 108 scalar COM NFCST I(4) 4 32 scalar COM NHB_TIM R(4) 4 4 scalar COM NHEAT I(4) 4 4 scalar COM 1791,2141 NPES I(4) 4 4 scalar COM 1315 NPHS I(4) 4 88 scalar COM 1792,2073,2189,2204,2219 NPREC I(4) 4 68 scalar COM 1794,2090 NRADL I(4) 4 100 scalar COM NRADS I(4) 4 96 scalar COM NRDLW I(4) 4 4 scalar COM 1796,2189 NRDSW I(4) 4 4 scalar COM 1795,2204 NSHDE I(4) 4 80 scalar COM 1175,1176,1177,1216,1436,2061,2064 ,2066 NSRFC I(4) 4 4 scalar COM 1797,2219 NSTART I(4) 4 60 scalar COM 1176,1216,2061,2064 NTDDMP I(4) 4 64 scalar COM NTSD I(4) 4 52 scalar COM 1136,1165,1175,1177,1209,1216,1349 ,1401,1405,1432,1504,1613,2021,206 1,2064,2073,2090,2141,2189,2204,22 19 NTSTM I(4) 4 56 scalar COM 2021 OMGALF R(4) 4 1187972 3 284355 COM 1422 P0 R(4) 4 2274840 2 6319 COM 1818 PCTSNO R(4) 4 126380 2 6319 COM 1578 PD R(4) 4 0 2 6319 COM 1290,1416,1443 PDB R(4) 4 0 2 1716 COM 1452 Page 43 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Type Bytes Offset Dimen Elements Attributes References PDSL R(4) 4 0 2 6319 COM PHOUR R(4) 4 0 2 6319 COM PL R(4) 4 48 scalar COM PLQ R(4) 4 72 scalar COM POTEVP R(4) 4 151668 2 6319 COM 1657,2102 POTFLX R(4) 4 176944 2 6319 COM 1785,2230 PPTDAT R(4) 4 1162696 3 18957 COM PREC R(4) 4 404416 2 6319 COM 1615 PROF_TIM R(4) 4 12 scalar COM PSDT R(4) 4 25276 2 6319 COM PSHLTR R(4) 4 758280 2 6319 COM 1292,1293,1699 PT R(4) 4 412 scalar COM 1290 PT2 R(4) 4 4 scalar COM PTBL R(4) 4 509044 2 10184 COM PTDYN R(4) 4 20 scalar COM Q R(4) 4 3437536 3 284355 COM 1467 Q0 R(4) 4 1137420 3 284355 COM 1814 Q10 R(4) 4 631900 2 6319 COM 1694 Q2 R(4) 4 783556 3 284355 COM 1476 Q2B R(4) 4 1242384 3 77220 COM 1457 Q30 R(4) 4 530796 2 6319 COM 1701 QB R(4) 4 315744 3 77220 COM 1454 QOLD R(4) 4 631900 3 284355 COM QS R(4) 4 176932 2 6319 COM 1525 QS0 R(4) 4 628 1 134 COM QSHLTR R(4) 4 733004 2 6319 COM 1311,1319,1698 QWBS R(4) 4 303312 2 6319 COM 1527 QZ0 R(4) 4 126380 2 6319 COM 1541 R R(4) 4 408 scalar COM RADIN R(4) 4 54076 2 6319 COM RADOT R(4) 4 79352 2 6319 COM 1587 RDETA R(4) 4 216 1 45 COM RDP R(4) 4 64 scalar COM RDPQ R(4) 4 76 scalar COM RDQ R(4) 4 56 scalar COM RDTH R(4) 4 60 scalar COM RDTHE R(4) 4 68 scalar COM RDTHEQ R(4) 4 80 scalar COM RDYN R(4) 4 16 scalar COM RES R(4) 4 4600232 2 6319 COM 1417,1444 RESTRT L(4) 4 28 scalar COM 1800,2063 RES_TIM R(4) 4 8 scalar COM RF R(4) 4 252760 2 6319 COM 1560 RLWIN R(4) 4 12 2 6319 COM 1586 RLWOUT R(4) 4 25288 2 6319 COM RLWTOA R(4) 4 50564 2 6319 COM 1828 RLWTT R(4) 4 151668 3 284355 COM 1340,1807 ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM RSTFIL CHAR 50 8 scalar COM 1355,1362,1400,1885,1989 RSWIN R(4) 4 12 2 6319 COM 1506 RSWOUT R(4) 4 25288 2 6319 COM 1507 RSWTOA R(4) 4 50564 2 6319 COM 1827 RSWTT R(4) 4 151668 3 284355 COM 1330,1806 RTDPTH R(4) 4 480260 1 4 COM Page 44 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Type Bytes Offset Dimen Elements Attributes References RTOP R(4) 4 50552 3 284355 COM RUN L(4) 4 4 scalar COM 1402,1429,1501,1610 SBD R(4) 4 424 scalar COM SFCEVP R(4) 4 126392 2 6319 COM 1656,2101 SFCEXC R(4) 4 25276 2 6319 COM 1574 SFCLHX R(4) 4 25288 2 6319 COM 1652,2226 SFCSHX R(4) 4 12 2 6319 COM 1651,2225 SFCUVX R(4) 4 101116 2 6319 COM 1655,2229 SH2O R(4) 4 480276 3 25276 COM 1723 SI R(4) 4 353864 2 6319 COM 1558 SICE R(4) 4 75828 2 6319 COM SIGMA L(4) 4 0 scalar COM SIGT4 R(4) 4 483768 2 6319 COM 1589 SLDPTH R(4) 4 480244 1 4 COM SLP_TIM R(4) 4 0 scalar COM SM R(4) 4 50552 2 6319 COM SMC R(4) 4 278036 3 25276 COM 1708 SMSTAV R(4) 4 50552 2 6319 COM 1575 SMSTOT R(4) 4 75828 2 6319 COM 1576 SNO R(4) 4 328588 2 6319 COM 1557 SNOPCX R(4) 4 75840 2 6319 COM 1654,2228 SOILTB R(4) 4 0 2 6319 COM 1573 SPHI0 R(4) 4 1728 scalar COM SPL R(4) 4 468 1 39 COM SQS R(4) 4 1164 1 134 COM SR R(4) 4 1188332 2 6319 COM 1600 SSROFF R(4) 4 50556 2 6319 COM 1639,2099 SST R(4) 4 332112 2 6319 COM STAT_TIM R(4) 4 20 scalar COM 1274 STC R(4) 4 379140 3 25276 COM 1718 STHE R(4) 4 2004 1 76 COM STHEQ R(4) 4 2916 1 152 COM SUBPOST L(4) 4 104 scalar COM SUBSHX R(4) 4 50564 2 6319 COM 1653,2227 SURFCE_TIM R(4) 4 0 scalar COM T R(4) 4 25276 3 284355 COM 1142,1155,1240,1241,1242,1243,1291 ,1464 T0 R(4) 4 0 3 284355 COM 1813 TB R(4) 4 6864 3 77220 COM 1453 TCLOD R(4) 4 0 scalar COM TCUCN R(4) 4 1137444 3 284355 COM 1488,2150 TDTD R(4) 4 20 scalar COM TDTQ2 R(4) 4 12 scalar COM TEMP1 R(4) 4 0 2 91719 COM 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 45 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.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 1508 TH10 R(4) 4 606624 2 6319 COM 1693 TH30 R(4) 4 505520 2 6319 COM 1700 THE0 R(4) 4 1700 1 76 COM THE0Q R(4) 4 2308 1 152 COM THEAT R(4) 4 0 scalar COM THL R(4) 4 52 scalar COM THS R(4) 4 151656 2 6319 COM 1524 THZ0 R(4) 4 101104 2 6319 COM 1540 TLAT R(4) 4 25276 3 284355 COM TLM0D R(4) 4 428 scalar COM 1799 TLMAX R(4) 4 25276 2 6319 COM 1144,1157,1787,2240 TLMIN R(4) 4 0 2 6319 COM 1143,1156,1786,2239 TPH0D R(4) 4 432 scalar COM 1798 TPREC R(4) 4 0 scalar COM TRAIN R(4) 4 24 3 284355 COM 1485,2149 TRDLW R(4) 4 0 scalar COM TRDSW R(4) 4 0 scalar COM TSHDE R(4) 4 1324 1 99 COM TSHLTR R(4) 4 707728 2 6319 COM 1293,1310,1318,1697 TSPH R(4) 4 416 scalar COM 1209,1349 TSRFC R(4) 4 0 scalar COM TTBL R(4) 4 549780 2 10184 COM TTBLQ R(4) 4 590516 2 66880 COM TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 278036 2 6319 COM 1526 U R(4) 4 1162696 3 284355 COM 1470 U00 R(4) 4 1137420 2 6319 COM 1597 U10 R(4) 4 657176 2 6319 COM 1695 U30 R(4) 4 556072 2 6319 COM 1702 UB R(4) 4 624624 3 77220 COM 1455 UL R(4) 4 1162696 1 90 COM 1598 USTAR R(4) 4 25276 2 6319 COM 1544 UZ0 R(4) 4 50552 2 6319 COM 1542 V R(4) 4 2300116 3 284355 COM 1473 V10 R(4) 4 682452 2 6319 COM 1696 V30 R(4) 4 581348 2 6319 COM 1703 VAPINC R(4) 4 1263812 2 6319 COM 1773,2108 VAPINC7 R(4) 4 1289088 2 6319 COM 1775,2110 VB R(4) 4 933504 3 77220 COM 1456 VBM2 R(4) 4 0 2 6319 COM VBM3 R(4) 4 25276 2 6319 COM VEGFRC R(4) 4 227484 2 6319 COM VTM R(4) 4 1238524 3 284355 COM VZ0 R(4) 4 75828 2 6319 COM 1543 WBD R(4) 4 420 scalar COM WPDARX R(4) 4 32480 2 6319 COM WRT_TIM R(4) 4 8 scalar COM 1372,1895,1896 X1P R(4) 4 452 scalar COM Y1P R(4) 4 456 scalar COM Page 46 Source Listing CHKOUT 2025-03-12 18:22 Symbol Table CHKOUT.F Name Type Bytes Offset Dimen Elements Attributes References Z0 R(4) 4 0 2 6319 COM 1509 Z0SLP R(4) 4 464 scalar COM Page 47 Source Listing COAL 2025-03-12 18:22 CHKOUT.F 2248 SUBROUTINE COAL(A,LEN) 2249 INCLUDE "BUFFER.comm" 2258 INCLUDE 'mpif.h' 2820 REAL A(*) 2821 IF ( LEN .LT. 0 ) THEN 2822 IP = 0 2823 END IF 2824 IF ( IP + LEN .GT. IBUFMAX ) THEN 2825 PRINT *, ' IBUFMAX in BUFFER.comm is too small, stopping' 2826 PRINT *, ' CHANGE IBUFMAX in parmbuf and recompile' 2827 PRINT *, ' IBUFMAX=', IBUFMAX, ' WANT AT LEAST ', IP + LEN 2828 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 2829 ENDIF 2830 DO I = 1, ABS(LEN) 2831 IP = IP + 1 2832 BUF(IP) = A(I) 2833 ENDDO 2834 return 2835 END ENTRY POINTS Name coal_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A Dummy 2248 R(4) 4 1 0 ARG,INOUT 2832 ABS Func 2830 scalar 2830 BUFFER Common 2256 12000000 SAVE 4 COAL Subr 2248 I Local 2830 I(4) 4 scalar 2830,2832 IBUFMAX Param 2251 I(4) 4 scalar 2256,2824,2827 IERR Local 2828 I(4) 4 scalar 2828 LEN Dummy 2248 I(4) 4 scalar ARG,INOUT 2821,2824,2827,2830 MPIFCMB5 Common 2808 4 SAVE MPIFCMB9 Common 2809 4 SAVE MPIPRIV1 Common 2813 28 SAVE MPIPRIV2 Common 2815 24 SAVE MPIPRIVC Common 2818 2 SAVE MPI_2DOUBLE_PRECISION Param 2554 I(4) 4 scalar MPI_2INT Param 2638 I(4) 4 scalar MPI_2INTEGER Param 2552 I(4) 4 scalar MPI_2REAL Param 2556 I(4) 4 scalar MPI_ABORT Subr 2828 2828 MPI_ADDRESS_KIND Param 2590 I(4) 4 scalar MPI_AINT Param 2668 I(4) 4 scalar MPI_ANY_SOURCE Param 2520 I(4) 4 scalar MPI_ANY_TAG Param 2522 I(4) 4 scalar MPI_APPNUM Param 2484 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC Page 48 Source Listing COAL 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References KING Param 2790 L(4) 4 scalar MPI_BAND Param 2428 I(4) 4 scalar MPI_BOR Param 2432 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 2516 I(4) 4 scalar MPI_BXOR Param 2436 I(4) 4 scalar MPI_BYTE Param 2560 I(4) 4 scalar MPI_CART Param 2528 I(4) 4 scalar MPI_CHAR Param 2598 I(4) 4 scalar MPI_CHARACTER Param 2558 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 2686 I(4) 4 scalar MPI_COMBINER_DARRAY Param 2708 I(4) 4 scalar MPI_COMBINER_DUP Param 2684 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 2712 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 2714 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 2710 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 2698 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 2718 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 2696 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 2692 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 2690 I(4) 4 scalar MPI_COMBINER_INDEXED Param 2694 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 2700 I(4) 4 scalar MPI_COMBINER_NAMED Param 2682 I(4) 4 scalar MPI_COMBINER_RESIZED Param 2716 I(4) 4 scalar MPI_COMBINER_STRUCT Param 2704 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 2702 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 2706 I(4) 4 scalar MPI_COMBINER_VECTOR Param 2688 I(4) 4 scalar MPI_COMM_DUP_FN Subr 2797 scalar MPI_COMM_NULL Param 2452 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 2798 scalar MPI_COMM_NULL_DELETE_FN Subr 2797 scalar MPI_COMM_SELF Param 2448 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 2736 I(4) 4 scalar MPI_COMM_WORLD Param 2446 I(4) 4 scalar 2828 MPI_COMPLEX Param 2540 I(4) 4 scalar MPI_COMPLEX16 Param 2586 I(4) 4 scalar MPI_COMPLEX32 Param 2588 I(4) 4 scalar MPI_COMPLEX8 Param 2584 I(4) 4 scalar MPI_CONGRUENT Param 2400 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 2803 scalar MPI_COUNT Param 2672 I(4) 4 scalar MPI_COUNT_KIND Param 2594 I(4) 4 scalar MPI_CXX_BOOL Param 2674 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 2678 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 2676 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 2680 I(4) 4 scalar MPI_C_BOOL Param 2658 I(4) 4 scalar MPI_C_COMPLEX Param 2662 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 2664 I(4) 4 scalar Page 49 Source Listing COAL 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_C_FLOAT_COMPLEX Param 2660 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 2666 I(4) 4 scalar MPI_DATATYPE_NULL Param 2462 I(4) 4 scalar 2577,2675,2677,2679,2681 MPI_DISPLACEMENT_CURRENT Param 2786 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 2778 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 2780 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 2784 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 2782 I(4) 4 scalar MPI_DIST_GRAPH Param 2530 I(4) 4 scalar MPI_DOUBLE Param 2620 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 2542 I(4) 4 scalar MPI_DOUBLE_INT Param 2632 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 2548 I(4) 4 scalar MPI_DUP_FN Subr 2794 scalar MPI_ERRHANDLER_NULL Param 2466 I(4) 4 scalar MPI_ERROR Param 2267 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 2394 I(4) 4 scalar MPI_ERRORS_RETURN Param 2396 I(4) 4 scalar MPI_ERR_ACCESS Param 2386 I(4) 4 scalar MPI_ERR_AMODE Param 2372 I(4) 4 scalar MPI_ERR_ARG Param 2342 I(4) 4 scalar MPI_ERR_ASSERT Param 2348 I(4) 4 scalar MPI_ERR_BAD_FILE Param 2310 I(4) 4 scalar MPI_ERR_BASE Param 2340 I(4) 4 scalar MPI_ERR_BUFFER Param 2282 I(4) 4 scalar MPI_ERR_COMM Param 2360 I(4) 4 scalar MPI_ERR_CONVERSION Param 2376 I(4) 4 scalar MPI_ERR_COUNT Param 2286 I(4) 4 scalar MPI_ERR_DIMS Param 2324 I(4) 4 scalar MPI_ERR_DISP Param 2308 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 2290 I(4) 4 scalar MPI_ERR_FILE Param 2320 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 2302 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 2344 I(4) 4 scalar MPI_ERR_GROUP Param 2306 I(4) 4 scalar MPI_ERR_INFO Param 2334 I(4) 4 scalar MPI_ERR_INFO_KEY Param 2338 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 2318 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 2304 I(4) 4 scalar MPI_ERR_INTERN Param 2336 I(4) 4 scalar MPI_ERR_IN_STATUS Param 2322 I(4) 4 scalar MPI_ERR_IO Param 2382 I(4) 4 scalar MPI_ERR_KEYVAL Param 2328 I(4) 4 scalar MPI_ERR_LASTCODE Param 2350 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 2332 I(4) 4 scalar MPI_ERR_NAME Param 2326 I(4) 4 scalar MPI_ERR_NOT_SAME Param 2354 I(4) 4 scalar MPI_ERR_NO_MEM Param 2346 I(4) 4 scalar MPI_ERR_NO_SPACE Param 2278 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 2362 I(4) 4 scalar MPI_ERR_OP Param 2380 I(4) 4 scalar MPI_ERR_OTHER Param 2294 I(4) 4 scalar MPI_ERR_PENDING Param 2284 I(4) 4 scalar MPI_ERR_PORT Param 2366 I(4) 4 scalar MPI_ERR_QUOTA Param 2370 I(4) 4 scalar Page 50 Source Listing COAL 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_RANK Param 2292 I(4) 4 scalar MPI_ERR_READ_ONLY Param 2330 I(4) 4 scalar MPI_ERR_REQUEST Param 2374 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 2296 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 2300 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 2316 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 2378 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 2368 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 2280 I(4) 4 scalar MPI_ERR_ROOT Param 2312 I(4) 4 scalar MPI_ERR_SERVICE Param 2288 I(4) 4 scalar MPI_ERR_SIZE Param 2298 I(4) 4 scalar MPI_ERR_SPAWN Param 2358 I(4) 4 scalar MPI_ERR_TAG Param 2388 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 2392 I(4) 4 scalar MPI_ERR_TRUNCATE Param 2352 I(4) 4 scalar MPI_ERR_TYPE Param 2356 I(4) 4 scalar MPI_ERR_UNKNOWN Param 2390 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 2314 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 2364 I(4) 4 scalar MPI_ERR_WIN Param 2384 I(4) 4 scalar MPI_FILE_NULL Param 2456 I(4) 4 scalar MPI_FLOAT Param 2618 I(4) 4 scalar MPI_FLOAT_INT Param 2630 I(4) 4 scalar MPI_GRAPH Param 2526 I(4) 4 scalar MPI_GROUP_EMPTY Param 2450 I(4) 4 scalar MPI_GROUP_NULL Param 2458 I(4) 4 scalar MPI_HOST Param 2474 I(4) 4 scalar MPI_IDENT Param 2398 I(4) 4 scalar MPI_INFO_ENV Param 2470 I(4) 4 scalar MPI_INFO_NULL Param 2468 I(4) 4 scalar MPI_INT Param 2610 I(4) 4 scalar MPI_INT16_T Param 2644 I(4) 4 scalar MPI_INT32_T Param 2646 I(4) 4 scalar MPI_INT64_T Param 2648 I(4) 4 scalar MPI_INT8_T Param 2642 I(4) 4 scalar MPI_INTEGER Param 2550 I(4) 4 scalar MPI_INTEGER1 Param 2568 I(4) 4 scalar MPI_INTEGER16 Param 2576 I(4) 4 scalar MPI_INTEGER2 Param 2570 I(4) 4 scalar MPI_INTEGER4 Param 2572 I(4) 4 scalar MPI_INTEGER8 Param 2574 I(4) 4 scalar MPI_INTEGER_KIND Param 2596 I(4) 4 scalar MPI_IO Param 2476 I(4) 4 scalar MPI_KEYVAL_INVALID Param 2514 I(4) 4 scalar MPI_LAND Param 2426 I(4) 4 scalar MPI_LASTUSEDCODE Param 2482 I(4) 4 scalar MPI_LB Param 2564 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 2536 I(4) 4 scalar MPI_LOCK_SHARED Param 2538 I(4) 4 scalar MPI_LOGICAL Param 2544 I(4) 4 scalar MPI_LONG Param 2614 I(4) 4 scalar MPI_LONG_DOUBLE Param 2622 I(4) 4 scalar Page 51 Source Listing COAL 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LONG_DOUBLE_INT Param 2640 I(4) 4 scalar MPI_LONG_INT Param 2634 I(4) 4 scalar MPI_LONG_LONG Param 2628 I(4) 4 scalar MPI_LONG_LONG_INT Param 2624 I(4) 4 scalar MPI_LOR Param 2430 I(4) 4 scalar MPI_LXOR Param 2434 I(4) 4 scalar MPI_MAX Param 2418 I(4) 4 scalar MPI_MAXLOC Param 2440 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 2508 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 2496 I(4) 4 scalar MPI_MAX_INFO_KEY Param 2502 I(4) 4 scalar MPI_MAX_INFO_VAL Param 2504 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 2510 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 2500 I(4) 4 scalar MPI_MAX_PORT_NAME Param 2498 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 2506 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 2740 I(4) 4 scalar MPI_MESSAGE_NULL Param 2738 I(4) 4 scalar MPI_MIN Param 2420 I(4) 4 scalar MPI_MINLOC Param 2438 I(4) 4 scalar MPI_MODE_APPEND Param 2764 I(4) 4 scalar MPI_MODE_CREATE Param 2760 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 2756 I(4) 4 scalar MPI_MODE_EXCL Param 2762 I(4) 4 scalar MPI_MODE_NOCHECK Param 2726 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 2732 I(4) 4 scalar MPI_MODE_NOPUT Param 2730 I(4) 4 scalar MPI_MODE_NOSTORE Param 2728 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 2734 I(4) 4 scalar MPI_MODE_RDONLY Param 2750 I(4) 4 scalar MPI_MODE_RDWR Param 2752 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 2766 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 2758 I(4) 4 scalar MPI_MODE_WRONLY Param 2754 I(4) 4 scalar MPI_NO_OP Param 2444 I(4) 4 scalar MPI_NULL_COPY_FN Subr 2794 scalar MPI_NULL_DELETE_FN Subr 2794 scalar MPI_OFFSET Param 2670 I(4) 4 scalar MPI_OFFSET_KIND Param 2592 I(4) 4 scalar MPI_OP_NULL Param 2460 I(4) 4 scalar MPI_ORDER_C Param 2774 I(4) 4 scalar MPI_ORDER_FORTRAN Param 2776 I(4) 4 scalar MPI_PACKED Param 2566 I(4) 4 scalar MPI_PROC_NULL Param 2518 I(4) 4 scalar MPI_PROD Param 2424 I(4) 4 scalar MPI_REAL Param 2546 I(4) 4 scalar MPI_REAL16 Param 2582 I(4) 4 scalar MPI_REAL4 Param 2578 I(4) 4 scalar MPI_REAL8 Param 2580 I(4) 4 scalar MPI_REPLACE Param 2442 I(4) 4 scalar MPI_REQUEST_NULL Param 2464 I(4) 4 scalar MPI_ROOT Param 2524 I(4) 4 scalar MPI_SEEK_CUR Param 2770 I(4) 4 scalar MPI_SEEK_END Param 2772 I(4) 4 scalar Page 52 Source Listing COAL 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SEEK_SET Param 2768 I(4) 4 scalar MPI_SHORT Param 2606 I(4) 4 scalar MPI_SHORT_INT Param 2636 I(4) 4 scalar MPI_SIGNED_CHAR Param 2600 I(4) 4 scalar MPI_SIMILAR Param 2402 I(4) 4 scalar MPI_SOURCE Param 2267 I(4) 4 scalar MPI_STATUS_SIZE Param 2269 I(4) 4 scalar 2271,2272 MPI_SUBARRAYS_SUPPORTED Param 2788 L(4) 4 scalar MPI_SUBVERSION Param 2534 I(4) 4 scalar MPI_SUCCESS Param 2276 I(4) 4 scalar MPI_SUM Param 2422 I(4) 4 scalar MPI_TAG Param 2267 I(4) 4 scalar MPI_TAG_UB Param 2472 I(4) 4 scalar MPI_THREAD_FUNNELED Param 2744 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 2748 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 2746 I(4) 4 scalar MPI_THREAD_SINGLE Param 2742 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 2724 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 2722 I(4) 4 scalar MPI_TYPECLASS_REAL Param 2720 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 2801 scalar MPI_TYPE_NULL_COPY_FN Subr 2802 scalar MPI_TYPE_NULL_DELETE_FN Subr 2801 scalar MPI_UB Param 2562 I(4) 4 scalar MPI_UINT16_T Param 2652 I(4) 4 scalar MPI_UINT32_T Param 2654 I(4) 4 scalar MPI_UINT64_T Param 2656 I(4) 4 scalar MPI_UINT8_T Param 2650 I(4) 4 scalar MPI_UNDEFINED Param 2512 I(4) 4 scalar MPI_UNEQUAL Param 2404 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 2480 I(4) 4 scalar MPI_UNSIGNED Param 2612 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 2602 I(4) 4 scalar MPI_UNSIGNED_LONG Param 2616 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 2626 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 2608 I(4) 4 scalar MPI_VERSION Param 2532 I(4) 4 scalar MPI_WCHAR Param 2604 I(4) 4 scalar MPI_WIN_BASE Param 2486 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 2492 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 2490 I(4) 4 scalar MPI_WIN_DUP_FN Subr 2799 scalar MPI_WIN_FLAVOR_ALLOCATE Param 2408 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 2406 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 2410 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 2412 I(4) 4 scalar MPI_WIN_MODEL Param 2494 I(4) 4 scalar MPI_WIN_NULL Param 2454 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 2800 scalar MPI_WIN_NULL_DELETE_FN Subr 2799 scalar MPI_WIN_SEPARATE Param 2414 I(4) 4 scalar MPI_WIN_SIZE Param 2488 I(4) 4 scalar MPI_WIN_UNIFIED Param 2416 I(4) 4 scalar MPI_WTICK Func 2795 R(8) 8 scalar MPI_WTIME Func 2795 R(8) 8 scalar Page 53 Source Listing COAL 2025-03-12 18:22 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WTIME_IS_GLOBAL Param 2478 I(4) 4 scalar PMPI_WTICK Func 2796 R(8) 8 scalar PMPI_WTIME Func 2796 R(8) 8 scalar TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References BUF R(4) 4 4 1 30000000 COM 2832 IP I(4) 4 0 scalar COM 2822,2824,2827,2831,2832 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_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 Page 54 Source Listing REPLACE 2025-03-12 18:22 CHKOUT.F 2836 SUBROUTINE REPLACE(A,LEN,IW) 2837 INCLUDE "BUFFER.comm" 2846 REAL A(*) 2847 IPP = IW 2848 DO I = 1, LEN 2849 BUF(IPP) = A(I) 2850 IPP = IPP + 1 2851 END DO 2852 return 2853 END ENTRY POINTS Name replace_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A Dummy 2836 R(4) 4 1 0 ARG,INOUT 2849 BUFFER Common 2844 12000000 SAVE 4 I Local 2848 I(4) 4 scalar 2848,2849 IBUFMAX Param 2839 I(4) 4 scalar 2844 IPP Local 2847 I(4) 4 scalar 2847,2849,2850 IW Dummy 2836 I(4) 4 scalar ARG,INOUT 2847 LEN Dummy 2836 I(4) 4 scalar ARG,INOUT 2848 REPLACE Subr 2836 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References BUF R(4) 4 4 1 30000000 COM 2849 IP I(4) 4 0 scalar COM Page 55 Source Listing REPLACE 2025-03-12 18:22 CHKOUT.F 2854 2855 Page 56 Source Listing REPLACE 2025-03-12 18:22 Subprograms/Common Blocks CHKOUT.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 930 101112 SAVE ACMCLH Common 937 2274864 SAVE ACMPRE Common 944 101108 SAVE ACMRDL Common 951 1289088 SAVE ACMRDS Common 960 1289088 SAVE ACMSFC Common 969 202224 SAVE BOCO Common 916 1860144 SAVE BUFFER Common 1038 12000000 SAVE 4 BUFFER Common 2256 12000000 SAVE 4 BUFFER Common 2844 12000000 SAVE 4 CHKOUT Subr 2 CLDWTR Common 996 1213608 SAVE CNVCLD Common 923 101104 SAVE COAL Subr 2248 CONTIN Common 1016 4574956 SAVE CTLBLK Common 794 112 SAVE CUINIT Common 1089 4 SAVE DYNAM Common 872 259964 SAVE GLB_TABLE Common 145 336 SAVE INDX Common 1004 1708 SAVE INDXG Common 1010 8084 SAVE LOOPS Common 802 65752 SAVE MAPOT Common 820 1732 SAVE MAPPINGS Common 164 5024 SAVE MASKS Common 809 2426496 SAVE MPIFCMB5 Common 722 4 SAVE MPIFCMB5 Common 2808 4 SAVE MPIFCMB9 Common 723 4 SAVE MPIFCMB9 Common 2809 4 SAVE MPIPRIV1 Common 727 28 SAVE MPIPRIV1 Common 2813 28 SAVE MPIPRIV2 Common 729 24 SAVE MPIPRIV2 Common 2815 24 SAVE MPIPRIVC Common 732 2 SAVE MPIPRIVC Common 2818 2 SAVE MPPCOM Common 109 1724 SAVE OUTFIL Common 787 58 SAVE PHYS Common 890 858036 SAVE PPTASM Common 1066 1364916 SAVE PRFHLD Common 991 50552 SAVE PVRBLS Common 842 1946252 SAVE QFLX Common 1041 1769320 SAVE REPLACE Subr 2836 SOIL Common 979 581380 SAVE TEMPCOM Common 150 6603768 SAVE TEMPV Common 1026 2300116 SAVE TIMCHK Common 1126 24 SAVE TIMING Common 1123 16 SAVE Page 57 Source Listing REPLACE 2025-03-12 18:22 Subprograms/Common Blocks CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References TOPO Common 158 17478548 SAVE VRBLS Common 832 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 -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__ Page 58 Source Listing REPLACE 2025-03-12 18:22 CHKOUT.F -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 -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 Page 59 Source Listing REPLACE 2025-03-12 18:22 CHKOUT.F 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 : CHKOUT.lst no -o COMPILER: Intel(R) Fortran 19.1-1655