Page 1 Source Listing INIT 2025-03-12 18:21 /tmp/ifort9drGvP.i 1 # 1 "INIT.F" 2 SUBROUTINE INIT 3 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 4 C . . . 5 C SUBPROGRAM: INIT INITIALIZE VARIABLE FOR MODEL RUN 6 C PRGRMMR: JANJIC ORG: W/NP22 DATE: ??-??-?? 7 C 8 C ABSTRACT: INIT READS IN PRIMARY AND AUXILIARY VARIABLES AND CONSTANTS 9 C AND SETS INITIAL VALUES FOR OTHERS 10 C 11 C PROGRAM HISTORY LOG: 12 C 87-06-?? JANJIC - 13 C 92-10-27 DEAVEN - CHANGED READS OF NHB, NFC, AND NBC TO 14 C ACCOMODATE SHORTENED RECORD LENGTHS 15 C 95-03-27 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL 16 C 96-10-31 BLACK - ADDED NAMELIST BCEXDATA FOR THE NESTS 17 C 98-06-10 ROGERS - MADE Y2K COMPLIANT BY REPLACING CALL TO W3FI13 18 C TO W3DOXDAT 19 C 98-09-04 PYLE - CHANGED TO NOT RE-INITIALIZE TSHLTR AND QSHLTR IF 20 C RESTART=TRUE 21 C 98-10-21 BLACK - CHANGES FOR DISTRIBUTED MEMORY 22 C 98-11-17 BLACK - ADDED CODE TO LOCATE THE INNER DOMAIN BOUNDARIES 23 C ON THE RELEVANT PE's 24 C 25 C 26 C USAGE: CALL INIT FROM MAIN PROGRAM EBU 27 C 28 C INPUT ARGUMENT LIST: 29 C NONE 30 C 31 C OUTPUT ARGUMENT LIST: 32 C NONE 33 C 34 C INPUT FILES: 35 C NFC - THE INITIAL VALUES OF SFC PRESSURE, T, Q, U, AND V 36 C NHB - A LARGE VARIETY OF ARRAY AND SCALAR CONSTANTS 37 C NBC - THE BOUNDARY CONDITIONS AND TENDENCIES 38 C 39 C OR 40 C 41 C RESTRT - A RESTART FILE WITH ALL NECESSARY QUANTITIES 42 C 43 C OUTPUT FILES: 44 C NONE 45 C 46 C SUBPROGRAMS CALLED: 47 C UNIQUE: READ_NHB 48 C READ_RESTRT 49 C ZERO2 50 C ZERO3 51 C UTILITIES: W3LIB - W3DOXDAT 52 C NONE 53 C LIBRARY: 54 C COMMON - CTLBLK 55 C LOOPS 56 C MASKS 57 C DYNAM Page 2 Source Listing INIT 2025-03-12 18:21 INIT.F 58 C PHYS2 59 C MAPOT1 60 C VRBLS 61 C PVRBLS 62 C BOCO 63 C GRIDS 64 C ACMCLH 65 C ACMCLD 66 C ACMPRE 67 C ACMRDL 68 C ACMRDS 69 C ACMSFC 70 C CLDWTR 71 C CNVCLD 72 C CUINIT 73 C SOIL 74 C INDX 75 C TEMPV 76 C RD1TIM 77 C 78 C ATTRIBUTES: 79 C LANGUAGE: FORTRAN 90 80 C MACHINE : IBM SP 81 C$$$ 82 C 83 C----------------------------------------------------------------------- 84 C INCLUDE/SET PARAMETERS. 85 C----------------------------------------------------------------------- 86 INCLUDE "parmeta" 109 INCLUDE "parm.tbl" 111 INCLUDE "cuparm" 202 INCLUDE "parmsoil" 204 INCLUDE "mpp.h" 263 INCLUDE "mpif.h" 264 # 1 "./sp.h" 1 265 # 4 266 267 # 92 "INIT.F" 2 268 C----------------------------------------------------------------------- 830 P A R A M E T E R 831 & (CM1=2937.4,CM2=4.9283,CM3=23.5518,EPS=0.622,PI2=2.*3.14159265 832 &, RLAG=14.8125 833 C 834 CVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV 835 C &, Q2INI=.01,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 836 C &, Q2INI=1.0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 837 C &, Q2INI=.50,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 838 C &, Q2INI=.01,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=0.0 839 &, Q2INI=.50 ,EPSQ2=0.2 ,EPSWET=0.0 840 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 841 &, Z0LAND=.10,Z0SEA=.001,FCM=.00001 842 &, DTR=0.1745329E-1) 843 C----------------------------------------------------------------------- 844 P A R A M E T E R 845 & (A1=610.78,WA=.10,WG=1.0-WA) 846 C 847 C----------------------------------------------------------------------- Page 3 Source Listing INIT 2025-03-12 18:21 INIT.F 848 P A R A M E T E R 849 & (IMJM=IM*JM-JM/2,JMP1=JM+1,JAM=6+2*(JM-10),LB=2*IM+JM-3 850 &, LM1=LM-1,LP1=LM+1,IMT=2*IM-1 851 &, NSTAT=1000) 852 C----------------------------------------------------------------------- 853 C 854 C DECLARE VARIABLES 855 C 856 C----------------------------------------------------------------------- 857 L O G I C A L 858 & RUN,RUNB,FIRST,RESTRT,SIGMA,EXBC,NEST 859 &,INSIDEH,INSIDEV 860 C----------------------------------------------------------------------- 861 C H A R A C T E R *32 862 & LABEL 863 C H A R A C T E R *40 864 & CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV 865 &,FILCLD,FILRAD,FILSFC 866 C----------------------------------------------------------------------- 867 R E A L 868 & PHALF(LP1),NPEBND 869 C*** 870 C*** NOTE: THE DIMENSION OF THE FOLLOWING ARRAYS IS ARBITRARILY CHOSEN 871 C*** TO EXCEED ANY NUMBER OF BOUNDARY POINTS THAT MIGHT EXIST IN 872 C*** ANY INNER DOMAIN 873 C*** 874 R E A L 875 & HLATI(1500),HLONI(1500),VLATI(1500),VLONI(1500) 876 &,THLONI(1500),THLATI(1500),TVLONI(1500),TVLATI(1500) 877 &,TSLAT(NSTAT),TSLON(NSTAT) 878 C----------------------------------------------------------------------- 879 I N T E G E R 880 & IDATB(3),INIDAT(8),IBCDAT(8) 881 C----------------------------------------------------------------------- 882 # 148 883 884 C----------------------------------------------------------------------- 885 C 886 C INCLUDE COMMON BLOCKS. 887 C 888 INCLUDE "CTLBLK.comm" 898 INCLUDE "LOOPS.comm" 905 INCLUDE "MASKS.comm" 916 INCLUDE "DYNAM.comm" 932 INCLUDE "PHYS2.comm" 960 INCLUDE "MAPOT1.comm" 972 INCLUDE "VRBLS.comm" 982 INCLUDE "CONTIN.comm" 992 INCLUDE "PVRBLS.comm" 1022 INCLUDE "BOCO.comm" 1029 INCLUDE "ACMCLH.comm" 1036 INCLUDE "ACMCLD.comm" 1043 INCLUDE "ACMPRE.comm" 1050 INCLUDE "ACMRDL.comm" 1059 INCLUDE "ACMRDS.comm" 1068 INCLUDE "ACMSFC.comm" 1078 INCLUDE "CLDWTR.comm" Page 4 Source Listing INIT 2025-03-12 18:21 INIT.F 1086 INCLUDE "CNVCLD.comm" 1093 INCLUDE "SOIL.comm" 1106 INCLUDE "INDX.comm" 1118 INCLUDE "Z0EFFT.comm" 1125 INCLUDE "TEMPV.comm" 1132 INCLUDE "PPTASM.comm" 1156 INCLUDE "QFLX.comm" 1157 C----------------------------------------------------------------------- 1158 C*** 1159 C*** THE FOLLOWING IS FOR TIMIMG PURPOSES ONLY 1160 C*** 1184 real*8 timef 1185 real nhb_tim 1186 common/timing/surfce_tim,nhb_tim,res_tim,exch_tim 1187 C----------------------------------------------------------------------- 1188 C O M M O N /RD1TIM/ 1189 1 K400,CTHK(3),LTOP(3),PTOPC(4),TAUCV(3),RAD1 1190 2,LVL(IDIM1:IDIM2,JDIM1:JDIM2) 1191 C----------------------------------------------------------------------- 1192 D A T A 1193 1 PLOMD/64200./,PMDHI/35000./,PHITP/15000./,P400/40000./ 1194 2,PLBTM/105000./ 1195 D A T A 1196 1 NFILE/14/,IUNWGT/40/ 1197 !----------------------------------------------------------------------- 1198 ! 1199 !--- Flag for initializing convective clouds for radiation 1200 ! 1201 COMMON /CUINIT/ CURAD 1202 LOGICAL CURAD 1203 C----------------------------------------------------------------------- 1204 C 1205 C DECLARE NAMELISTS. 1206 C 1207 NAMELIST /FCSTDATA/ 1208 & TSTART,TEND,TCP,RESTRT,SINGLRST,SUBPOST,NMAP,TSHDE,SPL 1209 &,NPHS,NCNVC,NRADSH,NRADLH,NTDDMP 1210 &,TPREC,THEAT,TCLOD,TRDSW,TRDLW,TSRFC 1211 &,NEST 1212 CHARACTER ENVAR*4 1213 C 1214 C Read in precip assim test points (global), compute the corresponding 1215 C local coordinate 1216 C and the node it is on 1217 1218 c CALL get_environment_variable("tmmark",ENVAR) 1219 c itest=56 1220 c jtest=33 1221 c IF(ENVAR.NE.'tm00') then 1222 c READ(5,*) ITEST, JTEST 1223 c print*,'itest,jtest,mype=',itest,jtest,mype 1224 c CALL GLB2LOC(ITEST,JTEST,ITSTLOC,JTSTLOC,MTSTPE) 1225 c ENDIF 1226 itstloc=39 1227 jtstloc=26 1228 mtstpe=5 1229 C Page 5 Source Listing INIT 2025-03-12 18:21 INIT.F 1230 C*********************************************************************** 1231 C START INIT HERE. 1232 C 1233 C CALCULATE THE I-INDEX EAST-WEST INCREMENTS 1234 C 1235 DO J=1,JM 1236 IHEG(J)=MOD(J+1,2) 1237 IHWG(J)=IHEG(J)-1 1238 IVEG(J)=MOD(J,2) 1239 IVWG(J)=IVEG(J)-1 1240 ENDDO 1241 C 1242 C CALCULATE THE INDIRECT I INDICES FOR RADTN 1243 C 1244 KNT=0 1245 DO I=1,IM 1246 KNT=KNT+1 1247 IRADG(KNT)=I 1248 ENDDO 1249 DO I=1,IM-1 1250 KNT=KNT+1 1251 IRADG(KNT)=IM+2+I 1252 ENDDO 1253 C 1254 C ZERO OUT LOCALLY INDEXED ARRAYS 1255 C 1256 CALL ZERO2(PDSL) 1257 CALL ZERO3(T,LM) 1258 CALL ZERO3(Q,LM) 1259 CALL ZERO3(U,LM) 1260 CALL ZERO3(V,LM) 1261 CALL ZERO2(RES) 1262 CALL ZERO3(RTOP,LM) 1263 CALL ZERO3(OMGALF,LM) 1264 CALL ZERO3(DIV,LM) 1265 CALL ZERO3(ETADT,LM-1) 1266 CALL ZERO3(HTM,LM) 1267 CALL ZERO3(VTM,LM) 1268 CALL ZERO2(HBM2) 1269 CALL ZERO2(AKMS) 1270 CALL ZERO2(UZ0) 1271 CALL ZERO2(VZ0) 1272 CALL ZERO2(FAD) 1273 C--------------------------------------------------------------- 1274 C 1275 C READ Z0 EFFECTIVE 1276 C 1277 DO N=1,4 1278 IF(MYPE.EQ.0)THEN 1279 READ(22)TEMP1 1280 ENDIF 1281 CALL DSTRB(TEMP1,ZEFFIJ,1,4,N) 1282 ENDDO 1283 C--------------------------------------------------------------- 1284 C*** 1285 C*** READ "CONSTANT" DATA FROM UNIT CONNECTED TO NHB 1286 C*** Page 6 Source Listing INIT 2025-03-12 18:21 INIT.F 1287 NHB=12 1288 LSL =LSM 1289 btim=timef() 1290 CALL READ_NHB(NHB) 1291 nhb_tim=timef()-btim 1292 C 1293 C--------------------------------------------------------------- 1294 NHIBU = 12 1295 IF(MYPE.EQ.0)WRITE(LIST,*)'INIT: READ CONSTANTS FILE' 1296 C 1297 C 1298 C READ NAMELIST FCSTDATA WHICH CONTROLS TIMESTEPS, 1299 C ACCUMULATION PERIODS, STANDARD OUTPUT 1300 C 1301 RESTRT = .FALSE. 1302 REWIND 11 1303 READ(11,FCSTDATA) 1304 C 1305 IF(MYPE.EQ.0)THEN 1306 WRITE(LIST,*)'INIT: READ NAMELIST FCSTDATA - LISTED BELOW' 1307 WRITE(LIST,*)' TSTART,TEND : ',TSTART,TEND 1308 WRITE(LIST,*)' TCP : ',TCP 1309 WRITE(LIST,*)' RESTRT : ',RESTRT 1310 WRITE(LIST,*)' SINGLRST : ',SINGLRST 1311 WRITE(LIST,*)' SUBPOST : ',SUBPOST 1312 WRITE(LIST,*)' NMAP,NPHS : ',NMAP,NPHS 1313 WRITE(LIST,*)' NCNVC : ',NCNVC 1314 WRITE(LIST,*)' NRADSH,NRADLH: ',NRADSH,NRADLH 1315 WRITE(LIST,*)' NTDDMP : ',NTDDMP 1316 WRITE(LIST,*)' TPREC,THEAT : ',TPREC,THEAT 1317 WRITE(LIST,*)' TCLOD,TRDSW : ',TCLOD,TRDSW 1318 WRITE(LIST,*)' TRDLW,TSRFC : ',TRDLW,TSRFC 1319 WRITE(LIST,*)' TSHDE (POSTED FORECAST HOURS) BELOW: ' 1320 WRITE(LIST,75) (TSHDE(K),K=1,99) 1321 WRITE(LIST,*)' SPL (POSTED PRESSURE LEVELS) BELOW: ' 1322 WRITE(LIST,80) (SPL(L),L=1,LSM) 1323 75 FORMAT(14(F4.1,1X)) 1324 80 FORMAT(8(F8.1,1X)) 1325 ENDIF 1326 C 1327 C 1328 C SET TIME STEPPING RELATED CONSTANTS. 1329 C 1330 FIRST = .TRUE. 1331 NSTART = INT(TSTART*TSPH+0.5) 1332 NTSTM = INT(TEND *TSPH+0.5)+1 1333 NCP = INT(TCP *TSPH+0.5) 1334 NPREC = INT(TPREC *TSPH+0.5) 1335 NHEAT = INT(THEAT *TSPH+0.5) 1336 NCLOD = INT(TCLOD *TSPH+0.5) 1337 NRDSW = INT(TRDSW *TSPH+0.5) 1338 NRDLW = INT(TRDLW *TSPH+0.5) 1339 NSRFC = INT(TSRFC *TSPH+0.5) 1340 IF(MYPE.EQ.0)THEN 1341 WRITE(0,*)' NTSTM=',NTSTM,' TSPH=',TSPH,' DT=',DT 1342 ENDIF 1343 C IF (NSTART.LT.NCP) NSTART=0 Page 7 Source Listing INIT 2025-03-12 18:21 INIT.F 1344 C 1345 C SET VARIOUS PHYSICS PACKAGE TIMESTEP VARIABLES. 1346 C 1347 NRADS = NINT(TSPH)*NRADSH 1348 NRADL = NINT(TSPH)*NRADLH 1349 DTQ2 = NPHS * DT 1350 TDTQ2 = DTQ2 + DTQ2 1351 DTD = 0.5 * DTQ2 1352 TDTD = DTD + DTD 1353 KTM = INT(DTQ2/DTD+0.5) 1354 C 1355 IF(MYPE.EQ.0)THEN 1356 WRITE(LIST,*)' ' 1357 WRITE(LIST,*)'SET TIME STEPPING CONSTANTS' 1358 WRITE(LIST,*)' FIRST : ',FIRST 1359 WRITE(LIST,*)' NSTART,NSTSM,NCP : ',NSTART,NTSTM,NCP 1360 WRITE(LIST,*)' NTDDMP,NPREC,NHEAT: ',NTDDMP,NPREC,NHEAT 1361 WRITE(LIST,*)' NCLOD,NRDSW,NRDLW : ',NCLOD,NRDSW,NRDLW 1362 WRITE(LIST,*)' NSRFC : ',NSRFC 1363 WRITE(LIST,*)' NRADS,NRADL,KTM : ',NRADS,NRADL,KTM 1364 WRITE(LIST,*)' DTQ2,TDTQ2 : ',DTQ2,TDTQ2 1365 WRITE(LIST,*)' DTD,TDTD : ',DTD,TDTD 1366 WRITE(LIST,*)' ' 1367 ENDIF 1368 C 1369 C COMPUTE DERIVED MAP OUTPUT CONSTANTS. 1370 DO L = 1,LSL 1371 ALSL(L) = LOG(SPL(L)) 1372 ENDDO 1373 DO I=1,NMAP 1374 ISHDE(I)=INT(TSHDE(I)*TSPH+0.5)+1 1375 ENDDO 1376 C*** 1377 C*** SET UP ARRAY IRAD (INDICES FOR RADTN) 1378 C*** 1379 DO I=MYIS,MYIE 1380 IRAD(I)=IRADG(I+MY_IS_GLB-1)-MY_IS_GLB+1 1381 ENDDO 1382 C------------------------------------------------------------- 1383 C*** 1384 C*** READ INITIAL CONDITIONS OR RESTART FILE. 1385 C*** 1386 btim=timef() 1387 IF(SINGLRST)THEN 1388 CALL READ_RESTRT 1389 ELSE 1390 CALL READ_RESTRT2 1391 ENDIF 1392 res_tim=timef()-btim 1393 C------------------------------------------------------------- 1394 C 1395 CALL READGRDETA 1396 C 1397 C------------------------------------------------------------- 1398 C 1399 C IF NOT RUNNING THE MODEL, PRINT DATE OF INITIAL CONDITIONS 1400 C JUST READ AND STOP. OTHERWISE, CONTINUE. Page 8 Source Listing INIT 2025-03-12 18:21 INIT.F 1401 C 1402 C------------------------------------------------------------- 1403 IF (RUN) GO TO 190 1404 C 1405 IF(MYPE.EQ.0)THEN 1406 WRITE(LIST,165) IHRST,IDAT 1407 WRITE(LIST,166) 1408 ccccc CALL EXIT(2) 1409 CALL MPI_FINALIZE(IERR) 1410 STOP2 1411 165 FORMAT('0*** ',I2,' GMT ',2(I2,'/'),I4,' ***') 1412 166 FORMAT('0F*** NO INITIAL CONDITIONS. RUN TERMINATED.') 1413 ENDIF 1414 C 1415 C IF THE TIMESTEP COUNTER (NTSD) EXCEEDS THE "STOP MODEL" T 1416 C TIMESTEP,CONTINUE, STOP EXECUTION. OTHERWISE, CONTINUE. 1417 C 1418 190 IF(NTSD.GE.NTSTM)THEN 1419 IF(MYPE.EQ.0)THEN 1420 WRITE(LIST,165) IHRST,IDAT 1421 WRITE(LIST,195) 1422 195 FORMAT('0F*** FORECAST ALREADY DONE. RUN TERMINATED.') 1423 ccccc CALL EXIT(3) 1424 CALL MPI_FINALIZE(IERR) 1425 STOP3 1426 ENDIF 1427 ENDIF 1428 C 1429 C------------------------------------------------------------- 1430 C 1431 C READ BOUNDARY CONDITIONS. 1432 C 1433 C------------------------------------------------------------- 1434 IF(MYPE.EQ.0)THEN 1435 IF(NEST)THEN 1436 KBI=2*IM+JM-3 1437 KBI2=KBI-4 1438 LRECBC=4*(1+(1+6*LM)*KBI*2+(KBI+KBI2)*(LM+1)) 1439 OPEN(UNIT=NBC,ACCESS='DIRECT',RECL=LRECBC) 1440 ENDIF 1441 C 1442 IF(.NOT.NEST)REWIND NBC 1443 C 1444 # 451 1445 1446 IF(NEST)THEN 1447 READ(NBC,REC=1)RUNB,IDATB,IHRSTB,TBOCO 1448 ELSE 1449 READ(NBC)RUNB,IDATB,IHRSTB,TBOCO 1450 ENDIF 1451 1452 ENDIF 1453 C 1454 CALL MPI_BCAST(RUNB,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) 1455 CALL MPI_BCAST(IDATB,3,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1456 CALL MPI_BCAST(IHRSTB,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1457 CALL MPI_BCAST(TBOCO,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) Page 9 Source Listing INIT 2025-03-12 18:21 INIT.F 1458 C 1459 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1460 C 1461 IF(MYPE.EQ.0.AND..NOT.NEST)THEN 1462 ISTART=NINT(TSTART) 1463 C 1464 READ(NBC)BCHR 1465 205 READ(NBC) 1466 READ(NBC) 1467 READ(NBC) 1468 READ(NBC) 1469 READ(NBC) 1470 READ(NBC) 1471 READ(NBC) 1472 C 1473 IF(ISTART.EQ.NINT(BCHR))THEN 1474 IF(ISTART.GT.0)READ(NBC)BCHR 1475 GO TO 215 1476 ELSE 1477 READ(NBC)BCHR 1478 ENDIF 1479 C 1480 IF(ISTART.GE.NINT(BCHR))GO TO 205 1481 ENDIF 1482 C 1483 IF(MYPE.EQ.0.AND.NEST)THEN 1484 ISTART=NINT(TSTART) 1485 NREC=1 1486 C 1487 210 NREC=NREC+1 1488 READ(NBC,REC=NREC)BCHR 1489 C 1490 IF(ISTART.EQ.NINT(BCHR))THEN 1491 IF(ISTART.GT.0)READ(NBC,REC=NREC+1)BCHR 1492 GO TO 215 1493 ELSE 1494 GO TO 210 1495 ENDIF 1496 ENDIF 1497 C 1498 215 CONTINUE 1499 C 1500 CALL MPI_BCAST(BCHR,1,MPI_REAL,0, 1501 1 MPI_COMM_COMP,IRTN) 1502 C 1503 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1504 C 1505 IF(MYPE.EQ.0)WRITE(LIST,*)' READ UNIT NBC=',NBC 1506 C*** 1507 C*** COMPUTE THE 1ST TIME FOR BOUNDARY CONDITION READ 1508 C*** 1509 NBOCO=NINT(BCHR*TSPH) 1510 C 1511 IF(NTSD.EQ.0)THEN 1512 IF(MYPE.EQ.0.AND..NOT.NEST)THEN 1513 BACKSPACE NBC 1514 BACKSPACE NBC Page 10 Source Listing INIT 2025-03-12 18:21 INIT.F 1515 BACKSPACE NBC 1516 BACKSPACE NBC 1517 BACKSPACE NBC 1518 BACKSPACE NBC 1519 BACKSPACE NBC 1520 WRITE(LIST,*)' BACKSPACE UNIT NBC=',NBC 1521 ENDIF 1522 ENDIF 1523 C 1524 C------------------------------------------------------------- 1525 C 1526 C SET ARRAYS CONTROLLING POST PROCESSING. 1527 C 1528 C------------------------------------------------------------- 1529 IF(MYPE.EQ.0)THEN 1530 WRITE(LIST,*)'INIT: READ IOUT,NSHDE,NTSD=',IOUT,NSHDE,NTSD 1531 ENDIF 1532 C 1533 DO I=1,NMAP 1534 IOUT=I 1535 IF(ISHDE(I).GE.NTSD)GO TO 220 1536 ENDDO 1537 220 NSHDE = ISHDE(IOUT) 1538 C 1539 IF(MYPE.EQ.0)THEN 1540 WRITE(LIST,*)'INIT: SET IOUT,NSHDE =',IOUT,NSHDE, 1541 1 ' FOR ISHDE,NTSD=',ISHDE(IOUT),NTSD 1542 ENDIF 1543 C------------------------------------------------------------- 1544 C 1545 C INITIALIZE PHYSICS VARIABLES IF STARTING THIS RUN FROM SCRATCH. 1546 C 1547 IF(NEST)THEN 1548 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1549 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1550 C 1551 LLMH=LMH(I,J) 1552 C 1553 IF(T(I,J,LLMH).EQ.0.)THEN 1554 T(I,J,LLMH)=T(I,J,LLMH-1) 1555 ENDIF 1556 C 1557 TERM1=-0.068283/T(I,J,LLMH) 1558 PSHLTR(I,J)=(PD(I,J)+PT)*EXP(TERM1) 1559 ENDDO 1560 ENDDO 1561 ENDIF 1562 C 1563 IF(.NOT.RESTRT)THEN 1564 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1565 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1566 LLMH=LMH(I,J) 1567 PDSL(I,J) = PD(I,J)*RES(I,J) 1568 PREC(I,J) = 0. 1569 ACPREC(I,J) = 0. 1570 CUPREC(I,J) = 0. 1571 VAPINC(I,J)=0. Page 11 Source Listing INIT 2025-03-12 18:21 INIT.F 1572 VAPINC7(I,J)=0. 1573 CLDINC(I,J)=0. 1574 CLDINC7(I,J)=0. 1575 Z0(I,J) = SM(I,J)*Z0SEA+(1.-SM(I,J))* 1576 1 (FIS(I,J)*FCM+Z0LAND) 1577 QS(I,J) = 0. 1578 AKMS(I,J) = 0. 1579 AKHS(I,J) = 0. 1580 TWBS(I,J) = 0. 1581 QWBS(I,J) = 0. 1582 CLDEFI(I,J) = 1. 1583 HTOP(I,J) = 100. 1584 HBOT(I,J) = 0. 1585 C*** 1586 C*** AT THIS POINT, WE MUST CALCULATE THE INITIAL POTENTIAL TEMPERATURE 1587 C*** OF THE SURFACE AND OF THE SUBGROUND. 1588 C*** EXTRAPOLATE DOWN FOR INITIAL SURFACE POTENTIAL TEMPERATURE. 1589 C*** ALSO DO THE SHELTER PRESSURE. 1590 C*** 1591 PM1=PDSL(I,J)*AETA(LLMH)+PT 1592 APEM1=(1.E5/PM1)**CAPA 1593 THS(I,J)=T(I,J,LLMH)*(1.+0.608*Q(I,J,LLMH))*APEM1 1594 TSFCK=T(I,J,LLMH)*(1.+0.608*Q(I,J,LLMH)) 1595 PSFCK=PD(I,J)+PT 1596 C 1597 IF(SM(I,J).LT.0.5) THEN 1598 QS(I,J)=PQ0/PSFCK*EXP(A2*(TSFCK-A3)/(TSFCK-A4)) 1599 ELSEIF(SM(I,J).GT.0.5) THEN 1600 THS(I,J)=SST(I,J)*(1.E5/(PD(I,J)+PT))**CAPA 1601 ENDIF 1602 C 1603 TERM1=-0.068283/T(I,J,LLMH) 1604 PSHLTR(I,J)=(PD(I,J)+PT)*EXP(TERM1) 1605 C 1606 USTAR(I,J)=0.1 1607 THZ0(I,J)=THS(I,J) 1608 QZ0(I,J)=QS(I,J) 1609 UZ0(I,J)=0. 1610 VZ0(I,J)=0. 1611 C 1612 ENDDO 1613 ENDDO 1614 C 1615 C INITIALIZE CLOUD FIELDS 1616 C 1617 DO L=1,LM 1618 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1619 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1620 CWM(I,J,L)=0. 1621 ENDDO 1622 ENDDO 1623 ENDDO 1624 C 1625 C INITIALIZE ACCUMULATOR ARRAYS TO ZERO. 1626 C 1627 ARDSW=0.0 1628 ARDLW=0.0 Page 12 Source Listing INIT 2025-03-12 18:21 INIT.F 1629 ASRFC=0.0 1630 AVRAIN=0.0 1631 AVCNVC=0.0 1632 C 1633 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1634 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1635 ACFRCV(I,J)=0. 1636 NCFRCV(I,J)=0 1637 ACFRST(I,J)=0. 1638 NCFRST(I,J)=0 1639 ACSNOW(I,J)=0. 1640 ACSNOM(I,J)=0. 1641 SSROFF(I,J)=0. 1642 BGROFF(I,J)=0. 1643 ALWIN(I,J) =0. 1644 ALWOUT(I,J)=0. 1645 ALWTOA(I,J)=0. 1646 ASWIN(I,J) =0. 1647 ASWOUT(I,J)=0. 1648 ASWTOA(I,J)=0. 1649 SFCSHX(I,J)=0. 1650 SFCLHX(I,J)=0. 1651 SUBSHX(I,J)=0. 1652 SNOPCX(I,J)=0. 1653 SFCUVX(I,J)=0. 1654 SFCEVP(I,J)=0. 1655 POTEVP(I,J)=0. 1656 POTFLX(I,J)=0. 1657 ENDDO 1658 ENDDO 1659 C 1660 C INITIALIZE SATURATION SPECIFIC HUMIDITY OVER THE WATER. 1661 C 1662 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1663 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1664 IF(SM(I,J).GT.0.5)THEN 1665 CLOGES =-CM1/SST(I,J)-CM2*ALOG10(SST(I,J))+CM3 1666 ESE = 10.**(CLOGES+2.) 1667 QS(I,J)= SM(I,J)*EPS*ESE/(PD(I,J)+PT-ESE*(1.-EPS)) 1668 ENDIF 1669 ENDDO 1670 ENDDO 1671 C 1672 C PAD GROUND WETNESS IF IT IS TOO SMALL. 1673 C 1674 c DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1675 c DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1676 c WET(I,J)=AMAX1(WET(I,J),EPSWET) 1677 c ENDDO 1678 c ENDDO 1679 C 1680 C INITIALIZE TURBULENT KINETIC ENERGY (TKE) TO A SMALL 1681 C VALUE (EPSQ2) ABOVE GROUND. SET TKE TO ZERO IN THE 1682 C THE LOWEST MODEL LAYER. IN THE LOWEST TWO ATMOSPHERIC 1683 C ETA LAYERS SET TKE TO A SMALL VALUE (Q2INI). 1684 C 1685 DO L=1,LM1 Page 13 Source Listing INIT 2025-03-12 18:21 INIT.F 1686 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1687 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1688 Q2(I,J,L)=HTM(I,J,L+1)*HBM2(I,J)*EPSQ2 1689 ENDDO 1690 ENDDO 1691 ENDDO 1692 C 1693 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1694 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1695 Q2(I,J,LM) = 0. 1696 LLMH = LMH(I,J) 1697 Q2(I,J,LLMH-2)= HBM2(I,J)*Q2INI 1698 Q2(I,J,LLMH-1)= HBM2(I,J)*Q2INI 1699 ENDDO 1700 ENDDO 1701 C 1702 C PAD ABOVE GROUND SPECIFIC HUMIDITY IF IT IS TOO SMALL. 1703 C INITIALIZE LATENT HEATING ACCUMULATION ARRAYS. 1704 C 1705 DO L=1,LM 1706 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1707 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1708 IF(Q(I,J,L).LT.EPSQ)Q(I,J,L)=EPSQ*HTM(I,J,L) 1709 TRAIN(I,J,L)=0. 1710 TCUCN(I,J,L)=0. 1711 ENDDO 1712 ENDDO 1713 ENDDO 1714 C 1715 C END OF SCRATCH START INITIALIZATION BLOCK. 1716 C 1717 IF(MYPE.EQ.0)THEN 1718 WRITE(LIST,*)'INIT: INITIALIZED ARRAYS FOR CLEAN START' 1719 ENDIF 1720 ENDIF 1721 C 1722 C 1723 C 1724 C RESTART INITIALIZING. CHECK TO SEE IF WE NEED TO ZERO 1725 C ACCUMULATION ARRAYS. 1726 C 1727 IF(RESTRT)THEN 1728 C 1729 C AVERAGE CLOUD AMOUNT ARRAY 1730 C 1731 IF(MOD(NTSD,NCLOD).LT.NPHS)THEN 1732 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO AVG CLD AMT ARRAY' 1733 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1734 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1735 ACFRCV(I,J)=0. 1736 NCFRCV(I,J)=0 1737 ACFRST(I,J)=0. 1738 NCFRST(I,J)=0 1739 ENDDO 1740 ENDDO 1741 ENDIF 1742 C Page 14 Source Listing INIT 2025-03-12 18:21 INIT.F 1743 C GRID-SCALE AND CONVECTIVE LATENT HEATING ARRAYS. 1744 C 1745 IF(MOD(NTSD,NHEAT).LT.NCNVC)THEN 1746 IF(MYPE.EQ.0)THEN 1747 WRITE(LIST,*)' ZERO ACCUM LATENT HEATING ARRAYS' 1748 ENDIF 1749 C 1750 AVRAIN=0. 1751 AVCNVC=0. 1752 DO L=1,LM 1753 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1754 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1755 TRAIN(I,J,L)=0. 1756 TCUCN(I,J,L)=0. 1757 ENDDO 1758 ENDDO 1759 ENDDO 1760 ENDIF 1761 C*** 1762 C*** IF THIS IS NOT A NESTED RUN, INITIALIZE TKE 1763 C*** 1764 c IF(.NOT.NEST)THEN 1765 c DO L=1,LM 1766 c DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1767 c DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1768 c Q2(I,J,L)=AMAX1(Q2(I,J,L)*HBM2(I,J),EPSQ2) 1769 c ENDDO 1770 c ENDDO 1771 c ENDDO 1772 c ENDIF 1773 C 1774 C TOTAL AND CONVECTIVE PRECIPITATION ARRAYS. 1775 C TOTAL SNOW AND SNOW MELT ARRAYS. 1776 C STORM SURFACE AND BASE GROUND RUN OFF ARRAYS. 1777 C 1778 IF(MOD(NTSD,NPREC).LT.NPHS)THEN 1779 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO ACCUM PRECIP ARRAYS' 1780 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1781 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1782 ACPREC(I,J)=0. 1783 CUPREC(I,J)=0. 1784 VAPINC(I,J)=0. 1785 VAPINC7(I,J)=0. 1786 CLDINC(I,J)=0. 1787 CLDINC7(I,J)=0. 1788 ACSNOW(I,J)=0. 1789 ACSNOM(I,J)=0. 1790 SSROFF(I,J)=0. 1791 BGROFF(I,J)=0. 1792 C 1793 FQNEV(I,J)=0. !dule 1794 FQSEV(I,J)=0. !dule 1795 FCNEV(I,J)=0. !dule 1796 FCSEV(I,J)=0. !dule 1797 FCNEV7(I,J)=0. !dule 1798 FCSEV7(I,J)=0. !dule 1799 FQNEV7(I,J)=0. !dule Page 15 Source Listing INIT 2025-03-12 18:21 INIT.F 1800 FQSEV7(I,J)=0. !dule 1801 FQU(I,J)=0. !dule 1802 FQV(I,J)=0. !dule 1803 FCU(I,J)=0. !dule 1804 FCV(I,J)=0. !dule 1805 FQU7(I,J)=0. !dule 1806 FQV7(I,J)=0. !dule 1807 FCU7(I,J)=0. !dule 1808 FCV7(I,J)=0. !dule 1809 DQADV(I,J)=0. !dule 1810 DQFLX(I,J)=0. !dule 1811 DCFLX(I,J)=0. !dule 1812 DQFLX7(I,J)=0. !dule 1813 DCFLX7(I,J)=0. !dule 1814 DO L=1,LM !dule 1815 QOLD(I,J,L)=Q(I,J,L) !dule 1816 END DO !dule 1817 C 1818 ENDDO 1819 ENDDO 1820 ENDIF 1821 C 1822 C LONG WAVE RADIATION ARRAYS. 1823 C 1824 IF(MOD(NTSD,NRDLW).LT.NPHS)THEN 1825 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO ACCUM LW RADTN ARRAYS' 1826 ARDLW=0. 1827 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1828 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1829 ALWIN(I,J) =0. 1830 ALWOUT(I,J)=0. 1831 ALWTOA(I,J)=0. 1832 ENDDO 1833 ENDDO 1834 ENDIF 1835 C 1836 C SHORT WAVE RADIATION ARRAYS. 1837 C 1838 IF(MOD(NTSD,NRDSW).LT.NPHS)THEN 1839 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO ACCUM SW RADTN ARRAYS' 1840 ARDSW=0. 1841 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1842 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1843 ASWIN(I,J) =0. 1844 ASWOUT(I,J)=0. 1845 ASWTOA(I,J)=0. 1846 ENDDO 1847 ENDDO 1848 ENDIF 1849 C 1850 C SURFACE SENSIBLE AND LATENT HEAT FLUX ARRAYS. 1851 C 1852 IF(MOD(NTSD,NSRFC).LT.NPHS)THEN 1853 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO ACCUM SFC FLUX ARRAYS' 1854 ASRFC=0. 1855 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1856 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) Page 16 Source Listing INIT 2025-03-12 18:21 INIT.F 1857 SFCSHX(I,J)=0. 1858 SFCLHX(I,J)=0. 1859 SUBSHX(I,J)=0. 1860 SNOPCX(I,J)=0. 1861 SFCUVX(I,J)=0. 1862 SFCEVP(I,J)=0. 1863 POTEVP(I,J)=0. 1864 POTFLX(I,J)=0. 1865 ENDDO 1866 ENDDO 1867 ENDIF 1868 C 1869 C ENDIF FOR RESTART FILE ACCUMULATION ZERO BLOCK. 1870 C 1871 IF(MYPE.EQ.0)THEN 1872 WRITE(LIST,*)'INIT: INITIALIZED ARRAYS FOR RESTART START' 1873 ENDIF 1874 ENDIF 1875 C----------------------------------------------------------------------- 1876 C----------------------------------------------------------------------- 1877 C 1878 C INITIALIZE CLOUD CONSTANTS 1879 C 1880 C----------------------------------------------------------------------- 1881 DO 350 J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1882 DO 350 I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1883 U00(I,J)=(1.-SM(I,J))*0.75+SM(I,J)*0.80 1884 350 CONTINUE 1885 ! 1886 !--- Flag for initializing convective cloud arrays for radiation 1887 ! 1888 CURAD=.FALSE. 1889 C 1890 DO 355 L=1,2*LM 1891 IF(L.GE.LM-10.AND.L.LE.LM)THEN 1892 UL(L)=0.1*FLOAT(L-LM+10) 1893 ELSE 1894 UL(L)=0. 1895 ENDIF 1896 355 CONTINUE 1897 C 1898 C----------------- INITIALIZE T0, Q0 & P0 FOR GSCOND ------------------- 1899 C 1900 IF(NSTART.EQ.0)THEN 1901 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1902 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1903 P0(I,J)=PD(I,J) 1904 ENDDO 1905 ENDDO 1906 C 1907 DO L=1,LM 1908 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1909 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1910 T0(I,J,L)=T(I,J,L) 1911 Q0(I,J,L)=Q(I,J,L) 1912 ENDDO 1913 ENDDO Page 17 Source Listing INIT 2025-03-12 18:21 INIT.F 1914 ENDDO 1915 ENDIF 1916 C*** 1917 C*** SET INDEX ARRAYS FOR UPSTREAM ADVECTION 1918 C*** 1919 KNT=0 1920 DO J=3,5 1921 KNT=KNT+1 1922 IHLA(KNT)=2 1923 IHHA(KNT)=IM-1-MOD(J+1,2) 1924 IVLA(KNT)=2 1925 IVHA(KNT)=IM-1-MOD(J,2) 1926 JRA(KNT)=J 1927 ENDDO 1928 DO J=JM-4,JM-2 1929 KNT=KNT+1 1930 IHLA(KNT)=2 1931 IHHA(KNT)=IM-1-MOD(J+1,2) 1932 IVLA(KNT)=2 1933 IVHA(KNT)=IM-1-MOD(J,2) 1934 JRA(KNT)=J 1935 ENDDO 1936 DO J=6,JM-5 1937 KNT=KNT+1 1938 IHLA(KNT)=2 1939 IHHA(KNT)=2+MOD(J,2) 1940 IVLA(KNT)=2 1941 IVHA(KNT)=2+MOD(J+1,2) 1942 JRA(KNT)=J 1943 ENDDO 1944 DO J=6,JM-5 1945 KNT=KNT+1 1946 IHLA(KNT)=IM-2 1947 IHHA(KNT)=IM-2+MOD(J,2) 1948 IVLA(KNT)=IM-2 1949 IVHA(KNT)=IM-2+MOD(J+1,2) 1950 JRA(KNT)=J 1951 ENDDO 1952 C 1953 C*** SET ZERO-VALUE FOR SOME OUTPUT DIAGNOSTIC ARRAYS 1954 C 1955 IF(NSTART.EQ.0)THEN 1956 C 1957 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1958 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1959 PCTSNO(I,J)=-999.0 1960 IF(SM(I,J).LT.0.5)THEN 1961 IF(SICE(I,J).GT.0.5)THEN 1962 C 1963 C*** SEA-ICE CASE 1964 C 1965 SMSTAV(I,J)=1.0 1966 SMSTOT(I,J)=1.0 1967 SSROFF(I,J)=0.0 1968 BGROFF(I,J)=0.0 1969 CMC(I,J)=0.0 1970 DO NS=1,NSOIL Page 18 Source Listing INIT 2025-03-12 18:21 INIT.F 1971 SMC(I,J,NS)=1.0 1972 SH2O(I,J,NS)=1.0 1973 ENDDO 1974 ENDIF 1975 ELSE 1976 C 1977 C*** WATER CASE 1978 C 1979 SMSTAV(I,J)=1.0 1980 SMSTOT(I,J)=1.0 1981 SSROFF(I,J)=0.0 1982 BGROFF(I,J)=0.0 1983 SOILTB(I,J)=280.99 1984 GRNFLX(I,J)=0. 1985 SUBSHX(I,J)=0.0 1986 ACSNOW(I,J)=0.0 1987 ACSNOM(I,J)=0.0 1988 SNOPCX(I,J)=0.0 1989 CMC(I,J)=0.0 1990 SNO(I,J)=0.0 1991 DO NS=1,NSOIL 1992 SMC(I,J,NS)=1.0 1993 SH2O(I,J,NS)=1.0 1994 STC(I,J,NS)=273.16 1995 ENDDO 1996 ENDIF 1997 C 1998 ENDDO 1999 ENDDO 2000 C 2001 APHTIM=0.0 2002 ARATIM=0.0 2003 ACUTIM=0.0 2004 C 2005 ENDIF 2006 C 2007 C------------------------------------------------------------------- 2008 C INITIALIZE RADTN VARIABLES 2009 C CALCULATE THE NUMBER OF STEPS AT EACH POINT. 2010 C THE ARRAY 'LVL' WILL COORDINATE VERTICAL LOCATIONS BETWEEN 2011 C THE LIFTED WORKING ARRAYS AND THE FUNDAMENTAL MODEL ARRAYS. 2012 C LVL HOLDS THE HEIGHT (IN MODEL LAYERS) OF THE TOPOGRAPHY AT 2013 C EACH GRID POINT. 2014 C------------------------------------------------------------------- 2015 C 2016 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 2017 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 2018 LVL(I,J)=LM-LMH(I,J) 2019 ENDDO 2020 ENDDO 2021 C 2022 C DETERMINE MODEL LAYER LIMITS FOR HIGH(3), MIDDLE(2), 2023 C AND LOW(1) CLOUDS. ALSO FIND MODEL LAYER THAT IS JUST BELOW 2024 C (HEIGHT-WISE) 400 MB. (K400) 2025 C 2026 K400=0 2027 PSUM=PT Page 19 Source Listing INIT 2025-03-12 18:21 INIT.F 2028 SLPM=101325. 2029 PDIF=SLPM-PT 2030 DO L=1,LM 2031 PSUM=PSUM+DETA(L)*PDIF 2032 IF(LTOP(3).EQ.0)THEN 2033 IF(PSUM.GT.PHITP)LTOP(3)=L 2034 ELSEIF(LTOP(2).EQ.0)THEN 2035 IF(PSUM.GT.PMDHI)LTOP(2)=L 2036 ELSEIF(K400.EQ.0)THEN 2037 IF(PSUM.GT.P400)K400=L 2038 ELSEIF(LTOP(1).EQ.0)THEN 2039 IF(PSUM.GT.PLOMD)LTOP(1)=L 2040 ENDIF 2041 ENDDO 2042 C 2043 C CALL GRADFS ONCE TO CALC. CONSTANTS AND GET O3 DATA 2044 C 2045 KCCO2=0 2046 C 2047 C CALCULATE THE MIDLAYER PRESSURES IN THE STANDARD ATMOSPHERE 2048 C 2049 PSS=101325. 2050 PDIF=PSS-PT 2051 C 2052 DO L=1,LM1 2053 PHALF(L+1)=AETA(L)*PDIF+PT 2054 ENDDO 2055 C 2056 PHALF(1)=0. 2057 PHALF(LP1)=PSS 2058 C 2059 CALL GRADFS(PHALF,KCCO2,NFILE) 2060 C 2061 C CALL SOLARD TO CALCULATE NON-DIMENSIONAL SUN-EARTH DISTANCE 2062 C 2063 IF(MYPE.EQ.0)CALL SOLARD(RAD1) 2064 CALL MPI_BCAST(RAD1,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 2065 C 2066 C CALL ZENITH SIMPLY TO GET THE DAY OF THE YEAR FOR 2067 C THE SETUP OF THE OZONE DATA 2068 C 2069 TIME=(NTSD-1)*DT 2070 CALL ZENITH(TIME,DAYI,HOUR) 2071 ADDL=0. 2072 IF(MOD(IDAT(3),4).EQ.0)ADDL=1. 2073 RANG=PI2*(DAYI-RLAG)/(365.25+ADDL) 2074 RSIN1=SIN(RANG) 2075 RCOS1=COS(RANG) 2076 RCOS2=COS(2.*RANG) 2077 CALL O3CLIM 2078 C 2079 C------------------------------------------------------------------- 2080 C*** SOME INITIAL VALUES RELATED TO TURBULENCE SCHEME 2081 C------------------------------------------------------------------- 2082 C 2083 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 2084 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) Page 20 Source Listing INIT 2025-03-12 18:21 INIT.F 2085 C 2086 C TRY A SIMPLE LINEAR INTERP TO GET 2/10 M VALUES 2087 C 2088 PDSL(I,J)=PD(I,J)*RES(I,J) 2089 LMHK=LMH(I,J) 2090 LMVK=LMV(I,J) 2091 ULM=U(I,J,LMVK) 2092 VLM=V(I,J,LMVK) 2093 TLM=T(I,J,LMHK) 2094 QLM=Q(I,J,LMHK) 2095 PLM=PDSL(I,J)*AETA(LMHK)+PT 2096 APELM=(1.0E5/PLM)**CAPA 2097 APELMNW=(1.0E5/PSHLTR(I,J))**CAPA 2098 EXNERR=(PSHLTR(I,J)*1.E-5)**CAPA 2099 THLM=TLM*APELM 2100 DPLM=PDSL(I,J)*DETA(LMHK)*0.5 2101 DZLM=287.04*DPLM*TLM*(1.+0.608*QLM)/(9.801*PLM) 2102 2103 FAC1=30./DZLM 2104 FAC2=(DZLM-30.)/DZLM 2105 IF(DZLM.LE.30.)THEN 2106 FAC1=1. 2107 FAC2=0. 2108 ENDIF 2109 C 2110 IF(.NOT.RESTRT)THEN 2111 TH30(I,J)=FAC2*THS(I,J)+FAC1*THLM 2112 Q30(I,J)=FAC2*QS(I,J)+FAC1*QLM 2113 U30(I,J)=ULM 2114 V30(I,J)=VLM 2115 ENDIF 2116 C 2117 FAC1=10./DZLM 2118 FAC2=(DZLM-10.)/DZLM 2119 IF(DZLM.LE.10.)THEN 2120 FAC1=1. 2121 FAC2=0. 2122 ENDIF 2123 C 2124 IF(.NOT.RESTRT)THEN 2125 TH10(I,J)=FAC2*THS(I,J)+FAC1*THLM 2126 Q10(I,J)=FAC2*QS(I,J)+FAC1*QLM 2127 U10(I,J)=ULM 2128 V10(I,J)=VLM 2129 ENDIF 2130 C 2131 FAC1=2./DZLM 2132 FAC2=(DZLM-2.)/DZLM 2133 IF(DZLM.LE.2.)THEN 2134 FAC1=1. 2135 FAC2=0. 2136 ENDIF 2137 C 2138 IF(.NOT.RESTRT.OR.NEST)THEN 2139 TSHLTR(I,J)=(FAC2*THS(I,J)+FAC1*THLM) 2140 QSHLTR(I,J)=FAC2*QS(I,J)+FAC1*QLM 2141 ENDIF Page 21 Source Listing INIT 2025-03-12 18:21 INIT.F 2142 C*** 2143 C*** NEED TO CONVERT TO THETA IF IS THE RESTART CASE 2144 C*** AS CHKOUT.f WILL CONVERT TO TEMPERATURE 2145 C*** 2146 IF(RESTRT)THEN 2147 TSHLTR(I,J)=TSHLTR(I,J)*APELMNW 2148 ENDIF 2149 ENDDO 2150 ENDDO 2151 C 2152 C-------------------------------------------------------------------- 2153 C END OF SUBROUTINE INIT. 2154 C------------------------------------------------------------------- 2155 C 2156 IF(MYPE.EQ.0)THEN 2157 WRITE(LIST,*)'INIT: EXIT INIT AND START MODEL INTEGRATION' 2158 WRITE(LIST,*)' ' 2159 ENDIF 2160 C 2161 RETURN 2162 END ENTRY POINTS Name init_ Page 22 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 165 Label 1411 1406,1420 166 Label 1412 1407 190 Label 1418 1403 195 Label 1422 1421 205 Label 1465 1480 210 Label 1487 1494 215 Label 1498 1475,1492 220 Label 1537 1535 350 Label 1884 1881,1882 355 Label 1896 1890 75 Label 1323 1320 80 Label 1324 1322 A1 Param 845 R(4) 4 scalar A2 Param 118 R(4) 4 scalar 199,1598 A23M4L Param 199 R(4) 4 scalar A3 Param 118 R(4) 4 scalar 199,1598 A4 Param 118 R(4) 4 scalar 199,1598 ACMCLD Common 1038 287288 SAVE ACMCLH Common 1031 6463824 SAVE ACMPRE Common 1045 287284 SAVE ACMRDL Common 1052 3662832 SAVE ACMRDS Common 1061 3662832 SAVE ACMSFC Common 1070 574576 SAVE ADDL Local 2071 R(4) 4 scalar 2071,2072,2073 ALOG10 Func 1665 scalar 1665 APELM Local 2096 R(4) 4 scalar 2096,2099 APELMNW Local 2097 R(4) 4 scalar 2097,2147 APEM1 Local 1592 R(4) 4 scalar 1592,1593 AVGEFI Param 186 R(4) 4 scalar BCHR Local 1464 R(4) 4 scalar 1464,1473,1474,1477,1480,1488,1490 ,1491,1500,1509 BOCO Common 1024 1860144 SAVE BTIM Local 1289 R(4) 4 scalar 1289,1291,1386,1392 CAPA Param 116 R(4) 4 scalar 1592,1600,2096,2097,2098 CLDWTR Common 1080 3447720 SAVE CLOGES Local 1665 R(4) 4 scalar 1665,1666 CM1 Param 831 R(4) 4 scalar 1665 CM2 Param 831 R(4) 4 scalar 1665 CM3 Param 831 R(4) 4 scalar 1665 CNVCLD Common 1088 287280 SAVE CONTIN Common 984 12999420 SAVE CONTRL Local 864 CHAR 40 scalar COS Func 2075 scalar 2075,2076 CP Param 116 R(4) 4 scalar 200 CPRLG Param 200 R(4) 4 scalar CTLBLK Common 892 112 SAVE CUINIT Common 1201 4 DAYI Local 2070 R(4) 4 scalar 2070,2073 DPLM Local 2100 R(4) 4 scalar 2100,2101 DSP0FL Param 167 R(4) 4 scalar 172,192 DSP0FS Param 171 R(4) 4 scalar 173,195 Page 23 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References DSP0SL Param 172 R(4) 4 scalar 192 DSP0SS Param 173 R(4) 4 scalar 195 DSPBFL Param 167 R(4) 4 scalar 172,191 DSPBFS Param 171 R(4) 4 scalar 173,194 DSPBSL Param 172 R(4) 4 scalar 191 DSPBSS Param 173 R(4) 4 scalar 194 DSPC Param 186 R(4) 4 scalar DSPTFL Param 167 R(4) 4 scalar 172,193 DSPTFS Param 171 R(4) 4 scalar 173,196 DSPTSL Param 172 R(4) 4 scalar 193 DSPTSS Param 173 R(4) 4 scalar 196 DSTRB Subr 1281 1281 DTR Param 842 R(4) 4 scalar DTTOP Param 120 R(4) 4 scalar DYNAM Common 918 725404 SAVE DZLM Local 2101 R(4) 4 scalar 2101,2103,2104,2105,2117,2118,2119 ,2131,2132,2133 EFIFC Param 185 R(4) 4 scalar EFIMN Param 157 R(4) 4 scalar 186,191,192,193,194,195,196,197 EFMNT Param 157 R(4) 4 scalar 197 ELIVW Param 117 R(4) 4 scalar 200 ELOCP Param 200 R(4) 4 scalar ELWV Param 117 R(4) 4 scalar 199,200 ENVAR Local 1212 CHAR 4 scalar EPS Param 831 R(4) 4 scalar 1667 EPSDN Param 122 R(4) 4 scalar EPSNTP Param 185 R(4) 4 scalar EPSP Param 186 R(4) 4 scalar EPSQ Param 117 R(4) 4 scalar 1708 EPSQ2 Param 839 R(4) 4 scalar 1688 EPSTH Param 122 R(4) 4 scalar EPSUP Param 122 R(4) 4 scalar EPSWET Param 839 R(4) 4 scalar ESE Local 1666 R(4) 4 scalar 1666,1667 EXBC Local 858 L(4) 4 scalar EXNERR Local 2098 R(4) 4 scalar 2098 EXP Func 1558 scalar 1558,1598,1604 FAC1 Local 2103 R(4) 4 scalar 2103,2106,2111,2112,2117,2120,2125 ,2126,2131,2134,2139,2140 FAC2 Local 2104 R(4) 4 scalar 2104,2107,2111,2112,2118,2121,2125 ,2126,2132,2135,2139,2140 FCB Param 157 R(4) 4 scalar FCC Param 157 R(4) 4 scalar 157 FCM Param 841 R(4) 4 scalar 1576 FCSTDATA Local 1207 scalar 1303 FILALL Local 864 CHAR 40 scalar FILCLD Local 865 CHAR 40 scalar FILMST Local 864 CHAR 40 scalar FILRAD Local 865 CHAR 40 scalar FILSFC Local 865 CHAR 40 scalar FILTKE Local 864 CHAR 40 scalar FILTMP Local 864 CHAR 40 scalar FILUNV Local 864 CHAR 40 scalar FLOAT Func 1892 scalar 1892 FSL Param 167 R(4) 4 scalar 172 Page 24 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References FSS Param 157 R(4) 4 scalar 173 G Param 116 R(4) 4 scalar 200 GLB_TABLE Common 241 128 SAVE GRADFS Subr 2059 2059 HLATI Local 875 R(4) 4 1 1500 HLONI Local 875 R(4) 4 1 1500 HOUR Local 2070 R(4) 4 scalar 2070 I Local 1245 I(4) 4 scalar 1245,1247,1249,1251,1373,1374,1379 ,1380,1533,1534,1535,1549,1551,155 3,1554,1557,1558,1565,1566,1567,15 68,1569,1570,1571,1572,1573,1574,1 575,1576,1577,1578,1579,1580,1581, 1582,1583,1584,1591,1593,1594,1595 ,1597,1598,1599,1600,1603,1604,160 6,1607,1608,1609,1610,1619,1620,16 34,1635,1636,1637,1638,1639,1640,1 641,1642,1643,1644,1645,1646,1647, 1648,1649,1650,1651,1652,1653,1654 ,1655,1656,1663,1664,1665,1667,168 7,1688,1694,1695,1696,1697,1698,17 07,1708,1709,1710,1734,1735,1736,1 737,1738,1754,1755,1756,1781,1782, 1783,1784,1785,1786,1787,1788,1789 ,1790,1791,1793,1794,1795,1796,179 7,1798,1799,1800,1801,1802,1803,18 04,1805,1806,1807,1808,1809,1810,1 811,1812,1813,1815,1828,1829,1830, 1831,1842,1843,1844,1845,1856,1857 ,1858,1859,1860,1861,1862,1863,186 4,1882,1883,1902,1903,1909,1910,19 11,1958,1959,1960,1961,1965,1966,1 967,1968,1969,1971,1972,1979,1980, 1981,1982,1983,1984,1985,1986,1987 ,1988,1989,1990,1992,1993,1994,201 7,2018,2084,2088,2089,2090,2091,20 92,2093,2094,2095,2097,2098,2100,2 111,2112,2113,2114,2125,2126,2127, 2128,2139,2140,2147 IBCDAT Local 880 I(4) 4 1 8 IDATB Local 880 I(4) 4 1 3 1447,1449,1455 IDIM1 Param 105 I(4) 4 scalar 902,908,909,911,912,913,924,925,92 6,927,928,929,945,946,947,948,949, 950,951,952,953,954,955,975,977,97 8,979,985,986,987,988,989,995,996, 997,998,999,1000,1001,1002,1003,10 04,1005,1006,1007,1008,1009,1010,1 011,1013,1018,1033,1034,1040,1041, 1047,1048,1054,1055,1056,1057,1063 ,1064,1065,1066,1072,1073,1074,107 5,1081,1083,1089,1090,1096,1097,10 98,1099,1100,1101,1102,1103,1111,1 121,1128,1129,1134,1135,1137,1138, 1162,1163,1165,1166,1168,1169,1170 ,1171,1173,1174,1175,1176,1178,117 9,1180,1181,1190 Page 25 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References IDIM2 Param 105 I(4) 4 scalar 902,908,909,911,912,913,924,925,92 6,927,928,929,945,946,947,948,949, 950,951,952,953,954,955,975,977,97 8,979,985,986,987,988,989,995,996, 997,998,999,1000,1001,1002,1003,10 04,1005,1006,1007,1008,1009,1010,1 011,1013,1018,1033,1034,1040,1041, 1047,1048,1054,1055,1056,1057,1063 ,1064,1065,1066,1072,1073,1074,107 5,1081,1083,1089,1090,1096,1097,10 98,1099,1100,1101,1102,1103,1111,1 121,1128,1129,1134,1135,1137,1138, 1162,1163,1165,1166,1168,1169,1170 ,1171,1173,1174,1175,1176,1178,117 9,1180,1181,1190 IERR Local 1409 I(4) 4 scalar 1409,1424 IGSTL Param 100 I(4) 4 scalar 105 IGSTR Param 100 I(4) 4 scalar 105 IHRSTB Local 1447 I(4) 4 scalar 1447,1449,1456 IM Param 89 I(4) 4 scalar 102,105,247,248,249,250,251,255,25 6,261,849,850,1115,1245,1249,1251, 1436,1923,1925,1931,1933,1946,1947 ,1948,1949 IMJM Param 849 I(4) 4 scalar IMT Param 850 I(4) 4 scalar INDX Common 1108 6564 SAVE INDXG Common 1114 8084 SAVE INIDAT Local 880 I(4) 4 1 8 INIT Subr 2 INPES Param 97 I(4) 4 scalar 102,105,231,232,233,242,243 INSIDEH Local 859 L(4) 4 scalar INSIDEV Local 859 L(4) 4 scalar INT Func 1331 scalar 1331,1332,1333,1334,1335,1336,1337 ,1338,1339,1353,1374 IRTN Local 1454 I(4) 4 scalar 1454,1455,1456,1457,1459,1501,1503 ,2064 ISTART Local 1462 I(4) 4 scalar 1462,1473,1474,1480,1484,1490,1491 ITAIL Param 102 I(4) 4 scalar ITB Param 110 I(4) 4 scalar 942,957 ITBQ Param 110 I(4) 4 scalar 943,957 IUNWGT Local 1196 I(4) 4 scalar 1196 J Local 1235 I(4) 4 scalar 1235,1236,1237,1238,1239,1548,1551 ,1553,1554,1557,1558,1564,1566,156 7,1568,1569,1570,1571,1572,1573,15 74,1575,1576,1577,1578,1579,1580,1 581,1582,1583,1584,1591,1593,1594, 1595,1597,1598,1599,1600,1603,1604 ,1606,1607,1608,1609,1610,1618,162 0,1633,1635,1636,1637,1638,1639,16 40,1641,1642,1643,1644,1645,1646,1 647,1648,1649,1650,1651,1652,1653, 1654,1655,1656,1662,1664,1665,1667 ,1686,1688,1693,1695,1696,1697,169 8,1706,1708,1709,1710,1733,1735,17 36,1737,1738,1753,1755,1756,1780,1 Page 26 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 782,1783,1784,1785,1786,1787,1788, 1789,1790,1791,1793,1794,1795,1796 ,1797,1798,1799,1800,1801,1802,180 3,1804,1805,1806,1807,1808,1809,18 10,1811,1812,1813,1815,1827,1829,1 830,1831,1841,1843,1844,1845,1855, 1857,1858,1859,1860,1861,1862,1863 ,1864,1881,1883,1901,1903,1908,191 0,1911,1920,1923,1925,1926,1928,19 31,1933,1934,1936,1939,1941,1942,1 944,1947,1949,1950,1957,1959,1960, 1961,1965,1966,1967,1968,1969,1971 ,1972,1979,1980,1981,1982,1983,198 4,1985,1986,1987,1988,1989,1990,19 92,1993,1994,2016,2018,2083,2088,2 089,2090,2091,2092,2093,2094,2095, 2097,2098,2100,2111,2112,2113,2114 ,2125,2126,2127,2128,2139,2140,214 7 JAM Param 849 I(4) 4 scalar 901,922 JDIM1 Param 106 I(4) 4 scalar 902,908,909,911,912,913,924,925,92 6,927,928,929,945,946,947,948,949, 950,951,952,953,954,955,975,977,97 8,979,985,986,987,988,989,995,996, 997,998,999,1000,1001,1002,1003,10 04,1005,1006,1007,1008,1009,1010,1 011,1013,1018,1033,1034,1040,1041, 1047,1048,1054,1055,1056,1057,1063 ,1064,1065,1066,1072,1073,1074,107 5,1081,1083,1089,1090,1096,1097,10 98,1099,1100,1101,1102,1103,1109,1 110,1121,1128,1129,1134,1135,1137, 1138,1162,1163,1165,1166,1168,1169 ,1170,1171,1173,1174,1175,1176,117 8,1179,1180,1181,1190 JDIM2 Param 106 I(4) 4 scalar 902,908,909,911,912,913,924,925,92 6,927,928,929,945,946,947,948,949, 950,951,952,953,954,955,975,977,97 8,979,985,986,987,988,989,995,996, 997,998,999,1000,1001,1002,1003,10 04,1005,1006,1007,1008,1009,1010,1 011,1013,1018,1033,1034,1040,1041, 1047,1048,1054,1055,1056,1057,1063 ,1064,1065,1066,1072,1073,1074,107 5,1081,1083,1089,1090,1096,1097,10 98,1099,1100,1101,1102,1103,1109,1 110,1121,1128,1129,1134,1135,1137, 1138,1162,1163,1165,1166,1168,1169 ,1170,1171,1173,1174,1175,1176,117 8,1179,1180,1181,1190 JGSTL Param 101 I(4) 4 scalar 106 JGSTR Param 101 I(4) 4 scalar 106 JM Param 89 I(4) 4 scalar 103,106,247,248,249,250,251,255,25 6,261,849,1115,1235,1436,1928,1936 ,1944 Page 27 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References JMP1 Param 849 I(4) 4 scalar JNPES Param 97 I(4) 4 scalar 103,106,231,232,233,242,243 JTAIL Param 103 I(4) 4 scalar JTB Param 110 I(4) 4 scalar 942,957 JTBQ Param 110 I(4) 4 scalar 957 K Local 1320 I(4) 4 scalar 1320 KBI Local 1436 I(4) 4 scalar 1436,1437,1438 KBI2 Local 1437 I(4) 4 scalar 1437,1438 KCCO2 Local 2045 I(4) 4 scalar 2045,2059 KNT Local 1244 I(4) 4 scalar 1244,1246,1247,1250,1251,1919,1921 ,1922,1923,1924,1925,1926,1929,193 0,1931,1932,1933,1934,1937,1938,19 39,1940,1941,1942,1945,1946,1947,1 948,1949,1950 L Local 1322 I(4) 4 scalar 1322,1370,1371,1617,1620,1685,1688 ,1705,1708,1709,1710,1752,1755,175 6,1814,1815,1890,1891,1892,1894,19 07,1910,1911,2030,2031,2033,2035,2 037,2039,2052,2053 LABEL Local 862 CHAR 32 scalar LB Param 849 I(4) 4 scalar 1025,1026 LLMH Local 1551 I(4) 4 scalar 1551,1553,1554,1557,1566,1591,1593 ,1594,1603,1696,1697,1698 LM Param 89 I(4) 4 scalar 256,850,911,912,920,941,968,977,97 8,986,987,988,989,1013,1025,1026,1 033,1034,1057,1066,1081,1082,1128, 1134,1181,1257,1258,1259,1260,1262 ,1263,1264,1265,1266,1267,1438,161 7,1695,1705,1752,1814,1890,1891,18 92,1907,2018,2030 LM1 Param 850 I(4) 4 scalar 1685,2052 LMHK Local 2089 I(4) 4 scalar 2089,2093,2094,2095,2100 LMVK Local 2090 I(4) 4 scalar 2090,2091,2092 LOG Func 1371 scalar 1371 LOOPS Common 900 158840 SAVE LP1 Param 850 I(4) 4 scalar 868,920,941,968,2057 LRECBC Local 1438 I(4) 4 scalar 1438,1439 LSM Param 89 I(4) 4 scalar 967,1288,1322 MAPOT Common 962 1732 SAVE MAPPINGS Common 260 5024 SAVE MASKS Common 907 6894720 SAVE MOD Func 1236 scalar 1236,1238,1731,1745,1778,1824,1838 ,1852,1923,1925,1931,1933,1939,194 1,1947,1949,2072 MPIFCMB5 Common 818 4 SAVE MPIFCMB9 Common 819 4 SAVE MPIPRIV1 Common 823 28 SAVE MPIPRIV2 Common 825 24 SAVE MPIPRIVC Common 828 2 SAVE MPI_2DOUBLE_PRECISION Param 564 I(4) 4 scalar MPI_2INT Param 648 I(4) 4 scalar MPI_2INTEGER Param 562 I(4) 4 scalar MPI_2REAL Param 566 I(4) 4 scalar MPI_ADDRESS_KIND Param 600 I(4) 4 scalar MPI_AINT Param 678 I(4) 4 scalar Page 28 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ANY_SOURCE Param 530 I(4) 4 scalar MPI_ANY_TAG Param 532 I(4) 4 scalar MPI_APPNUM Param 494 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 800 L(4) 4 scalar MPI_BAND Param 438 I(4) 4 scalar MPI_BARRIER Subr 1459 1459,1503 MPI_BCAST Subr 1454 1454,1455,1456,1457,1500,2064 MPI_BOR Param 442 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 526 I(4) 4 scalar MPI_BXOR Param 446 I(4) 4 scalar MPI_BYTE Param 570 I(4) 4 scalar MPI_CART Param 538 I(4) 4 scalar MPI_CHAR Param 608 I(4) 4 scalar MPI_CHARACTER Param 568 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 696 I(4) 4 scalar MPI_COMBINER_DARRAY Param 718 I(4) 4 scalar MPI_COMBINER_DUP Param 694 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 722 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 724 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 720 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 708 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 728 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 706 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 702 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 700 I(4) 4 scalar MPI_COMBINER_INDEXED Param 704 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 710 I(4) 4 scalar MPI_COMBINER_NAMED Param 692 I(4) 4 scalar MPI_COMBINER_RESIZED Param 726 I(4) 4 scalar MPI_COMBINER_STRUCT Param 714 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 712 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 716 I(4) 4 scalar MPI_COMBINER_VECTOR Param 698 I(4) 4 scalar MPI_COMM_DUP_FN Subr 807 scalar MPI_COMM_NULL Param 462 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 808 scalar MPI_COMM_NULL_DELETE_FN Subr 807 scalar MPI_COMM_SELF Param 458 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 746 I(4) 4 scalar MPI_COMM_WORLD Param 456 I(4) 4 scalar MPI_COMPLEX Param 550 I(4) 4 scalar MPI_COMPLEX16 Param 596 I(4) 4 scalar MPI_COMPLEX32 Param 598 I(4) 4 scalar MPI_COMPLEX8 Param 594 I(4) 4 scalar MPI_CONGRUENT Param 410 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 813 scalar MPI_COUNT Param 682 I(4) 4 scalar MPI_COUNT_KIND Param 604 I(4) 4 scalar MPI_CXX_BOOL Param 684 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 688 I(4) 4 scalar Page 29 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_CXX_FLOAT_COMPLEX Param 686 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 690 I(4) 4 scalar MPI_C_BOOL Param 668 I(4) 4 scalar MPI_C_COMPLEX Param 672 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 674 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 670 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 676 I(4) 4 scalar MPI_DATATYPE_NULL Param 472 I(4) 4 scalar 587,685,687,689,691 MPI_DISPLACEMENT_CURRENT Param 796 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 788 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 790 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 794 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 792 I(4) 4 scalar MPI_DIST_GRAPH Param 540 I(4) 4 scalar MPI_DOUBLE Param 630 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 552 I(4) 4 scalar MPI_DOUBLE_INT Param 642 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 558 I(4) 4 scalar MPI_DUP_FN Subr 804 scalar MPI_ERRHANDLER_NULL Param 476 I(4) 4 scalar MPI_ERROR Param 277 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 404 I(4) 4 scalar MPI_ERRORS_RETURN Param 406 I(4) 4 scalar MPI_ERR_ACCESS Param 396 I(4) 4 scalar MPI_ERR_AMODE Param 382 I(4) 4 scalar MPI_ERR_ARG Param 352 I(4) 4 scalar MPI_ERR_ASSERT Param 358 I(4) 4 scalar MPI_ERR_BAD_FILE Param 320 I(4) 4 scalar MPI_ERR_BASE Param 350 I(4) 4 scalar MPI_ERR_BUFFER Param 292 I(4) 4 scalar MPI_ERR_COMM Param 370 I(4) 4 scalar MPI_ERR_CONVERSION Param 386 I(4) 4 scalar MPI_ERR_COUNT Param 296 I(4) 4 scalar MPI_ERR_DIMS Param 334 I(4) 4 scalar MPI_ERR_DISP Param 318 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 300 I(4) 4 scalar MPI_ERR_FILE Param 330 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 312 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 354 I(4) 4 scalar MPI_ERR_GROUP Param 316 I(4) 4 scalar MPI_ERR_INFO Param 344 I(4) 4 scalar MPI_ERR_INFO_KEY Param 348 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 328 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 314 I(4) 4 scalar MPI_ERR_INTERN Param 346 I(4) 4 scalar MPI_ERR_IN_STATUS Param 332 I(4) 4 scalar MPI_ERR_IO Param 392 I(4) 4 scalar MPI_ERR_KEYVAL Param 338 I(4) 4 scalar MPI_ERR_LASTCODE Param 360 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 342 I(4) 4 scalar MPI_ERR_NAME Param 336 I(4) 4 scalar MPI_ERR_NOT_SAME Param 364 I(4) 4 scalar MPI_ERR_NO_MEM Param 356 I(4) 4 scalar MPI_ERR_NO_SPACE Param 288 I(4) 4 scalar Page 30 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_NO_SUCH_FILE Param 372 I(4) 4 scalar MPI_ERR_OP Param 390 I(4) 4 scalar MPI_ERR_OTHER Param 304 I(4) 4 scalar MPI_ERR_PENDING Param 294 I(4) 4 scalar MPI_ERR_PORT Param 376 I(4) 4 scalar MPI_ERR_QUOTA Param 380 I(4) 4 scalar MPI_ERR_RANK Param 302 I(4) 4 scalar MPI_ERR_READ_ONLY Param 340 I(4) 4 scalar MPI_ERR_REQUEST Param 384 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 306 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 310 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 326 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 388 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 378 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 290 I(4) 4 scalar MPI_ERR_ROOT Param 322 I(4) 4 scalar MPI_ERR_SERVICE Param 298 I(4) 4 scalar MPI_ERR_SIZE Param 308 I(4) 4 scalar MPI_ERR_SPAWN Param 368 I(4) 4 scalar MPI_ERR_TAG Param 398 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 402 I(4) 4 scalar MPI_ERR_TRUNCATE Param 362 I(4) 4 scalar MPI_ERR_TYPE Param 366 I(4) 4 scalar MPI_ERR_UNKNOWN Param 400 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 324 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 374 I(4) 4 scalar MPI_ERR_WIN Param 394 I(4) 4 scalar MPI_FILE_NULL Param 466 I(4) 4 scalar MPI_FINALIZE Subr 1409 1409,1424 MPI_FLOAT Param 628 I(4) 4 scalar MPI_FLOAT_INT Param 640 I(4) 4 scalar MPI_GRAPH Param 536 I(4) 4 scalar MPI_GROUP_EMPTY Param 460 I(4) 4 scalar MPI_GROUP_NULL Param 468 I(4) 4 scalar MPI_HOST Param 484 I(4) 4 scalar MPI_IDENT Param 408 I(4) 4 scalar MPI_INFO_ENV Param 480 I(4) 4 scalar MPI_INFO_NULL Param 478 I(4) 4 scalar MPI_INT Param 620 I(4) 4 scalar MPI_INT16_T Param 654 I(4) 4 scalar MPI_INT32_T Param 656 I(4) 4 scalar MPI_INT64_T Param 658 I(4) 4 scalar MPI_INT8_T Param 652 I(4) 4 scalar MPI_INTEGER Param 560 I(4) 4 scalar 1455,1456 MPI_INTEGER1 Param 578 I(4) 4 scalar MPI_INTEGER16 Param 586 I(4) 4 scalar MPI_INTEGER2 Param 580 I(4) 4 scalar MPI_INTEGER4 Param 582 I(4) 4 scalar MPI_INTEGER8 Param 584 I(4) 4 scalar MPI_INTEGER_KIND Param 606 I(4) 4 scalar MPI_IO Param 486 I(4) 4 scalar MPI_KEYVAL_INVALID Param 524 I(4) 4 scalar MPI_LAND Param 436 I(4) 4 scalar Page 31 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LASTUSEDCODE Param 492 I(4) 4 scalar MPI_LB Param 574 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 546 I(4) 4 scalar MPI_LOCK_SHARED Param 548 I(4) 4 scalar MPI_LOGICAL Param 554 I(4) 4 scalar 1454 MPI_LONG Param 624 I(4) 4 scalar MPI_LONG_DOUBLE Param 632 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 650 I(4) 4 scalar MPI_LONG_INT Param 644 I(4) 4 scalar MPI_LONG_LONG Param 638 I(4) 4 scalar MPI_LONG_LONG_INT Param 634 I(4) 4 scalar MPI_LOR Param 440 I(4) 4 scalar MPI_LXOR Param 444 I(4) 4 scalar MPI_MAX Param 428 I(4) 4 scalar MPI_MAXLOC Param 450 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 518 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 506 I(4) 4 scalar MPI_MAX_INFO_KEY Param 512 I(4) 4 scalar MPI_MAX_INFO_VAL Param 514 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 520 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 510 I(4) 4 scalar MPI_MAX_PORT_NAME Param 508 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 516 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 750 I(4) 4 scalar MPI_MESSAGE_NULL Param 748 I(4) 4 scalar MPI_MIN Param 430 I(4) 4 scalar MPI_MINLOC Param 448 I(4) 4 scalar MPI_MODE_APPEND Param 774 I(4) 4 scalar MPI_MODE_CREATE Param 770 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 766 I(4) 4 scalar MPI_MODE_EXCL Param 772 I(4) 4 scalar MPI_MODE_NOCHECK Param 736 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 742 I(4) 4 scalar MPI_MODE_NOPUT Param 740 I(4) 4 scalar MPI_MODE_NOSTORE Param 738 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 744 I(4) 4 scalar MPI_MODE_RDONLY Param 760 I(4) 4 scalar MPI_MODE_RDWR Param 762 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 776 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 768 I(4) 4 scalar MPI_MODE_WRONLY Param 764 I(4) 4 scalar MPI_NO_OP Param 454 I(4) 4 scalar MPI_NULL_COPY_FN Subr 804 scalar MPI_NULL_DELETE_FN Subr 804 scalar MPI_OFFSET Param 680 I(4) 4 scalar MPI_OFFSET_KIND Param 602 I(4) 4 scalar MPI_OP_NULL Param 470 I(4) 4 scalar MPI_ORDER_C Param 784 I(4) 4 scalar MPI_ORDER_FORTRAN Param 786 I(4) 4 scalar MPI_PACKED Param 576 I(4) 4 scalar MPI_PROC_NULL Param 528 I(4) 4 scalar MPI_PROD Param 434 I(4) 4 scalar MPI_REAL Param 556 I(4) 4 scalar 1457,1500,2064 MPI_REAL16 Param 592 I(4) 4 scalar Page 32 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_REAL4 Param 588 I(4) 4 scalar MPI_REAL8 Param 590 I(4) 4 scalar MPI_REPLACE Param 452 I(4) 4 scalar MPI_REQUEST_NULL Param 474 I(4) 4 scalar MPI_ROOT Param 534 I(4) 4 scalar MPI_SEEK_CUR Param 780 I(4) 4 scalar MPI_SEEK_END Param 782 I(4) 4 scalar MPI_SEEK_SET Param 778 I(4) 4 scalar MPI_SHORT Param 616 I(4) 4 scalar MPI_SHORT_INT Param 646 I(4) 4 scalar MPI_SIGNED_CHAR Param 610 I(4) 4 scalar MPI_SIMILAR Param 412 I(4) 4 scalar MPI_SOURCE Param 277 I(4) 4 scalar MPI_STATUS_SIZE Param 279 I(4) 4 scalar 281,282 MPI_SUBARRAYS_SUPPORTED Param 798 L(4) 4 scalar MPI_SUBVERSION Param 544 I(4) 4 scalar MPI_SUCCESS Param 286 I(4) 4 scalar MPI_SUM Param 432 I(4) 4 scalar MPI_TAG Param 277 I(4) 4 scalar MPI_TAG_UB Param 482 I(4) 4 scalar MPI_THREAD_FUNNELED Param 754 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 758 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 756 I(4) 4 scalar MPI_THREAD_SINGLE Param 752 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 734 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 732 I(4) 4 scalar MPI_TYPECLASS_REAL Param 730 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 811 scalar MPI_TYPE_NULL_COPY_FN Subr 812 scalar MPI_TYPE_NULL_DELETE_FN Subr 811 scalar MPI_UB Param 572 I(4) 4 scalar MPI_UINT16_T Param 662 I(4) 4 scalar MPI_UINT32_T Param 664 I(4) 4 scalar MPI_UINT64_T Param 666 I(4) 4 scalar MPI_UINT8_T Param 660 I(4) 4 scalar MPI_UNDEFINED Param 522 I(4) 4 scalar MPI_UNEQUAL Param 414 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 490 I(4) 4 scalar MPI_UNSIGNED Param 622 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 612 I(4) 4 scalar MPI_UNSIGNED_LONG Param 626 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 636 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 618 I(4) 4 scalar MPI_VERSION Param 542 I(4) 4 scalar MPI_WCHAR Param 614 I(4) 4 scalar MPI_WIN_BASE Param 496 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 502 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 500 I(4) 4 scalar MPI_WIN_DUP_FN Subr 809 scalar MPI_WIN_FLAVOR_ALLOCATE Param 418 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 416 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 420 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 422 I(4) 4 scalar MPI_WIN_MODEL Param 504 I(4) 4 scalar MPI_WIN_NULL Param 464 I(4) 4 scalar Page 33 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WIN_NULL_COPY_FN Subr 810 scalar MPI_WIN_NULL_DELETE_FN Subr 809 scalar MPI_WIN_SEPARATE Param 424 I(4) 4 scalar MPI_WIN_SIZE Param 498 I(4) 4 scalar MPI_WIN_UNIFIED Param 426 I(4) 4 scalar MPI_WTICK Func 805 R(8) 8 scalar MPI_WTIME Func 805 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 488 I(4) 4 scalar MPPCOM Common 205 1464 SAVE N Local 1277 I(4) 4 scalar 1277,1281 NFILE Local 1196 I(4) 4 scalar 1196,2059 NHB Local 1287 I(4) 4 scalar 1287,1290 NHIBU Local 1294 I(4) 4 scalar 1294 NINT Func 1347 scalar 1347,1348,1462,1473,1480,1484,1490 ,1509 NMAP Local 1208 I(4) 4 scalar 1208,1312,1373,1533 NPEBND Local 868 R(4) 4 scalar NRADLH Local 1209 I(4) 4 scalar 1209,1314,1348 NRADSH Local 1209 I(4) 4 scalar 1209,1314,1347 NREC Local 1485 I(4) 4 scalar 1485,1487,1488,1491 NROOT Param 203 I(4) 4 scalar NS Local 1970 I(4) 4 scalar 1970,1971,1972,1991,1992,1993,1994 NSOIL Param 203 I(4) 4 scalar 1101,1102,1103,1970,1991 NSTAT Param 851 I(4) 4 scalar 877 O3CLIM Subr 2077 2077 OCT90 Param 113 L(4) 4 scalar P400 Local 1193 R(4) 4 scalar 1193,2037 PBM Param 123 R(4) 4 scalar PDIF Local 2029 R(4) 4 scalar 2029,2031,2050,2053 PFRZ Param 124 R(4) 4 scalar PHALF Local 868 R(4) 4 1 46 2053,2056,2057,2059 PHITP Local 1193 R(4) 4 scalar 1193,2033 PHYS Common 936 1788916 SAVE PI2 Param 831 R(4) 4 scalar 2073 PLBTM Local 1194 R(4) 4 scalar 1194 PLM Local 2095 R(4) 4 scalar 2095,2096,2101 PLOMD Local 1193 R(4) 4 scalar 1193,2039 PM1 Local 1591 R(4) 4 scalar 1591,1592 PMDHI Local 1193 R(4) 4 scalar 1193,2035 PMPI_WTICK Func 806 R(8) 8 scalar PMPI_WTIME Func 806 R(8) 8 scalar PNO Param 123 R(4) 4 scalar PONE Param 123 R(4) 4 scalar PPTASM Common 1133 3878292 SAVE PQ0 Param 119 R(4) 4 scalar 1598 PQM Param 123 R(4) 4 scalar PSFCK Local 1595 R(4) 4 scalar 1595,1598 PSH Param 123 R(4) 4 scalar PSHU Param 124 R(4) 4 scalar PSS Local 2049 R(4) 4 scalar 2049,2050,2057 PSUM Local 2027 R(4) 4 scalar 2027,2031,2033,2035,2037,2039 PVRBLS Common 994 5530140 SAVE Q2INI Param 839 R(4) 4 scalar 1697,1698 QFLX Common 1161 5027400 SAVE QLM Local 2094 R(4) 4 scalar 2094,2101,2112,2126,2140 Page 34 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References RANG Local 2073 R(4) 4 scalar 2073,2074,2075,2076 RCOS1 Local 2075 R(4) 4 scalar 2075 RCOS2 Local 2076 R(4) 4 scalar 2076 RCP Param 200 R(4) 4 scalar RD1TIM Common 1188 71880 READGRDETA Subr 1395 1395 READ_NHB Subr 1290 1290 READ_RESTRT Subr 1388 1388 READ_RESTRT2 Subr 1390 1390 RHF Param 122 R(4) 4 scalar RLAG Param 832 R(4) 4 scalar 2073 ROW Param 117 R(4) 4 scalar 200 RSIN1 Local 2074 R(4) 4 scalar 2074 RUNB Local 858 L(4) 4 scalar 1447,1449,1454 SIN Func 2074 scalar 2074 SINGLRST Local 890 L(4) 4 scalar 1208,1310,1387 SLOP0L Param 192 R(4) 4 scalar SLOP0S Param 195 R(4) 4 scalar SLOPBL Param 191 R(4) 4 scalar SLOPBS Param 194 R(4) 4 scalar SLOPE Param 197 R(4) 4 scalar SLOPTL Param 193 R(4) 4 scalar SLOPTS Param 196 R(4) 4 scalar SLPM Local 2028 R(4) 4 scalar 2028,2029 SOIL Common 1095 1651892 SAVE SOLARD Subr 2063 2063 STABD Param 120 R(4) 4 scalar STABFC Param 120 R(4) 4 scalar STABS Param 120 R(4) 4 scalar STEFI Param 187 R(4) 4 scalar STRESH Param 119 R(4) 4 scalar T1 Param 119 R(4) 4 scalar TBOCO Local 1447 R(4) 4 scalar 1447,1449,1457 TCP Local 1208 R(4) 4 scalar 1208,1308,1333 TEMPCOM Common 246 6603768 SAVE TEMPV Common 1127 6535620 SAVE TEND Local 1208 R(4) 4 scalar 1208,1307,1332 TERM1 Local 1557 R(4) 4 scalar 1557,1558,1603,1604 TFRZ Param 119 R(4) 4 scalar THLATI Local 876 R(4) 4 1 1500 THLM Local 2099 R(4) 4 scalar 2099,2111,2125,2139 THLONI Local 876 R(4) 4 1 1500 TIME Local 2069 R(4) 4 scalar 2069,2070 TIMEF Func 1184 R(8) 8 scalar 1289,1291,1386,1392 TIMING Common 1186 16 TLM Local 2093 R(4) 4 scalar 2093,2099,2101 TOPO Common 254 17478548 SAVE TREL Param 185 R(4) 4 scalar TSFCK Local 1594 R(4) 4 scalar 1594,1598 TSLAT Local 877 R(4) 4 1 1000 TSLON Local 877 R(4) 4 1 1000 TSTART Local 1208 R(4) 4 scalar 1208,1307,1331,1462,1484 TVLATI Local 876 R(4) 4 1 1500 TVLONI Local 876 R(4) 4 1 1500 ULM Local 2091 R(4) 4 scalar 2091,2113,2127 Page 35 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References UNIL Param 113 L(4) 4 scalar UNIS Param 113 L(4) 4 scalar VLATI Local 875 R(4) 4 1 1500 VLM Local 2092 R(4) 4 scalar 2092,2114,2128 VLONI Local 875 R(4) 4 1 1500 VRBLS Common 974 13143060 SAVE WA Param 845 R(4) 4 scalar 845 WG Param 845 R(4) 4 scalar Z0EFFT Common 1120 287280 SAVE Z0LAND Param 841 R(4) 4 scalar 1576 Z0SEA Param 841 R(4) 4 scalar 1575 ZENITH Subr 2070 2070 ZERO2 Subr 1256 1256,1261,1268,1269,1270,1271,1272 ZERO3 Subr 1257 1257,1258,1259,1260,1262,1263,1264 ,1265,1266,1267 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 1292760 2 17955 COM ACFRCV R(4) 4 8 2 17955 COM 1635,1735 ACFRST R(4) 4 143648 2 17955 COM 1637,1737 ACPREC R(4) 4 1220940 2 17955 COM 1569,1782 ACSNOM R(4) 4 71824 2 17955 COM 1640,1789,1987 ACSNOW R(4) 4 4 2 17955 COM 1639,1788,1986 ACUTIM R(4) 4 20 scalar COM 2003 AETA R(4) 4 396 1 45 COM 1591,2053,2095 AETA1 R(4) 4 960 1 45 COM AETA2 R(4) 4 264 1 45 COM AFSI R(4) 4 5458320 2 17955 COM AKHS R(4) 4 646380 2 17955 COM 1579 AKMS R(4) 4 574560 2 17955 COM 1269,1578 ALBASE R(4) 4 1009004 2 17955 COM ALBEDO R(4) 4 1080824 2 17955 COM ALSL R(4) 4 624 1 39 COM 1371 ALWIN R(4) 4 215472 2 17955 COM 1643,1829 ALWOUT R(4) 4 287292 2 17955 COM 1644,1830 ALWTOA R(4) 4 359112 2 17955 COM 1645,1831 APHTIM R(4) 4 574572 scalar COM 2001 APREC R(4) 4 3519180 2 17955 COM ARATIM R(4) 4 16 scalar COM 2002 ARDLW R(4) 4 8 scalar COM 1628,1826 ARDSW R(4) 4 8 scalar COM 1627,1840 ASRFC R(4) 4 8 scalar COM 1629,1854 ASWIN R(4) 4 215472 2 17955 COM 1646,1843 ASWOUT R(4) 4 287292 2 17955 COM 1647,1844 ASWTOA R(4) 4 359112 2 17955 COM 1648,1845 AVCNVC R(4) 4 12 scalar COM 1631,1751 AVRAIN R(4) 4 8 scalar COM 1630,1750 BGROFF R(4) 4 215464 2 17955 COM 1642,1791,1968,1982 CFRACH R(4) 4 215460 2 17955 COM CFRACL R(4) 4 71820 2 17955 COM CFRACM R(4) 4 143640 2 17955 COM Page 36 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References CI R(4) 4 40 scalar COM CLDEFI R(4) 4 1077300 2 17955 COM 1582 CLDINC R(4) 4 3734652 2 17955 COM 1573,1786 CLDINC7 R(4) 4 3806472 2 17955 COM 1574,1787 CMC R(4) 4 718200 2 17955 COM 1969,1989 CMLD R(4) 4 444 scalar COM CNVBOT R(4) 4 721724 2 17955 COM CNVTOP R(4) 4 649904 2 17955 COM CPGFU 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 CTHK R(4) 4 4 1 3 COM CUPPT R(4) 4 0 2 17955 COM CUPREC R(4) 4 1364580 2 17955 COM 1570,1783 CURAD L(4) 4 0 scalar COM 1888 CURV R(4) 4 222664 2 17955 COM CWM R(4) 4 0 3 807975 COM 1620 CWMB R(4) 4 1551264 3 77220 COM CZEN R(4) 4 434444 2 17955 COM CZMEAN R(4) 4 1296284 2 17955 COM DCFLX R(4) 4 1220940 2 17955 COM 1811 DCFLX7 R(4) 4 1364580 2 17955 COM 1813 DDMPU R(4) 4 509944 2 17955 COM DDMPV R(4) 4 581764 2 17955 COM DETA R(4) 4 36 1 45 COM 2031,2100 DETA1 R(4) 4 780 1 45 COM DETA2 R(4) 4 84 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 1264 DLMD R(4) 4 436 scalar COM DP30 R(4) 4 448 scalar COM DPHD R(4) 4 440 scalar COM DQADV R(4) 4 1436400 2 17955 COM 1809 DQFLX R(4) 4 1149120 2 17955 COM 1810 DQFLX7 R(4) 4 1292760 2 17955 COM 1812 DS R(4) 4 32 scalar COM DT R(4) 4 48 scalar COM 1341,1349,2069 DTD R(4) 4 16 scalar COM 1351,1352,1353,1365 DTQ2 R(4) 4 8 scalar COM 1349,1350,1351,1353,1364 DX 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 756 1 46 COM ETA1 R(4) 4 1140 1 46 COM ETADT R(4) 4 9839340 3 790020 COM 1265 Page 37 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References EXCH_TIM R(4) 4 12 scalar COM F R(4) 4 438124 2 17955 COM F4D R(4) 4 24 scalar COM F4Q R(4) 4 28 scalar COM F4Q2 R(4) 4 576 1 45 COM FAD R(4) 4 653584 2 17955 COM 1272 FCNEV R(4) 4 287280 2 17955 COM 1795 FCNEV1 R(4) 4 1651860 2 17955 COM FCNEV7 R(4) 4 430920 2 17955 COM 1797 FCP R(4) 4 294484 2 17955 COM FCSEV R(4) 4 359100 2 17955 COM 1796 FCSEV1 R(4) 4 1723680 2 17955 COM FCSEV7 R(4) 4 502740 2 17955 COM 1798 FCU R(4) 4 718200 2 17955 COM 1803 FCU7 R(4) 4 1005480 2 17955 COM 1807 FCV R(4) 4 790020 2 17955 COM 1804 FCV7 R(4) 4 1077300 2 17955 COM 1808 FDIV R(4) 4 366304 2 17955 COM FIRST L(4) 4 24 scalar COM 1330,1358 FIS R(4) 4 12999420 2 17955 COM 1576 FQNEV R(4) 4 0 2 17955 COM 1793 FQNEV1 R(4) 4 1508220 2 17955 COM FQNEV7 R(4) 4 143640 2 17955 COM 1799 FQSEV R(4) 4 71820 2 17955 COM 1794 FQSEV1 R(4) 4 1580040 2 17955 COM FQSEV7 R(4) 4 215460 2 17955 COM 1800 FQU R(4) 4 574560 2 17955 COM 1801 FQU7 R(4) 4 861840 2 17955 COM 1805 FQV R(4) 4 646380 2 17955 COM 1802 FQV7 R(4) 4 933660 2 17955 COM 1806 G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GFFC R(4) 4 865364 2 17955 COM GLAT R(4) 4 290804 2 17955 COM GLON R(4) 4 362624 2 17955 COM GRNFLX R(4) 4 287280 2 17955 COM 1984 HBM2 R(4) 4 6751080 2 17955 COM 1268,1688,1697,1698 HBM3 R(4) 4 6822900 2 17955 COM HBOT R(4) 4 578084 2 17955 COM 1584 HDAC R(4) 4 1152644 2 17955 COM HDACV R(4) 4 1224464 2 17955 COM HTM R(4) 4 287280 3 807975 COM 1266,1688,1708 HTMG R(4) 4 743768 3 4183695 COM HTOP R(4) 4 506264 2 17955 COM 1583 IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 620 1 8 COM IDAT I(4) 4 8 1 3 COM 1406,1420,2072 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 1549,1565,1619,1634,1663,1687,1694 ,1707,1734,1754,1781,1828,1842,185 6,1882,1902,1909,1958,2017,2084 IHE I(4) 4 0 1 399 COM IHEG I(4) 4 0 1 387 COM 1236,1237 IHHA I(4) 4 3040 1 760 COM 1923,1931,1939,1947 Page 38 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References IHLA I(4) 4 0 1 760 COM 1922,1930,1938,1946 IHRST I(4) 4 20 scalar COM 1406,1420 IHW I(4) 4 1596 1 399 COM IHWG I(4) 4 1548 1 387 COM 1237 ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1064 1 100 COM IOUT I(4) 4 44 scalar COM 1530,1534,1537,1540,1541 IQUILT_GROUP I(4) 4 1060 scalar COM IRAD I(4) 4 6384 1 45 COM 1380 IRADG I(4) 4 6192 1 473 COM 1247,1251,1380 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 1374,1535,1537,1541 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 1549,1565,1619,1634,1663,1687,1694 ,1707,1734,1754,1781,1828,1842,185 6,1882,1902,1909,1958,2017,2084 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 1226 IVE I(4) 4 3192 1 399 COM IVEG I(4) 4 3096 1 387 COM 1238,1239 IVGTYP I(4) 4 430920 2 17955 COM IVHA I(4) 4 9120 1 760 COM 1925,1933,1941,1949 IVLA I(4) 4 6080 1 760 COM 1924,1932,1940,1948 IVW I(4) 4 4788 1 399 COM IVWG I(4) 4 4644 1 387 COM 1239 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 1548,1564,1618,1633,1662,1686,1693 ,1706,1733,1753,1780,1827,1841,185 5,1881,1901,1908,1957,2016,2083 JRA I(4) 4 12160 1 760 COM 1926,1934,1942,1950 JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 COM 1548,1564,1618,1633,1662,1686,1693 ,1706,1733,1753,1780,1827,1841,185 5,1881,1901,1908,1957,2016,2083 Page 39 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References 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 1227 K400 I(4) 4 0 scalar COM 2026,2036,2037 KTM I(4) 4 0 scalar COM 1353,1363 L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM LC I(4) 4 3304080 2 17955 COM LIST I(4) 4 40 scalar COM 1295,1306,1307,1308,1309,1310,1311 ,1312,1313,1314,1315,1316,1317,131 8,1319,1320,1321,1322,1356,1357,13 58,1359,1360,1361,1362,1363,1364,1 365,1366,1406,1407,1420,1421,1505, 1520,1530,1540,1718,1732,1747,1779 ,1825,1839,1853,1872,2157,2158 LMH I(4) 4 15200 2 17955 COM 1551,1566,1696,2018,2089 LMV I(4) 4 87020 2 17955 COM 2090 LSL I(4) 4 0 scalar COM 1288,1370 LTOP I(4) 4 16 1 3 COM 2032,2033,2034,2035,2038,2039 LVL I(4) 4 60 2 17955 COM 2018 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 1454,1455,1456,1457,1459,1501,1503 ,2064 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM MPI_ERRCODES_IGNORE I(4) 4 20 1 1 COM MPI_IN_PLACE I(4) 4 4 scalar COM MPI_STATUSES_IGNORE I(4) 4 0 2 5 COM MPI_STATUS_IGNORE I(4) 4 8 1 5 COM MPI_UNWEIGHTED I(4) 4 0 scalar COM MPI_WEIGHTS_EMPTY I(4) 4 0 scalar COM MTSTPE I(4) 4 3591008 scalar COM 1228 MXSNAL R(4) 4 3524 2 17955 COM MYIE I(4) 4 52 scalar COM 1379 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 1379 MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM Page 40 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References 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 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 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 MYJS_P4 I(4) 4 176 scalar COM Page 41 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM 1278,1295,1305,1340,1355,1405,1419 ,1434,1461,1483,1505,1512,1529,153 9,1548,1549,1564,1565,1618,1619,16 33,1634,1662,1663,1686,1687,1693,1 694,1706,1707,1717,1732,1733,1734, 1746,1753,1754,1779,1780,1781,1825 ,1827,1828,1839,1841,1842,1853,185 5,1856,1871,1881,1882,1901,1902,19 08,1909,1957,1958,2016,2017,2063,2 083,2084,2156 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM 1380 MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 1439,1442,1447,1449,1464,1465,1466 ,1467,1468,1469,1470,1471,1474,147 7,1488,1491,1505,1513,1514,1515,15 16,1517,1518,1519,1520 NBOCO I(4) 4 76 scalar COM 1509 NCFRCV I(4) 4 71828 2 17955 COM 1636,1736 NCFRST I(4) 4 215468 2 17955 COM 1638,1738 NCLOD I(4) 4 4 scalar COM 1336,1361,1731 NCNVC I(4) 4 92 scalar COM 1209,1313,1745 NCP I(4) 4 84 scalar COM 1333,1359 NEST L(4) 4 108 scalar COM 1211,1435,1442,1446,1461,1483,1512 ,1547,2138 NFCST I(4) 4 32 scalar COM NHB_TIM R(4) 4 4 scalar COM 1291 NHEAT I(4) 4 4 scalar COM 1335,1360,1745 NPES I(4) 4 4 scalar COM NPHS I(4) 4 88 scalar COM 1209,1312,1349,1731,1778,1824,1838 ,1852 NPREC I(4) 4 68 scalar COM 1334,1360,1778 NRADL I(4) 4 100 scalar COM 1348,1363 NRADS I(4) 4 96 scalar COM 1347,1363 NRDLW I(4) 4 4 scalar COM 1338,1361,1824 NRDSW I(4) 4 4 scalar COM 1337,1361,1838 NSHDE I(4) 4 80 scalar COM 1530,1537,1540 NSRFC I(4) 4 4 scalar COM 1339,1362,1852 NSTART I(4) 4 60 scalar COM 1331,1359,1900,1955 NTDDMP I(4) 4 64 scalar COM 1209,1315,1360 Page 42 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References NTSD I(4) 4 52 scalar COM 1418,1511,1530,1535,1541,1731,1745 ,1778,1824,1838,1852,2069 NTSTM I(4) 4 56 scalar COM 1332,1341,1359,1418 OMGALF R(4) 4 3375540 3 807975 COM 1263 P0 R(4) 4 6463800 2 17955 COM 1903 PCTSNO R(4) 4 359100 2 17955 COM 1959 PD R(4) 4 0 2 17955 COM 1558,1567,1595,1600,1604,1667,1903 ,2088 PDB R(4) 4 0 2 1716 COM PDSL R(4) 4 0 2 17955 COM 1256,1567,1591,2088,2095,2100 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 1655,1863 POTFLX R(4) 4 502752 2 17955 COM 1656,1864 PPTDAT R(4) 4 3303720 3 53865 COM PREC R(4) 4 1149120 2 17955 COM 1568 PSDT R(4) 4 71820 2 17955 COM PSHLTR R(4) 4 2154600 2 17955 COM 1558,1604,2097,2098 PT R(4) 4 20 scalar COM 1558,1591,1595,1600,1604,1667,2027 ,2029,2050,2053,2095 PT1 R(4) 4 412 scalar COM PT2 R(4) 4 4 scalar COM PTBL R(4) 4 1439924 2 10184 COM PTOPC R(4) 4 28 1 4 COM Q R(4) 4 9767520 3 807975 COM 1258,1593,1594,1708,1815,1911,2094 Q0 R(4) 4 3231900 3 807975 COM 1911 Q10 R(4) 4 1795500 2 17955 COM 2126 Q2 R(4) 4 2226420 3 807975 COM 1688,1695,1697,1698 Q2B R(4) 4 1242384 3 77220 COM Q30 R(4) 4 1508220 2 17955 COM 2112 QB R(4) 4 315744 3 77220 COM QOLD R(4) 4 1795500 3 807975 COM 1815 QS R(4) 4 502740 2 17955 COM 1577,1598,1608,1667,2112,2126,2140 QS0 R(4) 4 628 1 134 COM QSHLTR R(4) 4 2082780 2 17955 COM 2140 QWBS R(4) 4 861840 2 17955 COM 1581 QZ0 R(4) 4 359100 2 17955 COM 1608 R R(4) 4 16 scalar COM R1 R(4) 4 408 scalar COM RAD1 R(4) 4 56 scalar COM 2063,2064 RADIN R(4) 4 147164 2 17955 COM RADOT R(4) 4 218984 2 17955 COM 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 RES R(4) 4 13071240 2 17955 COM 1261,1567,2088 RESTRT L(4) 4 28 scalar COM 1208,1301,1309,1563,1727,2110,2124 ,2138,2146 RES_TIM R(4) 4 8 scalar COM 1392 RF R(4) 4 718200 2 17955 COM Page 43 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References RLWIN R(4) 4 12 2 17955 COM RLWOUT R(4) 4 71832 2 17955 COM RLWTOA R(4) 4 143652 2 17955 COM RLWTT R(4) 4 430932 3 807975 COM ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM RSWIN R(4) 4 12 2 17955 COM RSWOUT R(4) 4 71832 2 17955 COM RSWTOA R(4) 4 143652 2 17955 COM RSWTT R(4) 4 430932 3 807975 COM RTDPTH R(4) 4 1364596 1 4 COM RTOP R(4) 4 143640 3 807975 COM 1262 RUN L(4) 4 4 scalar COM 1403 SBD R(4) 4 424 scalar COM SFCEVP R(4) 4 359112 2 17955 COM 1654,1862 SFCEXC R(4) 4 71820 2 17955 COM SFCLHX R(4) 4 71832 2 17955 COM 1650,1858 SFCSHX R(4) 4 12 2 17955 COM 1649,1857 SFCUVX R(4) 4 287292 2 17955 COM 1653,1861 SH2O R(4) 4 1364612 3 71820 COM 1972,1993 SI R(4) 4 1005480 2 17955 COM SICE R(4) 4 215460 2 17955 COM 1961 SIGMA L(4) 4 0 scalar COM SIGT4 R(4) 4 1368104 2 17955 COM SLDPTH R(4) 4 1364580 1 4 COM SM R(4) 4 143640 2 17955 COM 1575,1597,1599,1664,1667,1883,1960 SMC R(4) 4 790020 3 71820 COM 1971,1992 SMSTAV R(4) 4 143640 2 17955 COM 1965,1979 SMSTOT R(4) 4 215460 2 17955 COM 1966,1980 SNO R(4) 4 933660 2 17955 COM 1990 SNOPCX R(4) 4 215472 2 17955 COM 1652,1860,1988 SOILTB R(4) 4 0 2 17955 COM 1983 SPHI0 R(4) 4 1728 scalar COM SPL R(4) 4 468 1 39 COM 1208,1322,1371 SQS R(4) 4 1164 1 134 COM SR R(4) 4 3375900 2 17955 COM SSROFF R(4) 4 143644 2 17955 COM 1641,1790,1967,1981 SST R(4) 4 937184 2 17955 COM 1600,1665 STC R(4) 4 1077300 3 71820 COM 1994 STHE R(4) 4 2004 1 76 COM STHEQ R(4) 4 2916 1 152 COM SUBPOST L(4) 4 104 scalar COM 1208,1311 SUBSHX R(4) 4 143652 2 17955 COM 1651,1859,1985 SURFCE_TIM R(4) 4 0 scalar COM T R(4) 4 71820 3 807975 COM 1257,1553,1554,1557,1593,1594,1603 ,1910,2093 T0 R(4) 4 0 3 807975 COM 1910 TAUCV R(4) 4 44 1 3 COM TB R(4) 4 6864 3 77220 COM TCLOD R(4) 4 0 scalar COM 1210,1317,1336 TCUCN R(4) 4 3231924 3 807975 COM 1710,1756 TDTD R(4) 4 20 scalar COM 1352,1365 TDTQ2 R(4) 4 12 scalar COM 1350,1364 TEMP1 R(4) 4 0 2 91719 COM 1279,1281 TEMP10 R(4) 4 3301884 2 91719 COM Page 44 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References 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 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 TH10 R(4) 4 1723680 2 17955 COM 2125 TH30 R(4) 4 1436400 2 17955 COM 2111 THE0 R(4) 4 1700 1 76 COM THE0Q R(4) 4 2308 1 152 COM THEAT R(4) 4 0 scalar COM 1210,1316,1335 THL R(4) 4 52 scalar COM THS R(4) 4 430920 2 17955 COM 1593,1600,1607,2111,2125,2139 THZ0 R(4) 4 287280 2 17955 COM 1607 TLAT R(4) 4 71820 3 807975 COM TLM0D R(4) 4 428 scalar COM TPH0D R(4) 4 432 scalar COM TPREC R(4) 4 0 scalar COM 1210,1316,1334 TRAIN R(4) 4 24 3 807975 COM 1709,1755 TRDLW R(4) 4 0 scalar COM 1210,1318,1338 TRDSW R(4) 4 0 scalar COM 1210,1317,1337 TSHDE R(4) 4 1324 1 99 COM 1208,1320,1374 TSHLTR R(4) 4 2010960 2 17955 COM 2139,2147 TSPH R(4) 4 416 scalar COM 1331,1332,1333,1334,1335,1336,1337 ,1338,1339,1341,1347,1348,1374,150 9 TSRFC R(4) 4 0 scalar COM 1210,1318,1339 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 1580 U R(4) 4 3303720 3 807975 COM 1259,2091 U00 R(4) 4 3231900 2 17955 COM 1883 U10 R(4) 4 1867320 2 17955 COM 2127 U30 R(4) 4 1580040 2 17955 COM 2113 UB R(4) 4 624624 3 77220 COM UL R(4) 4 3303720 1 90 COM 1892,1894 USTAR R(4) 4 71820 2 17955 COM 1606 UZ0 R(4) 4 143640 2 17955 COM 1270,1609 V R(4) 4 6535620 3 807975 COM 1260,2092 V10 R(4) 4 1939140 2 17955 COM 2128 V30 R(4) 4 1651860 2 17955 COM 2114 VAPINC R(4) 4 3591012 2 17955 COM 1571,1784 VAPINC7 R(4) 4 3662832 2 17955 COM 1572,1785 VB R(4) 4 933504 3 77220 COM Page 45 Source Listing INIT 2025-03-12 18:21 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References 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 1267 VZ0 R(4) 4 215460 2 17955 COM 1271,1610 WBD R(4) 4 420 scalar COM WPDAR R(4) 4 79024 2 17955 COM X1P R(4) 4 452 scalar COM Y1P R(4) 4 456 scalar COM Z0 R(4) 4 0 2 17955 COM 1575 Z0SLP R(4) 4 464 scalar COM ZEFFIJ R(4) 4 0 3 71820 COM 1281 Page 46 Source Listing INIT 2025-03-12 18:21 INIT.F 2163 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 2164 BLOCK DATA CLOUD 2165 INCLUDE "parmeta" 2166 C----------------------------------------------------------------------- 2189 C O M M O N /RD1TIM/ 2190 1 K400,CTHK(3),LTOP(3),PTOPC(4),TAUCV(3),RAD1 2191 2,LVL(IDIM1:IDIM2,JDIM1:JDIM2) 2192 C----------------------------------------------------------------------- 2193 D A T A 2194 1 CTHK/20000.0,20000.0,20000.0/ 2195 1,TAUCV/0.16, 0.14, 0.12/, LTOP/0,0,0/ 2196 C----------------------------------------------------------------------- 2197 END BLOCK DATA CLOUD SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References CLOUD Block 2164 scalar IDIM1 Param 2185 I(4) 4 scalar 2191 IDIM2 Param 2185 I(4) 4 scalar 2191 IGSTL Param 2180 I(4) 4 scalar 2185 IGSTR Param 2180 I(4) 4 scalar 2185 IM Param 2169 I(4) 4 scalar 2182,2185 INPES Param 2177 I(4) 4 scalar 2182,2185 ITAIL Param 2182 I(4) 4 scalar JDIM1 Param 2186 I(4) 4 scalar 2191 JDIM2 Param 2186 I(4) 4 scalar 2191 JGSTL Param 2181 I(4) 4 scalar 2186 JGSTR Param 2181 I(4) 4 scalar 2186 JM Param 2169 I(4) 4 scalar 2183,2186 JNPES Param 2177 I(4) 4 scalar 2183,2186 JTAIL Param 2183 I(4) 4 scalar LM Param 2169 I(4) 4 scalar LSM Param 2169 I(4) 4 scalar RD1TIM Common 2189 71880 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References CTHK R(4) 4 4 1 3 COM,SAVE 2194 K400 I(4) 4 0 scalar COM LTOP I(4) 4 16 1 3 COM,SAVE 2195 LVL I(4) 4 60 2 17955 COM PTOPC R(4) 4 28 1 4 COM RAD1 R(4) 4 56 scalar COM TAUCV R(4) 4 44 1 3 COM,SAVE 2195 Page 47 Source Listing CLOUD 2025-03-12 18:21 Subprograms/Common Blocks INIT.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 1038 287288 SAVE ACMCLH Common 1031 6463824 SAVE ACMPRE Common 1045 287284 SAVE ACMRDL Common 1052 3662832 SAVE ACMRDS Common 1061 3662832 SAVE ACMSFC Common 1070 574576 SAVE BOCO Common 1024 1860144 SAVE CLDWTR Common 1080 3447720 SAVE CLOUD Block 2164 scalar CNVCLD Common 1088 287280 SAVE CONTIN Common 984 12999420 SAVE CTLBLK Common 892 112 SAVE CUINIT Common 1201 4 DYNAM Common 918 725404 SAVE GLB_TABLE Common 241 128 SAVE INDX Common 1108 6564 SAVE INDXG Common 1114 8084 SAVE INIT Subr 2 LOOPS Common 900 158840 SAVE MAPOT Common 962 1732 SAVE MAPPINGS Common 260 5024 SAVE MASKS Common 907 6894720 SAVE MPIFCMB5 Common 818 4 SAVE MPIFCMB9 Common 819 4 SAVE MPIPRIV1 Common 823 28 SAVE MPIPRIV2 Common 825 24 SAVE MPIPRIVC Common 828 2 SAVE MPPCOM Common 205 1464 SAVE PHYS Common 936 1788916 SAVE PPTASM Common 1133 3878292 SAVE PVRBLS Common 994 5530140 SAVE QFLX Common 1161 5027400 SAVE RD1TIM Common 1188 71880 RD1TIM Common 2189 71880 SOIL Common 1095 1651892 SAVE TEMPCOM Common 246 6603768 SAVE TEMPV Common 1127 6535620 SAVE TIMING Common 1186 16 TOPO Common 254 17478548 SAVE VRBLS Common 974 13143060 SAVE Z0EFFT Common 1120 287280 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 Page 48 Source Listing CLOUD 2025-03-12 18:21 INIT.F -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__ -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 Page 49 Source Listing CLOUD 2025-03-12 18:21 INIT.F 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 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, Page 50 Source Listing CLOUD 2025-03-12 18:21 INIT.F /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 : INIT.lst no -o COMPILER: Intel(R) Fortran 19.1-1655