Page 1 Source Listing CHKOUT
2025-03-12 18:21 /tmp/ifortnSK4BH.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:21 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"
103 INCLUDE "parm.tbl"
105 INCLUDE "parmsoil"
107 INCLUDE "mpp.h"
166 INCLUDE "mpif.h"
167 # 1 "./sp.h" 1
168 # 4
169
170 # 85 "CHKOUT.F" 2
171 C--------------------------------------------------------------------
733 P A R A M E T E R
734 & (IMJM=IM*JM-JM/2,IMT=2*IM-1,JMT=JM/2+1,LB=2*IM+JM-3)
735 C--------------------------------------------------------------------
736 P A R A M E T E R
737 & (LM1=LM-1,LP1=LM+1,JAM=6+2*(JM-10)
738 &, NRLX1=250,NRLX2=100)
739 C--------------------------------------------------------------------
740 P A R A M E T E R
741 & (CAPA=0.285896)
742 C--------------------------------------------------------------------
743 C
744 C DECLARE VARIABLES.
745 C
746 C--------------------------------------------------------------------
747 L O G I C A L
748 & RUN,FIRST,RESTRT,SIGMA,STDRD,MESO,ONHOUR,EXBC,NEST
749 C--------------------------------------------------------------------
750 CHARACTER*2 FHR
751 CHARACTER*8 OUTJOB
752 CHARACTER*13 ASSIGN
753 CHARACTER*4 ASTMRK,TMYY
754 CHARACTER*15 SUBMIT
755 CHARACTER*32 LABEL
756 INTEGER LABINT(4)
757 EQUIVALENCE(LABEL, LABINT)
Page 3 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
758 CHARACTER*80 LINE
759 CHARACTER*1 LINE1(80)
760 CHARACTER*4 RESTHR
761 EQUIVALENCE (LINE,LINE1)
762 C--------------------------------------------------------------------
763 R E A L
764 & PSLP (IDIM1:IDIM2,JDIM1:JDIM2)
765 &,PDS (IDIM1:IDIM2,JDIM1:JDIM2)
766 &,FACTR (IDIM1:IDIM2,JDIM1:JDIM2)
767 &,SWTTC (IDIM1:IDIM2,JDIM1:JDIM2,LM)
768 &,TTND (IDIM1:IDIM2,JDIM1:JDIM2,LM)
769 C
770 I N T E G E R
771 & IKNTS(0:INPES*JNPES-1),IDISP(0:INPES*JNPES-1)
772 C
773 R E A L
774 &,ALLOCATABLE,DIMENSION(:,:,:) :: TEMPSOIL
775 C
776 C--------------------------------------------------------------------
777 CHARACTER FINFIL*50,DONE*10
778 C--------------------------------------------------------------------
779 C
780 C INCLUDE COMMON BLOCKS.
781 C
782 C--------------------------------------------------------------------
783 INCLUDE "OUTFIL.comm"
789 INCLUDE "CTLBLK.comm"
799 INCLUDE "LOOPS.comm"
806 INCLUDE "MASKS.comm"
817 INCLUDE "MAPOT.comm"
829 INCLUDE "VRBLS.comm"
839 INCLUDE "PVRBLS.comm"
869 INCLUDE "DYNAMD.comm"
885 INCLUDE "PHYS2.comm"
913 INCLUDE "BOCO.comm"
920 INCLUDE "CNVCLD.comm"
927 INCLUDE "ACMCLD.comm"
934 INCLUDE "ACMCLH.comm"
941 INCLUDE "ACMPRE.comm"
948 INCLUDE "ACMRDL.comm"
957 INCLUDE "ACMRDS.comm"
966 INCLUDE "ACMSFC.comm"
976 INCLUDE "SOIL.comm"
989 INCLUDE "PRFHLD.comm"
993 INCLUDE "CLDWTR.comm"
1001 INCLUDE "INDX.comm"
1013 INCLUDE "CONTIN.comm"
1023 INCLUDE "TEMPV.comm"
1030 INCLUDE "BUFFER.comm"
1039 INCLUDE "QFLX.comm"
1063 INCLUDE "PPTASM.comm"
1064 !--------------------------------------------------------------------
1088 COMMON /CUINIT/ CURAD
1089 save /cuinit/
1090 LOGICAL CURAD
1091 C--------------------------------------------------------------------
1092 C
Page 4 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1093 C DECLARE EQUIVALENCES.
1094 C
1095 C--------------------------------------------------------------------
1096 E Q U I V A L E N C E
1097 & (TTND (1,1,1),SWTTC(1,1,1))
1098 C--------------------------------------------------------------------
1099 I N T E G E R
1100 & JSTAT(MPI_STATUS_SIZE)
1101 C--------------------------------------------------------------------
1102 REAL(8) SUMT(LM),
1103 & SUMT_0(LM),
1104 & SUMT2(LM),
1105 & SUMT2_0(LM)
1106 REAL(8) STDEV,RMS,TMEAN
1107 REAL TMAX(LM), TMAX_0(LM), TMIN(LM), TMIN_0(LM)
1108 REAL(8) STRWAIT, ENDWAIT, rtc
1109 INTEGER IHS
1110 DATA IHS/MPI_REQUEST_NULL/
1111 INTEGER STATUS(MPI_STATUS_SIZE)
1112 INTEGER ISERVE
1113 C
1114 DATA ISERVE / 1 /
1115 C
1116 C--------------------------------------------------------------------
1117 C***
1118 C*** THE FOLLOWING ARE USED FOR TIMIMG PURPOSES ONLY
1119 C***
1120 real*8 timef
1121 real nhb_tim,mpp_tim,init_tim
1122 common/timing/surfce_tim,nhb_tim,res_tim,exch_tim
1123 save /timing/
1124
1125 common/timchk/slp_tim,gath_tim,wrt_tim,prof_tim
1126 1, bcex_tim,stat_tim
1127 save /timchk/
1128 C***********************************************************************
1129 C START CHKOUT HERE.
1130 C***********************************************************************
1131 C***
1132 C*** ON FIRST ENTRY INITIALIZE THE OUTPUT FILE TAG TO ZERO
1133 C*** AND DO PRELIMINARY PROFILE DATA ASSIGNMENTS
1134 C***
1135 IF(NTSD.EQ.1)THEN
1136 ITAG=0
1137 C
1138 DO J=MYJS,MYJE
1139 DO I=MYIS,MYIE
1140 LMHK=LMH(I,J)
1141 TLL1=T(I,J,LMHK)
1142 TLMIN(I,J)=TLL1
1143 TLMAX(I,J)=TLL1
1144 ENDDO
1145 ENDDO
1146 ENDIF
1147 C***********************************************************************
1148 C***
1149 C*** UPDATE MAX AND MIN LOWEST LAYER TEMPS
Page 5 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1150 C***
1151 DO J=MYJS,MYJE
1152 DO I=MYIS,MYIE
1153 LMHK=LMH(I,J)
1154 TLL1=T(I,J,LMHK)
1155 IF(TLL1.LT.TLMIN(I,J))TLMIN(I,J)=TLL1
1156 IF(TLL1.GT.TLMAX(I,J))TLMAX(I,J)=TLL1
1157 ENDDO
1158 ENDDO
1159 C***********************************************************************
1160 C***
1161 C*** FIGURE OUT JUST WHERE IN THE FORECAST WE ARE.
1162 C***
1163 NTSPH=INT(3600./DT+0.50)
1164 TIMES=(NTSD-1)*DT
1165 ONHOUR=.FALSE.
1166 IF((MOD(TIMES,3600.).EQ.0.).OR.
1167 1 (MOD(TIMES,3600.).GT.3600.-DT))ONHOUR=.TRUE.
1168 C------------------------------------------------------------------
1169 C
1170 C IF THE CURRENT FORECAST TIME IS A FULL HOUR OR EQUALS
1171 C A FULL BLOWN POST TIME, THEN WRITE THE FIELDS.
1172 C IF NOT, EXIT THIS ROUTINE.
1173 C
1174 IF((NTSD.EQ.NSHDE).OR.ONHOUR)GO TO 100
1175 IF(NSTART.GT.0.AND.NSTART+1.EQ.NSHDE.AND.
1176 1 NTSD-1.EQ.NSHDE)GO TO 100
1177 !
1178 !--- Begin: Initialize convective cloud fields for radiation before
1179 ! returning to EBU (Ferrier 23 Jan 02)
1180 !
1181 IF (CURAD) THEN
1182 IF (MYPE .EQ. 0) THEN
1183 WRITE(0,"(a)") 'CHKOUT: Initialize CUPPT,HTOP,HBOT'
1184 WRITE(6,"(a)") 'CHKOUT: Initialize CUPPT,HTOP,HBOT'
1185 ENDIF
1186 DO J=MYJS,MYJE
1187 DO I=MYIS,MYIE
1188 CUPPT(I,J)=0.
1189 HTOP(I,J)=100.
1190 HBOT(I,J)=0.
1191 ENDDO
1192 ENDDO
1193 CURAD=.FALSE.
1194 ENDIF
1195 !
1196 !--- End:
1197 !
1198 RETURN
1199 C
1200 C IT IS TIME TO WRITE TO THE PROFILE FILE AND/OR WRITE
1201 C TEMPORARY FILES FOR A FULL BLOWN POST.
1202 C
1203 100 CONTINUE
1204 C---------------------------------------------------------------------
1205 C
1206 C SET FORECAST HOUR.
Page 6 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1207 C
1208 IHR=NTSD/TSPH+0.5
1209 C--------------------------------------------------------------------
1210 C*** IF THIS IS NOT A FULL BLOWN OUTPUT TIME,
1211 C*** SKIP THE RESTART FILE AND POST JOB WRITES AND GO TO SECTION
1212 C*** WHERE ACCUMULATION ARRAYS ARE ZEROED OUT IF NECESSARY.
1213 C--------------------------------------------------------------------
1214 C
1215 IF(NTSD.NE.NSHDE.AND.NSTART+1.NE.NSHDE)GO TO 1310
1216 C
1217 C--------------------------------------------------------------------
1218 C***
1219 C*** COMPUTE TEMPERATURE STATISTICS
1220 C***
1221 C--------------------------------------------------------------------
1222 btim0=timef()
1223 DO 1100 L=1,LM
1224 C
1225 TMAX(L)=-1.E6
1226 TMIN(L)=1.E6
1227 SUMT(L)=0.
1228 SUMT2(L)=0.
1229 C
1230 JJ=0
1231 DO J=MY_JS_GLB,MY_JE_GLB
1232 JJ=JJ+1
1233 IF(MOD(J+1,2).NE.0.and.MY_IE_GLB.EQ.IM)THEN
1234 IMAX=MY_IE_LOC-1
1235 ELSE
1236 IMAX=MY_IE_LOC
1237 ENDIF
1238 DO I=MYIS,IMAX
1239 SUMT(L)=SUMT(L)+T(I,JJ,L)
1240 SUMT2(L)=SUMT2(L)+T(I,JJ,L)**2
1241 TMAX(L)=AMAX1(TMAX(L),T(I,JJ,L))
1242 TMIN(L)=AMIN1(TMIN(L),T(I,JJ,L))
1243 ENDDO
1244 ENDDO
1245 1100 CONTINUE
1246 C
1247 C*** GLOBAL STATS
1248 C
1249 CALL MPI_REDUCE(SUMT,SUMT_0,LM,MPI_REAL8,MPI_SUM,0,
1250 1 MPI_COMM_COMP,IRTN)
1251 CALL MPI_REDUCE(SUMT2,SUMT2_0,LM,MPI_REAL8,MPI_SUM,0,
1252 1 MPI_COMM_COMP,IRTN)
1253 CALL MPI_REDUCE(TMAX,TMAX_0,LM,MPI_REAL,MPI_MAX,0,
1254 1 MPI_COMM_COMP,IRTN)
1255 CALL MPI_REDUCE(TMIN,TMIN_0,LM,MPI_REAL,MPI_MIN,0,
1256 1 MPI_COMM_COMP,IRTN)
1257 C
1258 C
1259 IF(MYPE.EQ.0)THEN
1260 DO L=1,LM
1261 TMEAN=SUMT_0(L)/DBLE(IMJM)
1262 STDEV=DSQRT((DBLE(IMJM)*SUMT2_0(L)-SUMT_0(L)**2)/
1263 1 DBLE(DBLE(IMJM)*(DBLE(IMJM-1))))
Page 7 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1264 RMS =DSQRT(SUMT2_0(L)/DBLE(IMJM))
1265 WRITE(6,1094)L,TMAX_0(L),TMIN_0(L)
1266 WRITE(6,1095)TMEAN,STDEV,RMS
1267 1094 FORMAT(' LAYER=',I2,' TMAX=',E13.6,' TMIN=',E13.6)
1268 1095 FORMAT(9X,' TMEAN=',E13.6,' STDEV=',E13.6,
1269 1 ' RMS=',E13.6)
1270 ENDDO
1271 ENDIF
1272 C
1273 stat_tim=stat_tim+timef()-btim0
1274 C
1275 C----------------------------------------------------------------------
1276 C*** WE REACH THE CODE BELOW ONLY IF IT IS A FULL BLOWN POSTING TIME.
1277 C*** WRITE DATA REQUIRED TO RESTART THE MODEL/INITIALIZE THE POST.
1278 C----------------------------------------------------------------------
1279 CALL MPI_BARRIER(MPI_COMM_COMP,ISTAT)
1280 C
1281 C PDS IS SURFACE PRESSURE.
1282 C TSHLTR HOLDS THE 2M THETA, CONVERT TO TEMPERATURE.
1283 C TERM1 IS 2m*G/(Rd*T)
1284 C
1285 !$omp parallel do
1286 DO J=MYJS,MYJE
1287 DO I=MYIS,MYIE
1288 LLMH=LMH(I,J)
1289 PDS(I,J)=PD(I,J)+PT
1290 TERM1=-0.068283/T(I,J,LLMH)
1291 PSHLTR(I,J)=PDS(I,J)*EXP(TERM1)
1292 TSHLTR(I,J)=TSHLTR(I,J)*(PSHLTR(I,J)*1.E-5)**CAPA
1293 C
1294 IF(CZMEAN(I,J).GT.0.)THEN
1295 FACTR(I,J)=CZEN(I,J)/CZMEAN(I,J)
1296 ELSE
1297 FACTR(I,J)=0.
1298 ENDIF
1299 C
1300 ENDDO
1301 ENDDO
1302 C
1303 C MAKE SURE POST DOES NOT BLOW UP WHEN COMPUTING RH
1304 C ON THE GLOBAL N/S BOUNDARIES
1305 C
1306 IF(MYPE.LT.INPES)THEN
1307 DO J=1,2
1308 DO I=MYIS,MYIE
1309 TSHLTR(I,J)=TSHLTR(I,3)
1310 QSHLTR(I,J)=QSHLTR(I,3)
1311 ENDDO
1312 ENDDO
1313 ENDIF
1314 IF(MYPE.GE.NPES-INPES)THEN
1315 DO J=MYJE-1,MYJE
1316 DO I=MYIS,MYIE
1317 TSHLTR(I,J)=TSHLTR(I,MYJE-2)
1318 QSHLTR(I,J)=QSHLTR(I,MYJE-2)
1319 ENDDO
1320 ENDDO
Page 8 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1321 ENDIF
1322 C
1323 C SWTTC IS THE CURRENT SW TEMP TENDENCIES.
1324 C
1325 !$omp parallel do
1326 DO L=1,LM
1327 DO J=MYJS,MYJE
1328 DO I=MYIS,MYIE
1329 SWTTC(I,J,L)=RSWTT(I,J,L)*FACTR(I,J)
1330 ENDDO
1331 ENDDO
1332 ENDDO
1333 C
1334 C*** TTND IS THE CURRENT RAD TEMP TENDENCIES.
1335 C
1336 DO L=1,LM
1337 DO J=MYJS,MYJE
1338 DO I=MYIS,MYIE
1339 TTND(I,J,L)=RLWTT(I,J,L)+SWTTC(I,J,L)
1340 ENDDO
1341 ENDDO
1342 ENDDO
1343 C***
1344 C*** CREATE NAME FOR RESTART FILE.
1345 C***
1346 c IF(MYPE.EQ.0)THEN
1347 C
1348 ITAG=NTSD/TSPH+0.5
1349 CALL get_environment_variable("tmmark",RESTHR)
1350 IF(RESTHR.EQ.' ')THEN
1351 c WRITE(RSTFIL,1150)ITAG,MYPE
1352 c1150 FORMAT('restrt',I2.2
1353 c 1, '.',I3.3)
1354 WRITE(RSTFIL,1150)ITAG
1355 1150 FORMAT('restrt',I2.2
1356 1, '.quilt')
1357 ELSE
1358 c WRITE(RSTFIL,1155)ITAG,MYPE,RESTHR
1359 c1155 FORMAT('restrt',I2.2
1360 c 1, '.',I3.3,'.',a4)
1361 WRITE(RSTFIL,1155)ITAG,RESTHR
1362 1155 FORMAT('restrt',I2.2
1363 1, '.quilt.',a4)
1364 ENDIF
1365 C***
1366 C*** OPEN UNIT TO RESTART FILE.
1367 C***
1368 C wne LRSTRT=8
1369 LRSTRT=81
1370 c
1371 wrt_tim=0.
1372 btimw=timef()
1373 btim0=timef()
1374 c
1375 CLOSE(LRSTRT)
1376 c OPEN(UNIT=LRSTRT,FILE=RSTFIL,FORM='UNFORMATTED',IOSTAT=IER)
1377 c IF(IER.NE.0)WRITE(LIST,*)' LRSTRT OPEN UNIT ERROR IER=',IER
Page 9 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1378 C
1379 C BE SURE THAT THE BUFFER IF AVAILABLE
1380 C
1381 STRWAIT = rtc()
1382 CALL MPI_WAIT(IHS,STATUS,IERR)
1383 ENDWAIT = rtc() - STRWAIT
1384 C
1385 IF(MYPE.EQ.0)THEN
1386 IF(ENDWAIT.GE.1.)THEN
1387 PRINT*,' Appears to be wait time in CHKOUT, time = '
1388 1, ENDWAIT
1389 ENDIF
1390 ENDIF
1391 C
1392 C PLACEHOLDER FOR RECORD LENGTH
1393 CALL COAL(DUMMY,-1)
1394 C***
1395 C*** WRITE DATE AND TIMESTEP INFORMATION TO RESTART FILE.
1396 C***
1397 LABEL='OMEGA-ALPHA*DT/CP'
1398 c WRITE(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL
1399 print*,'rstfil=',rstfil
1400 print*,'idat,ihrst,ntsd=',idat,ihrst,ntsd
1401 CALL COAL(RUN,1)
1402 CALL COAL(IDAT,3)
1403 CALL COAL(IHRST,1)
1404 CALL COAL(NTSD,1)
1405 CALL COAL(LABEL,8)
1406 c ENDIF
1407 C----------------------------------------------------------------------
1408 C***
1409 C*** BEGIN WRITING THE RESTRT FILE
1410 C***
1411 C----------------------------------------------------------------------
1412 C
1413 c WRITE(LRSTRT)((PD(I,J),I=1,MYIE),J=1,MYJE)
1414 c 1, ((RES(I,J),I=1,MYIE),J=1,MYJE)
1415 CALL COAL(PD(1:MYIE,1:MYJE),MYIE*MYJE)
1416 CALL COAL(RES(1:MYIE,1:MYJE),MYIE*MYJE)
1417 C----------------------------------------------------------------------
1418 C
1419 DO L=1,LM
1420 c WRITE(LRSTRT)((OMGALF(I,J,L),I=1,MYIE),J=1,MYJE)
1421 CALL COAL(OMGALF(1:MYIE,1:MYJE,L),MYIE*MYJE)
1422 ENDDO
1423 c rec46
1424 C
1425 LABEL = 'BND,PD,RES,T,Q,U,V,Q2,TTND,CWM,TRAIN,TCUCN'
1426 c WRITE(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL
1427 c 1, FIRST,IOUT,NSHDE
1428 CALL COAL(RUN,1)
1429 CALL COAL(IDAT,3)
1430 CALL COAL(IHRST,1)
1431 CALL COAL(NTSD,1)
1432 CALL COAL(LABEL,8)
1433 CALL COAL(FIRST,1)
1434 CALL COAL(IOUT,1)
Page 10 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1435 CALL COAL(NSHDE,1)
1436 c rec47
1437 C----------------------------------------------------------------------
1438 C
1439 c WRITE(LRSTRT)((PD(I,J),I=1,MYIE),J=1,MYJE)
1440 c 1, ((RES(I,J),I=1,MYIE),J=1,MYJE)
1441 c 2, ((FIS(I,J),I=1,MYIE),J=1,MYJE)
1442 CALL COAL(PD(1:MYIE,1:MYJE),MYIE*MYJE)
1443 CALL COAL(RES(1:MYIE,1:MYJE),MYIE*MYJE)
1444 CALL COAL(FIS(1:MYIE,1:MYJE),MYIE*MYJE)
1445 CCCCC
1446 CCCCC
1447 CCCCC BOUNDARY CONDITION WRITE CHANGED TO BLANK RECORD
1448 CCCCC
1449 CCCCC
1450 c WRITE(LRSTRT)
1451 CALL COAL(PDB,LB*2)
1452 CALL COAL(TB,LB*LM*2)
1453 CALL COAL(QB,LB*LM*2)
1454 CALL COAL(UB,LB*LM*2)
1455 CALL COAL(VB,LB*LM*2)
1456 CALL COAL(Q2B,LB*LM*2)
1457 CALL COAL(CWMB,LB*LM*2)
1458 c rec48
1459 C----------------------------------------------------------------------
1460 C
1461 DO L = 1,LM
1462 c WRITE(LRSTRT)((T(I,J,L),I=1,MYIE),J=1,MYJE)
1463 CALL COAL(T(1:MYIE,1:MYJE,L),MYIE*MYJE)
1464 C
1465 c WRITE(LRSTRT)((Q(I,J,L),I=1,MYIE),J=1,MYJE)
1466 CALL COAL(Q(1:MYIE,1:MYJE,L),MYIE*MYJE)
1467 C
1468 c WRITE(LRSTRT)((U(I,J,L),I=1,MYIE),J=1,MYJE)
1469 CALL COAL(U(1:MYIE,1:MYJE,L),MYIE*MYJE)
1470 C
1471 c WRITE(LRSTRT)((V(I,J,L),I=1,MYIE),J=1,MYJE)
1472 CALL COAL(V(1:MYIE,1:MYJE,L),MYIE*MYJE)
1473 C
1474 c WRITE(LRSTRT)((Q2(I,J,L),I=1,MYIE),J=1,MYJE)
1475 CALL COAL(Q2(1:MYIE,1:MYJE,L),MYIE*MYJE)
1476 C
1477 c WRITE(LRSTRT)((TTND(I,J,L),I=1,MYIE),J=1,MYJE)
1478 CALL COAL(TTND(1:MYIE,1:MYJE,L),MYIE*MYJE)
1479 C
1480 c WRITE(LRSTRT)((CWM(I,J,L),I=1,MYIE),J=1,MYJE)
1481 CALL COAL(CWM(1:MYIE,1:MYJE,L),MYIE*MYJE)
1482 C
1483 c WRITE(LRSTRT)((TRAIN(I,J,L),I=1,MYIE),J=1,MYJE)
1484 CALL COAL(TRAIN(1:MYIE,1:MYJE,L),MYIE*MYJE)
1485 C
1486 c WRITE(LRSTRT)((TCUCN(I,J,L),I=1,MYIE),J=1,MYJE)
1487 CALL COAL(TCUCN(1:MYIE,1:MYJE,L),MYIE*MYJE)
1488 ENDDO
1489 c rec453
1490 C----------------------------------------------------------------------
1491 C
Page 11 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1492 LABEL = 'MISC VARIABLES'
1493 c WRITE(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL
1494 c 1, ((RSWIN(I,J),I=1,MYIE),J=1,MYJE)
1495 c 2, ((RSWOUT(I,J),I=1,MYIE),J=1,MYJE)
1496 c 3, ((TG(I,J),I=1,MYIE),J=1,MYJE)
1497 c 4, ((Z0(I,J),I=1,MYIE),J=1,MYJE)
1498 c 5, ((AKMS(I,J),I=1,MYIE),J=1,MYJE)
1499 c 6, ((CZEN(I,J),I=1,MYIE),J=1,MYJE)
1500 CALL COAL(RUN,1)
1501 CALL COAL(IDAT,3)
1502 CALL COAL(IHRST,1)
1503 CALL COAL(NTSD,1)
1504 CALL COAL(LABEL,8)
1505 CALL COAL(RSWIN(1:MYIE,1:MYJE),MYIE*MYJE)
1506 CALL COAL(RSWOUT(1:MYIE,1:MYJE),MYIE*MYJE)
1507 CALL COAL(TG(1:MYIE,1:MYJE),MYIE*MYJE)
1508 CALL COAL(Z0(1:MYIE,1:MYJE),MYIE*MYJE)
1509 CALL COAL(AKMS(1:MYIE,1:MYJE),MYIE*MYJE)
1510 CALL COAL(CZEN(1:MYIE,1:MYJE),MYIE*MYJE)
1511
1512 c rec454
1513 C----------------------------------------------------------------------
1514 C
1515 c WRITE(LRSTRT)((AKHS(I,J),I=1,MYIE),J=1,MYJE)
1516 c 1, ((THS(I,J),I=1,MYIE),J=1,MYJE)
1517 c 2, ((QS(I,J),I=1,MYIE),J=1,MYJE)
1518 c 3, ((TWBS(I,J),I=1,MYIE),J=1,MYJE)
1519 c 4, ((QWBS(I,J),I=1,MYIE),J=1,MYJE)
1520 c 5, ((HBOT(I,J),I=1,MYIE),J=1,MYJE)
1521 c 6, ((CFRACL(I,J),I=1,MYIE),J=1,MYJE)
1522 CALL COAL(AKHS(1:MYIE,1:MYJE),MYIE*MYJE)
1523 CALL COAL(THS(1:MYIE,1:MYJE),MYIE*MYJE)
1524 CALL COAL(QS(1:MYIE,1:MYJE),MYIE*MYJE)
1525 CALL COAL(TWBS(1:MYIE,1:MYJE),MYIE*MYJE)
1526 CALL COAL(QWBS(1:MYIE,1:MYJE),MYIE*MYJE)
1527 CALL COAL(HBOT(1:MYIE,1:MYJE),MYIE*MYJE)
1528 CALL COAL(CFRACL(1:MYIE,1:MYJE),MYIE*MYJE)
1529 c rec455
1530 C----------------------------------------------------------------------
1531 C
1532 c WRITE(LRSTRT)((THZ0(I,J),I=1,MYIE),J=1,MYJE)
1533 c 1, ((QZ0(I,J),I=1,MYIE),J=1,MYJE)
1534 c 2, ((UZ0(I,J),I=1,MYIE),J=1,MYJE)
1535 c 3, ((VZ0(I,J),I=1,MYIE),J=1,MYJE)
1536 c 4, ((USTAR(I,J),I=1,MYIE),J=1,MYJE)
1537 c 5, ((HTOP(I,J),I=1,MYIE),J=1,MYJE)
1538 c 6, ((CFRACM(I,J),I=1,MYIE),J=1,MYJE)
1539 CALL COAL(THZ0(1:MYIE,1:MYJE),MYIE*MYJE)
1540 CALL COAL(QZ0(1:MYIE,1:MYJE),MYIE*MYJE)
1541 CALL COAL(UZ0(1:MYIE,1:MYJE),MYIE*MYJE)
1542 CALL COAL(VZ0(1:MYIE,1:MYJE),MYIE*MYJE)
1543 CALL COAL(USTAR(1:MYIE,1:MYJE),MYIE*MYJE)
1544 CALL COAL(HTOP(1:MYIE,1:MYJE),MYIE*MYJE)
1545 CALL COAL(CFRACM(1:MYIE,1:MYJE),MYIE*MYJE)
1546 c rec456
1547 C----------------------------------------------------------------------
1548 C
Page 12 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1549 c WRITE(LRSTRT)((SNO(I,J),I=1,MYIE),J=1,MYJE)
1550 c 1, ((SI(I,J),I=1,MYIE),J=1,MYJE)
1551 c 2, ((CLDEFI(I,J),I=1,MYIE),J=1,MYJE)
1552 c 3, ((RF(I,J),I=1,MYIE),J=1,MYJE)
1553 c 4, ((PSLP(I,J),I=1,MYIE),J=1,MYJE)
1554 c 5, ((CUPPT(I,J),I=1,MYIE),J=1,MYJE)
1555 c 6, ((CFRACH(I,J),I=1,MYIE),J=1,MYJE)
1556 CALL COAL(SNO(1:MYIE,1:MYJE),MYIE*MYJE)
1557 CALL COAL(SI(1:MYIE,1:MYJE),MYIE*MYJE)
1558 CALL COAL(CLDEFI(1:MYIE,1:MYJE),MYIE*MYJE)
1559 CALL COAL(RF(1:MYIE,1:MYJE),MYIE*MYJE)
1560 CALL COAL(PSLP(1:MYIE,1:MYJE),MYIE*MYJE)
1561 CALL COAL(CUPPT(1:MYIE,1:MYJE),MYIE*MYJE)
1562 CALL COAL(CFRACH(1:MYIE,1:MYJE),MYIE*MYJE)
1563 c rec457
1564 C----------------------------------------------------------------------
1565 C
1566 c WRITE(LRSTRT)((SOILTB(I,J),I=1,MYIE),J=1,MYJE)
1567 c 1, ((SFCEXC(I,J),I=1,MYIE),J=1,MYJE)
1568 c 2, ((SMSTAV(I,J),I=1,MYIE),J=1,MYJE)
1569 c 3, ((SMSTOT(I,J),I=1,MYIE),J=1,MYJE)
1570 c 4, ((GRNFLX(I,J),I=1,MYIE),J=1,MYJE)
1571 c 5, ((PCTSNO(I,J),I=1,MYIE),J=1,MYJE)
1572 CALL COAL(SOILTB(1:MYIE,1:MYJE),MYIE*MYJE)
1573 CALL COAL(SFCEXC(1:MYIE,1:MYJE),MYIE*MYJE)
1574 CALL COAL(SMSTAV(1:MYIE,1:MYJE),MYIE*MYJE)
1575 CALL COAL(SMSTOT(1:MYIE,1:MYJE),MYIE*MYJE)
1576 CALL COAL(GRNFLX(1:MYIE,1:MYJE),MYIE*MYJE)
1577 CALL COAL(PCTSNO(1:MYIE,1:MYJE),MYIE*MYJE)
1578 c rec458
1579 C----------------------------------------------------------------------
1580 C
1581 c WRITE(LRSTRT)((RLWIN(I,J),I=1,MYIE),J=1,MYJE)
1582 c 1, ((RADOT(I,J),I=1,MYIE),J=1,MYJE)
1583 c 2, ((CZMEAN(I,J),I=1,MYIE),J=1,MYJE)
1584 c 3, ((SIGT4(I,J),I=1,MYIE),J=1,MYJE)
1585 CALL COAL(RLWIN(1:MYIE,1:MYJE),MYIE*MYJE)
1586 CALL COAL(RADOT(1:MYIE,1:MYJE),MYIE*MYJE)
1587 CALL COAL(CZMEAN(1:MYIE,1:MYJE),MYIE*MYJE)
1588 CALL COAL(SIGT4(1:MYIE,1:MYJE),MYIE*MYJE)
1589 c rec459
1590 C----------------------------------------------------------------------
1591 C
1592 c WRITE(LRSTRT)((U00(I,J),I=1,MYIE),J=1,MYJE)
1593 c 1, UL
1594 c 2, ((LC(I,J),I=1,MYIE),J=1,MYJE)
1595 c 3, ((SR(I,J),I=1,MYIE),J=1,MYJE)
1596 CALL COAL(U00(1:MYIE,1:MYJE),MYIE*MYJE)
1597 CALL COAL(UL,2*LM)
1598 CALL COAL(LC(1:MYIE,1:MYJE),MYIE*MYJE)
1599 CALL COAL(SR(1:MYIE,1:MYJE),MYIE*MYJE)
1600 c rec460
1601 C----------------------------------------------------------------------
1602 C
1603 LABEL = 'ACCUMULATED VARIABLES'
1604 c WRITE(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL
1605 c 1, ((PREC(I,J),I=1,MYIE),J=1,MYJE)
Page 13 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1606 c 2, ((ACPREC(I,J),I=1,MYIE),J=1,MYJE)
1607 c 3, ((ACCLIQ(I,J),I=1,MYIE),J=1,MYJE)
1608 c 4, ((CUPREC(I,J),I=1,MYIE),J=1,MYJE)
1609 CALL COAL(RUN,1)
1610 CALL COAL(IDAT,3)
1611 CALL COAL(IHRST,1)
1612 CALL COAL(NTSD,1)
1613 CALL COAL(LABEL,8)
1614 CALL COAL(PREC(1:MYIE,1:MYJE),MYIE*MYJE)
1615 CALL COAL(ACPREC(1:MYIE,1:MYJE),MYIE*MYJE)
1616 CALL COAL(ACCLIQ(1:MYIE,1:MYJE),MYIE*MYJE)
1617 CALL COAL(CUPREC(1:MYIE,1:MYJE),MYIE*MYJE)
1618 c rec461
1619 C----------------------------------------------------------------------
1620 C
1621 c WRITE(LRSTRT)((ACFRCV(I,J),I=1,MYIE),J=1,MYJE)
1622 c 1, ((NCFRCV(I,J),I=1,MYIE),J=1,MYJE)
1623 c 2, ((ACFRST(I,J),I=1,MYIE),J=1,MYJE)
1624 c 3, ((NCFRST(I,J),I=1,MYIE),J=1,MYJE)
1625 CALL COAL(ACFRCV(1:MYIE,1:MYJE),MYIE*MYJE)
1626 CALL COAL(NCFRCV(1:MYIE,1:MYJE),MYIE*MYJE)
1627 CALL COAL(ACFRST(1:MYIE,1:MYJE),MYIE*MYJE)
1628 CALL COAL(NCFRST(1:MYIE,1:MYJE),MYIE*MYJE)
1629 c rec462
1630 C----------------------------------------------------------------------
1631 C
1632 c WRITE(LRSTRT)((ACSNOW(I,J),I=1,MYIE),J=1,MYJE)
1633 c 1, ((ACSNOM(I,J),I=1,MYIE),J=1,MYJE)
1634 c 2, ((SSROFF(I,J),I=1,MYIE),J=1,MYJE)
1635 c 3, ((BGROFF(I,J),I=1,MYIE),J=1,MYJE)
1636 CALL COAL(ACSNOW(1:MYIE,1:MYJE),MYIE*MYJE)
1637 CALL COAL(ACSNOM(1:MYIE,1:MYJE),MYIE*MYJE)
1638 CALL COAL(SSROFF(1:MYIE,1:MYJE),MYIE*MYJE)
1639 CALL COAL(BGROFF(1:MYIE,1:MYJE),MYIE*MYJE)
1640 c rec463
1641 C----------------------------------------------------------------------
1642 C
1643 c WRITE(LRSTRT)((SFCSHX(I,J),I=1,MYIE),J=1,MYJE)
1644 c 1, ((SFCLHX(I,J),I=1,MYIE),J=1,MYJE)
1645 c 2, ((SUBSHX(I,J),I=1,MYIE),J=1,MYJE)
1646 c 3, ((SNOPCX(I,J),I=1,MYIE),J=1,MYJE)
1647 c 4, ((SFCUVX(I,J),I=1,MYIE),J=1,MYJE)
1648 c 5, ((SFCEVP(I,J),I=1,MYIE),J=1,MYJE)
1649 c 6, ((POTEVP(I,J),I=1,MYIE),J=1,MYJE)
1650 CALL COAL(SFCSHX(1:MYIE,1:MYJE),MYIE*MYJE)
1651 CALL COAL(SFCLHX(1:MYIE,1:MYJE),MYIE*MYJE)
1652 CALL COAL(SUBSHX(1:MYIE,1:MYJE),MYIE*MYJE)
1653 CALL COAL(SNOPCX(1:MYIE,1:MYJE),MYIE*MYJE)
1654 CALL COAL(SFCUVX(1:MYIE,1:MYJE),MYIE*MYJE)
1655 CALL COAL(SFCEVP(1:MYIE,1:MYJE),MYIE*MYJE)
1656 CALL COAL(POTEVP(1:MYIE,1:MYJE),MYIE*MYJE)
1657 c rec464
1658 C----------------------------------------------------------------------
1659 C
1660 c WRITE(LRSTRT)((ASWIN(I,J),I=1,MYIE),J=1,MYJE)
1661 c 1, ((ASWOUT(I,J),I=1,MYIE),J=1,MYJE)
1662 c 2, ((ASWTOA(I,J),I=1,MYIE),J=1,MYJE)
Page 14 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1663 c 3, ((ALWIN(I,J),I=1,MYIE),J=1,MYJE)
1664 c 4, ((ALWOUT(I,J),I=1,MYIE),J=1,MYJE)
1665 c 5, ((ALWTOA(I,J),I=1,MYIE),J=1,MYJE)
1666 CALL COAL(ASWIN(1:MYIE,1:MYJE),MYIE*MYJE)
1667 CALL COAL(ASWOUT(1:MYIE,1:MYJE),MYIE*MYJE)
1668 CALL COAL(ASWTOA(1:MYIE,1:MYJE),MYIE*MYJE)
1669 CALL COAL(ALWIN(1:MYIE,1:MYJE),MYIE*MYJE)
1670 CALL COAL(ALWOUT(1:MYIE,1:MYJE),MYIE*MYJE)
1671 CALL COAL(ALWTOA(1:MYIE,1:MYJE),MYIE*MYJE)
1672 C
1673 c WRITE(LRSTRT)ARDSW,ARDLW,ASRFC,AVRAIN,AVCNVC
1674 CALL COAL(ARDSW,1)
1675 CALL COAL(ARDLW,1)
1676 CALL COAL(ASRFC,1)
1677 CALL COAL(AVRAIN,1)
1678 CALL COAL(AVCNVC,1)
1679 c rec465
1680 C
1681 c WRITE(LRSTRT)((TH10(I,J),I=1,MYIE),J=1,MYJE)
1682 c 1, ((Q10(I,J),I=1,MYIE),J=1,MYJE)
1683 c 2, ((U10(I,J),I=1,MYIE),J=1,MYJE)
1684 c 3, ((V10(I,J),I=1,MYIE),J=1,MYJE)
1685 c 4, ((TSHLTR(I,J),I=1,MYIE),J=1,MYJE)
1686 c 5, ((QSHLTR(I,J),I=1,MYIE),J=1,MYJE)
1687 c 6, ((PSHLTR(I,J),I=1,MYIE),J=1,MYJE)
1688 c 1, ((TH30(I,J),I=1,MYIE),J=1,MYJE)
1689 c 2, ((Q30(I,J),I=1,MYIE),J=1,MYJE)
1690 c 3, ((U30(I,J),I=1,MYIE),J=1,MYJE)
1691 c 4, ((V30(I,J),I=1,MYIE),J=1,MYJE)
1692 CALL COAL(TH10(1:MYIE,1:MYJE),MYIE*MYJE)
1693 CALL COAL(Q10(1:MYIE,1:MYJE),MYIE*MYJE)
1694 CALL COAL(U10(1:MYIE,1:MYJE),MYIE*MYJE)
1695 CALL COAL(V10(1:MYIE,1:MYJE),MYIE*MYJE)
1696 CALL COAL(TSHLTR(1:MYIE,1:MYJE),MYIE*MYJE)
1697 CALL COAL(QSHLTR(1:MYIE,1:MYJE),MYIE*MYJE)
1698 CALL COAL(PSHLTR(1:MYIE,1:MYJE),MYIE*MYJE)
1699 CALL COAL(TH30(1:MYIE,1:MYJE),MYIE*MYJE)
1700 CALL COAL(Q30(1:MYIE,1:MYJE),MYIE*MYJE)
1701 CALL COAL(U30(1:MYIE,1:MYJE),MYIE*MYJE)
1702 CALL COAL(V30(1:MYIE,1:MYJE),MYIE*MYJE)
1703 c rec466
1704 C----------------------------------------------------------------------
1705 C
1706 c WRITE(LRSTRT)(((SMC(I,J,N),I=1,MYIE),J=1,MYJE),N=1,NSOIL)
1707 CALL COAL(SMC(1:MYIE,1:MYJE,1:NSOIL),MYIE*MYJE*NSOIL)
1708 c rec467
1709 C----------------------------------------------------------------------
1710 C
1711 c WRITE(LRSTRT)((CMC(I,J),I=1,MYIE),J=1,MYJE)
1712 CALL COAL(CMC(1:MYIE,1:MYJE),MYIE*MYJE)
1713 c rec468
1714 C----------------------------------------------------------------------
1715 C
1716 c WRITE(LRSTRT)(((STC(I,J,N),I=1,MYIE),J=1,MYJE),N=1,NSOIL)
1717 CALL COAL(STC(1:MYIE,1:MYJE,1:NSOIL),MYIE*MYJE*NSOIL)
1718 c rec469
1719 C----------------------------------------------------------------------
Page 15 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1720 C
1721 c WRITE(LRSTRT)(((SH2O(I,J,N),I=1,MYIE),J=1,MYJE),N=1,NSOIL)
1722 CALL COAL(SH2O(1:MYIE,1:MYJE,1:NSOIL),MYIE*MYJE*NSOIL)
1723 c rec???
1724 C----------------------------------------------------------------------
1725 C
1726 c WRITE(LRSTRT)((ALBEDO(I,J),I=1,MYIE),J=1,MYJE)
1727 CALL COAL(ALBEDO(1:MYIE,1:MYJE),MYIE*MYJE)
1728 c rec???
1729 C----------------------------------------------------------------------
1730 C
1731 c WRITE(LRSTRT)((FQU(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1732 c 2, ((FQV(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1733 c 3, ((DQFLX(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1734 c 4, ((FCU(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1735 c 5, ((FCV(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1736 c 6, ((DCFLX(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1737
1738 c 7, ((FQU7(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1739 c 8, ((FQV7(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1740 c 9, ((DQFLX7(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1741 c 0, ((FCU7(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1742 c 1, ((FCV7(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1743 c 2, ((DCFLX7(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1744
1745 c 3, ((DQADV(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1746 c 4, ((FQNEV1(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1747 c 5, ((FQSEV1(I,J),I=MYIS,MYIE),J=MYJS,MYJE)
1748 CALL COAL(FQU(1:MYIE,1:MYJE),MYIE*MYJE)
1749 CALL COAL(FQV(1:MYIE,1:MYJE),MYIE*MYJE)
1750 CALL COAL(DQFLX(1:MYIE,1:MYJE),MYIE*MYJE)
1751 CALL COAL(FCU(1:MYIE,1:MYJE),MYIE*MYJE)
1752 CALL COAL(FCV(1:MYIE,1:MYJE),MYIE*MYJE)
1753 CALL COAL(DCFLX(1:MYIE,1:MYJE),MYIE*MYJE)
1754
1755 CALL COAL(FQU7(1:MYIE,1:MYJE),MYIE*MYJE)
1756 CALL COAL(FQV7(1:MYIE,1:MYJE),MYIE*MYJE)
1757 CALL COAL(DQFLX7(1:MYIE,1:MYJE),MYIE*MYJE)
1758 CALL COAL(FCU7(1:MYIE,1:MYJE),MYIE*MYJE)
1759 CALL COAL(FCV7(1:MYIE,1:MYJE),MYIE*MYJE)
1760 CALL COAL(DCFLX7(1:MYIE,1:MYJE),MYIE*MYJE)
1761
1762 CALL COAL(DQADV(1:MYIE,1:MYJE),MYIE*MYJE)
1763 CALL COAL(FQNEV1(1:MYIE,1:MYJE),MYIE*MYJE)
1764 CALL COAL(FQSEV1(1:MYIE,1:MYJE),MYIE*MYJE)
1765 c rec???
1766 C----------------------------------------------------------------------
1767 C
1768 c WRITE(LRSTRT)((VAPINC(I,J),I=1,MYIE),J=1,MYJE)
1769 c 2, ((CLDINC(I,J),I=1,MYIE),J=1,MYJE)
1770 c 3, ((VAPINC7(I,J),I=1,MYIE),J=1,MYJE)
1771 c 4, ((CLDINC7(I,J),I=1,MYIE),J=1,MYJE)
1772 CALL COAL(VAPINC(1:MYIE,1:MYJE),MYIE*MYJE)
1773 CALL COAL(CLDINC(1:MYIE,1:MYJE),MYIE*MYJE)
1774 CALL COAL(VAPINC7(1:MYIE,1:MYJE),MYIE*MYJE)
1775 CALL COAL(CLDINC7(1:MYIE,1:MYJE),MYIE*MYJE)
1776 c rec???
Page 16 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1777 C----------------------------------------------------------------------
1778 c WRITE(LRSTRT)((POTFLX(I,J),I=1,MYIE),J=1,MYJE)
1779 c 1, ((TLMIN(I,J),I=1,MYIE),J=1,MYJE)
1780 c 2, ((TLMAX(I,J),I=1,MYIE),J=1,MYJE)
1781 c 3, ACUTIM,ARATIM,APHTIM
1782 c 4, NHEAT,NPHS,NCNVC,NPREC,NRDSW,NRDLW,NSRFC
1783 c 5, TPH0D,TLM0D,RESTRT
1784 CALL COAL(POTFLX(1:MYIE,1:MYJE),MYIE*MYJE)
1785 CALL COAL(TLMIN(1:MYIE,1:MYJE),MYIE*MYJE)
1786 CALL COAL(TLMAX(1:MYIE,1:MYJE),MYIE*MYJE)
1787 CALL COAL(ACUTIM,1)
1788 CALL COAL(ARATIM,1)
1789 CALL COAL(APHTIM,1)
1790 CALL COAL(NHEAT,1)
1791 CALL COAL(NPHS,1)
1792 CALL COAL(NCNVC,1)
1793 CALL COAL(NPREC,1)
1794 CALL COAL(NRDSW,1)
1795 CALL COAL(NRDLW,1)
1796 CALL COAL(NSRFC,1)
1797 CALL COAL(TPH0D,1)
1798 CALL COAL(TLM0D,1)
1799 CALL COAL(RESTRT,1)
1800 c rec470
1801 C----------------------------------------------------------------------
1802 DO L=1,LM
1803 c WRITE(LRSTRT)((RSWTT(I,J,L),I=1,MYIE),J=1,MYJE)
1804 c WRITE(LRSTRT)((RLWTT(I,J,L),I=1,MYIE),J=1,MYJE)
1805 CALL COAL(RSWTT(1:MYIE,1:MYJE,L),MYIE*MYJE)
1806 CALL COAL(RLWTT(1:MYIE,1:MYJE,L),MYIE*MYJE)
1807 ENDDO
1808 C
1809 DO L=1,LM
1810 c WRITE(LRSTRT)((T0(I,J,L),I=1,MYIE),J=1,MYJE)
1811 c WRITE(LRSTRT)((Q0(I,J,L),I=1,MYIE),J=1,MYJE)
1812 CALL COAL(T0(1:MYIE,1:MYJE,L),MYIE*MYJE)
1813 CALL COAL(Q0(1:MYIE,1:MYJE,L),MYIE*MYJE)
1814 ENDDO
1815 C
1816 c WRITE(LRSTRT)((P0(I,J),I=1,MYIE),J=1,MYJE)
1817 CALL COAL(P0(1:MYIE,1:MYJE),MYIE*MYJE)
1818 C
1819 c WRITE(LRSTRT)((CNVBOT(I,J),I=1,MYIE),J=1,MYJE)
1820 c WRITE(LRSTRT)((CNVTOP(I,J),I=1,MYIE),J=1,MYJE)
1821 CALL COAL(CNVBOT(1:MYIE,1:MYJE),MYIE*MYJE)
1822 CALL COAL(CNVTOP(1:MYIE,1:MYJE),MYIE*MYJE)
1823 C
1824 c WRITE(LRSTRT)((RSWTOA(I,J),I=1,MYIE),J=1,MYJE)
1825 c WRITE(LRSTRT)((RLWTOA(I,J),I=1,MYIE),J=1,MYJE)
1826 CALL COAL(RSWTOA(1:MYIE,1:MYJE),MYIE*MYJE)
1827 CALL COAL(RLWTOA(1:MYIE,1:MYJE),MYIE*MYJE)
1828 c rec560
1829 C----------------------------------------------------------------------
1830 C AT THIS POINT WE HAVE ACCUMULATED ALL OF THE DATA INTO BUF.
1831 C WE WANT TO KNOW THE MAXIMUM AMOUNT ACROSS ALL MPI TASKS
1832 C THIS IS USEFUL IN CASE WE DECIDE TO WRITE A FILE
1833 C INSTEAD OF SENDING THE DATA TO THE I/O SERVERS
Page 17 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1834 C
1835 CALL MPI_ALLREDUCE(IP,IPMAX,1,MPI_INTEGER,MPI_MAX,
1836 * MPI_COMM_COMP,IERR)
1837 C
1838 C IPMAX IS THE MAXIMUM NUMBER OF 4 BYTE REALS ACROSS
1839 C THE MPI TASKS
1840 C LETS COMPUTE A RECLEN THAT IS A MULTIPLE OF 2**18 BYTES
1841 C WE WILL USE THIS WHEN OPENING THE DIRECT ACCESS FILE
1842 C
1843 IBLOCK = ((IPMAX*4)/(2**18) ) + 1
1844 IRECLEN = IBLOCK * ( 2**18 )
1845 C
1846 C WE WILL PLACE THE RECLEN IN THE BEGINNING OF THE FILE
1847 C THIS IS HANDY
1848 C
1849 CALL REPLACE(IRECLEN,1,1)
1850 C
1851 C IF WE HAVE ANY I/O SERVERS WE WILL SEND THE DATA TO THEM
1852 C FOR PROCESSING
1853 C
1854 IF ( IQUILT_GROUP .GT. 0 ) THEN
1855 C
1856 IF ( MYPE .EQ. 0 ) THEN
1857 CALL MPI_SEND
1858 * (ITAG,1,MPI_INTEGER,0,0,MPI_COMM_INTER_ARRAY(ISERVE),IERR)
1859 ENDIF
1860 C
1861 DO I = 0, INUMQ(ISERVE) -1
1862 CALL PARA_RANGE(0, jnpes-1, INUMQ(ISERVE), I, ISTART, IEND)
1863 cwas call para_range(0, NPES-1,inumq(iserve), i, istart, iend)
1864 MYPE_ROW = MYPE / INPES
1865 C
1866 IF(MYPE_ROW .GE. ISTART .AND. MYPE_ROW .LE. IEND )THEN
1867 CALL MPI_ISEND
1868 * (BUF,IP,mpi_real,I,ITAG,MPI_COMM_INTER_ARRAY(ISERVE),IHS,IERR)
1869 ENDIF
1870 C
1871 ENDDO
1872 C
1873 C IN CASE WE HAVE MULTIPLE GROUPS OF I/O SERVERS, INCREMENT TO THE
1874 C NEXT SERVER FOR THE NEXT OUTPUT TIME
1875 C
1876 ISERVE = ISERVE + 1
1877 IF ( ISERVE .GT. IQUILT_GROUP ) ISERVE = 1
1878 C
1879 C APPARENTLY, WE HAVE CHOSEN NOT TO SUPPLY ANY I/O SERVERS
1880 C WE WILL WRITE A DIRECT ACCESS FILE INSTEAD
1881 C
1882 ELSE
1883 C
1884 OPEN(UNIT=LRSTRT,FILE=RSTFIL,FORM='UNFORMATTED',IOSTAT=IER,
1885 * ACCESS='DIRECT',RECL=IRECLEN)
1886 IF(IER.NE.0)WRITE(LIST,*)' LRSTRT OPEN UNIT ERROR IER=',IER
1887 C
1888 WRITE(LRSTRT,REC=MYPE+1) (BUF(I),I=1,IP)
1889 CLOSE(LRSTRT)
1890 C
Page 18 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1891 ENDIF
1892 c
1893 dif_tim=timef()-btim0
1894 wrt_tim=wrt_tim+dif_tim
1895 call mpi_reduce(wrt_tim,wrt_tim_0,1,MPI_REAL,MPI_MAX,0,
1896 1 MPI_COMM_COMP,ierr)
1897 if(mype.eq.0)then
1898 write(6,*)' SHIPPED OR WROTE DATA, TIME = ',
1899 * wrt_tim_0*1.e-03
1900 endif
1901 CALL MPI_BARRIER(MPI_COMM_COMP,ISTAT)
1902 C***
1903 C*** SEND SIGNAL THAT ALL TASKS HAVE FINISHED WRITING
1904 C***
1905 IF(IQUILT_GROUP.EQ.0)THEN
1906 IF(MYPE.EQ.0)THEN
1907 DONE='DONE'
1908 WRITE(FINFIL,1190)ITAG,RESTHR
1909 1190 FORMAT('fcstdone',I2.2,'.',A4)
1910 LFINFIL=91
1911 CLOSE(LFINFIL)
1912 OPEN(UNIT=LFINFIL,FILE=FINFIL,FORM='UNFORMATTED',IOSTAT=IER)
1913 WRITE(LFINFIL)DONE
1914 CLOSE(LFINFIL)
1915 IF(IER.NE.0)WRITE(LIST,*)' SIGNAL SENT TO FINFIL: DONE'
1916 ENDIF
1917 ENDIF
1918 C----------------------------------------------------------------------
1919 C
1920 C*** RESET ACCUMULATION COUNTERS TO ZERO.
1921 C
1922 APHTIM=0.
1923 ACUTIM=0.
1924 ARATIM=0.
1925 C----------------------------------------------------------------------
1926 C***
1927 C*** EDIT POST JOB SCRIPT TO ACCESS DATA JUST WRITTEN.
1928 C***
1929 C----------------------------------------------------------------------
1930 IF(MYPE.EQ.0)THEN
1931 CALL get_environment_variable("tmmark",ASTMRK)
1932 IF(ASTMRK.EQ.' ')THEN
1933 WRITE(ASSIGN,1200)ITAG
1934 1200 FORMAT('.assign',I2.2)
1935 ELSE
1936 WRITE(ASSIGN,1230)ITAG,ASTMRK
1937 1230 FORMAT('.assign',I2.2,A4)
1938 ENDIF
1939 C
1940 WRITE(OUTJOB,1240) ITAG
1941 1240 FORMAT('outjob',I2.2)
1942 WRITE(LIST,*)'CHKOUT: GENERATE POST SCRIPT FILE ',OUTJOB
1943 C
1944 LUNIN = 21
1945 LUNOT = 5
1946 REWIND(LUNIN)
1947 OPEN(LUNOT,FILE=OUTJOB)
Page 19 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
1948 1250 READ(LUNIN,1260,END=1290) LINE
1949 1260 FORMAT(A80)
1950 C
1951 C*** TMMARK STATEMENT.
1952 C
1953 IF(INDEX(LINE,'tmmark=').NE.0)THEN
1954 IF(LINE1(11).EQ.'0')THEN
1955 CALL get_environment_variable("TM00",TMYY)
1956 ELSEIF(LINE1(11).EQ.'3')THEN
1957 CALL get_environment_variable("TM03",TMYY)
1958 ELSEIF(LINE1(11).EQ.'6')THEN
1959 CALL get_environment_variable("TM06",TMYY)
1960 ELSEIF(LINE1(11).EQ.'9')THEN
1961 CALL get_environment_variable("TM09",TMYY)
1962 ELSEIF(LINE1(11).EQ.'2')THEN
1963 CALL get_environment_variable("TM12",TMYY)
1964 ENDIF
1965 WRITE(LUNOT,1260) LINE
1966 GO TO 1250
1967 ENDIF
1968 C
1969 C*** TMYY STATEMENT
1970 C
1971 IF(INDEX(LINE,'TMYY=').NE.0)THEN
1972 LINE = 'TMYY='//TMYY
1973 WRITE(LUNOT,1260) LINE
1974 GO TO 1250
1975 ENDIF
1976 C
1977 C*** ASSIGN STATEMENT.
1978 C
1979 IF(INDEX(LINE,'ASSIGN=').NE.0)THEN
1980 LINE = 'ASSIGN='//ASSIGN
1981 WRITE(LUNOT,1260) LINE
1982 GO TO 1250
1983 ENDIF
1984 C
1985 C*** MODEL RESTART FILE.
1986 C
1987 IF(INDEX(LINE,'RESTRT=').NE.0)THEN
1988 LINE = 'RESTRT='//RSTFIL
1989 WRITE(LUNOT,1260) LINE
1990 GO TO 1250
1991 ENDIF
1992 C
1993 C*** LINES CONTAINING qq NEED TO BE MODIFIED FOR DISPOSAL
1994 C*** FROM AND TO PROPER PLACES
1995 C
1996 IF(INDEX(LINE,'qq').NE.0)THEN
1997 IHR1 = IHR / 10
1998 IHR2 = IHR - 10 * IHR1
1999 IPUTIT = INDEX(LINE,'qq')
2000 WRITE(LINE1(IPUTIT),1270)IHR1
2001 WRITE(LINE1(IPUTIT+1),1270)IHR2
2002 1270 FORMAT(I1)
2003 ISTRT = IPUTIT + 2
2004 C
Page 20 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
2005 DO I = ISTRT,80
2006 IF(LINE1(I).EQ.'q')THEN
2007 WRITE(LINE1(I),1270)IHR1
2008 WRITE(LINE1(I+1),1270)IHR2
2009 GO TO 1280
2010 ENDIF
2011 ENDDO
2012 1280 CONTINUE
2013 C
2014 WRITE(LUNOT,1260)LINE
2015 GO TO 1250
2016 ENDIF
2017 C
2018 C*** TURN ON LINE TO QUEUE JOB AFTER ALL OUTPUT JOBS.
2019 C
2020 IF(NTSD.GE.NTSTM)THEN
2021 IF(INDEX(LINE,'$LAST').NE.0)THEN
2022 LXX = INDEX(LINE,'#')
2023 LINE = LINE(LXX+1:80)
2024 WRITE(LUNOT,1260) LINE
2025 GO TO 1250
2026 ENDIF
2027 ENDIF
2028 C
2029 C*** IF NOTHING TRIGGERED ABOVE, WRITE LINE TO OUTPUT FILE.
2030 C
2031 WRITE(LUNOT,1260) LINE
2032 GO TO 1250
2033 C
2034 1290 CONTINUE
2035 CLOSE(LUNOT)
2036 C
2037 ENDIF
2038 C
2039 C*** IF SUBPOST (NAMELIST INPUT VARIABLE) IS TRUE THEN
2040 C*** THE FOLLOWING CALL TO ISHELL WILL SUBMIT A POST JOB TO
2041 C*** PROCESS THE DATA JUST WRITTEN TO THE TEMPORARY FILES.
2042 C
2043 C*** IF SUBPOST IS FALSE ISHELL WILL NOT BE CALLED AND
2044 C*** THE POST JOB SHOULD BE SUBMITTED LATER IN THE SCRIPT
2045 C
2046 ccccc IF(SUBPOST)THEN
2047 ccccc SUBMIT = 'qsub ' // OUTJOB
2048 ccccc WRITE(LIST,*)'CHKOUT: SUBMIT POST JOB ',SUBMIT
2049 ccccc CALL ISHELL(SUBMIT)
2050 ccccc ENDIF
2051 C--------------------------------------------------------------------
2052 C***
2053 C*** POST-POSTING UPDATING AND INITIALIZING.
2054 C***
2055 C--------------------------------------------------------------------
2056 C*** IF (NTSD.EQ.NSHDE), THEN THIS WAS ALSO A FORECAST
2057 C*** OUTPUT TIME. WE NEED TO INCREMENT NSHDE FOR THE
2058 C*** NEXT FORECAST OUTPUT TIME.
2059 C
2060 IF(NTSD.EQ.NSHDE.OR.NSTART+1.EQ.NSHDE)THEN
2061 IOUT = IOUT+1
Page 21 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
2062 IF (.NOT.RESTRT) GO TO 1300
2063 IF (NTSD.EQ.NSHDE.OR.NSTART+1.EQ.NSHDE) GO TO 1300
2064 IOUT = IOUT-1
2065 1300 NSHDE = ISHDE(IOUT)
2066 ENDIF
2067 C
2068 C*** ZERO ACCUMULATOR ARRAYS.
2069 C*** AVERAGE CLOUD AMOUNT ARRAY
2070 C
2071 1310 CONTINUE
2072 IF(MOD(NTSD,NCLOD).LT.NPHS)THEN
2073 IF(MYPE.EQ.0)WRITE(LIST,*)'CHKOUT: ZERO AVG CLD AMT ARRAY'
2074 DO J=MYJS,MYJE
2075 DO I=MYIS,MYIE
2076 ACFRCV(I,J) = 0.
2077 NCFRCV(I,J) = 0
2078 ACFRST(I,J) = 0.
2079 NCFRST(I,J) = 0
2080 ENDDO
2081 ENDDO
2082 ENDIF
2083 C
2084 C*** TOTAL AND CONVECTIVE PRECIPITATION ARRAYS.
2085 C*** TOTAL SNOW AND SNOW MELT ARRAYS.
2086 C*** STORM SURFACE AND BASE GROUND RUN OFF ARRAYS.
2087 C*** PRECIPITATION TYPE ARRAY
2088 C
2089 IF(MOD(NTSD,NPREC).LT.NCNVC)THEN
2090 IF(MYPE.EQ.0)WRITE(LIST,*)
2091 1 'CHKOUT: ZERO ACCUM PRECIP ARRAYS'
2092 DO J=MYJS,MYJE
2093 DO I=MYIS,MYIE
2094 ACPREC(I,J) = 0.
2095 CUPREC(I,J) = 0.
2096 ACSNOW(I,J) = 0.
2097 ACSNOM(I,J) = 0.
2098 SSROFF(I,J) = 0.
2099 BGROFF(I,J) = 0.
2100 SFCEVP(I,J) = 0.
2101 POTEVP(I,J) = 0.
2102 ENDDO
2103 ENDDO
2104 CduleS
2105 DO J=JDIM1,JDIM2
2106 DO I=IDIM1,IDIM2
2107 VAPINC(I,J) = 0.
2108 CLDINC(I,J) = 0.
2109 VAPINC7(I,J) = 0.
2110 CLDINC7(I,J) = 0.
2111 C
2112 FQNEV(I,J)=0.
2113 FQSEV(I,J)=0.
2114 FCNEV(I,J)=0.
2115 FCSEV(I,J)=0.
2116 FCNEV7(I,J)=0.
2117 FCSEV7(I,J)=0.
2118 FQNEV7(I,J)=0.
Page 22 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
2119 FQSEV7(I,J)=0.
2120 FQU(I,J)=0.
2121 FQV(I,J)=0.
2122 FCU(I,J)=0.
2123 FCV(I,J)=0.
2124 FQU7(I,J)=0.
2125 FQV7(I,J)=0.
2126 FCU7(I,J)=0.
2127 FCV7(I,J)=0.
2128 DQADV(I,J)=0.
2129 DQFLX(I,J)=0.
2130 DCFLX(I,J)=0.
2131 DQFLX7(I,J)=0.
2132 DCFLX7(I,J)=0.
2133 ENDDO
2134 ENDDO
2135 CduleE
2136 ENDIF
2137 C
2138 C*** GRID-SCALE AND CONVECTIVE (LATENT) HEATING ARRAYS.
2139 C
2140 IF(MOD(NTSD,NHEAT).LT.NCNVC)THEN
2141 IF(MYPE.EQ.0)WRITE(LIST,*)
2142 1 'CHKOUT: ZERO ACCUM LATENT HEATING ARRAYS'
2143 AVRAIN = 0.
2144 AVCNVC = 0.
2145 DO L=1,LM
2146 DO J=MYJS,MYJE
2147 DO I=MYIS,MYIE
2148 TRAIN(I,J,L) = 0.
2149 TCUCN(I,J,L) = 0.
2150 ENDDO
2151 ENDDO
2152 ENDDO
2153 ENDIF
2154 !
2155 !--- Begin: Initialize convective cloud fields for radiation before
2156 ! returning to EBU (Ferrier 23 Jan 02)
2157 !
2158 IF (CURAD) THEN
2159 IF (MYPE .EQ. 0) THEN
2160 WRITE(0,"(a)") 'CHKOUT: Initialize CUPPT,HTOP,HBOT'
2161 WRITE(6,"(a)") 'CHKOUT: Initialize CUPPT,HTOP,HBOT'
2162 ENDIF
2163 DO J=MYJS,MYJE
2164 DO I=MYIS,MYIE
2165 CUPPT(I,J)=0.
2166 HTOP(I,J)=100.
2167 HBOT(I,J)=0.
2168 ENDDO
2169 ENDDO
2170 CURAD=.FALSE.
2171 ENDIF
2172 C
2173 C*** RESET CONVECTIVE CLOUD TOP AND BOTTOM ARRAYS
2174 C (diagnostic only; these fields are not cycled & not read when TSTART=0)
2175 C
Page 23 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
2176 DO J=MYJS,MYJE
2177 DO I=MYIS,MYIE
2178 CNVTOP(I,J)=100.
2179 CNVBOT(I,J)=0.
2180 ENDDO
2181 ENDDO
2182 !
2183 !--- End:
2184 !
2185 C
2186 C*** LONG WAVE RADIATION ARRAYS.
2187 C
2188 IF(MOD(NTSD,NRDLW).LT.NPHS)THEN
2189 IF(MYPE.EQ.0)WRITE(LIST,*)
2190 1 'CHKOUT: ZERO ACCUM LW RADTN ARRAYS'
2191 ARDLW = 0.
2192 DO J=MYJS,MYJE
2193 DO I=MYIS,MYIE
2194 ALWIN(I,J) = 0.
2195 ALWOUT(I,J) = 0.
2196 ALWTOA(I,J) = 0.
2197 ENDDO
2198 ENDDO
2199 ENDIF
2200 C
2201 C*** SHORT WAVE RADIATION ARRAYS.
2202 C
2203 IF(MOD(NTSD,NRDSW).LT.NPHS)THEN
2204 IF(MYPE.EQ.0)WRITE(LIST,*)
2205 1 'CHKOUT: ZERO ACCUM SW RADTN ARRAYS'
2206 ARDSW = 0.
2207 DO J=MYJS,MYJE
2208 DO I=MYIS,MYIE
2209 ASWIN(I,J) = 0.
2210 ASWOUT(I,J) = 0.
2211 ASWTOA(I,J) = 0.
2212 ENDDO
2213 ENDDO
2214 ENDIF
2215 C
2216 C*** SURFACE SENSIBLE AND LATENT HEAT FLUX ARRAYS.
2217 C
2218 IF(MOD(NTSD,NSRFC).LT.NPHS)THEN
2219 IF(MYPE.EQ.0)WRITE(LIST,*)
2220 1 'CHKOUT: ZERO ACCUM SFC FLUX ARRAYS'
2221 ASRFC = 0.
2222 DO J=MYJS,MYJE
2223 DO I=MYIS,MYIE
2224 SFCSHX(I,J) = 0.
2225 SFCLHX(I,J) = 0.
2226 SUBSHX(I,J) = 0.
2227 SNOPCX(I,J) = 0.
2228 SFCUVX(I,J) = 0.
2229 POTFLX(I,J) = 0.
2230 ENDDO
2231 ENDDO
2232 ENDIF
Page 24 Source Listing CHKOUT
2025-03-12 18:21 CHKOUT.F
2233 C
2234 C*** RESET THE MAX/MIN TEMPERATURE ARRAYS
2235 C
2236 DO J=MYJS,MYJE
2237 DO I=MYIS,MYIE
2238 TLMIN(I,J)=999.
2239 TLMAX(I,J)=-999.
2240 ENDDO
2241 ENDDO
2242 C
2243 C END OF ROUTINE.
2244 C
2245 RETURN
2246 END
ENTRY POINTS
Name
chkout_
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
100 Label 1203 1174,1176
1094 Label 1267 1265
1095 Label 1268 1266
1100 Label 1245 1223
1150 Label 1355 1354
1155 Label 1362 1361
1190 Label 1909 1908
1200 Label 1934 1933
1230 Label 1937 1936
1240 Label 1941 1940
1250 Label 1948 1966,1974,1982,1990,2015,2025,2032
1260 Label 1949 1948,1965,1973,1981,1989,2014,2024
,2031
1270 Label 2002 2000,2001,2007,2008
1280 Label 2012 2009
1290 Label 2034 1948
1300 Label 2065 2062,2063
1310 Label 2071 1215
ACMCLD Common 929 287288 SAVE
ACMCLH Common 936 6463824 SAVE
ACMPRE Common 943 287284 SAVE
ACMRDL Common 950 3662832 SAVE
ACMRDS Common 959 3662832 SAVE
ACMSFC Common 968 574576 SAVE
AMAX1 Func 1241 scalar 1241
AMIN1 Func 1242 scalar 1242
ASSIGN Local 752 CHAR 13 scalar 1933,1936,1980
ASTMRK Local 753 CHAR 4 scalar 1931,1932,1936
BOCO Common 915 1860144 SAVE
BTIM0 Local 1222 R(4) 4 scalar 1222,1273,1373,1893
Page 25 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
BTIMW Local 1372 R(4) 4 scalar 1372
BUFFER Common 1037 12000000 SAVE
4
CAPA Param 741 R(4) 4 scalar 1292
CHKOUT Subr 2
CLDWTR Common 995 3447720 SAVE
CNVCLD Common 922 287280 SAVE
COAL Subr 1393 1393,1401,1402,1403,1404,1405,1415
,1416,1421,1428,1429,1430,1431,143
2,1433,1434,1435,1442,1443,1444,14
51,1452,1453,1454,1455,1456,1457,1
463,1466,1469,1472,1475,1478,1481,
1484,1487,1500,1501,1502,1503,1504
,1505,1506,1507,1508,1509,1510,152
2,1523,1524,1525,1526,1527,1528,15
39,1540,1541,1542,1543,1544,1545,1
556,1557,1558,1559,1560,1561,1562,
1572,1573,1574,1575,1576,1577,1585
,1586,1587,1588,1596,1597,1598,159
9,1609,1610,1611,1612,1613,1614,16
15,1616,1617,1625,1626,1627,1628,1
636,1637,1638,1639,1650,1651,1652,
1653,1654,1655,1656,1666,1667,1668
,1669,1670,1671,1674,1675,1676,167
7,1678,1692,1693,1694,1695,1696,16
97,1698,1699,1700,1701,1702,1707,1
712,1717,1722,1727,1748,1749,1750,
1751,1752,1753,1755,1756,1757,1758
,1759,1760,1762,1763,1764,1772,177
3,1774,1775,1784,1785,1786,1787,17
88,1789,1790,1791,1792,1793,1794,1
795,1796,1797,1798,1799,1805,1806,
1812,1813,1817,1821,1822,1826,1827
CONTIN Common 1015 12999420 SAVE
CTLBLK Common 793 112 SAVE
CUINIT Common 1088 4 SAVE
DBLE Func 1261 scalar 1261,1262,1263,1264
DIF_TIM Local 1893 R(4) 4 scalar 1893,1894
DONE Local 777 CHAR 10 scalar 1907,1913
DSQRT Func 1262 scalar 1262,1264
DUMMY Local 1393 R(4) 4 scalar 1393
DYNAM Common 871 725404 SAVE
ENDWAIT Local 1108 R(8) 8 scalar 1383,1386,1388
EXBC Local 748 L(4) 4 scalar
EXP Func 1291 scalar 1291
FACTR Local 766 R(4) 4 2 17955 1295,1297,1329
FHR Local 750 CHAR 2 scalar
FINFIL Local 777 CHAR 50 scalar 1908,1912
GET_ENVIRONMENT_VARIABLE Intrin 1349 1349,1931,1955,1957,1959,1961,1963
GLB_TABLE Common 144 128 SAVE
I Local 1139 I(4) 4 scalar 1139,1140,1141,1142,1143,1152,1153
,1154,1155,1156,1187,1188,1189,119
0,1238,1239,1240,1241,1242,1287,12
88,1289,1290,1291,1292,1294,1295,1
297,1308,1309,1310,1316,1317,1318,
Page 26 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
1328,1329,1338,1339,1861,1862,1868
,1888,2005,2006,2007,2008,2075,207
6,2077,2078,2079,2093,2094,2095,20
96,2097,2098,2099,2100,2101,2106,2
107,2108,2109,2110,2112,2113,2114,
2115,2116,2117,2118,2119,2120,2121
,2122,2123,2124,2125,2126,2127,212
8,2129,2130,2131,2132,2147,2148,21
49,2164,2165,2166,2167,2177,2178,2
179,2193,2194,2195,2196,2208,2209,
2210,2211,2223,2224,2225,2226,2227
,2228,2229,2237,2238,2239
IBLOCK Local 1843 I(4) 4 scalar 1843,1844
IBUFMAX Param 1032 I(4) 4 scalar 1037
IDIM1 Param 99 I(4) 4 scalar 764,765,766,767,768,803,809,810,81
2,813,814,832,834,835,836,842,843,
844,845,846,847,848,849,850,851,85
2,853,854,855,856,857,858,860,865,
877,878,879,880,881,882,898,899,90
0,901,902,903,904,905,906,907,908,
923,924,931,932,938,939,945,946,95
2,953,954,955,961,962,963,964,970,
971,972,973,979,980,981,982,983,98
4,985,986,991,996,998,1006,1016,10
17,1018,1019,1020,1026,1027,1041,1
042,1044,1045,1047,1048,1049,1050,
1052,1053,1054,1055,1057,1058,1059
,1060,1066,1067,1069,1070,2106
IDIM2 Param 99 I(4) 4 scalar 764,765,766,767,768,803,809,810,81
2,813,814,832,834,835,836,842,843,
844,845,846,847,848,849,850,851,85
2,853,854,855,856,857,858,860,865,
877,878,879,880,881,882,898,899,90
0,901,902,903,904,905,906,907,908,
923,924,931,932,938,939,945,946,95
2,953,954,955,961,962,963,964,970,
971,972,973,979,980,981,982,983,98
4,985,986,991,996,998,1006,1016,10
17,1018,1019,1020,1026,1027,1041,1
042,1044,1045,1047,1048,1049,1050,
1052,1053,1054,1055,1057,1058,1059
,1060,1066,1067,1069,1070,2106
IDISP Local 771 I(4) 4 1 7
IEND Local 1862 I(4) 4 scalar 1862,1866
IER Local 1884 I(4) 4 scalar 1884,1886,1912,1915
IERR Local 1382 I(4) 4 scalar 1382,1836,1858,1868,1896
IGSTL Param 94 I(4) 4 scalar 99
IGSTR Param 94 I(4) 4 scalar 99
IHR Local 1208 I(4) 4 scalar 1208,1997,1998
IHR1 Local 1997 I(4) 4 scalar 1997,1998,2000,2007
IHR2 Local 1998 I(4) 4 scalar 1998,2001,2008
IHS Local 1109 I(4) 4 scalar 1110,1382,1868
IKNTS Local 771 I(4) 4 1 7
IM Param 83 I(4) 4 scalar 96,99,150,151,152,153,154,158,159,
164,734,1010,1233
Page 27 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
IMAX Local 1234 I(4) 4 scalar 1234,1236,1238
IMJM Param 734 I(4) 4 scalar 1261,1262,1263,1264
IMT Param 734 I(4) 4 scalar
INDEX Func 1953 scalar 1953,1971,1979,1987,1996,1999,2021
,2022
INDX Common 1003 6564 SAVE
INDXG Common 1009 8084 SAVE
INIT_TIM Local 1121 R(4) 4 scalar
INPES Param 91 I(4) 4 scalar 96,99,134,135,136,145,146,771,1306
,1314,1864
INT Func 1163 scalar 1163
IPMAX Local 1835 I(4) 4 scalar 1835,1843
IPUTIT Local 1999 I(4) 4 scalar 1999,2000,2001,2003
IRECLEN Local 1844 I(4) 4 scalar 1844,1849,1885
IRTN Local 1250 I(4) 4 scalar 1250,1252,1254,1256
ISERVE Local 1112 I(4) 4 scalar 1114,1858,1861,1862,1868,1876,1877
ISTART Local 1862 I(4) 4 scalar 1862,1866
ISTAT Local 1279 I(4) 4 scalar 1279,1901
ISTRT Local 2003 I(4) 4 scalar 2003,2005
ITAIL Param 96 I(4) 4 scalar
ITB Param 104 I(4) 4 scalar 895,910
ITBQ Param 104 I(4) 4 scalar 896,910
J Local 1138 I(4) 4 scalar 1138,1140,1141,1142,1143,1151,1153
,1154,1155,1156,1186,1188,1189,119
0,1231,1233,1286,1288,1289,1290,12
91,1292,1294,1295,1297,1307,1309,1
310,1315,1317,1318,1327,1329,1337,
1339,2074,2076,2077,2078,2079,2092
,2094,2095,2096,2097,2098,2099,210
0,2101,2105,2107,2108,2109,2110,21
12,2113,2114,2115,2116,2117,2118,2
119,2120,2121,2122,2123,2124,2125,
2126,2127,2128,2129,2130,2131,2132
,2146,2148,2149,2163,2165,2166,216
7,2176,2178,2179,2192,2194,2195,21
96,2207,2209,2210,2211,2222,2224,2
225,2226,2227,2228,2229,2236,2238,
2239
JAM Param 737 I(4) 4 scalar 802,875
JDIM1 Param 100 I(4) 4 scalar 764,765,766,767,768,803,809,810,81
2,813,814,832,834,835,836,842,843,
844,845,846,847,848,849,850,851,85
2,853,854,855,856,857,858,860,865,
877,878,879,880,881,882,898,899,90
0,901,902,903,904,905,906,907,908,
923,924,931,932,938,939,945,946,95
2,953,954,955,961,962,963,964,970,
971,972,973,979,980,981,982,983,98
4,985,986,991,996,998,1004,1005,10
16,1017,1018,1019,1020,1026,1027,1
041,1042,1044,1045,1047,1048,1049,
1050,1052,1053,1054,1055,1057,1058
,1059,1060,1066,1067,1069,1070,210
5
JDIM2 Param 100 I(4) 4 scalar 764,765,766,767,768,803,809,810,81
Page 28 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
2,813,814,832,834,835,836,842,843,
844,845,846,847,848,849,850,851,85
2,853,854,855,856,857,858,860,865,
877,878,879,880,881,882,898,899,90
0,901,902,903,904,905,906,907,908,
923,924,931,932,938,939,945,946,95
2,953,954,955,961,962,963,964,970,
971,972,973,979,980,981,982,983,98
4,985,986,991,996,998,1004,1005,10
16,1017,1018,1019,1020,1026,1027,1
041,1042,1044,1045,1047,1048,1049,
1050,1052,1053,1054,1055,1057,1058
,1059,1060,1066,1067,1069,1070,210
5
JGSTL Param 95 I(4) 4 scalar 100
JGSTR Param 95 I(4) 4 scalar 100
JJ Local 1230 I(4) 4 scalar 1230,1232,1239,1240,1241,1242
JM Param 83 I(4) 4 scalar 97,100,150,151,152,153,154,158,159
,164,734,737,1010
JMT Param 734 I(4) 4 scalar
JNPES Param 91 I(4) 4 scalar 97,100,134,135,136,145,146,771,186
2
JSTAT Local 1100 I(4) 4 1 5
JTAIL Param 97 I(4) 4 scalar
JTB Param 104 I(4) 4 scalar 895,910
JTBQ Param 104 I(4) 4 scalar 910
L Local 1223 I(4) 4 scalar 1223,1225,1226,1227,1228,1239,1240
,1241,1242,1260,1261,1262,1264,126
5,1326,1329,1336,1339,1419,1421,14
61,1463,1466,1469,1472,1475,1478,1
481,1484,1487,1802,1805,1806,1809,
1812,1813,2145,2148,2149
LABEL Local 755 CHAR 32 scalar 1397,1405,1425,1432,1492,1504,1603
,1613
LABINT Local 756 I(4) 4 1 4
LB Param 734 I(4) 4 scalar 916,917,1451,1452,1453,1454,1455,1
456,1457
LFINFIL Local 1910 I(4) 4 scalar 1910,1911,1912,1913,1914
LINE Local 758 CHAR 80 scalar 1948,1953,1965,1971,1972,1973,1979
,1980,1981,1987,1988,1989,1996,199
9,2014,2021,2022,2023,2024,2031
LINE1 Local 759 CHAR 1 1 80 1954,1956,1958,1960,1962,2000,2001
,2006,2007,2008
LLMH Local 1288 I(4) 4 scalar 1288,1290
LM Param 83 I(4) 4 scalar 159,737,767,768,812,813,825,834,83
5,860,873,894,916,917,938,939,955,
964,996,997,1017,1018,1019,1020,10
26,1060,1066,1102,1103,1104,1105,1
107,1223,1249,1251,1253,1255,1260,
1326,1336,1419,1452,1453,1454,1455
,1456,1457,1461,1597,1802,1809,214
5
LM1 Param 737 I(4) 4 scalar
LMHK Local 1140 I(4) 4 scalar 1140,1141,1153,1154
LOOPS Common 801 158840 SAVE
Page 29 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
LP1 Param 737 I(4) 4 scalar 825,873,894
LSM Param 83 I(4) 4 scalar 824
LUNIN Local 1944 I(4) 4 scalar 1944,1946,1948
LUNOT Local 1945 I(4) 4 scalar 1945,1947,1965,1973,1981,1989,2014
,2024,2031,2035
LXX Local 2022 I(4) 4 scalar 2022,2023
MAPOT Common 819 1732 SAVE
MAPPINGS Common 163 5024 SAVE
MASKS Common 808 6894720 SAVE
MESO Local 748 L(4) 4 scalar
MOD Func 1166 scalar 1166,1167,1233,2072,2089,2140,2188
,2203,2218
MPIFCMB5 Common 721 4 SAVE
MPIFCMB9 Common 722 4 SAVE
MPIPRIV1 Common 726 28 SAVE
MPIPRIV2 Common 728 24 SAVE
MPIPRIVC Common 731 2 SAVE
MPI_2DOUBLE_PRECISION Param 467 I(4) 4 scalar
MPI_2INT Param 551 I(4) 4 scalar
MPI_2INTEGER Param 465 I(4) 4 scalar
MPI_2REAL Param 469 I(4) 4 scalar
MPI_ADDRESS_KIND Param 503 I(4) 4 scalar
MPI_AINT Param 581 I(4) 4 scalar
MPI_ALLREDUCE Subr 1835 1835
MPI_ANY_SOURCE Param 433 I(4) 4 scalar
MPI_ANY_TAG Param 435 I(4) 4 scalar
MPI_APPNUM Param 397 I(4) 4 scalar
MPI_ASYNC_PROTECTS_NONBLOC
KING Param 703 L(4) 4 scalar
MPI_BAND Param 341 I(4) 4 scalar
MPI_BARRIER Subr 1279 1279,1901
MPI_BOR Param 345 I(4) 4 scalar
MPI_BSEND_OVERHEAD Param 429 I(4) 4 scalar
MPI_BXOR Param 349 I(4) 4 scalar
MPI_BYTE Param 473 I(4) 4 scalar
MPI_CART Param 441 I(4) 4 scalar
MPI_CHAR Param 511 I(4) 4 scalar
MPI_CHARACTER Param 471 I(4) 4 scalar
MPI_COMBINER_CONTIGUOUS Param 599 I(4) 4 scalar
MPI_COMBINER_DARRAY Param 621 I(4) 4 scalar
MPI_COMBINER_DUP Param 597 I(4) 4 scalar
MPI_COMBINER_F90_COMPLEX Param 625 I(4) 4 scalar
MPI_COMBINER_F90_INTEGER Param 627 I(4) 4 scalar
MPI_COMBINER_F90_REAL Param 623 I(4) 4 scalar
MPI_COMBINER_HINDEXED Param 611 I(4) 4 scalar
MPI_COMBINER_HINDEXED_BLOC
K Param 631 I(4) 4 scalar
MPI_COMBINER_HINDEXED_INTE
GER Param 609 I(4) 4 scalar
MPI_COMBINER_HVECTOR Param 605 I(4) 4 scalar
MPI_COMBINER_HVECTOR_INTEG
ER Param 603 I(4) 4 scalar
MPI_COMBINER_INDEXED Param 607 I(4) 4 scalar
MPI_COMBINER_INDEXED_BLOCK Param 613 I(4) 4 scalar
MPI_COMBINER_NAMED Param 595 I(4) 4 scalar
Page 30 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
MPI_COMBINER_RESIZED Param 629 I(4) 4 scalar
MPI_COMBINER_STRUCT Param 617 I(4) 4 scalar
MPI_COMBINER_STRUCT_INTEGE
R Param 615 I(4) 4 scalar
MPI_COMBINER_SUBARRAY Param 619 I(4) 4 scalar
MPI_COMBINER_VECTOR Param 601 I(4) 4 scalar
MPI_COMM_DUP_FN Subr 710 scalar
MPI_COMM_NULL Param 365 I(4) 4 scalar
MPI_COMM_NULL_COPY_FN Subr 711 scalar
MPI_COMM_NULL_DELETE_FN Subr 710 scalar
MPI_COMM_SELF Param 361 I(4) 4 scalar
MPI_COMM_TYPE_SHARED Param 649 I(4) 4 scalar
MPI_COMM_WORLD Param 359 I(4) 4 scalar
MPI_COMPLEX Param 453 I(4) 4 scalar
MPI_COMPLEX16 Param 499 I(4) 4 scalar
MPI_COMPLEX32 Param 501 I(4) 4 scalar
MPI_COMPLEX8 Param 497 I(4) 4 scalar
MPI_CONGRUENT Param 313 I(4) 4 scalar
MPI_CONVERSION_FN_NULL Subr 716 scalar
MPI_COUNT Param 585 I(4) 4 scalar
MPI_COUNT_KIND Param 507 I(4) 4 scalar
MPI_CXX_BOOL Param 587 I(4) 4 scalar
MPI_CXX_DOUBLE_COMPLEX Param 591 I(4) 4 scalar
MPI_CXX_FLOAT_COMPLEX Param 589 I(4) 4 scalar
MPI_CXX_LONG_DOUBLE_COMPLE
X Param 593 I(4) 4 scalar
MPI_C_BOOL Param 571 I(4) 4 scalar
MPI_C_COMPLEX Param 575 I(4) 4 scalar
MPI_C_DOUBLE_COMPLEX Param 577 I(4) 4 scalar
MPI_C_FLOAT_COMPLEX Param 573 I(4) 4 scalar
MPI_C_LONG_DOUBLE_COMPLEX Param 579 I(4) 4 scalar
MPI_DATATYPE_NULL Param 375 I(4) 4 scalar 490,588,590,592,594
MPI_DISPLACEMENT_CURRENT Param 699 I(8) 8 scalar
MPI_DISTRIBUTE_BLOCK Param 691 I(4) 4 scalar
MPI_DISTRIBUTE_CYCLIC Param 693 I(4) 4 scalar
MPI_DISTRIBUTE_DFLT_DARG Param 697 I(4) 4 scalar
MPI_DISTRIBUTE_NONE Param 695 I(4) 4 scalar
MPI_DIST_GRAPH Param 443 I(4) 4 scalar
MPI_DOUBLE Param 533 I(4) 4 scalar
MPI_DOUBLE_COMPLEX Param 455 I(4) 4 scalar
MPI_DOUBLE_INT Param 545 I(4) 4 scalar
MPI_DOUBLE_PRECISION Param 461 I(4) 4 scalar
MPI_DUP_FN Subr 707 scalar
MPI_ERRHANDLER_NULL Param 379 I(4) 4 scalar
MPI_ERROR Param 180 I(4) 4 scalar
MPI_ERRORS_ARE_FATAL Param 307 I(4) 4 scalar
MPI_ERRORS_RETURN Param 309 I(4) 4 scalar
MPI_ERR_ACCESS Param 299 I(4) 4 scalar
MPI_ERR_AMODE Param 285 I(4) 4 scalar
MPI_ERR_ARG Param 255 I(4) 4 scalar
MPI_ERR_ASSERT Param 261 I(4) 4 scalar
MPI_ERR_BAD_FILE Param 223 I(4) 4 scalar
MPI_ERR_BASE Param 253 I(4) 4 scalar
MPI_ERR_BUFFER Param 195 I(4) 4 scalar
MPI_ERR_COMM Param 273 I(4) 4 scalar
Page 31 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
MPI_ERR_CONVERSION Param 289 I(4) 4 scalar
MPI_ERR_COUNT Param 199 I(4) 4 scalar
MPI_ERR_DIMS Param 237 I(4) 4 scalar
MPI_ERR_DISP Param 221 I(4) 4 scalar
MPI_ERR_DUP_DATAREP Param 203 I(4) 4 scalar
MPI_ERR_FILE Param 233 I(4) 4 scalar
MPI_ERR_FILE_EXISTS Param 215 I(4) 4 scalar
MPI_ERR_FILE_IN_USE Param 257 I(4) 4 scalar
MPI_ERR_GROUP Param 219 I(4) 4 scalar
MPI_ERR_INFO Param 247 I(4) 4 scalar
MPI_ERR_INFO_KEY Param 251 I(4) 4 scalar
MPI_ERR_INFO_NOKEY Param 231 I(4) 4 scalar
MPI_ERR_INFO_VALUE Param 217 I(4) 4 scalar
MPI_ERR_INTERN Param 249 I(4) 4 scalar
MPI_ERR_IN_STATUS Param 235 I(4) 4 scalar
MPI_ERR_IO Param 295 I(4) 4 scalar
MPI_ERR_KEYVAL Param 241 I(4) 4 scalar
MPI_ERR_LASTCODE Param 263 I(4) 4 scalar
MPI_ERR_LOCKTYPE Param 245 I(4) 4 scalar
MPI_ERR_NAME Param 239 I(4) 4 scalar
MPI_ERR_NOT_SAME Param 267 I(4) 4 scalar
MPI_ERR_NO_MEM Param 259 I(4) 4 scalar
MPI_ERR_NO_SPACE Param 191 I(4) 4 scalar
MPI_ERR_NO_SUCH_FILE Param 275 I(4) 4 scalar
MPI_ERR_OP Param 293 I(4) 4 scalar
MPI_ERR_OTHER Param 207 I(4) 4 scalar
MPI_ERR_PENDING Param 197 I(4) 4 scalar
MPI_ERR_PORT Param 279 I(4) 4 scalar
MPI_ERR_QUOTA Param 283 I(4) 4 scalar
MPI_ERR_RANK Param 205 I(4) 4 scalar
MPI_ERR_READ_ONLY Param 243 I(4) 4 scalar
MPI_ERR_REQUEST Param 287 I(4) 4 scalar
MPI_ERR_RMA_ATTACH Param 209 I(4) 4 scalar
MPI_ERR_RMA_CONFLICT Param 213 I(4) 4 scalar
MPI_ERR_RMA_FLAVOR Param 229 I(4) 4 scalar
MPI_ERR_RMA_RANGE Param 291 I(4) 4 scalar
MPI_ERR_RMA_SHARED Param 281 I(4) 4 scalar
MPI_ERR_RMA_SYNC Param 193 I(4) 4 scalar
MPI_ERR_ROOT Param 225 I(4) 4 scalar
MPI_ERR_SERVICE Param 201 I(4) 4 scalar
MPI_ERR_SIZE Param 211 I(4) 4 scalar
MPI_ERR_SPAWN Param 271 I(4) 4 scalar
MPI_ERR_TAG Param 301 I(4) 4 scalar
MPI_ERR_TOPOLOGY Param 305 I(4) 4 scalar
MPI_ERR_TRUNCATE Param 265 I(4) 4 scalar
MPI_ERR_TYPE Param 269 I(4) 4 scalar
MPI_ERR_UNKNOWN Param 303 I(4) 4 scalar
MPI_ERR_UNSUPPORTED_DATARE
P Param 227 I(4) 4 scalar
MPI_ERR_UNSUPPORTED_OPERAT
ION Param 277 I(4) 4 scalar
MPI_ERR_WIN Param 297 I(4) 4 scalar
MPI_FILE_NULL Param 369 I(4) 4 scalar
MPI_FLOAT Param 531 I(4) 4 scalar
MPI_FLOAT_INT Param 543 I(4) 4 scalar
Page 32 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
MPI_GRAPH Param 439 I(4) 4 scalar
MPI_GROUP_EMPTY Param 363 I(4) 4 scalar
MPI_GROUP_NULL Param 371 I(4) 4 scalar
MPI_HOST Param 387 I(4) 4 scalar
MPI_IDENT Param 311 I(4) 4 scalar
MPI_INFO_ENV Param 383 I(4) 4 scalar
MPI_INFO_NULL Param 381 I(4) 4 scalar
MPI_INT Param 523 I(4) 4 scalar
MPI_INT16_T Param 557 I(4) 4 scalar
MPI_INT32_T Param 559 I(4) 4 scalar
MPI_INT64_T Param 561 I(4) 4 scalar
MPI_INT8_T Param 555 I(4) 4 scalar
MPI_INTEGER Param 463 I(4) 4 scalar 1835,1858
MPI_INTEGER1 Param 481 I(4) 4 scalar
MPI_INTEGER16 Param 489 I(4) 4 scalar
MPI_INTEGER2 Param 483 I(4) 4 scalar
MPI_INTEGER4 Param 485 I(4) 4 scalar
MPI_INTEGER8 Param 487 I(4) 4 scalar
MPI_INTEGER_KIND Param 509 I(4) 4 scalar
MPI_IO Param 389 I(4) 4 scalar
MPI_ISEND Subr 1867 1867
MPI_KEYVAL_INVALID Param 427 I(4) 4 scalar
MPI_LAND Param 339 I(4) 4 scalar
MPI_LASTUSEDCODE Param 395 I(4) 4 scalar
MPI_LB Param 477 I(4) 4 scalar
MPI_LOCK_EXCLUSIVE Param 449 I(4) 4 scalar
MPI_LOCK_SHARED Param 451 I(4) 4 scalar
MPI_LOGICAL Param 457 I(4) 4 scalar
MPI_LONG Param 527 I(4) 4 scalar
MPI_LONG_DOUBLE Param 535 I(4) 4 scalar
MPI_LONG_DOUBLE_INT Param 553 I(4) 4 scalar
MPI_LONG_INT Param 547 I(4) 4 scalar
MPI_LONG_LONG Param 541 I(4) 4 scalar
MPI_LONG_LONG_INT Param 537 I(4) 4 scalar
MPI_LOR Param 343 I(4) 4 scalar
MPI_LXOR Param 347 I(4) 4 scalar
MPI_MAX Param 331 I(4) 4 scalar 1253,1835,1895
MPI_MAXLOC Param 353 I(4) 4 scalar
MPI_MAX_DATAREP_STRING Param 421 I(4) 4 scalar
MPI_MAX_ERROR_STRING Param 409 I(4) 4 scalar
MPI_MAX_INFO_KEY Param 415 I(4) 4 scalar
MPI_MAX_INFO_VAL Param 417 I(4) 4 scalar
MPI_MAX_LIBRARY_VERSION_ST
RING Param 423 I(4) 4 scalar
MPI_MAX_OBJECT_NAME Param 413 I(4) 4 scalar
MPI_MAX_PORT_NAME Param 411 I(4) 4 scalar
MPI_MAX_PROCESSOR_NAME Param 419 I(4) 4 scalar
MPI_MESSAGE_NO_PROC Param 653 I(4) 4 scalar
MPI_MESSAGE_NULL Param 651 I(4) 4 scalar
MPI_MIN Param 333 I(4) 4 scalar 1255
MPI_MINLOC Param 351 I(4) 4 scalar
MPI_MODE_APPEND Param 677 I(4) 4 scalar
MPI_MODE_CREATE Param 673 I(4) 4 scalar
MPI_MODE_DELETE_ON_CLOSE Param 669 I(4) 4 scalar
MPI_MODE_EXCL Param 675 I(4) 4 scalar
Page 33 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
MPI_MODE_NOCHECK Param 639 I(4) 4 scalar
MPI_MODE_NOPRECEDE Param 645 I(4) 4 scalar
MPI_MODE_NOPUT Param 643 I(4) 4 scalar
MPI_MODE_NOSTORE Param 641 I(4) 4 scalar
MPI_MODE_NOSUCCEED Param 647 I(4) 4 scalar
MPI_MODE_RDONLY Param 663 I(4) 4 scalar
MPI_MODE_RDWR Param 665 I(4) 4 scalar
MPI_MODE_SEQUENTIAL Param 679 I(4) 4 scalar
MPI_MODE_UNIQUE_OPEN Param 671 I(4) 4 scalar
MPI_MODE_WRONLY Param 667 I(4) 4 scalar
MPI_NO_OP Param 357 I(4) 4 scalar
MPI_NULL_COPY_FN Subr 707 scalar
MPI_NULL_DELETE_FN Subr 707 scalar
MPI_OFFSET Param 583 I(4) 4 scalar
MPI_OFFSET_KIND Param 505 I(4) 4 scalar
MPI_OP_NULL Param 373 I(4) 4 scalar
MPI_ORDER_C Param 687 I(4) 4 scalar
MPI_ORDER_FORTRAN Param 689 I(4) 4 scalar
MPI_PACKED Param 479 I(4) 4 scalar
MPI_PROC_NULL Param 431 I(4) 4 scalar
MPI_PROD Param 337 I(4) 4 scalar
MPI_REAL Param 459 I(4) 4 scalar 1253,1255,1868,1895
MPI_REAL16 Param 495 I(4) 4 scalar
MPI_REAL4 Param 491 I(4) 4 scalar
MPI_REAL8 Param 493 I(4) 4 scalar 1249,1251
MPI_REDUCE Subr 1249 1249,1251,1253,1255,1895
MPI_REPLACE Param 355 I(4) 4 scalar
MPI_REQUEST_NULL Param 377 I(4) 4 scalar 1110
MPI_ROOT Param 437 I(4) 4 scalar
MPI_SEEK_CUR Param 683 I(4) 4 scalar
MPI_SEEK_END Param 685 I(4) 4 scalar
MPI_SEEK_SET Param 681 I(4) 4 scalar
MPI_SEND Subr 1857 1857
MPI_SHORT Param 519 I(4) 4 scalar
MPI_SHORT_INT Param 549 I(4) 4 scalar
MPI_SIGNED_CHAR Param 513 I(4) 4 scalar
MPI_SIMILAR Param 315 I(4) 4 scalar
MPI_SOURCE Param 180 I(4) 4 scalar
MPI_STATUS_SIZE Param 182 I(4) 4 scalar 184,185,1100,1111
MPI_SUBARRAYS_SUPPORTED Param 701 L(4) 4 scalar
MPI_SUBVERSION Param 447 I(4) 4 scalar
MPI_SUCCESS Param 189 I(4) 4 scalar
MPI_SUM Param 335 I(4) 4 scalar 1249,1251
MPI_TAG Param 180 I(4) 4 scalar
MPI_TAG_UB Param 385 I(4) 4 scalar
MPI_THREAD_FUNNELED Param 657 I(4) 4 scalar
MPI_THREAD_MULTIPLE Param 661 I(4) 4 scalar
MPI_THREAD_SERIALIZED Param 659 I(4) 4 scalar
MPI_THREAD_SINGLE Param 655 I(4) 4 scalar
MPI_TYPECLASS_COMPLEX Param 637 I(4) 4 scalar
MPI_TYPECLASS_INTEGER Param 635 I(4) 4 scalar
MPI_TYPECLASS_REAL Param 633 I(4) 4 scalar
MPI_TYPE_DUP_FN Subr 714 scalar
MPI_TYPE_NULL_COPY_FN Subr 715 scalar
MPI_TYPE_NULL_DELETE_FN Subr 714 scalar
Page 34 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
MPI_UB Param 475 I(4) 4 scalar
MPI_UINT16_T Param 565 I(4) 4 scalar
MPI_UINT32_T Param 567 I(4) 4 scalar
MPI_UINT64_T Param 569 I(4) 4 scalar
MPI_UINT8_T Param 563 I(4) 4 scalar
MPI_UNDEFINED Param 425 I(4) 4 scalar
MPI_UNEQUAL Param 317 I(4) 4 scalar
MPI_UNIVERSE_SIZE Param 393 I(4) 4 scalar
MPI_UNSIGNED Param 525 I(4) 4 scalar
MPI_UNSIGNED_CHAR Param 515 I(4) 4 scalar
MPI_UNSIGNED_LONG Param 529 I(4) 4 scalar
MPI_UNSIGNED_LONG_LONG Param 539 I(4) 4 scalar
MPI_UNSIGNED_SHORT Param 521 I(4) 4 scalar
MPI_VERSION Param 445 I(4) 4 scalar
MPI_WAIT Subr 1382 1382
MPI_WCHAR Param 517 I(4) 4 scalar
MPI_WIN_BASE Param 399 I(4) 4 scalar
MPI_WIN_CREATE_FLAVOR Param 405 I(4) 4 scalar
MPI_WIN_DISP_UNIT Param 403 I(4) 4 scalar
MPI_WIN_DUP_FN Subr 712 scalar
MPI_WIN_FLAVOR_ALLOCATE Param 321 I(4) 4 scalar
MPI_WIN_FLAVOR_CREATE Param 319 I(4) 4 scalar
MPI_WIN_FLAVOR_DYNAMIC Param 323 I(4) 4 scalar
MPI_WIN_FLAVOR_SHARED Param 325 I(4) 4 scalar
MPI_WIN_MODEL Param 407 I(4) 4 scalar
MPI_WIN_NULL Param 367 I(4) 4 scalar
MPI_WIN_NULL_COPY_FN Subr 713 scalar
MPI_WIN_NULL_DELETE_FN Subr 712 scalar
MPI_WIN_SEPARATE Param 327 I(4) 4 scalar
MPI_WIN_SIZE Param 401 I(4) 4 scalar
MPI_WIN_UNIFIED Param 329 I(4) 4 scalar
MPI_WTICK Func 708 R(8) 8 scalar
MPI_WTIME Func 708 R(8) 8 scalar
MPI_WTIME_IS_GLOBAL Param 391 I(4) 4 scalar
MPPCOM Common 108 1464 SAVE
MPP_TIM Local 1121 R(4) 4 scalar
MYPE_ROW Local 1864 I(4) 4 scalar 1864,1866
NRLX1 Param 738 I(4) 4 scalar
NRLX2 Param 738 I(4) 4 scalar
NROOT Param 106 I(4) 4 scalar
NSOIL Param 106 I(4) 4 scalar 984,985,986,1707,1717,1722
NTSPH Local 1163 I(4) 4 scalar 1163
ONHOUR Local 748 L(4) 4 scalar 1165,1167,1174
OUTFIL Common 786 58 SAVE
OUTJOB Local 751 CHAR 8 scalar 1940,1942,1947
PARA_RANGE Subr 1862 1862
PDS Local 765 R(4) 4 2 17955 1289,1291
PHYS Common 889 1788916 SAVE
PMPI_WTICK Func 709 R(8) 8 scalar
PMPI_WTIME Func 709 R(8) 8 scalar
PPTASM Common 1065 3878292 SAVE
PRFHLD Common 990 143640 SAVE
PSLP Local 764 R(4) 4 2 17955 1560
PVRBLS Common 841 5530140 SAVE
QFLX Common 1040 5027400 SAVE
Page 35 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
REPLACE Subr 1849 1849
RESTHR Local 760 CHAR 4 scalar 1349,1350,1361,1908
RMS Local 1106 R(8) 8 scalar 1264,1266
RTC Func 1108 R(8) 8 scalar 1381,1383
SINGLRST Local 791 L(4) 4 scalar
SOIL Common 978 1651892 SAVE
STATUS Local 1111 I(4) 4 1 5 1382
STDEV Local 1106 R(8) 8 scalar 1262,1266
STDRD Local 748 L(4) 4 scalar
STRWAIT Local 1108 R(8) 8 scalar 1381,1383
SUBMIT Local 754 CHAR 15 scalar
SUMT Local 1102 R(8) 8 1 45 1227,1239,1249
SUMT2 Local 1104 R(8) 8 1 45 1228,1240,1251
SUMT2_0 Local 1105 R(8) 8 1 45 1251,1262,1264
SUMT_0 Local 1103 R(8) 8 1 45 1249,1261,1262
SWTTC Local 767 R(4) 4 3 807975 1329,1339
TEMPCOM Common 149 6603768 SAVE
TEMPSOIL Local 774 R(4) 4 3 1 ALC
TEMPV Common 1025 6535620 SAVE
TERM1 Local 1290 R(4) 4 scalar 1290,1291
TIMCHK Common 1125 24 SAVE
TIMEF Func 1120 R(8) 8 scalar 1222,1273,1372,1373,1893
TIMES Local 1164 R(4) 4 scalar 1164,1166,1167
TIMING Common 1122 16 SAVE
TLL1 Local 1141 R(4) 4 scalar 1141,1142,1143,1154,1155,1156
TMAX Local 1107 R(4) 4 1 45 1225,1241,1253
TMAX_0 Local 1107 R(4) 4 1 45 1253,1265
TMEAN Local 1106 R(8) 8 scalar 1261,1266
TMIN Local 1107 R(4) 4 1 45 1226,1242,1255
TMIN_0 Local 1107 R(4) 4 1 45 1255,1265
TMYY Local 753 CHAR 4 scalar 1955,1957,1959,1961,1963,1972
TOPO Common 157 17478548 SAVE
TTND Local 768 R(4) 4 3 807975 1339,1478
VRBLS Common 831 13143060 SAVE
WRT_TIM_0 Local 1895 R(4) 4 scalar 1895,1899
TYPE COMPONENTS/COMMON VARIABLES
Name Type Bytes Offset Dimen Elements Attributes References
ACCLIQ R(4) 4 1292760 2 17955 COM 1616
ACFRCV R(4) 4 8 2 17955 COM 1625,2076
ACFRST R(4) 4 143648 2 17955 COM 1627,2078
ACPREC R(4) 4 1220940 2 17955 COM 1615,2094
ACSNOM R(4) 4 71824 2 17955 COM 1637,2097
ACSNOW R(4) 4 4 2 17955 COM 1636,2096
ACUTIM R(4) 4 20 scalar COM 1787,1923
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 5458320 2 17955 COM
AKHS R(4) 4 646380 2 17955 COM 1522
AKMS R(4) 4 574560 2 17955 COM 1509
ALBASE R(4) 4 1009004 2 17955 COM
Page 36 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Type Bytes Offset Dimen Elements Attributes References
ALBEDO R(4) 4 1080824 2 17955 COM 1727
ALSL R(4) 4 624 1 39 COM
ALWIN R(4) 4 215472 2 17955 COM 1669,2194
ALWOUT R(4) 4 287292 2 17955 COM 1670,2195
ALWTOA R(4) 4 359112 2 17955 COM 1671,2196
APHTIM R(4) 4 574572 scalar COM 1789,1922
APREC R(4) 4 3519180 2 17955 COM
ARATIM R(4) 4 16 scalar COM 1788,1924
ARDLW R(4) 4 8 scalar COM 1675,2191
ARDSW R(4) 4 8 scalar COM 1674,2206
ASRFC R(4) 4 8 scalar COM 1676,2221
ASWIN R(4) 4 215472 2 17955 COM 1666,2209
ASWOUT R(4) 4 287292 2 17955 COM 1667,2210
ASWTOA R(4) 4 359112 2 17955 COM 1668,2211
AVCNVC R(4) 4 12 scalar COM 1678,2144
AVRAIN R(4) 4 8 scalar COM 1677,2143
BCEX_TIM R(4) 4 16 scalar COM
BGROFF R(4) 4 215464 2 17955 COM 1639,2099
BUF R(4) 4 4 1 30000000 COM 1868,1888
CFRACH R(4) 4 215460 2 17955 COM 1562
CFRACL R(4) 4 71820 2 17955 COM 1528
CFRACM R(4) 4 143640 2 17955 COM 1545
CI R(4) 4 40 scalar COM
CLDEFI R(4) 4 1077300 2 17955 COM 1558
CLDINC R(4) 4 3734652 2 17955 COM 1773,2108
CLDINC7 R(4) 4 3806472 2 17955 COM 1775,2110
CMC R(4) 4 718200 2 17955 COM 1712
CMLD R(4) 4 444 scalar COM
CNVBOT R(4) 4 721724 2 17955 COM 1821,2179
CNVTOP R(4) 4 649904 2 17955 COM 1822,2178
CPGFUX R(4) 4 150844 2 17955 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 17955 COM 1188,1561,2165
CUPREC R(4) 4 1364580 2 17955 COM 1617,2095
CURAD L(4) 4 0 scalar COM 1181,1193,2158,2170
CURVX R(4) 4 222664 2 17955 COM
CWM R(4) 4 0 3 807975 COM 1481
CWMB R(4) 4 1551264 3 77220 COM 1457
CZEN R(4) 4 434444 2 17955 COM 1295,1510
CZMEAN R(4) 4 1296284 2 17955 COM 1294,1295,1587
DCFLX R(4) 4 1220940 2 17955 COM 1753,2130
DCFLX7 R(4) 4 1364580 2 17955 COM 1760,2132
DDMPUX R(4) 4 509944 2 17955 COM
DDMPVX R(4) 4 581764 2 17955 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 6607440 3 807975 COM
DLMD R(4) 4 436 scalar COM
Page 37 Source Listing CHKOUT
2025-03-12 18:21 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 1436400 2 17955 COM 1762,2128
DQFLX R(4) 4 1149120 2 17955 COM 1750,2129
DQFLX7 R(4) 4 1292760 2 17955 COM 1757,2131
DS R(4) 4 32 scalar COM
DT R(4) 4 48 scalar COM 1163,1164,1167
DTD R(4) 4 16 scalar COM
DTQ2 R(4) 4 8 scalar COM
DXX R(4) 4 7204 2 17955 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 75344 2 17955 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 9839340 3 790020 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 653584 2 17955 COM
FCNEV R(4) 4 287280 2 17955 COM 2114
FCNEV1 R(4) 4 1651860 2 17955 COM
FCNEV7 R(4) 4 430920 2 17955 COM 2116
FCP R(4) 4 294484 2 17955 COM
FCSEV R(4) 4 359100 2 17955 COM 2115
FCSEV1 R(4) 4 1723680 2 17955 COM
FCSEV7 R(4) 4 502740 2 17955 COM 2117
FCU R(4) 4 718200 2 17955 COM 1751,2122
FCU7 R(4) 4 1005480 2 17955 COM 1758,2126
FCV R(4) 4 790020 2 17955 COM 1752,2123
FCV7 R(4) 4 1077300 2 17955 COM 1759,2127
FDIVX R(4) 4 366304 2 17955 COM
FIRST L(4) 4 24 scalar COM 1433
FIS R(4) 4 12999420 2 17955 COM 1444
FQNEV R(4) 4 0 2 17955 COM 2112
FQNEV1 R(4) 4 1508220 2 17955 COM 1763
FQNEV7 R(4) 4 143640 2 17955 COM 2118
FQSEV R(4) 4 71820 2 17955 COM 2113
FQSEV1 R(4) 4 1580040 2 17955 COM 1764
FQSEV7 R(4) 4 215460 2 17955 COM 2119
FQU R(4) 4 574560 2 17955 COM 1748,2120
FQU7 R(4) 4 861840 2 17955 COM 1755,2124
FQV R(4) 4 646380 2 17955 COM 1749,2121
FQV7 R(4) 4 933660 2 17955 COM 1756,2125
FX R(4) 4 438124 2 17955 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 865364 2 17955 COM
Page 38 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Type Bytes Offset Dimen Elements Attributes References
GLAT R(4) 4 290804 2 17955 COM
GLON R(4) 4 362624 2 17955 COM
GRNFLX R(4) 4 287280 2 17955 COM 1576
HBM2 R(4) 4 6751080 2 17955 COM
HBM3 R(4) 4 6822900 2 17955 COM
HBOT R(4) 4 578084 2 17955 COM 1190,1527,2167
HDAC R(4) 4 1152644 2 17955 COM
HDACV R(4) 4 1224464 2 17955 COM
HTM R(4) 4 287280 3 807975 COM
HTMG R(4) 4 743768 3 4183695 COM
HTOP R(4) 4 506264 2 17955 COM 1189,1544,2166
IBROW I(4) 4 404 scalar COM
ICHUNKTAB I(4) 4 620 1 8 COM
IDAT I(4) 4 8 1 3 COM 1400,1402,1429,1501,1610
IDTAD I(4) 4 72 scalar COM
IE_GLB_TABLE I(4) 4 32 1 8 COM
IE_LOC_TABLE I(4) 4 556 1 8 COM
IHE I(4) 4 0 1 399 COM
IHEG I(4) 4 0 1 387 COM
IHHA I(4) 4 3040 1 760 COM
IHLA I(4) 4 0 1 760 COM
IHRST I(4) 4 20 scalar COM 1400,1403,1430,1502,1611
IHW I(4) 4 1596 1 399 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 1064 1 100 COM 1861,1862
IOUT I(4) 4 44 scalar COM 1434,2061,2064,2065
IP I(4) 4 0 scalar COM 1835,1868,1888
IQUILT_GROUP I(4) 4 1060 scalar COM 1854,1877,1905
IRAD I(4) 4 6384 1 45 COM
IRADG I(4) 4 6192 1 473 COM
IRCOL I(4) 4 400 scalar COM
IRPAD1 I(4) 4 432 scalar COM
IRPAD2 I(4) 4 436 scalar COM
IRPAD3 I(4) 4 440 scalar COM
IRPAD4 I(4) 4 444 scalar COM
IRPAD5 I(4) 4 448 scalar COM
ISHDE I(4) 4 12 1 99 COM 2065
ISLOPE I(4) 4 574560 2 17955 COM
ISLTYP I(4) 4 502740 2 17955 COM
IS_GLB_TABLE I(4) 4 0 1 8 COM
IS_LOC_TABLE I(4) 4 492 1 8 COM
ITAG I(4) 4 0 scalar COM 1136,1348,1354,1361,1858,1868,1908
,1933,1936,1940
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 3591000 scalar COM
IVE I(4) 4 3192 1 399 COM
IVEG I(4) 4 3096 1 387 COM
Page 39 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Type Bytes Offset Dimen Elements Attributes References
IVGTYP I(4) 4 430920 2 17955 COM
IVHA I(4) 4 9120 1 760 COM
IVLA I(4) 4 6080 1 760 COM
IVW I(4) 4 4788 1 399 COM
IVWG I(4) 4 4644 1 387 COM
IXM I(4) 4 4 scalar COM
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 96 1 8 COM
JE_LOC_TABLE I(4) 4 588 1 8 COM
JRA I(4) 4 12160 1 760 COM
JS_GLB_TABLE I(4) 4 64 1 8 COM
JS_LOC_TABLE I(4) 4 524 1 8 COM
JTPAD1 I(4) 4 472 scalar COM
JTPAD2 I(4) 4 476 scalar COM
JTPAD3 I(4) 4 480 scalar COM
JTPAD4 I(4) 4 484 scalar COM
JTPAD5 I(4) 4 488 scalar COM
JTSTLOC I(4) 4 3591004 scalar COM
KTM I(4) 4 0 scalar COM
L2GI I(4) 4 956 1 239 COM
L2GJ I(4) 4 3468 1 389 COM
LC I(4) 4 3304080 2 17955 COM 1598
LIST I(4) 4 40 scalar COM 1886,1915,1942,2073,2090,2141,2189
,2204,2219
LMH I(4) 4 15200 2 17955 COM 1140,1153,1288
LMV I(4) 4 87020 2 17955 COM
LRSTRT I(4) 4 4 scalar COM 1369,1375,1884,1888,1889
LSL I(4) 4 0 scalar COM
MPI_ARGVS_NULL CHAR 1 0 2 1 COM
MPI_ARGV_NULL CHAR 1 1 1 1 COM
MPI_BOTTOM I(4) 4 0 scalar COM
MPI_COMM_COMP I(4) 4 652 scalar COM 1250,1252,1254,1256,1279,1836,1896
,1901
MPI_COMM_INTER I(4) 4 656 scalar COM
MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM 1858,1868
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 3591008 scalar COM
MXSNAL R(4) 4 3524 2 17955 COM
MYIE I(4) 4 52 scalar COM 1139,1152,1187,1287,1308,1316,1328
,1338,1415,1416,1421,1442,1443,144
4,1463,1466,1469,1472,1475,1478,14
81,1484,1487,1505,1506,1507,1508,1
509,1510,1522,1523,1524,1525,1526,
1527,1528,1539,1540,1541,1542,1543
,1544,1545,1556,1557,1558,1559,156
Page 40 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Type Bytes Offset Dimen Elements Attributes References
0,1561,1562,1572,1573,1574,1575,15
76,1577,1585,1586,1587,1588,1596,1
598,1599,1614,1615,1616,1617,1625,
1626,1627,1628,1636,1637,1638,1639
,1650,1651,1652,1653,1654,1655,165
6,1666,1667,1668,1669,1670,1671,16
92,1693,1694,1695,1696,1697,1698,1
699,1700,1701,1702,1707,1712,1717,
1722,1727,1748,1749,1750,1751,1752
,1753,1755,1756,1757,1758,1759,176
0,1762,1763,1764,1772,1773,1774,17
75,1784,1785,1786,1805,1806,1812,1
813,1817,1821,1822,1826,1827,2075,
2093,2147,2164,2177,2193,2208,2223
,2237
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 1139,1152,1187,1238,1287,1308,1316
,1328,1338,2075,2093,2147,2164,217
7,2193,2208,2223,2237
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 1138,1151,1186,1286,1315,1317,1318
,1327,1337,1415,1416,1421,1442,144
3,1444,1463,1466,1469,1472,1475,14
78,1481,1484,1487,1505,1506,1507,1
508,1509,1510,1522,1523,1524,1525,
1526,1527,1528,1539,1540,1541,1542
,1543,1544,1545,1556,1557,1558,155
9,1560,1561,1562,1572,1573,1574,15
75,1576,1577,1585,1586,1587,1588,1
596,1598,1599,1614,1615,1616,1617,
1625,1626,1627,1628,1636,1637,1638
,1639,1650,1651,1652,1653,1654,165
5,1656,1666,1667,1668,1669,1670,16
71,1692,1693,1694,1695,1696,1697,1
Page 41 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Type Bytes Offset Dimen Elements Attributes References
698,1699,1700,1701,1702,1707,1712,
1717,1722,1727,1748,1749,1750,1751
,1752,1753,1755,1756,1757,1758,175
9,1760,1762,1763,1764,1772,1773,17
74,1775,1784,1785,1786,1805,1806,1
812,1813,1817,1821,1822,1826,1827,
2074,2092,2146,2163,2176,2192,2207
,2222,2236
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 1138,1151,1186,1286,1327,1337,2074
,2092,2146,2163,2176,2192,2207,222
2,2236
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:21 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 1182,1259,1306,1314,1385,1856,1864
,1888,1897,1906,1930,2073,2090,214
1,2159,2189,2204,2219
MY_E I(4) 4 336 scalar COM
MY_IE_GLB I(4) 4 12 scalar COM 1233
MY_IE_LOC I(4) 4 28 scalar COM 1234,1236
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 1231
MY_JE_LOC I(4) 4 36 scalar COM
MY_JS_GLB I(4) 4 16 scalar COM 1231
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 71828 2 17955 COM 1626,2077
NCFRST I(4) 4 215468 2 17955 COM 1628,2079
NCLOD I(4) 4 4 scalar COM 2072
NCNVC I(4) 4 92 scalar COM 1792,2089,2140
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 1790,2140
NPES I(4) 4 4 scalar COM 1314
NPHS I(4) 4 88 scalar COM 1791,2072,2188,2203,2218
NPREC I(4) 4 68 scalar COM 1793,2089
NRADL I(4) 4 100 scalar COM
NRADS I(4) 4 96 scalar COM
NRDLW I(4) 4 4 scalar COM 1795,2188
NRDSW I(4) 4 4 scalar COM 1794,2203
NSHDE I(4) 4 80 scalar COM 1174,1175,1176,1215,1435,2060,2063
,2065
NSRFC I(4) 4 4 scalar COM 1796,2218
NSTART I(4) 4 60 scalar COM 1175,1215,2060,2063
NTDDMP I(4) 4 64 scalar COM
NTSD I(4) 4 52 scalar COM 1135,1164,1174,1176,1208,1215,1348
,1400,1404,1431,1503,1612,2020,206
0,2063,2072,2089,2140,2188,2203,22
18
NTSTM I(4) 4 56 scalar COM 2020
OMGALF R(4) 4 3375540 3 807975 COM 1421
P0 R(4) 4 6463800 2 17955 COM 1817
PCTSNO R(4) 4 359100 2 17955 COM 1577
PD R(4) 4 0 2 17955 COM 1289,1415,1442
PDB R(4) 4 0 2 1716 COM 1451
Page 43 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Type Bytes Offset Dimen Elements Attributes References
PDSL R(4) 4 0 2 17955 COM
PHOUR R(4) 4 0 2 17955 COM
PL R(4) 4 48 scalar COM
PLQ R(4) 4 72 scalar COM
POTEVP R(4) 4 430932 2 17955 COM 1656,2101
POTFLX R(4) 4 502752 2 17955 COM 1784,2229
PPTDAT R(4) 4 3303720 3 53865 COM
PREC R(4) 4 1149120 2 17955 COM 1614
PROF_TIM R(4) 4 12 scalar COM
PSDT R(4) 4 71820 2 17955 COM
PSHLTR R(4) 4 2154600 2 17955 COM 1291,1292,1698
PT R(4) 4 412 scalar COM 1289
PT2 R(4) 4 4 scalar COM
PTBL R(4) 4 1439924 2 10184 COM
PTDYN R(4) 4 20 scalar COM
Q R(4) 4 9767520 3 807975 COM 1466
Q0 R(4) 4 3231900 3 807975 COM 1813
Q10 R(4) 4 1795500 2 17955 COM 1693
Q2 R(4) 4 2226420 3 807975 COM 1475
Q2B R(4) 4 1242384 3 77220 COM 1456
Q30 R(4) 4 1508220 2 17955 COM 1700
QB R(4) 4 315744 3 77220 COM 1453
QOLD R(4) 4 1795500 3 807975 COM
QS R(4) 4 502740 2 17955 COM 1524
QS0 R(4) 4 628 1 134 COM
QSHLTR R(4) 4 2082780 2 17955 COM 1310,1318,1697
QWBS R(4) 4 861840 2 17955 COM 1526
QZ0 R(4) 4 359100 2 17955 COM 1540
R R(4) 4 408 scalar COM
RADIN R(4) 4 147164 2 17955 COM
RADOT R(4) 4 218984 2 17955 COM 1586
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 13071240 2 17955 COM 1416,1443
RESTRT L(4) 4 28 scalar COM 1799,2062
RES_TIM R(4) 4 8 scalar COM
RF R(4) 4 718200 2 17955 COM 1559
RLWIN R(4) 4 12 2 17955 COM 1585
RLWOUT R(4) 4 71832 2 17955 COM
RLWTOA R(4) 4 143652 2 17955 COM 1827
RLWTT R(4) 4 430932 3 807975 COM 1339,1806
ROI R(4) 4 36 scalar COM
ROS R(4) 4 24 scalar COM
RSTFIL CHAR 50 8 scalar COM 1354,1361,1399,1884,1988
RSWIN R(4) 4 12 2 17955 COM 1505
RSWOUT R(4) 4 71832 2 17955 COM 1506
RSWTOA R(4) 4 143652 2 17955 COM 1826
RSWTT R(4) 4 430932 3 807975 COM 1329,1805
RTDPTH R(4) 4 1364596 1 4 COM
Page 44 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Type Bytes Offset Dimen Elements Attributes References
RTOP R(4) 4 143640 3 807975 COM
RUN L(4) 4 4 scalar COM 1401,1428,1500,1609
SBD R(4) 4 424 scalar COM
SFCEVP R(4) 4 359112 2 17955 COM 1655,2100
SFCEXC R(4) 4 71820 2 17955 COM 1573
SFCLHX R(4) 4 71832 2 17955 COM 1651,2225
SFCSHX R(4) 4 12 2 17955 COM 1650,2224
SFCUVX R(4) 4 287292 2 17955 COM 1654,2228
SH2O R(4) 4 1364612 3 71820 COM 1722
SI R(4) 4 1005480 2 17955 COM 1557
SICE R(4) 4 215460 2 17955 COM
SIGMA L(4) 4 0 scalar COM
SIGT4 R(4) 4 1368104 2 17955 COM 1588
SLDPTH R(4) 4 1364580 1 4 COM
SLP_TIM R(4) 4 0 scalar COM
SM R(4) 4 143640 2 17955 COM
SMC R(4) 4 790020 3 71820 COM 1707
SMSTAV R(4) 4 143640 2 17955 COM 1574
SMSTOT R(4) 4 215460 2 17955 COM 1575
SNO R(4) 4 933660 2 17955 COM 1556
SNOPCX R(4) 4 215472 2 17955 COM 1653,2227
SOILTB R(4) 4 0 2 17955 COM 1572
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 3375900 2 17955 COM 1599
SSROFF R(4) 4 143644 2 17955 COM 1638,2098
SST R(4) 4 937184 2 17955 COM
STAT_TIM R(4) 4 20 scalar COM 1273
STC R(4) 4 1077300 3 71820 COM 1717
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 143652 2 17955 COM 1652,2226
SURFCE_TIM R(4) 4 0 scalar COM
T R(4) 4 71820 3 807975 COM 1141,1154,1239,1240,1241,1242,1290
,1463
T0 R(4) 4 0 3 807975 COM 1812
TB R(4) 4 6864 3 77220 COM 1452
TCLOD R(4) 4 0 scalar COM
TCUCN R(4) 4 3231924 3 807975 COM 1487,2149
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:21 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 793544 2 17955 COM 1507
TH10 R(4) 4 1723680 2 17955 COM 1692
TH30 R(4) 4 1436400 2 17955 COM 1699
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 430920 2 17955 COM 1523
THZ0 R(4) 4 287280 2 17955 COM 1539
TLAT R(4) 4 71820 3 807975 COM
TLM0D R(4) 4 428 scalar COM 1798
TLMAX R(4) 4 71820 2 17955 COM 1143,1156,1786,2239
TLMIN R(4) 4 0 2 17955 COM 1142,1155,1785,2238
TPH0D R(4) 4 432 scalar COM 1797
TPREC R(4) 4 0 scalar COM
TRAIN R(4) 4 24 3 807975 COM 1484,2148
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 2010960 2 17955 COM 1292,1309,1317,1696
TSPH R(4) 4 416 scalar COM 1208,1348
TSRFC R(4) 4 0 scalar COM
TTBL R(4) 4 1480660 2 10184 COM
TTBLQ R(4) 4 1521396 2 66880 COM
TTVG R(4) 4 371884 2 92971 COM
TWBS R(4) 4 790020 2 17955 COM 1525
U R(4) 4 3303720 3 807975 COM 1469
U00 R(4) 4 3231900 2 17955 COM 1596
U10 R(4) 4 1867320 2 17955 COM 1694
U30 R(4) 4 1580040 2 17955 COM 1701
UB R(4) 4 624624 3 77220 COM 1454
UL R(4) 4 3303720 1 90 COM 1597
USTAR R(4) 4 71820 2 17955 COM 1543
UZ0 R(4) 4 143640 2 17955 COM 1541
V R(4) 4 6535620 3 807975 COM 1472
V10 R(4) 4 1939140 2 17955 COM 1695
V30 R(4) 4 1651860 2 17955 COM 1702
VAPINC R(4) 4 3591012 2 17955 COM 1772,2107
VAPINC7 R(4) 4 3662832 2 17955 COM 1774,2109
VB R(4) 4 933504 3 77220 COM 1455
VBM2 R(4) 4 0 2 17955 COM
VBM3 R(4) 4 71820 2 17955 COM
VEGFRC R(4) 4 646380 2 17955 COM
VTM R(4) 4 3519180 3 807975 COM
VZ0 R(4) 4 215460 2 17955 COM 1542
WBD R(4) 4 420 scalar COM
WPDARX R(4) 4 79024 2 17955 COM
WRT_TIM R(4) 4 8 scalar COM 1371,1894,1895
X1P R(4) 4 452 scalar COM
Y1P R(4) 4 456 scalar COM
Page 46 Source Listing CHKOUT
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Type Bytes Offset Dimen Elements Attributes References
Z0 R(4) 4 0 2 17955 COM 1508
Z0SLP R(4) 4 464 scalar COM
Page 47 Source Listing COAL
2025-03-12 18:21 CHKOUT.F
2247 SUBROUTINE COAL(A,LEN)
2248 INCLUDE "BUFFER.comm"
2257 INCLUDE 'mpif.h'
2819 REAL A(*)
2820 IF ( LEN .LT. 0 ) THEN
2821 IP = 0
2822 END IF
2823 IF ( IP + LEN .GT. IBUFMAX ) THEN
2824 PRINT *, ' IBUFMAX in BUFFER.comm is too small, stopping'
2825 PRINT *, ' CHANGE IBUFMAX in parmbuf and recompile'
2826 PRINT *, ' IBUFMAX=', IBUFMAX, ' WANT AT LEAST ', IP + LEN
2827 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR)
2828 ENDIF
2829 DO I = 1, ABS(LEN)
2830 IP = IP + 1
2831 BUF(IP) = A(I)
2832 ENDDO
2833 return
2834 END
ENTRY POINTS
Name
coal_
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
A Dummy 2247 R(4) 4 1 0 ARG,INOUT 2831
ABS Func 2829 scalar 2829
BUFFER Common 2255 12000000 SAVE
4
COAL Subr 2247
I Local 2829 I(4) 4 scalar 2829,2831
IBUFMAX Param 2250 I(4) 4 scalar 2255,2823,2826
IERR Local 2827 I(4) 4 scalar 2827
LEN Dummy 2247 I(4) 4 scalar ARG,INOUT 2820,2823,2826,2829
MPIFCMB5 Common 2807 4 SAVE
MPIFCMB9 Common 2808 4 SAVE
MPIPRIV1 Common 2812 28 SAVE
MPIPRIV2 Common 2814 24 SAVE
MPIPRIVC Common 2817 2 SAVE
MPI_2DOUBLE_PRECISION Param 2553 I(4) 4 scalar
MPI_2INT Param 2637 I(4) 4 scalar
MPI_2INTEGER Param 2551 I(4) 4 scalar
MPI_2REAL Param 2555 I(4) 4 scalar
MPI_ABORT Subr 2827 2827
MPI_ADDRESS_KIND Param 2589 I(4) 4 scalar
MPI_AINT Param 2667 I(4) 4 scalar
MPI_ANY_SOURCE Param 2519 I(4) 4 scalar
MPI_ANY_TAG Param 2521 I(4) 4 scalar
MPI_APPNUM Param 2483 I(4) 4 scalar
MPI_ASYNC_PROTECTS_NONBLOC
Page 48 Source Listing COAL
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
KING Param 2789 L(4) 4 scalar
MPI_BAND Param 2427 I(4) 4 scalar
MPI_BOR Param 2431 I(4) 4 scalar
MPI_BSEND_OVERHEAD Param 2515 I(4) 4 scalar
MPI_BXOR Param 2435 I(4) 4 scalar
MPI_BYTE Param 2559 I(4) 4 scalar
MPI_CART Param 2527 I(4) 4 scalar
MPI_CHAR Param 2597 I(4) 4 scalar
MPI_CHARACTER Param 2557 I(4) 4 scalar
MPI_COMBINER_CONTIGUOUS Param 2685 I(4) 4 scalar
MPI_COMBINER_DARRAY Param 2707 I(4) 4 scalar
MPI_COMBINER_DUP Param 2683 I(4) 4 scalar
MPI_COMBINER_F90_COMPLEX Param 2711 I(4) 4 scalar
MPI_COMBINER_F90_INTEGER Param 2713 I(4) 4 scalar
MPI_COMBINER_F90_REAL Param 2709 I(4) 4 scalar
MPI_COMBINER_HINDEXED Param 2697 I(4) 4 scalar
MPI_COMBINER_HINDEXED_BLOC
K Param 2717 I(4) 4 scalar
MPI_COMBINER_HINDEXED_INTE
GER Param 2695 I(4) 4 scalar
MPI_COMBINER_HVECTOR Param 2691 I(4) 4 scalar
MPI_COMBINER_HVECTOR_INTEG
ER Param 2689 I(4) 4 scalar
MPI_COMBINER_INDEXED Param 2693 I(4) 4 scalar
MPI_COMBINER_INDEXED_BLOCK Param 2699 I(4) 4 scalar
MPI_COMBINER_NAMED Param 2681 I(4) 4 scalar
MPI_COMBINER_RESIZED Param 2715 I(4) 4 scalar
MPI_COMBINER_STRUCT Param 2703 I(4) 4 scalar
MPI_COMBINER_STRUCT_INTEGE
R Param 2701 I(4) 4 scalar
MPI_COMBINER_SUBARRAY Param 2705 I(4) 4 scalar
MPI_COMBINER_VECTOR Param 2687 I(4) 4 scalar
MPI_COMM_DUP_FN Subr 2796 scalar
MPI_COMM_NULL Param 2451 I(4) 4 scalar
MPI_COMM_NULL_COPY_FN Subr 2797 scalar
MPI_COMM_NULL_DELETE_FN Subr 2796 scalar
MPI_COMM_SELF Param 2447 I(4) 4 scalar
MPI_COMM_TYPE_SHARED Param 2735 I(4) 4 scalar
MPI_COMM_WORLD Param 2445 I(4) 4 scalar 2827
MPI_COMPLEX Param 2539 I(4) 4 scalar
MPI_COMPLEX16 Param 2585 I(4) 4 scalar
MPI_COMPLEX32 Param 2587 I(4) 4 scalar
MPI_COMPLEX8 Param 2583 I(4) 4 scalar
MPI_CONGRUENT Param 2399 I(4) 4 scalar
MPI_CONVERSION_FN_NULL Subr 2802 scalar
MPI_COUNT Param 2671 I(4) 4 scalar
MPI_COUNT_KIND Param 2593 I(4) 4 scalar
MPI_CXX_BOOL Param 2673 I(4) 4 scalar
MPI_CXX_DOUBLE_COMPLEX Param 2677 I(4) 4 scalar
MPI_CXX_FLOAT_COMPLEX Param 2675 I(4) 4 scalar
MPI_CXX_LONG_DOUBLE_COMPLE
X Param 2679 I(4) 4 scalar
MPI_C_BOOL Param 2657 I(4) 4 scalar
MPI_C_COMPLEX Param 2661 I(4) 4 scalar
MPI_C_DOUBLE_COMPLEX Param 2663 I(4) 4 scalar
Page 49 Source Listing COAL
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
MPI_C_FLOAT_COMPLEX Param 2659 I(4) 4 scalar
MPI_C_LONG_DOUBLE_COMPLEX Param 2665 I(4) 4 scalar
MPI_DATATYPE_NULL Param 2461 I(4) 4 scalar 2576,2674,2676,2678,2680
MPI_DISPLACEMENT_CURRENT Param 2785 I(8) 8 scalar
MPI_DISTRIBUTE_BLOCK Param 2777 I(4) 4 scalar
MPI_DISTRIBUTE_CYCLIC Param 2779 I(4) 4 scalar
MPI_DISTRIBUTE_DFLT_DARG Param 2783 I(4) 4 scalar
MPI_DISTRIBUTE_NONE Param 2781 I(4) 4 scalar
MPI_DIST_GRAPH Param 2529 I(4) 4 scalar
MPI_DOUBLE Param 2619 I(4) 4 scalar
MPI_DOUBLE_COMPLEX Param 2541 I(4) 4 scalar
MPI_DOUBLE_INT Param 2631 I(4) 4 scalar
MPI_DOUBLE_PRECISION Param 2547 I(4) 4 scalar
MPI_DUP_FN Subr 2793 scalar
MPI_ERRHANDLER_NULL Param 2465 I(4) 4 scalar
MPI_ERROR Param 2266 I(4) 4 scalar
MPI_ERRORS_ARE_FATAL Param 2393 I(4) 4 scalar
MPI_ERRORS_RETURN Param 2395 I(4) 4 scalar
MPI_ERR_ACCESS Param 2385 I(4) 4 scalar
MPI_ERR_AMODE Param 2371 I(4) 4 scalar
MPI_ERR_ARG Param 2341 I(4) 4 scalar
MPI_ERR_ASSERT Param 2347 I(4) 4 scalar
MPI_ERR_BAD_FILE Param 2309 I(4) 4 scalar
MPI_ERR_BASE Param 2339 I(4) 4 scalar
MPI_ERR_BUFFER Param 2281 I(4) 4 scalar
MPI_ERR_COMM Param 2359 I(4) 4 scalar
MPI_ERR_CONVERSION Param 2375 I(4) 4 scalar
MPI_ERR_COUNT Param 2285 I(4) 4 scalar
MPI_ERR_DIMS Param 2323 I(4) 4 scalar
MPI_ERR_DISP Param 2307 I(4) 4 scalar
MPI_ERR_DUP_DATAREP Param 2289 I(4) 4 scalar
MPI_ERR_FILE Param 2319 I(4) 4 scalar
MPI_ERR_FILE_EXISTS Param 2301 I(4) 4 scalar
MPI_ERR_FILE_IN_USE Param 2343 I(4) 4 scalar
MPI_ERR_GROUP Param 2305 I(4) 4 scalar
MPI_ERR_INFO Param 2333 I(4) 4 scalar
MPI_ERR_INFO_KEY Param 2337 I(4) 4 scalar
MPI_ERR_INFO_NOKEY Param 2317 I(4) 4 scalar
MPI_ERR_INFO_VALUE Param 2303 I(4) 4 scalar
MPI_ERR_INTERN Param 2335 I(4) 4 scalar
MPI_ERR_IN_STATUS Param 2321 I(4) 4 scalar
MPI_ERR_IO Param 2381 I(4) 4 scalar
MPI_ERR_KEYVAL Param 2327 I(4) 4 scalar
MPI_ERR_LASTCODE Param 2349 I(4) 4 scalar
MPI_ERR_LOCKTYPE Param 2331 I(4) 4 scalar
MPI_ERR_NAME Param 2325 I(4) 4 scalar
MPI_ERR_NOT_SAME Param 2353 I(4) 4 scalar
MPI_ERR_NO_MEM Param 2345 I(4) 4 scalar
MPI_ERR_NO_SPACE Param 2277 I(4) 4 scalar
MPI_ERR_NO_SUCH_FILE Param 2361 I(4) 4 scalar
MPI_ERR_OP Param 2379 I(4) 4 scalar
MPI_ERR_OTHER Param 2293 I(4) 4 scalar
MPI_ERR_PENDING Param 2283 I(4) 4 scalar
MPI_ERR_PORT Param 2365 I(4) 4 scalar
MPI_ERR_QUOTA Param 2369 I(4) 4 scalar
Page 50 Source Listing COAL
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
MPI_ERR_RANK Param 2291 I(4) 4 scalar
MPI_ERR_READ_ONLY Param 2329 I(4) 4 scalar
MPI_ERR_REQUEST Param 2373 I(4) 4 scalar
MPI_ERR_RMA_ATTACH Param 2295 I(4) 4 scalar
MPI_ERR_RMA_CONFLICT Param 2299 I(4) 4 scalar
MPI_ERR_RMA_FLAVOR Param 2315 I(4) 4 scalar
MPI_ERR_RMA_RANGE Param 2377 I(4) 4 scalar
MPI_ERR_RMA_SHARED Param 2367 I(4) 4 scalar
MPI_ERR_RMA_SYNC Param 2279 I(4) 4 scalar
MPI_ERR_ROOT Param 2311 I(4) 4 scalar
MPI_ERR_SERVICE Param 2287 I(4) 4 scalar
MPI_ERR_SIZE Param 2297 I(4) 4 scalar
MPI_ERR_SPAWN Param 2357 I(4) 4 scalar
MPI_ERR_TAG Param 2387 I(4) 4 scalar
MPI_ERR_TOPOLOGY Param 2391 I(4) 4 scalar
MPI_ERR_TRUNCATE Param 2351 I(4) 4 scalar
MPI_ERR_TYPE Param 2355 I(4) 4 scalar
MPI_ERR_UNKNOWN Param 2389 I(4) 4 scalar
MPI_ERR_UNSUPPORTED_DATARE
P Param 2313 I(4) 4 scalar
MPI_ERR_UNSUPPORTED_OPERAT
ION Param 2363 I(4) 4 scalar
MPI_ERR_WIN Param 2383 I(4) 4 scalar
MPI_FILE_NULL Param 2455 I(4) 4 scalar
MPI_FLOAT Param 2617 I(4) 4 scalar
MPI_FLOAT_INT Param 2629 I(4) 4 scalar
MPI_GRAPH Param 2525 I(4) 4 scalar
MPI_GROUP_EMPTY Param 2449 I(4) 4 scalar
MPI_GROUP_NULL Param 2457 I(4) 4 scalar
MPI_HOST Param 2473 I(4) 4 scalar
MPI_IDENT Param 2397 I(4) 4 scalar
MPI_INFO_ENV Param 2469 I(4) 4 scalar
MPI_INFO_NULL Param 2467 I(4) 4 scalar
MPI_INT Param 2609 I(4) 4 scalar
MPI_INT16_T Param 2643 I(4) 4 scalar
MPI_INT32_T Param 2645 I(4) 4 scalar
MPI_INT64_T Param 2647 I(4) 4 scalar
MPI_INT8_T Param 2641 I(4) 4 scalar
MPI_INTEGER Param 2549 I(4) 4 scalar
MPI_INTEGER1 Param 2567 I(4) 4 scalar
MPI_INTEGER16 Param 2575 I(4) 4 scalar
MPI_INTEGER2 Param 2569 I(4) 4 scalar
MPI_INTEGER4 Param 2571 I(4) 4 scalar
MPI_INTEGER8 Param 2573 I(4) 4 scalar
MPI_INTEGER_KIND Param 2595 I(4) 4 scalar
MPI_IO Param 2475 I(4) 4 scalar
MPI_KEYVAL_INVALID Param 2513 I(4) 4 scalar
MPI_LAND Param 2425 I(4) 4 scalar
MPI_LASTUSEDCODE Param 2481 I(4) 4 scalar
MPI_LB Param 2563 I(4) 4 scalar
MPI_LOCK_EXCLUSIVE Param 2535 I(4) 4 scalar
MPI_LOCK_SHARED Param 2537 I(4) 4 scalar
MPI_LOGICAL Param 2543 I(4) 4 scalar
MPI_LONG Param 2613 I(4) 4 scalar
MPI_LONG_DOUBLE Param 2621 I(4) 4 scalar
Page 51 Source Listing COAL
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
MPI_LONG_DOUBLE_INT Param 2639 I(4) 4 scalar
MPI_LONG_INT Param 2633 I(4) 4 scalar
MPI_LONG_LONG Param 2627 I(4) 4 scalar
MPI_LONG_LONG_INT Param 2623 I(4) 4 scalar
MPI_LOR Param 2429 I(4) 4 scalar
MPI_LXOR Param 2433 I(4) 4 scalar
MPI_MAX Param 2417 I(4) 4 scalar
MPI_MAXLOC Param 2439 I(4) 4 scalar
MPI_MAX_DATAREP_STRING Param 2507 I(4) 4 scalar
MPI_MAX_ERROR_STRING Param 2495 I(4) 4 scalar
MPI_MAX_INFO_KEY Param 2501 I(4) 4 scalar
MPI_MAX_INFO_VAL Param 2503 I(4) 4 scalar
MPI_MAX_LIBRARY_VERSION_ST
RING Param 2509 I(4) 4 scalar
MPI_MAX_OBJECT_NAME Param 2499 I(4) 4 scalar
MPI_MAX_PORT_NAME Param 2497 I(4) 4 scalar
MPI_MAX_PROCESSOR_NAME Param 2505 I(4) 4 scalar
MPI_MESSAGE_NO_PROC Param 2739 I(4) 4 scalar
MPI_MESSAGE_NULL Param 2737 I(4) 4 scalar
MPI_MIN Param 2419 I(4) 4 scalar
MPI_MINLOC Param 2437 I(4) 4 scalar
MPI_MODE_APPEND Param 2763 I(4) 4 scalar
MPI_MODE_CREATE Param 2759 I(4) 4 scalar
MPI_MODE_DELETE_ON_CLOSE Param 2755 I(4) 4 scalar
MPI_MODE_EXCL Param 2761 I(4) 4 scalar
MPI_MODE_NOCHECK Param 2725 I(4) 4 scalar
MPI_MODE_NOPRECEDE Param 2731 I(4) 4 scalar
MPI_MODE_NOPUT Param 2729 I(4) 4 scalar
MPI_MODE_NOSTORE Param 2727 I(4) 4 scalar
MPI_MODE_NOSUCCEED Param 2733 I(4) 4 scalar
MPI_MODE_RDONLY Param 2749 I(4) 4 scalar
MPI_MODE_RDWR Param 2751 I(4) 4 scalar
MPI_MODE_SEQUENTIAL Param 2765 I(4) 4 scalar
MPI_MODE_UNIQUE_OPEN Param 2757 I(4) 4 scalar
MPI_MODE_WRONLY Param 2753 I(4) 4 scalar
MPI_NO_OP Param 2443 I(4) 4 scalar
MPI_NULL_COPY_FN Subr 2793 scalar
MPI_NULL_DELETE_FN Subr 2793 scalar
MPI_OFFSET Param 2669 I(4) 4 scalar
MPI_OFFSET_KIND Param 2591 I(4) 4 scalar
MPI_OP_NULL Param 2459 I(4) 4 scalar
MPI_ORDER_C Param 2773 I(4) 4 scalar
MPI_ORDER_FORTRAN Param 2775 I(4) 4 scalar
MPI_PACKED Param 2565 I(4) 4 scalar
MPI_PROC_NULL Param 2517 I(4) 4 scalar
MPI_PROD Param 2423 I(4) 4 scalar
MPI_REAL Param 2545 I(4) 4 scalar
MPI_REAL16 Param 2581 I(4) 4 scalar
MPI_REAL4 Param 2577 I(4) 4 scalar
MPI_REAL8 Param 2579 I(4) 4 scalar
MPI_REPLACE Param 2441 I(4) 4 scalar
MPI_REQUEST_NULL Param 2463 I(4) 4 scalar
MPI_ROOT Param 2523 I(4) 4 scalar
MPI_SEEK_CUR Param 2769 I(4) 4 scalar
MPI_SEEK_END Param 2771 I(4) 4 scalar
Page 52 Source Listing COAL
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
MPI_SEEK_SET Param 2767 I(4) 4 scalar
MPI_SHORT Param 2605 I(4) 4 scalar
MPI_SHORT_INT Param 2635 I(4) 4 scalar
MPI_SIGNED_CHAR Param 2599 I(4) 4 scalar
MPI_SIMILAR Param 2401 I(4) 4 scalar
MPI_SOURCE Param 2266 I(4) 4 scalar
MPI_STATUS_SIZE Param 2268 I(4) 4 scalar 2270,2271
MPI_SUBARRAYS_SUPPORTED Param 2787 L(4) 4 scalar
MPI_SUBVERSION Param 2533 I(4) 4 scalar
MPI_SUCCESS Param 2275 I(4) 4 scalar
MPI_SUM Param 2421 I(4) 4 scalar
MPI_TAG Param 2266 I(4) 4 scalar
MPI_TAG_UB Param 2471 I(4) 4 scalar
MPI_THREAD_FUNNELED Param 2743 I(4) 4 scalar
MPI_THREAD_MULTIPLE Param 2747 I(4) 4 scalar
MPI_THREAD_SERIALIZED Param 2745 I(4) 4 scalar
MPI_THREAD_SINGLE Param 2741 I(4) 4 scalar
MPI_TYPECLASS_COMPLEX Param 2723 I(4) 4 scalar
MPI_TYPECLASS_INTEGER Param 2721 I(4) 4 scalar
MPI_TYPECLASS_REAL Param 2719 I(4) 4 scalar
MPI_TYPE_DUP_FN Subr 2800 scalar
MPI_TYPE_NULL_COPY_FN Subr 2801 scalar
MPI_TYPE_NULL_DELETE_FN Subr 2800 scalar
MPI_UB Param 2561 I(4) 4 scalar
MPI_UINT16_T Param 2651 I(4) 4 scalar
MPI_UINT32_T Param 2653 I(4) 4 scalar
MPI_UINT64_T Param 2655 I(4) 4 scalar
MPI_UINT8_T Param 2649 I(4) 4 scalar
MPI_UNDEFINED Param 2511 I(4) 4 scalar
MPI_UNEQUAL Param 2403 I(4) 4 scalar
MPI_UNIVERSE_SIZE Param 2479 I(4) 4 scalar
MPI_UNSIGNED Param 2611 I(4) 4 scalar
MPI_UNSIGNED_CHAR Param 2601 I(4) 4 scalar
MPI_UNSIGNED_LONG Param 2615 I(4) 4 scalar
MPI_UNSIGNED_LONG_LONG Param 2625 I(4) 4 scalar
MPI_UNSIGNED_SHORT Param 2607 I(4) 4 scalar
MPI_VERSION Param 2531 I(4) 4 scalar
MPI_WCHAR Param 2603 I(4) 4 scalar
MPI_WIN_BASE Param 2485 I(4) 4 scalar
MPI_WIN_CREATE_FLAVOR Param 2491 I(4) 4 scalar
MPI_WIN_DISP_UNIT Param 2489 I(4) 4 scalar
MPI_WIN_DUP_FN Subr 2798 scalar
MPI_WIN_FLAVOR_ALLOCATE Param 2407 I(4) 4 scalar
MPI_WIN_FLAVOR_CREATE Param 2405 I(4) 4 scalar
MPI_WIN_FLAVOR_DYNAMIC Param 2409 I(4) 4 scalar
MPI_WIN_FLAVOR_SHARED Param 2411 I(4) 4 scalar
MPI_WIN_MODEL Param 2493 I(4) 4 scalar
MPI_WIN_NULL Param 2453 I(4) 4 scalar
MPI_WIN_NULL_COPY_FN Subr 2799 scalar
MPI_WIN_NULL_DELETE_FN Subr 2798 scalar
MPI_WIN_SEPARATE Param 2413 I(4) 4 scalar
MPI_WIN_SIZE Param 2487 I(4) 4 scalar
MPI_WIN_UNIFIED Param 2415 I(4) 4 scalar
MPI_WTICK Func 2794 R(8) 8 scalar
MPI_WTIME Func 2794 R(8) 8 scalar
Page 53 Source Listing COAL
2025-03-12 18:21 Symbol Table CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
MPI_WTIME_IS_GLOBAL Param 2477 I(4) 4 scalar
PMPI_WTICK Func 2795 R(8) 8 scalar
PMPI_WTIME Func 2795 R(8) 8 scalar
TYPE COMPONENTS/COMMON VARIABLES
Name Type Bytes Offset Dimen Elements Attributes References
BUF R(4) 4 4 1 30000000 COM 2831
IP I(4) 4 0 scalar COM 2821,2823,2826,2830,2831
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:21 CHKOUT.F
2835 SUBROUTINE REPLACE(A,LEN,IW)
2836 INCLUDE "BUFFER.comm"
2845 REAL A(*)
2846 IPP = IW
2847 DO I = 1, LEN
2848 BUF(IPP) = A(I)
2849 IPP = IPP + 1
2850 END DO
2851 return
2852 END
ENTRY POINTS
Name
replace_
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
A Dummy 2835 R(4) 4 1 0 ARG,INOUT 2848
BUFFER Common 2843 12000000 SAVE
4
I Local 2847 I(4) 4 scalar 2847,2848
IBUFMAX Param 2838 I(4) 4 scalar 2843
IPP Local 2846 I(4) 4 scalar 2846,2848,2849
IW Dummy 2835 I(4) 4 scalar ARG,INOUT 2846
LEN Dummy 2835 I(4) 4 scalar ARG,INOUT 2847
REPLACE Subr 2835
TYPE COMPONENTS/COMMON VARIABLES
Name Type Bytes Offset Dimen Elements Attributes References
BUF R(4) 4 4 1 30000000 COM 2848
IP I(4) 4 0 scalar COM
Page 55 Source Listing REPLACE
2025-03-12 18:21 CHKOUT.F
2853
2854
Page 56 Source Listing REPLACE
2025-03-12 18:21 Subprograms/Common Blocks CHKOUT.F
SUBPROGRAMS/COMMON BLOCKS
Name Object Declared Type Bytes Dimen Elements Attributes References
ACMCLD Common 929 287288 SAVE
ACMCLH Common 936 6463824 SAVE
ACMPRE Common 943 287284 SAVE
ACMRDL Common 950 3662832 SAVE
ACMRDS Common 959 3662832 SAVE
ACMSFC Common 968 574576 SAVE
BOCO Common 915 1860144 SAVE
BUFFER Common 1037 12000000 SAVE
4
BUFFER Common 2255 12000000 SAVE
4
BUFFER Common 2843 12000000 SAVE
4
CHKOUT Subr 2
CLDWTR Common 995 3447720 SAVE
CNVCLD Common 922 287280 SAVE
COAL Subr 2247
CONTIN Common 1015 12999420 SAVE
CTLBLK Common 793 112 SAVE
CUINIT Common 1088 4 SAVE
DYNAM Common 871 725404 SAVE
GLB_TABLE Common 144 128 SAVE
INDX Common 1003 6564 SAVE
INDXG Common 1009 8084 SAVE
LOOPS Common 801 158840 SAVE
MAPOT Common 819 1732 SAVE
MAPPINGS Common 163 5024 SAVE
MASKS Common 808 6894720 SAVE
MPIFCMB5 Common 721 4 SAVE
MPIFCMB5 Common 2807 4 SAVE
MPIFCMB9 Common 722 4 SAVE
MPIFCMB9 Common 2808 4 SAVE
MPIPRIV1 Common 726 28 SAVE
MPIPRIV1 Common 2812 28 SAVE
MPIPRIV2 Common 728 24 SAVE
MPIPRIV2 Common 2814 24 SAVE
MPIPRIVC Common 731 2 SAVE
MPIPRIVC Common 2817 2 SAVE
MPPCOM Common 108 1464 SAVE
OUTFIL Common 786 58 SAVE
PHYS Common 889 1788916 SAVE
PPTASM Common 1065 3878292 SAVE
PRFHLD Common 990 143640 SAVE
PVRBLS Common 841 5530140 SAVE
QFLX Common 1040 5027400 SAVE
REPLACE Subr 2835
SOIL Common 978 1651892 SAVE
TEMPCOM Common 149 6603768 SAVE
TEMPV Common 1025 6535620 SAVE
TIMCHK Common 1125 24 SAVE
TIMING Common 1122 16 SAVE
Page 57 Source Listing REPLACE
2025-03-12 18:21 Subprograms/Common Blocks CHKOUT.F
Name Object Declared Type Bytes Dimen Elements Attributes References
TOPO Common 157 17478548 SAVE
VRBLS Common 831 13143060 SAVE
COMPILER OPTIONS BEING USED
-align noall -align nonone
-align nocommons -align nodcommons
-align noqcommons -align nozcommons
-align records -align nosequence
-align norec1byte -align norec2byte
-align norec4byte -align norec8byte
-align norec16byte -align norec32byte
-align norec64byte -align noarray8byte
-align noarray16byte -align noarray32byte
-align noarray64byte -align noarray128byte
-align noarray256byte -altparam
-assume accuracy_sensitive -assume nobscc
-assume nobuffered_io -assume nobuffered_stdout
-assume byterecl -assume nocontiguous_assumed_shape
-assume nocontiguous_pointer -assume nocc_omp
-assume nocstring -assume nodummy_aliases
-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:21 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:21 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