Page 1 Source Listing INIT 2025-03-12 18:22 /tmp/iforti451lf.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:22 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" 110 INCLUDE "parm.tbl" 112 INCLUDE "cuparm" 203 INCLUDE "parmsoil" 205 INCLUDE "mpp.h" 264 INCLUDE "mpif.h" 265 # 1 "./sp.h" 1 266 # 4 267 268 # 92 "INIT.F" 2 269 C----------------------------------------------------------------------- 831 P A R A M E T E R 832 & (CM1=2937.4,CM2=4.9283,CM3=23.5518,EPS=0.622,PI2=2.*3.14159265 833 &, RLAG=14.8125 834 C 835 CVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV 836 C &, Q2INI=.01,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 837 C &, Q2INI=1.0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 838 C &, Q2INI=.50,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 839 C &, Q2INI=.01,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=0.0 840 &, Q2INI=.50 ,EPSQ2=0.2 ,EPSWET=0.0 841 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 842 &, Z0LAND=.10,Z0SEA=.001,FCM=.00001 843 &, DTR=0.1745329E-1) 844 C----------------------------------------------------------------------- 845 P A R A M E T E R 846 & (A1=610.78,WA=.10,WG=1.0-WA) 847 C 848 C----------------------------------------------------------------------- Page 3 Source Listing INIT 2025-03-12 18:22 INIT.F 849 P A R A M E T E R 850 & (IMJM=IM*JM-JM/2,JMP1=JM+1,JAM=6+2*(JM-10),LB=2*IM+JM-3 851 &, LM1=LM-1,LP1=LM+1,IMT=2*IM-1 852 &, NSTAT=1000) 853 C----------------------------------------------------------------------- 854 C 855 C DECLARE VARIABLES 856 C 857 C----------------------------------------------------------------------- 858 L O G I C A L 859 & RUN,RUNB,FIRST,RESTRT,SIGMA,EXBC,NEST 860 &,INSIDEH,INSIDEV 861 C----------------------------------------------------------------------- 862 C H A R A C T E R *32 863 & LABEL 864 C H A R A C T E R *40 865 & CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV 866 &,FILCLD,FILRAD,FILSFC 867 C----------------------------------------------------------------------- 868 R E A L 869 & PHALF(LP1),NPEBND 870 C*** 871 C*** NOTE: THE DIMENSION OF THE FOLLOWING ARRAYS IS ARBITRARILY CHOSEN 872 C*** TO EXCEED ANY NUMBER OF BOUNDARY POINTS THAT MIGHT EXIST IN 873 C*** ANY INNER DOMAIN 874 C*** 875 R E A L 876 & HLATI(1500),HLONI(1500),VLATI(1500),VLONI(1500) 877 &,THLONI(1500),THLATI(1500),TVLONI(1500),TVLATI(1500) 878 &,TSLAT(NSTAT),TSLON(NSTAT) 879 C----------------------------------------------------------------------- 880 I N T E G E R 881 & IDATB(3),INIDAT(8),IBCDAT(8) 882 C----------------------------------------------------------------------- 883 # 148 884 885 C----------------------------------------------------------------------- 886 C 887 C INCLUDE COMMON BLOCKS. 888 C 889 INCLUDE "CTLBLK.comm" 899 INCLUDE "LOOPS.comm" 906 INCLUDE "MASKS.comm" 917 INCLUDE "DYNAM.comm" 933 INCLUDE "PHYS2.comm" 961 INCLUDE "MAPOT1.comm" 973 INCLUDE "VRBLS.comm" 983 INCLUDE "CONTIN.comm" 993 INCLUDE "PVRBLS.comm" 1023 INCLUDE "BOCO.comm" 1030 INCLUDE "ACMCLH.comm" 1037 INCLUDE "ACMCLD.comm" 1044 INCLUDE "ACMPRE.comm" 1051 INCLUDE "ACMRDL.comm" 1060 INCLUDE "ACMRDS.comm" 1069 INCLUDE "ACMSFC.comm" 1079 INCLUDE "CLDWTR.comm" Page 4 Source Listing INIT 2025-03-12 18:22 INIT.F 1087 INCLUDE "CNVCLD.comm" 1094 INCLUDE "SOIL.comm" 1107 INCLUDE "INDX.comm" 1119 INCLUDE "Z0EFFT.comm" 1126 INCLUDE "TEMPV.comm" 1133 INCLUDE "PPTASM.comm" 1157 INCLUDE "QFLX.comm" 1158 C----------------------------------------------------------------------- 1159 C*** 1160 C*** THE FOLLOWING IS FOR TIMIMG PURPOSES ONLY 1161 C*** 1185 real*8 timef 1186 real nhb_tim 1187 common/timing/surfce_tim,nhb_tim,res_tim,exch_tim 1188 C----------------------------------------------------------------------- 1189 C O M M O N /RD1TIM/ 1190 1 K400,CTHK(3),LTOP(3),PTOPC(4),TAUCV(3),RAD1 1191 2,LVL(IDIM1:IDIM2,JDIM1:JDIM2) 1192 C----------------------------------------------------------------------- 1193 D A T A 1194 1 PLOMD/64200./,PMDHI/35000./,PHITP/15000./,P400/40000./ 1195 2,PLBTM/105000./ 1196 D A T A 1197 1 NFILE/14/,IUNWGT/40/ 1198 !----------------------------------------------------------------------- 1199 ! 1200 !--- Flag for initializing convective clouds for radiation 1201 ! 1202 COMMON /CUINIT/ CURAD 1203 LOGICAL CURAD 1204 C----------------------------------------------------------------------- 1205 C 1206 C DECLARE NAMELISTS. 1207 C 1208 NAMELIST /FCSTDATA/ 1209 & TSTART,TEND,TCP,RESTRT,SINGLRST,SUBPOST,NMAP,TSHDE,SPL 1210 &,NPHS,NCNVC,NRADSH,NRADLH,NTDDMP 1211 &,TPREC,THEAT,TCLOD,TRDSW,TRDLW,TSRFC 1212 &,NEST 1213 CHARACTER ENVAR*4 1214 C 1215 C Read in precip assim test points (global), compute the corresponding 1216 C local coordinate 1217 C and the node it is on 1218 1219 c CALL get_environment_variable("tmmark",ENVAR) 1220 c itest=56 1221 c jtest=33 1222 c IF(ENVAR.NE.'tm00') then 1223 c READ(5,*) ITEST, JTEST 1224 c print*,'itest,jtest,mype=',itest,jtest,mype 1225 c CALL GLB2LOC(ITEST,JTEST,ITSTLOC,JTSTLOC,MTSTPE) 1226 c ENDIF 1227 itstloc=39 1228 jtstloc=26 1229 mtstpe=5 1230 C Page 5 Source Listing INIT 2025-03-12 18:22 INIT.F 1231 C*********************************************************************** 1232 C START INIT HERE. 1233 C 1234 C CALCULATE THE I-INDEX EAST-WEST INCREMENTS 1235 C 1236 DO J=1,JM 1237 IHEG(J)=MOD(J+1,2) 1238 IHWG(J)=IHEG(J)-1 1239 IVEG(J)=MOD(J,2) 1240 IVWG(J)=IVEG(J)-1 1241 ENDDO 1242 C 1243 C CALCULATE THE INDIRECT I INDICES FOR RADTN 1244 C 1245 KNT=0 1246 DO I=1,IM 1247 KNT=KNT+1 1248 IRADG(KNT)=I 1249 ENDDO 1250 DO I=1,IM-1 1251 KNT=KNT+1 1252 IRADG(KNT)=IM+2+I 1253 ENDDO 1254 C 1255 C ZERO OUT LOCALLY INDEXED ARRAYS 1256 C 1257 CALL ZERO2(PDSL) 1258 CALL ZERO3(T,LM) 1259 CALL ZERO3(Q,LM) 1260 CALL ZERO3(U,LM) 1261 CALL ZERO3(V,LM) 1262 CALL ZERO2(RES) 1263 CALL ZERO3(RTOP,LM) 1264 CALL ZERO3(OMGALF,LM) 1265 CALL ZERO3(DIV,LM) 1266 CALL ZERO3(ETADT,LM-1) 1267 CALL ZERO3(HTM,LM) 1268 CALL ZERO3(VTM,LM) 1269 CALL ZERO2(HBM2) 1270 CALL ZERO2(AKMS) 1271 CALL ZERO2(UZ0) 1272 CALL ZERO2(VZ0) 1273 CALL ZERO2(FAD) 1274 C--------------------------------------------------------------- 1275 C 1276 C READ Z0 EFFECTIVE 1277 C 1278 DO N=1,4 1279 IF(MYPE.EQ.0)THEN 1280 READ(22)TEMP1 1281 ENDIF 1282 CALL DSTRB(TEMP1,ZEFFIJ,1,4,N) 1283 ENDDO 1284 C--------------------------------------------------------------- 1285 C*** 1286 C*** READ "CONSTANT" DATA FROM UNIT CONNECTED TO NHB 1287 C*** Page 6 Source Listing INIT 2025-03-12 18:22 INIT.F 1288 NHB=12 1289 LSL =LSM 1290 btim=timef() 1291 CALL READ_NHB(NHB) 1292 nhb_tim=timef()-btim 1293 C 1294 C--------------------------------------------------------------- 1295 NHIBU = 12 1296 IF(MYPE.EQ.0)WRITE(LIST,*)'INIT: READ CONSTANTS FILE' 1297 C 1298 C 1299 C READ NAMELIST FCSTDATA WHICH CONTROLS TIMESTEPS, 1300 C ACCUMULATION PERIODS, STANDARD OUTPUT 1301 C 1302 RESTRT = .FALSE. 1303 REWIND 11 1304 READ(11,FCSTDATA) 1305 C 1306 IF(MYPE.EQ.0)THEN 1307 WRITE(LIST,*)'INIT: READ NAMELIST FCSTDATA - LISTED BELOW' 1308 WRITE(LIST,*)' TSTART,TEND : ',TSTART,TEND 1309 WRITE(LIST,*)' TCP : ',TCP 1310 WRITE(LIST,*)' RESTRT : ',RESTRT 1311 WRITE(LIST,*)' SINGLRST : ',SINGLRST 1312 WRITE(LIST,*)' SUBPOST : ',SUBPOST 1313 WRITE(LIST,*)' NMAP,NPHS : ',NMAP,NPHS 1314 WRITE(LIST,*)' NCNVC : ',NCNVC 1315 WRITE(LIST,*)' NRADSH,NRADLH: ',NRADSH,NRADLH 1316 WRITE(LIST,*)' NTDDMP : ',NTDDMP 1317 WRITE(LIST,*)' TPREC,THEAT : ',TPREC,THEAT 1318 WRITE(LIST,*)' TCLOD,TRDSW : ',TCLOD,TRDSW 1319 WRITE(LIST,*)' TRDLW,TSRFC : ',TRDLW,TSRFC 1320 WRITE(LIST,*)' TSHDE (POSTED FORECAST HOURS) BELOW: ' 1321 WRITE(LIST,75) (TSHDE(K),K=1,99) 1322 WRITE(LIST,*)' SPL (POSTED PRESSURE LEVELS) BELOW: ' 1323 WRITE(LIST,80) (SPL(L),L=1,LSM) 1324 75 FORMAT(14(F4.1,1X)) 1325 80 FORMAT(8(F8.1,1X)) 1326 ENDIF 1327 C 1328 C 1329 C SET TIME STEPPING RELATED CONSTANTS. 1330 C 1331 FIRST = .TRUE. 1332 NSTART = INT(TSTART*TSPH+0.5) 1333 NTSTM = INT(TEND *TSPH+0.5)+1 1334 NCP = INT(TCP *TSPH+0.5) 1335 NPREC = INT(TPREC *TSPH+0.5) 1336 NHEAT = INT(THEAT *TSPH+0.5) 1337 NCLOD = INT(TCLOD *TSPH+0.5) 1338 NRDSW = INT(TRDSW *TSPH+0.5) 1339 NRDLW = INT(TRDLW *TSPH+0.5) 1340 NSRFC = INT(TSRFC *TSPH+0.5) 1341 IF(MYPE.EQ.0)THEN 1342 WRITE(0,*)' NTSTM=',NTSTM,' TSPH=',TSPH,' DT=',DT 1343 ENDIF 1344 C IF (NSTART.LT.NCP) NSTART=0 Page 7 Source Listing INIT 2025-03-12 18:22 INIT.F 1345 C 1346 C SET VARIOUS PHYSICS PACKAGE TIMESTEP VARIABLES. 1347 C 1348 NRADS = NINT(TSPH)*NRADSH 1349 NRADL = NINT(TSPH)*NRADLH 1350 DTQ2 = NPHS * DT 1351 TDTQ2 = DTQ2 + DTQ2 1352 DTD = 0.5 * DTQ2 1353 TDTD = DTD + DTD 1354 KTM = INT(DTQ2/DTD+0.5) 1355 C 1356 IF(MYPE.EQ.0)THEN 1357 WRITE(LIST,*)' ' 1358 WRITE(LIST,*)'SET TIME STEPPING CONSTANTS' 1359 WRITE(LIST,*)' FIRST : ',FIRST 1360 WRITE(LIST,*)' NSTART,NSTSM,NCP : ',NSTART,NTSTM,NCP 1361 WRITE(LIST,*)' NTDDMP,NPREC,NHEAT: ',NTDDMP,NPREC,NHEAT 1362 WRITE(LIST,*)' NCLOD,NRDSW,NRDLW : ',NCLOD,NRDSW,NRDLW 1363 WRITE(LIST,*)' NSRFC : ',NSRFC 1364 WRITE(LIST,*)' NRADS,NRADL,KTM : ',NRADS,NRADL,KTM 1365 WRITE(LIST,*)' DTQ2,TDTQ2 : ',DTQ2,TDTQ2 1366 WRITE(LIST,*)' DTD,TDTD : ',DTD,TDTD 1367 WRITE(LIST,*)' ' 1368 ENDIF 1369 C 1370 C COMPUTE DERIVED MAP OUTPUT CONSTANTS. 1371 DO L = 1,LSL 1372 ALSL(L) = LOG(SPL(L)) 1373 ENDDO 1374 DO I=1,NMAP 1375 ISHDE(I)=INT(TSHDE(I)*TSPH+0.5)+1 1376 ENDDO 1377 C*** 1378 C*** SET UP ARRAY IRAD (INDICES FOR RADTN) 1379 C*** 1380 DO I=MYIS,MYIE 1381 IRAD(I)=IRADG(I+MY_IS_GLB-1)-MY_IS_GLB+1 1382 ENDDO 1383 C------------------------------------------------------------- 1384 C*** 1385 C*** READ INITIAL CONDITIONS OR RESTART FILE. 1386 C*** 1387 btim=timef() 1388 IF(SINGLRST)THEN 1389 CALL READ_RESTRT 1390 ELSE 1391 CALL READ_RESTRT2 1392 ENDIF 1393 res_tim=timef()-btim 1394 C------------------------------------------------------------- 1395 C 1396 CALL READGRDETA 1397 C 1398 C------------------------------------------------------------- 1399 C 1400 C IF NOT RUNNING THE MODEL, PRINT DATE OF INITIAL CONDITIONS 1401 C JUST READ AND STOP. OTHERWISE, CONTINUE. Page 8 Source Listing INIT 2025-03-12 18:22 INIT.F 1402 C 1403 C------------------------------------------------------------- 1404 IF (RUN) GO TO 190 1405 C 1406 IF(MYPE.EQ.0)THEN 1407 WRITE(LIST,165) IHRST,IDAT 1408 WRITE(LIST,166) 1409 ccccc CALL EXIT(2) 1410 CALL MPI_FINALIZE(IERR) 1411 STOP2 1412 165 FORMAT('0*** ',I2,' GMT ',2(I2,'/'),I4,' ***') 1413 166 FORMAT('0F*** NO INITIAL CONDITIONS. RUN TERMINATED.') 1414 ENDIF 1415 C 1416 C IF THE TIMESTEP COUNTER (NTSD) EXCEEDS THE "STOP MODEL" T 1417 C TIMESTEP,CONTINUE, STOP EXECUTION. OTHERWISE, CONTINUE. 1418 C 1419 190 IF(NTSD.GE.NTSTM)THEN 1420 IF(MYPE.EQ.0)THEN 1421 WRITE(LIST,165) IHRST,IDAT 1422 WRITE(LIST,195) 1423 195 FORMAT('0F*** FORECAST ALREADY DONE. RUN TERMINATED.') 1424 ccccc CALL EXIT(3) 1425 CALL MPI_FINALIZE(IERR) 1426 STOP3 1427 ENDIF 1428 ENDIF 1429 C 1430 C------------------------------------------------------------- 1431 C 1432 C READ BOUNDARY CONDITIONS. 1433 C 1434 C------------------------------------------------------------- 1435 IF(MYPE.EQ.0)THEN 1436 IF(NEST)THEN 1437 KBI=2*IM+JM-3 1438 KBI2=KBI-4 1439 LRECBC=4*(1+(1+6*LM)*KBI*2+(KBI+KBI2)*(LM+1)) 1440 OPEN(UNIT=NBC,ACCESS='DIRECT',RECL=LRECBC) 1441 ENDIF 1442 C 1443 IF(.NOT.NEST)REWIND NBC 1444 C 1445 # 451 1446 1447 IF(NEST)THEN 1448 READ(NBC,REC=1)RUNB,IDATB,IHRSTB,TBOCO 1449 ELSE 1450 READ(NBC)RUNB,IDATB,IHRSTB,TBOCO 1451 ENDIF 1452 1453 ENDIF 1454 C 1455 CALL MPI_BCAST(RUNB,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) 1456 CALL MPI_BCAST(IDATB,3,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1457 CALL MPI_BCAST(IHRSTB,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1458 CALL MPI_BCAST(TBOCO,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) Page 9 Source Listing INIT 2025-03-12 18:22 INIT.F 1459 C 1460 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1461 C 1462 IF(MYPE.EQ.0.AND..NOT.NEST)THEN 1463 ISTART=NINT(TSTART) 1464 C 1465 READ(NBC)BCHR 1466 205 READ(NBC) 1467 READ(NBC) 1468 READ(NBC) 1469 READ(NBC) 1470 READ(NBC) 1471 READ(NBC) 1472 READ(NBC) 1473 C 1474 IF(ISTART.EQ.NINT(BCHR))THEN 1475 IF(ISTART.GT.0)READ(NBC)BCHR 1476 GO TO 215 1477 ELSE 1478 READ(NBC)BCHR 1479 ENDIF 1480 C 1481 IF(ISTART.GE.NINT(BCHR))GO TO 205 1482 ENDIF 1483 C 1484 IF(MYPE.EQ.0.AND.NEST)THEN 1485 ISTART=NINT(TSTART) 1486 NREC=1 1487 C 1488 210 NREC=NREC+1 1489 READ(NBC,REC=NREC)BCHR 1490 C 1491 IF(ISTART.EQ.NINT(BCHR))THEN 1492 IF(ISTART.GT.0)READ(NBC,REC=NREC+1)BCHR 1493 GO TO 215 1494 ELSE 1495 GO TO 210 1496 ENDIF 1497 ENDIF 1498 C 1499 215 CONTINUE 1500 C 1501 CALL MPI_BCAST(BCHR,1,MPI_REAL,0, 1502 1 MPI_COMM_COMP,IRTN) 1503 C 1504 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1505 C 1506 IF(MYPE.EQ.0)WRITE(LIST,*)' READ UNIT NBC=',NBC 1507 C*** 1508 C*** COMPUTE THE 1ST TIME FOR BOUNDARY CONDITION READ 1509 C*** 1510 NBOCO=NINT(BCHR*TSPH) 1511 C 1512 IF(NTSD.EQ.0)THEN 1513 IF(MYPE.EQ.0.AND..NOT.NEST)THEN 1514 BACKSPACE NBC 1515 BACKSPACE NBC Page 10 Source Listing INIT 2025-03-12 18:22 INIT.F 1516 BACKSPACE NBC 1517 BACKSPACE NBC 1518 BACKSPACE NBC 1519 BACKSPACE NBC 1520 BACKSPACE NBC 1521 WRITE(LIST,*)' BACKSPACE UNIT NBC=',NBC 1522 ENDIF 1523 ENDIF 1524 C 1525 C------------------------------------------------------------- 1526 C 1527 C SET ARRAYS CONTROLLING POST PROCESSING. 1528 C 1529 C------------------------------------------------------------- 1530 IF(MYPE.EQ.0)THEN 1531 WRITE(LIST,*)'INIT: READ IOUT,NSHDE,NTSD=',IOUT,NSHDE,NTSD 1532 ENDIF 1533 C 1534 DO I=1,NMAP 1535 IOUT=I 1536 IF(ISHDE(I).GE.NTSD)GO TO 220 1537 ENDDO 1538 220 NSHDE = ISHDE(IOUT) 1539 C 1540 IF(MYPE.EQ.0)THEN 1541 WRITE(LIST,*)'INIT: SET IOUT,NSHDE =',IOUT,NSHDE, 1542 1 ' FOR ISHDE,NTSD=',ISHDE(IOUT),NTSD 1543 ENDIF 1544 C------------------------------------------------------------- 1545 C 1546 C INITIALIZE PHYSICS VARIABLES IF STARTING THIS RUN FROM SCRATCH. 1547 C 1548 IF(NEST)THEN 1549 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1550 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1551 C 1552 LLMH=LMH(I,J) 1553 C 1554 IF(T(I,J,LLMH).EQ.0.)THEN 1555 T(I,J,LLMH)=T(I,J,LLMH-1) 1556 ENDIF 1557 C 1558 TERM1=-0.068283/T(I,J,LLMH) 1559 PSHLTR(I,J)=(PD(I,J)+PT)*EXP(TERM1) 1560 ENDDO 1561 ENDDO 1562 ENDIF 1563 C 1564 IF(.NOT.RESTRT)THEN 1565 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1566 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1567 LLMH=LMH(I,J) 1568 PDSL(I,J) = PD(I,J)*RES(I,J) 1569 PREC(I,J) = 0. 1570 ACPREC(I,J) = 0. 1571 CUPREC(I,J) = 0. 1572 VAPINC(I,J)=0. Page 11 Source Listing INIT 2025-03-12 18:22 INIT.F 1573 VAPINC7(I,J)=0. 1574 CLDINC(I,J)=0. 1575 CLDINC7(I,J)=0. 1576 Z0(I,J) = SM(I,J)*Z0SEA+(1.-SM(I,J))* 1577 1 (FIS(I,J)*FCM+Z0LAND) 1578 QS(I,J) = 0. 1579 AKMS(I,J) = 0. 1580 AKHS(I,J) = 0. 1581 TWBS(I,J) = 0. 1582 QWBS(I,J) = 0. 1583 CLDEFI(I,J) = 1. 1584 HTOP(I,J) = 100. 1585 HBOT(I,J) = 0. 1586 C*** 1587 C*** AT THIS POINT, WE MUST CALCULATE THE INITIAL POTENTIAL TEMPERATURE 1588 C*** OF THE SURFACE AND OF THE SUBGROUND. 1589 C*** EXTRAPOLATE DOWN FOR INITIAL SURFACE POTENTIAL TEMPERATURE. 1590 C*** ALSO DO THE SHELTER PRESSURE. 1591 C*** 1592 PM1=PDSL(I,J)*AETA(LLMH)+PT 1593 APEM1=(1.E5/PM1)**CAPA 1594 THS(I,J)=T(I,J,LLMH)*(1.+0.608*Q(I,J,LLMH))*APEM1 1595 TSFCK=T(I,J,LLMH)*(1.+0.608*Q(I,J,LLMH)) 1596 PSFCK=PD(I,J)+PT 1597 C 1598 IF(SM(I,J).LT.0.5) THEN 1599 QS(I,J)=PQ0/PSFCK*EXP(A2*(TSFCK-A3)/(TSFCK-A4)) 1600 ELSEIF(SM(I,J).GT.0.5) THEN 1601 THS(I,J)=SST(I,J)*(1.E5/(PD(I,J)+PT))**CAPA 1602 ENDIF 1603 C 1604 TERM1=-0.068283/T(I,J,LLMH) 1605 PSHLTR(I,J)=(PD(I,J)+PT)*EXP(TERM1) 1606 C 1607 USTAR(I,J)=0.1 1608 THZ0(I,J)=THS(I,J) 1609 QZ0(I,J)=QS(I,J) 1610 UZ0(I,J)=0. 1611 VZ0(I,J)=0. 1612 C 1613 ENDDO 1614 ENDDO 1615 C 1616 C INITIALIZE CLOUD FIELDS 1617 C 1618 DO L=1,LM 1619 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1620 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1621 CWM(I,J,L)=0. 1622 ENDDO 1623 ENDDO 1624 ENDDO 1625 C 1626 C INITIALIZE ACCUMULATOR ARRAYS TO ZERO. 1627 C 1628 ARDSW=0.0 1629 ARDLW=0.0 Page 12 Source Listing INIT 2025-03-12 18:22 INIT.F 1630 ASRFC=0.0 1631 AVRAIN=0.0 1632 AVCNVC=0.0 1633 C 1634 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1635 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1636 ACFRCV(I,J)=0. 1637 NCFRCV(I,J)=0 1638 ACFRST(I,J)=0. 1639 NCFRST(I,J)=0 1640 ACSNOW(I,J)=0. 1641 ACSNOM(I,J)=0. 1642 SSROFF(I,J)=0. 1643 BGROFF(I,J)=0. 1644 ALWIN(I,J) =0. 1645 ALWOUT(I,J)=0. 1646 ALWTOA(I,J)=0. 1647 ASWIN(I,J) =0. 1648 ASWOUT(I,J)=0. 1649 ASWTOA(I,J)=0. 1650 SFCSHX(I,J)=0. 1651 SFCLHX(I,J)=0. 1652 SUBSHX(I,J)=0. 1653 SNOPCX(I,J)=0. 1654 SFCUVX(I,J)=0. 1655 SFCEVP(I,J)=0. 1656 POTEVP(I,J)=0. 1657 POTFLX(I,J)=0. 1658 ENDDO 1659 ENDDO 1660 C 1661 C INITIALIZE SATURATION SPECIFIC HUMIDITY OVER THE WATER. 1662 C 1663 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1664 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1665 IF(SM(I,J).GT.0.5)THEN 1666 CLOGES =-CM1/SST(I,J)-CM2*ALOG10(SST(I,J))+CM3 1667 ESE = 10.**(CLOGES+2.) 1668 QS(I,J)= SM(I,J)*EPS*ESE/(PD(I,J)+PT-ESE*(1.-EPS)) 1669 ENDIF 1670 ENDDO 1671 ENDDO 1672 C 1673 C PAD GROUND WETNESS IF IT IS TOO SMALL. 1674 C 1675 c DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1676 c DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1677 c WET(I,J)=AMAX1(WET(I,J),EPSWET) 1678 c ENDDO 1679 c ENDDO 1680 C 1681 C INITIALIZE TURBULENT KINETIC ENERGY (TKE) TO A SMALL 1682 C VALUE (EPSQ2) ABOVE GROUND. SET TKE TO ZERO IN THE 1683 C THE LOWEST MODEL LAYER. IN THE LOWEST TWO ATMOSPHERIC 1684 C ETA LAYERS SET TKE TO A SMALL VALUE (Q2INI). 1685 C 1686 DO L=1,LM1 Page 13 Source Listing INIT 2025-03-12 18:22 INIT.F 1687 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1688 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1689 Q2(I,J,L)=HTM(I,J,L+1)*HBM2(I,J)*EPSQ2 1690 ENDDO 1691 ENDDO 1692 ENDDO 1693 C 1694 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1695 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1696 Q2(I,J,LM) = 0. 1697 LLMH = LMH(I,J) 1698 Q2(I,J,LLMH-2)= HBM2(I,J)*Q2INI 1699 Q2(I,J,LLMH-1)= HBM2(I,J)*Q2INI 1700 ENDDO 1701 ENDDO 1702 C 1703 C PAD ABOVE GROUND SPECIFIC HUMIDITY IF IT IS TOO SMALL. 1704 C INITIALIZE LATENT HEATING ACCUMULATION ARRAYS. 1705 C 1706 DO L=1,LM 1707 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1708 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1709 IF(Q(I,J,L).LT.EPSQ)Q(I,J,L)=EPSQ*HTM(I,J,L) 1710 TRAIN(I,J,L)=0. 1711 TCUCN(I,J,L)=0. 1712 ENDDO 1713 ENDDO 1714 ENDDO 1715 C 1716 C END OF SCRATCH START INITIALIZATION BLOCK. 1717 C 1718 IF(MYPE.EQ.0)THEN 1719 WRITE(LIST,*)'INIT: INITIALIZED ARRAYS FOR CLEAN START' 1720 ENDIF 1721 ENDIF 1722 C 1723 C 1724 C 1725 C RESTART INITIALIZING. CHECK TO SEE IF WE NEED TO ZERO 1726 C ACCUMULATION ARRAYS. 1727 C 1728 IF(RESTRT)THEN 1729 C 1730 C AVERAGE CLOUD AMOUNT ARRAY 1731 C 1732 IF(MOD(NTSD,NCLOD).LT.NPHS)THEN 1733 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO AVG CLD AMT ARRAY' 1734 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1735 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1736 ACFRCV(I,J)=0. 1737 NCFRCV(I,J)=0 1738 ACFRST(I,J)=0. 1739 NCFRST(I,J)=0 1740 ENDDO 1741 ENDDO 1742 ENDIF 1743 C Page 14 Source Listing INIT 2025-03-12 18:22 INIT.F 1744 C GRID-SCALE AND CONVECTIVE LATENT HEATING ARRAYS. 1745 C 1746 IF(MOD(NTSD,NHEAT).LT.NCNVC)THEN 1747 IF(MYPE.EQ.0)THEN 1748 WRITE(LIST,*)' ZERO ACCUM LATENT HEATING ARRAYS' 1749 ENDIF 1750 C 1751 AVRAIN=0. 1752 AVCNVC=0. 1753 DO L=1,LM 1754 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1755 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1756 TRAIN(I,J,L)=0. 1757 TCUCN(I,J,L)=0. 1758 ENDDO 1759 ENDDO 1760 ENDDO 1761 ENDIF 1762 C*** 1763 C*** IF THIS IS NOT A NESTED RUN, INITIALIZE TKE 1764 C*** 1765 c IF(.NOT.NEST)THEN 1766 c DO L=1,LM 1767 c DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1768 c DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1769 c Q2(I,J,L)=AMAX1(Q2(I,J,L)*HBM2(I,J),EPSQ2) 1770 c ENDDO 1771 c ENDDO 1772 c ENDDO 1773 c ENDIF 1774 C 1775 C TOTAL AND CONVECTIVE PRECIPITATION ARRAYS. 1776 C TOTAL SNOW AND SNOW MELT ARRAYS. 1777 C STORM SURFACE AND BASE GROUND RUN OFF ARRAYS. 1778 C 1779 IF(MOD(NTSD,NPREC).LT.NPHS)THEN 1780 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO ACCUM PRECIP ARRAYS' 1781 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1782 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1783 ACPREC(I,J)=0. 1784 CUPREC(I,J)=0. 1785 VAPINC(I,J)=0. 1786 VAPINC7(I,J)=0. 1787 CLDINC(I,J)=0. 1788 CLDINC7(I,J)=0. 1789 ACSNOW(I,J)=0. 1790 ACSNOM(I,J)=0. 1791 SSROFF(I,J)=0. 1792 BGROFF(I,J)=0. 1793 C 1794 FQNEV(I,J)=0. !dule 1795 FQSEV(I,J)=0. !dule 1796 FCNEV(I,J)=0. !dule 1797 FCSEV(I,J)=0. !dule 1798 FCNEV7(I,J)=0. !dule 1799 FCSEV7(I,J)=0. !dule 1800 FQNEV7(I,J)=0. !dule Page 15 Source Listing INIT 2025-03-12 18:22 INIT.F 1801 FQSEV7(I,J)=0. !dule 1802 FQU(I,J)=0. !dule 1803 FQV(I,J)=0. !dule 1804 FCU(I,J)=0. !dule 1805 FCV(I,J)=0. !dule 1806 FQU7(I,J)=0. !dule 1807 FQV7(I,J)=0. !dule 1808 FCU7(I,J)=0. !dule 1809 FCV7(I,J)=0. !dule 1810 DQADV(I,J)=0. !dule 1811 DQFLX(I,J)=0. !dule 1812 DCFLX(I,J)=0. !dule 1813 DQFLX7(I,J)=0. !dule 1814 DCFLX7(I,J)=0. !dule 1815 DO L=1,LM !dule 1816 QOLD(I,J,L)=Q(I,J,L) !dule 1817 END DO !dule 1818 C 1819 ENDDO 1820 ENDDO 1821 ENDIF 1822 C 1823 C LONG WAVE RADIATION ARRAYS. 1824 C 1825 IF(MOD(NTSD,NRDLW).LT.NPHS)THEN 1826 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO ACCUM LW RADTN ARRAYS' 1827 ARDLW=0. 1828 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1829 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1830 ALWIN(I,J) =0. 1831 ALWOUT(I,J)=0. 1832 ALWTOA(I,J)=0. 1833 ENDDO 1834 ENDDO 1835 ENDIF 1836 C 1837 C SHORT WAVE RADIATION ARRAYS. 1838 C 1839 IF(MOD(NTSD,NRDSW).LT.NPHS)THEN 1840 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO ACCUM SW RADTN ARRAYS' 1841 ARDSW=0. 1842 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1843 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1844 ASWIN(I,J) =0. 1845 ASWOUT(I,J)=0. 1846 ASWTOA(I,J)=0. 1847 ENDDO 1848 ENDDO 1849 ENDIF 1850 C 1851 C SURFACE SENSIBLE AND LATENT HEAT FLUX ARRAYS. 1852 C 1853 IF(MOD(NTSD,NSRFC).LT.NPHS)THEN 1854 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO ACCUM SFC FLUX ARRAYS' 1855 ASRFC=0. 1856 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1857 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) Page 16 Source Listing INIT 2025-03-12 18:22 INIT.F 1858 SFCSHX(I,J)=0. 1859 SFCLHX(I,J)=0. 1860 SUBSHX(I,J)=0. 1861 SNOPCX(I,J)=0. 1862 SFCUVX(I,J)=0. 1863 SFCEVP(I,J)=0. 1864 POTEVP(I,J)=0. 1865 POTFLX(I,J)=0. 1866 ENDDO 1867 ENDDO 1868 ENDIF 1869 C 1870 C ENDIF FOR RESTART FILE ACCUMULATION ZERO BLOCK. 1871 C 1872 IF(MYPE.EQ.0)THEN 1873 WRITE(LIST,*)'INIT: INITIALIZED ARRAYS FOR RESTART START' 1874 ENDIF 1875 ENDIF 1876 C----------------------------------------------------------------------- 1877 C----------------------------------------------------------------------- 1878 C 1879 C INITIALIZE CLOUD CONSTANTS 1880 C 1881 C----------------------------------------------------------------------- 1882 DO 350 J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1883 DO 350 I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1884 U00(I,J)=(1.-SM(I,J))*0.75+SM(I,J)*0.80 1885 350 CONTINUE 1886 ! 1887 !--- Flag for initializing convective cloud arrays for radiation 1888 ! 1889 CURAD=.FALSE. 1890 C 1891 DO 355 L=1,2*LM 1892 IF(L.GE.LM-10.AND.L.LE.LM)THEN 1893 UL(L)=0.1*FLOAT(L-LM+10) 1894 ELSE 1895 UL(L)=0. 1896 ENDIF 1897 355 CONTINUE 1898 C 1899 C----------------- INITIALIZE T0, Q0 & P0 FOR GSCOND ------------------- 1900 C 1901 IF(NSTART.EQ.0)THEN 1902 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1903 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1904 P0(I,J)=PD(I,J) 1905 ENDDO 1906 ENDDO 1907 C 1908 DO L=1,LM 1909 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1910 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1911 T0(I,J,L)=T(I,J,L) 1912 Q0(I,J,L)=Q(I,J,L) 1913 ENDDO 1914 ENDDO Page 17 Source Listing INIT 2025-03-12 18:22 INIT.F 1915 ENDDO 1916 ENDIF 1917 C*** 1918 C*** SET INDEX ARRAYS FOR UPSTREAM ADVECTION 1919 C*** 1920 KNT=0 1921 DO J=3,5 1922 KNT=KNT+1 1923 IHLA(KNT)=2 1924 IHHA(KNT)=IM-1-MOD(J+1,2) 1925 IVLA(KNT)=2 1926 IVHA(KNT)=IM-1-MOD(J,2) 1927 JRA(KNT)=J 1928 ENDDO 1929 DO J=JM-4,JM-2 1930 KNT=KNT+1 1931 IHLA(KNT)=2 1932 IHHA(KNT)=IM-1-MOD(J+1,2) 1933 IVLA(KNT)=2 1934 IVHA(KNT)=IM-1-MOD(J,2) 1935 JRA(KNT)=J 1936 ENDDO 1937 DO J=6,JM-5 1938 KNT=KNT+1 1939 IHLA(KNT)=2 1940 IHHA(KNT)=2+MOD(J,2) 1941 IVLA(KNT)=2 1942 IVHA(KNT)=2+MOD(J+1,2) 1943 JRA(KNT)=J 1944 ENDDO 1945 DO J=6,JM-5 1946 KNT=KNT+1 1947 IHLA(KNT)=IM-2 1948 IHHA(KNT)=IM-2+MOD(J,2) 1949 IVLA(KNT)=IM-2 1950 IVHA(KNT)=IM-2+MOD(J+1,2) 1951 JRA(KNT)=J 1952 ENDDO 1953 C 1954 C*** SET ZERO-VALUE FOR SOME OUTPUT DIAGNOSTIC ARRAYS 1955 C 1956 IF(NSTART.EQ.0)THEN 1957 C 1958 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1959 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1960 PCTSNO(I,J)=-999.0 1961 IF(SM(I,J).LT.0.5)THEN 1962 IF(SICE(I,J).GT.0.5)THEN 1963 C 1964 C*** SEA-ICE CASE 1965 C 1966 SMSTAV(I,J)=1.0 1967 SMSTOT(I,J)=1.0 1968 SSROFF(I,J)=0.0 1969 BGROFF(I,J)=0.0 1970 CMC(I,J)=0.0 1971 DO NS=1,NSOIL Page 18 Source Listing INIT 2025-03-12 18:22 INIT.F 1972 SMC(I,J,NS)=1.0 1973 SH2O(I,J,NS)=1.0 1974 ENDDO 1975 ENDIF 1976 ELSE 1977 C 1978 C*** WATER CASE 1979 C 1980 SMSTAV(I,J)=1.0 1981 SMSTOT(I,J)=1.0 1982 SSROFF(I,J)=0.0 1983 BGROFF(I,J)=0.0 1984 SOILTB(I,J)=280.99 1985 GRNFLX(I,J)=0. 1986 SUBSHX(I,J)=0.0 1987 ACSNOW(I,J)=0.0 1988 ACSNOM(I,J)=0.0 1989 SNOPCX(I,J)=0.0 1990 CMC(I,J)=0.0 1991 SNO(I,J)=0.0 1992 DO NS=1,NSOIL 1993 SMC(I,J,NS)=1.0 1994 SH2O(I,J,NS)=1.0 1995 STC(I,J,NS)=273.16 1996 ENDDO 1997 ENDIF 1998 C 1999 ENDDO 2000 ENDDO 2001 C 2002 APHTIM=0.0 2003 ARATIM=0.0 2004 ACUTIM=0.0 2005 C 2006 ENDIF 2007 C 2008 C------------------------------------------------------------------- 2009 C INITIALIZE RADTN VARIABLES 2010 C CALCULATE THE NUMBER OF STEPS AT EACH POINT. 2011 C THE ARRAY 'LVL' WILL COORDINATE VERTICAL LOCATIONS BETWEEN 2012 C THE LIFTED WORKING ARRAYS AND THE FUNDAMENTAL MODEL ARRAYS. 2013 C LVL HOLDS THE HEIGHT (IN MODEL LAYERS) OF THE TOPOGRAPHY AT 2014 C EACH GRID POINT. 2015 C------------------------------------------------------------------- 2016 C 2017 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 2018 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 2019 LVL(I,J)=LM-LMH(I,J) 2020 ENDDO 2021 ENDDO 2022 C 2023 C DETERMINE MODEL LAYER LIMITS FOR HIGH(3), MIDDLE(2), 2024 C AND LOW(1) CLOUDS. ALSO FIND MODEL LAYER THAT IS JUST BELOW 2025 C (HEIGHT-WISE) 400 MB. (K400) 2026 C 2027 K400=0 2028 PSUM=PT Page 19 Source Listing INIT 2025-03-12 18:22 INIT.F 2029 SLPM=101325. 2030 PDIF=SLPM-PT 2031 DO L=1,LM 2032 PSUM=PSUM+DETA(L)*PDIF 2033 IF(LTOP(3).EQ.0)THEN 2034 IF(PSUM.GT.PHITP)LTOP(3)=L 2035 ELSEIF(LTOP(2).EQ.0)THEN 2036 IF(PSUM.GT.PMDHI)LTOP(2)=L 2037 ELSEIF(K400.EQ.0)THEN 2038 IF(PSUM.GT.P400)K400=L 2039 ELSEIF(LTOP(1).EQ.0)THEN 2040 IF(PSUM.GT.PLOMD)LTOP(1)=L 2041 ENDIF 2042 ENDDO 2043 C 2044 C CALL GRADFS ONCE TO CALC. CONSTANTS AND GET O3 DATA 2045 C 2046 KCCO2=0 2047 C 2048 C CALCULATE THE MIDLAYER PRESSURES IN THE STANDARD ATMOSPHERE 2049 C 2050 PSS=101325. 2051 PDIF=PSS-PT 2052 C 2053 DO L=1,LM1 2054 PHALF(L+1)=AETA(L)*PDIF+PT 2055 ENDDO 2056 C 2057 PHALF(1)=0. 2058 PHALF(LP1)=PSS 2059 C 2060 CALL GRADFS(PHALF,KCCO2,NFILE) 2061 C 2062 C CALL SOLARD TO CALCULATE NON-DIMENSIONAL SUN-EARTH DISTANCE 2063 C 2064 IF(MYPE.EQ.0)CALL SOLARD(RAD1) 2065 CALL MPI_BCAST(RAD1,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 2066 C 2067 C CALL ZENITH SIMPLY TO GET THE DAY OF THE YEAR FOR 2068 C THE SETUP OF THE OZONE DATA 2069 C 2070 TIME=(NTSD-1)*DT 2071 CALL ZENITH(TIME,DAYI,HOUR) 2072 ADDL=0. 2073 IF(MOD(IDAT(3),4).EQ.0)ADDL=1. 2074 RANG=PI2*(DAYI-RLAG)/(365.25+ADDL) 2075 RSIN1=SIN(RANG) 2076 RCOS1=COS(RANG) 2077 RCOS2=COS(2.*RANG) 2078 CALL O3CLIM 2079 C 2080 C------------------------------------------------------------------- 2081 C*** SOME INITIAL VALUES RELATED TO TURBULENCE SCHEME 2082 C------------------------------------------------------------------- 2083 C 2084 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 2085 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) Page 20 Source Listing INIT 2025-03-12 18:22 INIT.F 2086 C 2087 C TRY A SIMPLE LINEAR INTERP TO GET 2/10 M VALUES 2088 C 2089 PDSL(I,J)=PD(I,J)*RES(I,J) 2090 LMHK=LMH(I,J) 2091 LMVK=LMV(I,J) 2092 ULM=U(I,J,LMVK) 2093 VLM=V(I,J,LMVK) 2094 TLM=T(I,J,LMHK) 2095 QLM=Q(I,J,LMHK) 2096 PLM=PDSL(I,J)*AETA(LMHK)+PT 2097 APELM=(1.0E5/PLM)**CAPA 2098 APELMNW=(1.0E5/PSHLTR(I,J))**CAPA 2099 EXNERR=(PSHLTR(I,J)*1.E-5)**CAPA 2100 THLM=TLM*APELM 2101 DPLM=PDSL(I,J)*DETA(LMHK)*0.5 2102 DZLM=287.04*DPLM*TLM*(1.+0.608*QLM)/(9.801*PLM) 2103 2104 FAC1=30./DZLM 2105 FAC2=(DZLM-30.)/DZLM 2106 IF(DZLM.LE.30.)THEN 2107 FAC1=1. 2108 FAC2=0. 2109 ENDIF 2110 C 2111 IF(.NOT.RESTRT)THEN 2112 TH30(I,J)=FAC2*THS(I,J)+FAC1*THLM 2113 Q30(I,J)=FAC2*QS(I,J)+FAC1*QLM 2114 U30(I,J)=ULM 2115 V30(I,J)=VLM 2116 ENDIF 2117 C 2118 FAC1=10./DZLM 2119 FAC2=(DZLM-10.)/DZLM 2120 IF(DZLM.LE.10.)THEN 2121 FAC1=1. 2122 FAC2=0. 2123 ENDIF 2124 C 2125 IF(.NOT.RESTRT)THEN 2126 TH10(I,J)=FAC2*THS(I,J)+FAC1*THLM 2127 Q10(I,J)=FAC2*QS(I,J)+FAC1*QLM 2128 U10(I,J)=ULM 2129 V10(I,J)=VLM 2130 ENDIF 2131 C 2132 FAC1=2./DZLM 2133 FAC2=(DZLM-2.)/DZLM 2134 IF(DZLM.LE.2.)THEN 2135 FAC1=1. 2136 FAC2=0. 2137 ENDIF 2138 C 2139 IF(.NOT.RESTRT.OR.NEST)THEN 2140 TSHLTR(I,J)=(FAC2*THS(I,J)+FAC1*THLM) 2141 QSHLTR(I,J)=FAC2*QS(I,J)+FAC1*QLM 2142 ENDIF Page 21 Source Listing INIT 2025-03-12 18:22 INIT.F 2143 C*** 2144 C*** NEED TO CONVERT TO THETA IF IS THE RESTART CASE 2145 C*** AS CHKOUT.f WILL CONVERT TO TEMPERATURE 2146 C*** 2147 IF(RESTRT)THEN 2148 TSHLTR(I,J)=TSHLTR(I,J)*APELMNW 2149 ENDIF 2150 ENDDO 2151 ENDDO 2152 C 2153 C-------------------------------------------------------------------- 2154 C END OF SUBROUTINE INIT. 2155 C------------------------------------------------------------------- 2156 C 2157 IF(MYPE.EQ.0)THEN 2158 WRITE(LIST,*)'INIT: EXIT INIT AND START MODEL INTEGRATION' 2159 WRITE(LIST,*)' ' 2160 ENDIF 2161 C 2162 RETURN 2163 END ENTRY POINTS Name init_ Page 22 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 165 Label 1412 1407,1421 166 Label 1413 1408 190 Label 1419 1404 195 Label 1423 1422 205 Label 1466 1481 210 Label 1488 1495 215 Label 1499 1476,1493 220 Label 1538 1536 350 Label 1885 1882,1883 355 Label 1897 1891 75 Label 1324 1321 80 Label 1325 1323 A1 Param 846 R(4) 4 scalar A2 Param 119 R(4) 4 scalar 200,1599 A23M4L Param 200 R(4) 4 scalar A3 Param 119 R(4) 4 scalar 200,1599 A4 Param 119 R(4) 4 scalar 200,1599 ACMCLD Common 1039 101112 SAVE ACMCLH Common 1032 2274864 SAVE ACMPRE Common 1046 101108 SAVE ACMRDL Common 1053 1289088 SAVE ACMRDS Common 1062 1289088 SAVE ACMSFC Common 1071 202224 SAVE ADDL Local 2072 R(4) 4 scalar 2072,2073,2074 ALOG10 Func 1666 scalar 1666 APELM Local 2097 R(4) 4 scalar 2097,2100 APELMNW Local 2098 R(4) 4 scalar 2098,2148 APEM1 Local 1593 R(4) 4 scalar 1593,1594 AVGEFI Param 187 R(4) 4 scalar BCHR Local 1465 R(4) 4 scalar 1465,1474,1475,1478,1481,1489,1491 ,1492,1501,1510 BOCO Common 1025 1860144 SAVE BTIM Local 1290 R(4) 4 scalar 1290,1292,1387,1393 CAPA Param 117 R(4) 4 scalar 1593,1601,2097,2098,2099 CLDWTR Common 1081 1213608 SAVE CLOGES Local 1666 R(4) 4 scalar 1666,1667 CM1 Param 832 R(4) 4 scalar 1666 CM2 Param 832 R(4) 4 scalar 1666 CM3 Param 832 R(4) 4 scalar 1666 CNVCLD Common 1089 101104 SAVE CONTIN Common 985 4574956 SAVE CONTRL Local 865 CHAR 40 scalar COS Func 2076 scalar 2076,2077 CP Param 117 R(4) 4 scalar 201 CPRLG Param 201 R(4) 4 scalar CTLBLK Common 893 112 SAVE CUINIT Common 1202 4 DAYI Local 2071 R(4) 4 scalar 2071,2074 DPLM Local 2101 R(4) 4 scalar 2101,2102 DSP0FL Param 168 R(4) 4 scalar 173,193 DSP0FS Param 172 R(4) 4 scalar 174,196 Page 23 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References DSP0SL Param 173 R(4) 4 scalar 193 DSP0SS Param 174 R(4) 4 scalar 196 DSPBFL Param 168 R(4) 4 scalar 173,192 DSPBFS Param 172 R(4) 4 scalar 174,195 DSPBSL Param 173 R(4) 4 scalar 192 DSPBSS Param 174 R(4) 4 scalar 195 DSPC Param 187 R(4) 4 scalar DSPTFL Param 168 R(4) 4 scalar 173,194 DSPTFS Param 172 R(4) 4 scalar 174,197 DSPTSL Param 173 R(4) 4 scalar 194 DSPTSS Param 174 R(4) 4 scalar 197 DSTRB Subr 1282 1282 DTR Param 843 R(4) 4 scalar DTTOP Param 121 R(4) 4 scalar DYNAM Common 919 259964 SAVE DZLM Local 2102 R(4) 4 scalar 2102,2104,2105,2106,2118,2119,2120 ,2132,2133,2134 EFIFC Param 186 R(4) 4 scalar EFIMN Param 158 R(4) 4 scalar 187,192,193,194,195,196,197,198 EFMNT Param 158 R(4) 4 scalar 198 ELIVW Param 118 R(4) 4 scalar 201 ELOCP Param 201 R(4) 4 scalar ELWV Param 118 R(4) 4 scalar 200,201 ENVAR Local 1213 CHAR 4 scalar EPS Param 832 R(4) 4 scalar 1668 EPSDN Param 123 R(4) 4 scalar EPSNTP Param 186 R(4) 4 scalar EPSP Param 187 R(4) 4 scalar EPSQ Param 118 R(4) 4 scalar 1709 EPSQ2 Param 840 R(4) 4 scalar 1689 EPSTH Param 123 R(4) 4 scalar EPSUP Param 123 R(4) 4 scalar EPSWET Param 840 R(4) 4 scalar ESE Local 1667 R(4) 4 scalar 1667,1668 EXBC Local 859 L(4) 4 scalar EXNERR Local 2099 R(4) 4 scalar 2099 EXP Func 1559 scalar 1559,1599,1605 FAC1 Local 2104 R(4) 4 scalar 2104,2107,2112,2113,2118,2121,2126 ,2127,2132,2135,2140,2141 FAC2 Local 2105 R(4) 4 scalar 2105,2108,2112,2113,2119,2122,2126 ,2127,2133,2136,2140,2141 FCB Param 158 R(4) 4 scalar FCC Param 158 R(4) 4 scalar 158 FCM Param 842 R(4) 4 scalar 1577 FCSTDATA Local 1208 scalar 1304 FILALL Local 865 CHAR 40 scalar FILCLD Local 866 CHAR 40 scalar FILMST Local 865 CHAR 40 scalar FILRAD Local 866 CHAR 40 scalar FILSFC Local 866 CHAR 40 scalar FILTKE Local 865 CHAR 40 scalar FILTMP Local 865 CHAR 40 scalar FILUNV Local 865 CHAR 40 scalar FLOAT Func 1893 scalar 1893 FSL Param 168 R(4) 4 scalar 173 Page 24 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References FSS Param 158 R(4) 4 scalar 174 G Param 117 R(4) 4 scalar 201 GLB_TABLE Common 242 336 SAVE GRADFS Subr 2060 2060 HLATI Local 876 R(4) 4 1 1500 HLONI Local 876 R(4) 4 1 1500 HOUR Local 2071 R(4) 4 scalar 2071 I Local 1246 I(4) 4 scalar 1246,1248,1250,1252,1374,1375,1380 ,1381,1534,1535,1536,1550,1552,155 4,1555,1558,1559,1566,1567,1568,15 69,1570,1571,1572,1573,1574,1575,1 576,1577,1578,1579,1580,1581,1582, 1583,1584,1585,1592,1594,1595,1596 ,1598,1599,1600,1601,1604,1605,160 7,1608,1609,1610,1611,1620,1621,16 35,1636,1637,1638,1639,1640,1641,1 642,1643,1644,1645,1646,1647,1648, 1649,1650,1651,1652,1653,1654,1655 ,1656,1657,1664,1665,1666,1668,168 8,1689,1695,1696,1697,1698,1699,17 08,1709,1710,1711,1735,1736,1737,1 738,1739,1755,1756,1757,1782,1783, 1784,1785,1786,1787,1788,1789,1790 ,1791,1792,1794,1795,1796,1797,179 8,1799,1800,1801,1802,1803,1804,18 05,1806,1807,1808,1809,1810,1811,1 812,1813,1814,1816,1829,1830,1831, 1832,1843,1844,1845,1846,1857,1858 ,1859,1860,1861,1862,1863,1864,186 5,1883,1884,1903,1904,1910,1911,19 12,1959,1960,1961,1962,1966,1967,1 968,1969,1970,1972,1973,1980,1981, 1982,1983,1984,1985,1986,1987,1988 ,1989,1990,1991,1993,1994,1995,201 8,2019,2085,2089,2090,2091,2092,20 93,2094,2095,2096,2098,2099,2101,2 112,2113,2114,2115,2126,2127,2128, 2129,2140,2141,2148 IBCDAT Local 881 I(4) 4 1 8 IDATB Local 881 I(4) 4 1 3 1448,1450,1456 IDIM1 Param 106 I(4) 4 scalar 903,909,910,912,913,914,925,926,92 7,928,929,930,946,947,948,949,950, 951,952,953,954,955,956,976,978,97 9,980,986,987,988,989,990,996,997, 998,999,1000,1001,1002,1003,1004,1 005,1006,1007,1008,1009,1010,1011, 1012,1014,1019,1034,1035,1041,1042 ,1048,1049,1055,1056,1057,1058,106 4,1065,1066,1067,1073,1074,1075,10 76,1082,1084,1090,1091,1097,1098,1 099,1100,1101,1102,1103,1104,1112, 1122,1129,1130,1135,1136,1138,1139 ,1163,1164,1166,1167,1169,1170,117 1,1172,1174,1175,1176,1177,1179,11 80,1181,1182,1191 Page 25 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References IDIM2 Param 106 I(4) 4 scalar 903,909,910,912,913,914,925,926,92 7,928,929,930,946,947,948,949,950, 951,952,953,954,955,956,976,978,97 9,980,986,987,988,989,990,996,997, 998,999,1000,1001,1002,1003,1004,1 005,1006,1007,1008,1009,1010,1011, 1012,1014,1019,1034,1035,1041,1042 ,1048,1049,1055,1056,1057,1058,106 4,1065,1066,1067,1073,1074,1075,10 76,1082,1084,1090,1091,1097,1098,1 099,1100,1101,1102,1103,1104,1112, 1122,1129,1130,1135,1136,1138,1139 ,1163,1164,1166,1167,1169,1170,117 1,1172,1174,1175,1176,1177,1179,11 80,1181,1182,1191 IERR Local 1410 I(4) 4 scalar 1410,1425 IGSTL Param 101 I(4) 4 scalar 106 IGSTR Param 101 I(4) 4 scalar 106 IHRSTB Local 1448 I(4) 4 scalar 1448,1450,1457 IM Param 89 I(4) 4 scalar 103,106,248,249,250,251,252,256,25 7,262,850,851,1116,1246,1250,1252, 1437,1924,1926,1932,1934,1947,1948 ,1949,1950 IMJM Param 850 I(4) 4 scalar IMT Param 851 I(4) 4 scalar INDX Common 1109 1708 SAVE INDXG Common 1115 8084 SAVE INIDAT Local 881 I(4) 4 1 8 INIT Subr 2 INPES Param 98 I(4) 4 scalar 103,106,232,233,234,243,244 INSIDEH Local 860 L(4) 4 scalar INSIDEV Local 860 L(4) 4 scalar INT Func 1332 scalar 1332,1333,1334,1335,1336,1337,1338 ,1339,1340,1354,1375 IRTN Local 1455 I(4) 4 scalar 1455,1456,1457,1458,1460,1502,1504 ,2065 ISTART Local 1463 I(4) 4 scalar 1463,1474,1475,1481,1485,1491,1492 ITAIL Param 103 I(4) 4 scalar ITB Param 111 I(4) 4 scalar 943,958 ITBQ Param 111 I(4) 4 scalar 944,958 IUNWGT Local 1197 I(4) 4 scalar 1197 J Local 1236 I(4) 4 scalar 1236,1237,1238,1239,1240,1549,1552 ,1554,1555,1558,1559,1565,1567,156 8,1569,1570,1571,1572,1573,1574,15 75,1576,1577,1578,1579,1580,1581,1 582,1583,1584,1585,1592,1594,1595, 1596,1598,1599,1600,1601,1604,1605 ,1607,1608,1609,1610,1611,1619,162 1,1634,1636,1637,1638,1639,1640,16 41,1642,1643,1644,1645,1646,1647,1 648,1649,1650,1651,1652,1653,1654, 1655,1656,1657,1663,1665,1666,1668 ,1687,1689,1694,1696,1697,1698,169 9,1707,1709,1710,1711,1734,1736,17 37,1738,1739,1754,1756,1757,1781,1 Page 26 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 783,1784,1785,1786,1787,1788,1789, 1790,1791,1792,1794,1795,1796,1797 ,1798,1799,1800,1801,1802,1803,180 4,1805,1806,1807,1808,1809,1810,18 11,1812,1813,1814,1816,1828,1830,1 831,1832,1842,1844,1845,1846,1856, 1858,1859,1860,1861,1862,1863,1864 ,1865,1882,1884,1902,1904,1909,191 1,1912,1921,1924,1926,1927,1929,19 32,1934,1935,1937,1940,1942,1943,1 945,1948,1950,1951,1958,1960,1961, 1962,1966,1967,1968,1969,1970,1972 ,1973,1980,1981,1982,1983,1984,198 5,1986,1987,1988,1989,1990,1991,19 93,1994,1995,2017,2019,2084,2089,2 090,2091,2092,2093,2094,2095,2096, 2098,2099,2101,2112,2113,2114,2115 ,2126,2127,2128,2129,2140,2141,214 8 JAM Param 850 I(4) 4 scalar 902,923 JDIM1 Param 107 I(4) 4 scalar 903,909,910,912,913,914,925,926,92 7,928,929,930,946,947,948,949,950, 951,952,953,954,955,956,976,978,97 9,980,986,987,988,989,990,996,997, 998,999,1000,1001,1002,1003,1004,1 005,1006,1007,1008,1009,1010,1011, 1012,1014,1019,1034,1035,1041,1042 ,1048,1049,1055,1056,1057,1058,106 4,1065,1066,1067,1073,1074,1075,10 76,1082,1084,1090,1091,1097,1098,1 099,1100,1101,1102,1103,1104,1110, 1111,1122,1129,1130,1135,1136,1138 ,1139,1163,1164,1166,1167,1169,117 0,1171,1172,1174,1175,1176,1177,11 79,1180,1181,1182,1191 JDIM2 Param 107 I(4) 4 scalar 903,909,910,912,913,914,925,926,92 7,928,929,930,946,947,948,949,950, 951,952,953,954,955,956,976,978,97 9,980,986,987,988,989,990,996,997, 998,999,1000,1001,1002,1003,1004,1 005,1006,1007,1008,1009,1010,1011, 1012,1014,1019,1034,1035,1041,1042 ,1048,1049,1055,1056,1057,1058,106 4,1065,1066,1067,1073,1074,1075,10 76,1082,1084,1090,1091,1097,1098,1 099,1100,1101,1102,1103,1104,1110, 1111,1122,1129,1130,1135,1136,1138 ,1139,1163,1164,1166,1167,1169,117 0,1171,1172,1174,1175,1176,1177,11 79,1180,1181,1182,1191 JGSTL Param 102 I(4) 4 scalar 107 JGSTR Param 102 I(4) 4 scalar 107 JM Param 89 I(4) 4 scalar 104,107,248,249,250,251,252,256,25 7,262,850,1116,1236,1437,1929,1937 ,1945 Page 27 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References JMP1 Param 850 I(4) 4 scalar JNPES Param 98 I(4) 4 scalar 104,107,232,233,234,243,244 JTAIL Param 104 I(4) 4 scalar JTB Param 111 I(4) 4 scalar 943,958 JTBQ Param 111 I(4) 4 scalar 958 K Local 1321 I(4) 4 scalar 1321 KBI Local 1437 I(4) 4 scalar 1437,1438,1439 KBI2 Local 1438 I(4) 4 scalar 1438,1439 KCCO2 Local 2046 I(4) 4 scalar 2046,2060 KNT Local 1245 I(4) 4 scalar 1245,1247,1248,1251,1252,1920,1922 ,1923,1924,1925,1926,1927,1930,193 1,1932,1933,1934,1935,1938,1939,19 40,1941,1942,1943,1946,1947,1948,1 949,1950,1951 L Local 1323 I(4) 4 scalar 1323,1371,1372,1618,1621,1686,1689 ,1706,1709,1710,1711,1753,1756,175 7,1815,1816,1891,1892,1893,1895,19 08,1911,1912,2031,2032,2034,2036,2 038,2040,2053,2054 LABEL Local 863 CHAR 32 scalar LB Param 850 I(4) 4 scalar 1026,1027 LLMH Local 1552 I(4) 4 scalar 1552,1554,1555,1558,1567,1592,1594 ,1595,1604,1697,1698,1699 LM Param 89 I(4) 4 scalar 257,851,912,913,921,942,969,978,97 9,987,988,989,990,1014,1026,1027,1 034,1035,1058,1067,1082,1083,1129, 1135,1182,1258,1259,1260,1261,1263 ,1264,1265,1266,1267,1268,1439,161 8,1696,1706,1753,1815,1891,1892,18 93,1908,2019,2031 LM1 Param 851 I(4) 4 scalar 1686,2053 LMHK Local 2090 I(4) 4 scalar 2090,2094,2095,2096,2101 LMVK Local 2091 I(4) 4 scalar 2091,2092,2093 LOG Func 1372 scalar 1372 LOOPS Common 901 65752 SAVE LP1 Param 851 I(4) 4 scalar 869,921,942,969,2058 LRECBC Local 1439 I(4) 4 scalar 1439,1440 LSM Param 89 I(4) 4 scalar 968,1289,1323 MAPOT Common 963 1732 SAVE MAPPINGS Common 261 5024 SAVE MASKS Common 908 2426496 SAVE MOD Func 1237 scalar 1237,1239,1732,1746,1779,1825,1839 ,1853,1924,1926,1932,1934,1940,194 2,1948,1950,2073 MPIFCMB5 Common 819 4 SAVE MPIFCMB9 Common 820 4 SAVE MPIPRIV1 Common 824 28 SAVE MPIPRIV2 Common 826 24 SAVE MPIPRIVC Common 829 2 SAVE MPI_2DOUBLE_PRECISION Param 565 I(4) 4 scalar MPI_2INT Param 649 I(4) 4 scalar MPI_2INTEGER Param 563 I(4) 4 scalar MPI_2REAL Param 567 I(4) 4 scalar MPI_ADDRESS_KIND Param 601 I(4) 4 scalar MPI_AINT Param 679 I(4) 4 scalar Page 28 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ANY_SOURCE Param 531 I(4) 4 scalar MPI_ANY_TAG Param 533 I(4) 4 scalar MPI_APPNUM Param 495 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 801 L(4) 4 scalar MPI_BAND Param 439 I(4) 4 scalar MPI_BARRIER Subr 1460 1460,1504 MPI_BCAST Subr 1455 1455,1456,1457,1458,1501,2065 MPI_BOR Param 443 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 527 I(4) 4 scalar MPI_BXOR Param 447 I(4) 4 scalar MPI_BYTE Param 571 I(4) 4 scalar MPI_CART Param 539 I(4) 4 scalar MPI_CHAR Param 609 I(4) 4 scalar MPI_CHARACTER Param 569 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 697 I(4) 4 scalar MPI_COMBINER_DARRAY Param 719 I(4) 4 scalar MPI_COMBINER_DUP Param 695 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 723 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 725 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 721 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 709 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 729 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 707 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 703 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 701 I(4) 4 scalar MPI_COMBINER_INDEXED Param 705 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 711 I(4) 4 scalar MPI_COMBINER_NAMED Param 693 I(4) 4 scalar MPI_COMBINER_RESIZED Param 727 I(4) 4 scalar MPI_COMBINER_STRUCT Param 715 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 713 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 717 I(4) 4 scalar MPI_COMBINER_VECTOR Param 699 I(4) 4 scalar MPI_COMM_DUP_FN Subr 808 scalar MPI_COMM_NULL Param 463 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 809 scalar MPI_COMM_NULL_DELETE_FN Subr 808 scalar MPI_COMM_SELF Param 459 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 747 I(4) 4 scalar MPI_COMM_WORLD Param 457 I(4) 4 scalar MPI_COMPLEX Param 551 I(4) 4 scalar MPI_COMPLEX16 Param 597 I(4) 4 scalar MPI_COMPLEX32 Param 599 I(4) 4 scalar MPI_COMPLEX8 Param 595 I(4) 4 scalar MPI_CONGRUENT Param 411 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 814 scalar MPI_COUNT Param 683 I(4) 4 scalar MPI_COUNT_KIND Param 605 I(4) 4 scalar MPI_CXX_BOOL Param 685 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 689 I(4) 4 scalar Page 29 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_CXX_FLOAT_COMPLEX Param 687 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 691 I(4) 4 scalar MPI_C_BOOL Param 669 I(4) 4 scalar MPI_C_COMPLEX Param 673 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 675 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 671 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 677 I(4) 4 scalar MPI_DATATYPE_NULL Param 473 I(4) 4 scalar 588,686,688,690,692 MPI_DISPLACEMENT_CURRENT Param 797 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 789 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 791 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 795 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 793 I(4) 4 scalar MPI_DIST_GRAPH Param 541 I(4) 4 scalar MPI_DOUBLE Param 631 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 553 I(4) 4 scalar MPI_DOUBLE_INT Param 643 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 559 I(4) 4 scalar MPI_DUP_FN Subr 805 scalar MPI_ERRHANDLER_NULL Param 477 I(4) 4 scalar MPI_ERROR Param 278 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 405 I(4) 4 scalar MPI_ERRORS_RETURN Param 407 I(4) 4 scalar MPI_ERR_ACCESS Param 397 I(4) 4 scalar MPI_ERR_AMODE Param 383 I(4) 4 scalar MPI_ERR_ARG Param 353 I(4) 4 scalar MPI_ERR_ASSERT Param 359 I(4) 4 scalar MPI_ERR_BAD_FILE Param 321 I(4) 4 scalar MPI_ERR_BASE Param 351 I(4) 4 scalar MPI_ERR_BUFFER Param 293 I(4) 4 scalar MPI_ERR_COMM Param 371 I(4) 4 scalar MPI_ERR_CONVERSION Param 387 I(4) 4 scalar MPI_ERR_COUNT Param 297 I(4) 4 scalar MPI_ERR_DIMS Param 335 I(4) 4 scalar MPI_ERR_DISP Param 319 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 301 I(4) 4 scalar MPI_ERR_FILE Param 331 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 313 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 355 I(4) 4 scalar MPI_ERR_GROUP Param 317 I(4) 4 scalar MPI_ERR_INFO Param 345 I(4) 4 scalar MPI_ERR_INFO_KEY Param 349 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 329 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 315 I(4) 4 scalar MPI_ERR_INTERN Param 347 I(4) 4 scalar MPI_ERR_IN_STATUS Param 333 I(4) 4 scalar MPI_ERR_IO Param 393 I(4) 4 scalar MPI_ERR_KEYVAL Param 339 I(4) 4 scalar MPI_ERR_LASTCODE Param 361 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 343 I(4) 4 scalar MPI_ERR_NAME Param 337 I(4) 4 scalar MPI_ERR_NOT_SAME Param 365 I(4) 4 scalar MPI_ERR_NO_MEM Param 357 I(4) 4 scalar MPI_ERR_NO_SPACE Param 289 I(4) 4 scalar Page 30 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_NO_SUCH_FILE Param 373 I(4) 4 scalar MPI_ERR_OP Param 391 I(4) 4 scalar MPI_ERR_OTHER Param 305 I(4) 4 scalar MPI_ERR_PENDING Param 295 I(4) 4 scalar MPI_ERR_PORT Param 377 I(4) 4 scalar MPI_ERR_QUOTA Param 381 I(4) 4 scalar MPI_ERR_RANK Param 303 I(4) 4 scalar MPI_ERR_READ_ONLY Param 341 I(4) 4 scalar MPI_ERR_REQUEST Param 385 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 307 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 311 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 327 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 389 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 379 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 291 I(4) 4 scalar MPI_ERR_ROOT Param 323 I(4) 4 scalar MPI_ERR_SERVICE Param 299 I(4) 4 scalar MPI_ERR_SIZE Param 309 I(4) 4 scalar MPI_ERR_SPAWN Param 369 I(4) 4 scalar MPI_ERR_TAG Param 399 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 403 I(4) 4 scalar MPI_ERR_TRUNCATE Param 363 I(4) 4 scalar MPI_ERR_TYPE Param 367 I(4) 4 scalar MPI_ERR_UNKNOWN Param 401 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 325 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 375 I(4) 4 scalar MPI_ERR_WIN Param 395 I(4) 4 scalar MPI_FILE_NULL Param 467 I(4) 4 scalar MPI_FINALIZE Subr 1410 1410,1425 MPI_FLOAT Param 629 I(4) 4 scalar MPI_FLOAT_INT Param 641 I(4) 4 scalar MPI_GRAPH Param 537 I(4) 4 scalar MPI_GROUP_EMPTY Param 461 I(4) 4 scalar MPI_GROUP_NULL Param 469 I(4) 4 scalar MPI_HOST Param 485 I(4) 4 scalar MPI_IDENT Param 409 I(4) 4 scalar MPI_INFO_ENV Param 481 I(4) 4 scalar MPI_INFO_NULL Param 479 I(4) 4 scalar MPI_INT Param 621 I(4) 4 scalar MPI_INT16_T Param 655 I(4) 4 scalar MPI_INT32_T Param 657 I(4) 4 scalar MPI_INT64_T Param 659 I(4) 4 scalar MPI_INT8_T Param 653 I(4) 4 scalar MPI_INTEGER Param 561 I(4) 4 scalar 1456,1457 MPI_INTEGER1 Param 579 I(4) 4 scalar MPI_INTEGER16 Param 587 I(4) 4 scalar MPI_INTEGER2 Param 581 I(4) 4 scalar MPI_INTEGER4 Param 583 I(4) 4 scalar MPI_INTEGER8 Param 585 I(4) 4 scalar MPI_INTEGER_KIND Param 607 I(4) 4 scalar MPI_IO Param 487 I(4) 4 scalar MPI_KEYVAL_INVALID Param 525 I(4) 4 scalar MPI_LAND Param 437 I(4) 4 scalar Page 31 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LASTUSEDCODE Param 493 I(4) 4 scalar MPI_LB Param 575 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 547 I(4) 4 scalar MPI_LOCK_SHARED Param 549 I(4) 4 scalar MPI_LOGICAL Param 555 I(4) 4 scalar 1455 MPI_LONG Param 625 I(4) 4 scalar MPI_LONG_DOUBLE Param 633 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 651 I(4) 4 scalar MPI_LONG_INT Param 645 I(4) 4 scalar MPI_LONG_LONG Param 639 I(4) 4 scalar MPI_LONG_LONG_INT Param 635 I(4) 4 scalar MPI_LOR Param 441 I(4) 4 scalar MPI_LXOR Param 445 I(4) 4 scalar MPI_MAX Param 429 I(4) 4 scalar MPI_MAXLOC Param 451 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 519 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 507 I(4) 4 scalar MPI_MAX_INFO_KEY Param 513 I(4) 4 scalar MPI_MAX_INFO_VAL Param 515 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 521 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 511 I(4) 4 scalar MPI_MAX_PORT_NAME Param 509 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 517 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 751 I(4) 4 scalar MPI_MESSAGE_NULL Param 749 I(4) 4 scalar MPI_MIN Param 431 I(4) 4 scalar MPI_MINLOC Param 449 I(4) 4 scalar MPI_MODE_APPEND Param 775 I(4) 4 scalar MPI_MODE_CREATE Param 771 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 767 I(4) 4 scalar MPI_MODE_EXCL Param 773 I(4) 4 scalar MPI_MODE_NOCHECK Param 737 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 743 I(4) 4 scalar MPI_MODE_NOPUT Param 741 I(4) 4 scalar MPI_MODE_NOSTORE Param 739 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 745 I(4) 4 scalar MPI_MODE_RDONLY Param 761 I(4) 4 scalar MPI_MODE_RDWR Param 763 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 777 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 769 I(4) 4 scalar MPI_MODE_WRONLY Param 765 I(4) 4 scalar MPI_NO_OP Param 455 I(4) 4 scalar MPI_NULL_COPY_FN Subr 805 scalar MPI_NULL_DELETE_FN Subr 805 scalar MPI_OFFSET Param 681 I(4) 4 scalar MPI_OFFSET_KIND Param 603 I(4) 4 scalar MPI_OP_NULL Param 471 I(4) 4 scalar MPI_ORDER_C Param 785 I(4) 4 scalar MPI_ORDER_FORTRAN Param 787 I(4) 4 scalar MPI_PACKED Param 577 I(4) 4 scalar MPI_PROC_NULL Param 529 I(4) 4 scalar MPI_PROD Param 435 I(4) 4 scalar MPI_REAL Param 557 I(4) 4 scalar 1458,1501,2065 MPI_REAL16 Param 593 I(4) 4 scalar Page 32 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_REAL4 Param 589 I(4) 4 scalar MPI_REAL8 Param 591 I(4) 4 scalar MPI_REPLACE Param 453 I(4) 4 scalar MPI_REQUEST_NULL Param 475 I(4) 4 scalar MPI_ROOT Param 535 I(4) 4 scalar MPI_SEEK_CUR Param 781 I(4) 4 scalar MPI_SEEK_END Param 783 I(4) 4 scalar MPI_SEEK_SET Param 779 I(4) 4 scalar MPI_SHORT Param 617 I(4) 4 scalar MPI_SHORT_INT Param 647 I(4) 4 scalar MPI_SIGNED_CHAR Param 611 I(4) 4 scalar MPI_SIMILAR Param 413 I(4) 4 scalar MPI_SOURCE Param 278 I(4) 4 scalar MPI_STATUS_SIZE Param 280 I(4) 4 scalar 282,283 MPI_SUBARRAYS_SUPPORTED Param 799 L(4) 4 scalar MPI_SUBVERSION Param 545 I(4) 4 scalar MPI_SUCCESS Param 287 I(4) 4 scalar MPI_SUM Param 433 I(4) 4 scalar MPI_TAG Param 278 I(4) 4 scalar MPI_TAG_UB Param 483 I(4) 4 scalar MPI_THREAD_FUNNELED Param 755 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 759 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 757 I(4) 4 scalar MPI_THREAD_SINGLE Param 753 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 735 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 733 I(4) 4 scalar MPI_TYPECLASS_REAL Param 731 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 812 scalar MPI_TYPE_NULL_COPY_FN Subr 813 scalar MPI_TYPE_NULL_DELETE_FN Subr 812 scalar MPI_UB Param 573 I(4) 4 scalar MPI_UINT16_T Param 663 I(4) 4 scalar MPI_UINT32_T Param 665 I(4) 4 scalar MPI_UINT64_T Param 667 I(4) 4 scalar MPI_UINT8_T Param 661 I(4) 4 scalar MPI_UNDEFINED Param 523 I(4) 4 scalar MPI_UNEQUAL Param 415 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 491 I(4) 4 scalar MPI_UNSIGNED Param 623 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 613 I(4) 4 scalar MPI_UNSIGNED_LONG Param 627 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 637 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 619 I(4) 4 scalar MPI_VERSION Param 543 I(4) 4 scalar MPI_WCHAR Param 615 I(4) 4 scalar MPI_WIN_BASE Param 497 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 503 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 501 I(4) 4 scalar MPI_WIN_DUP_FN Subr 810 scalar MPI_WIN_FLAVOR_ALLOCATE Param 419 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 417 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 421 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 423 I(4) 4 scalar MPI_WIN_MODEL Param 505 I(4) 4 scalar MPI_WIN_NULL Param 465 I(4) 4 scalar Page 33 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WIN_NULL_COPY_FN Subr 811 scalar MPI_WIN_NULL_DELETE_FN Subr 810 scalar MPI_WIN_SEPARATE Param 425 I(4) 4 scalar MPI_WIN_SIZE Param 499 I(4) 4 scalar MPI_WIN_UNIFIED Param 427 I(4) 4 scalar MPI_WTICK Func 806 R(8) 8 scalar MPI_WTIME Func 806 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 489 I(4) 4 scalar MPPCOM Common 206 1724 SAVE N Local 1278 I(4) 4 scalar 1278,1282 NFILE Local 1197 I(4) 4 scalar 1197,2060 NHB Local 1288 I(4) 4 scalar 1288,1291 NHIBU Local 1295 I(4) 4 scalar 1295 NINT Func 1348 scalar 1348,1349,1463,1474,1481,1485,1491 ,1510 NMAP Local 1209 I(4) 4 scalar 1209,1313,1374,1534 NPEBND Local 869 R(4) 4 scalar NRADLH Local 1210 I(4) 4 scalar 1210,1315,1349 NRADSH Local 1210 I(4) 4 scalar 1210,1315,1348 NREC Local 1486 I(4) 4 scalar 1486,1488,1489,1492 NROOT Param 204 I(4) 4 scalar NS Local 1971 I(4) 4 scalar 1971,1972,1973,1992,1993,1994,1995 NSOIL Param 204 I(4) 4 scalar 1102,1103,1104,1971,1992 NSTAT Param 852 I(4) 4 scalar 878 O3CLIM Subr 2078 2078 OCT90 Param 114 L(4) 4 scalar P400 Local 1194 R(4) 4 scalar 1194,2038 PBM Param 124 R(4) 4 scalar PDIF Local 2030 R(4) 4 scalar 2030,2032,2051,2054 PFRZ Param 125 R(4) 4 scalar PHALF Local 869 R(4) 4 1 46 2054,2057,2058,2060 PHITP Local 1194 R(4) 4 scalar 1194,2034 PHYS Common 937 858036 SAVE PI2 Param 832 R(4) 4 scalar 2074 PLBTM Local 1195 R(4) 4 scalar 1195 PLM Local 2096 R(4) 4 scalar 2096,2097,2102 PLOMD Local 1194 R(4) 4 scalar 1194,2040 PM1 Local 1592 R(4) 4 scalar 1592,1593 PMDHI Local 1194 R(4) 4 scalar 1194,2036 PMPI_WTICK Func 807 R(8) 8 scalar PMPI_WTIME Func 807 R(8) 8 scalar PNO Param 124 R(4) 4 scalar PONE Param 124 R(4) 4 scalar PPTASM Common 1134 1364916 SAVE PQ0 Param 120 R(4) 4 scalar 1599 PQM Param 124 R(4) 4 scalar PSFCK Local 1596 R(4) 4 scalar 1596,1599 PSH Param 124 R(4) 4 scalar PSHU Param 125 R(4) 4 scalar PSS Local 2050 R(4) 4 scalar 2050,2051,2058 PSUM Local 2028 R(4) 4 scalar 2028,2032,2034,2036,2038,2040 PVRBLS Common 995 1946252 SAVE Q2INI Param 840 R(4) 4 scalar 1698,1699 QFLX Common 1162 1769320 SAVE QLM Local 2095 R(4) 4 scalar 2095,2102,2113,2127,2141 Page 34 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References RANG Local 2074 R(4) 4 scalar 2074,2075,2076,2077 RCOS1 Local 2076 R(4) 4 scalar 2076 RCOS2 Local 2077 R(4) 4 scalar 2077 RCP Param 201 R(4) 4 scalar RD1TIM Common 1189 25336 READGRDETA Subr 1396 1396 READ_NHB Subr 1291 1291 READ_RESTRT Subr 1389 1389 READ_RESTRT2 Subr 1391 1391 RHF Param 123 R(4) 4 scalar RLAG Param 833 R(4) 4 scalar 2074 ROW Param 118 R(4) 4 scalar 201 RSIN1 Local 2075 R(4) 4 scalar 2075 RUNB Local 859 L(4) 4 scalar 1448,1450,1455 SIN Func 2075 scalar 2075 SINGLRST Local 891 L(4) 4 scalar 1209,1311,1388 SLOP0L Param 193 R(4) 4 scalar SLOP0S Param 196 R(4) 4 scalar SLOPBL Param 192 R(4) 4 scalar SLOPBS Param 195 R(4) 4 scalar SLOPE Param 198 R(4) 4 scalar SLOPTL Param 194 R(4) 4 scalar SLOPTS Param 197 R(4) 4 scalar SLPM Local 2029 R(4) 4 scalar 2029,2030 SOIL Common 1096 581380 SAVE SOLARD Subr 2064 2064 STABD Param 121 R(4) 4 scalar STABFC Param 121 R(4) 4 scalar STABS Param 121 R(4) 4 scalar STEFI Param 188 R(4) 4 scalar STRESH Param 120 R(4) 4 scalar T1 Param 120 R(4) 4 scalar TBOCO Local 1448 R(4) 4 scalar 1448,1450,1458 TCP Local 1209 R(4) 4 scalar 1209,1309,1334 TEMPCOM Common 247 6603768 SAVE TEMPV Common 1128 2300116 SAVE TEND Local 1209 R(4) 4 scalar 1209,1308,1333 TERM1 Local 1558 R(4) 4 scalar 1558,1559,1604,1605 TFRZ Param 120 R(4) 4 scalar THLATI Local 877 R(4) 4 1 1500 THLM Local 2100 R(4) 4 scalar 2100,2112,2126,2140 THLONI Local 877 R(4) 4 1 1500 TIME Local 2070 R(4) 4 scalar 2070,2071 TIMEF Func 1185 R(8) 8 scalar 1290,1292,1387,1393 TIMING Common 1187 16 TLM Local 2094 R(4) 4 scalar 2094,2100,2102 TOPO Common 255 17478548 SAVE TREL Param 186 R(4) 4 scalar TSFCK Local 1595 R(4) 4 scalar 1595,1599 TSLAT Local 878 R(4) 4 1 1000 TSLON Local 878 R(4) 4 1 1000 TSTART Local 1209 R(4) 4 scalar 1209,1308,1332,1463,1485 TVLATI Local 877 R(4) 4 1 1500 TVLONI Local 877 R(4) 4 1 1500 ULM Local 2092 R(4) 4 scalar 2092,2114,2128 Page 35 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References UNIL Param 114 L(4) 4 scalar UNIS Param 114 L(4) 4 scalar VLATI Local 876 R(4) 4 1 1500 VLM Local 2093 R(4) 4 scalar 2093,2115,2129 VLONI Local 876 R(4) 4 1 1500 VRBLS Common 975 4625508 SAVE WA Param 846 R(4) 4 scalar 846 WG Param 846 R(4) 4 scalar Z0EFFT Common 1121 101104 SAVE Z0LAND Param 842 R(4) 4 scalar 1577 Z0SEA Param 842 R(4) 4 scalar 1576 ZENITH Subr 2071 2071 ZERO2 Subr 1257 1257,1262,1269,1270,1271,1272,1273 ZERO3 Subr 1258 1258,1259,1260,1261,1263,1264,1265 ,1266,1267,1268 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 454968 2 6319 COM ACFRCV R(4) 4 8 2 6319 COM 1636,1736 ACFRST R(4) 4 50560 2 6319 COM 1638,1738 ACPREC R(4) 4 429692 2 6319 COM 1570,1783 ACSNOM R(4) 4 25280 2 6319 COM 1641,1790,1988 ACSNOW R(4) 4 4 2 6319 COM 1640,1789,1987 ACUTIM R(4) 4 20 scalar COM 2004 AETA R(4) 4 396 1 45 COM 1592,2054,2096 AETA1 R(4) 4 960 1 45 COM AETA2 R(4) 4 264 1 45 COM AFSI R(4) 4 1920976 2 6319 COM AKHS R(4) 4 227484 2 6319 COM 1580 AKMS R(4) 4 202208 2 6319 COM 1270,1579 ALBASE R(4) 4 357388 2 6319 COM ALBEDO R(4) 4 382664 2 6319 COM ALSL R(4) 4 624 1 39 COM 1372 ALWIN R(4) 4 75840 2 6319 COM 1644,1830 ALWOUT R(4) 4 101116 2 6319 COM 1645,1831 ALWTOA R(4) 4 126392 2 6319 COM 1646,1832 APHTIM R(4) 4 202220 scalar COM 2002 APREC R(4) 4 1238524 2 6319 COM ARATIM R(4) 4 16 scalar COM 2003 ARDLW R(4) 4 8 scalar COM 1629,1827 ARDSW R(4) 4 8 scalar COM 1628,1841 ASRFC R(4) 4 8 scalar COM 1630,1855 ASWIN R(4) 4 75840 2 6319 COM 1647,1844 ASWOUT R(4) 4 101116 2 6319 COM 1648,1845 ASWTOA R(4) 4 126392 2 6319 COM 1649,1846 AVCNVC R(4) 4 12 scalar COM 1632,1752 AVRAIN R(4) 4 8 scalar COM 1631,1751 BGROFF R(4) 4 75832 2 6319 COM 1643,1792,1969,1983 CFRACH R(4) 4 75828 2 6319 COM CFRACL R(4) 4 25276 2 6319 COM CFRACM R(4) 4 50552 2 6319 COM Page 36 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References CI R(4) 4 40 scalar COM CLDEFI R(4) 4 379140 2 6319 COM 1583 CLDINC R(4) 4 1314364 2 6319 COM 1574,1787 CLDINC7 R(4) 4 1339640 2 6319 COM 1575,1788 CMC R(4) 4 252760 2 6319 COM 1970,1990 CMLD R(4) 4 444 scalar COM CNVBOT R(4) 4 256284 2 6319 COM CNVTOP R(4) 4 231008 2 6319 COM CPGFU R(4) 4 57756 2 6319 COM CPGFV R(4) 4 4 scalar COM CPHI0 R(4) 4 1724 scalar COM CS R(4) 4 28 scalar COM CTHK R(4) 4 4 1 3 COM CUPPT R(4) 4 0 2 6319 COM CUPREC R(4) 4 480244 2 6319 COM 1571,1784 CURAD L(4) 4 0 scalar COM 1889 CURV R(4) 4 83032 2 6319 COM CWM R(4) 4 0 3 284355 COM 1621 CWMB R(4) 4 1551264 3 77220 COM CZEN R(4) 4 155180 2 6319 COM CZMEAN R(4) 4 458492 2 6319 COM DCFLX R(4) 4 429692 2 6319 COM 1812 DCFLX7 R(4) 4 480244 2 6319 COM 1814 DDMPU R(4) 4 184136 2 6319 COM DDMPV R(4) 4 209412 2 6319 COM DETA R(4) 4 36 1 45 COM 2032,2101 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 2325392 3 284355 COM 1265 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 505520 2 6319 COM 1810 DQFLX R(4) 4 404416 2 6319 COM 1811 DQFLX7 R(4) 4 454968 2 6319 COM 1813 DS R(4) 4 32 scalar COM DT R(4) 4 48 scalar COM 1342,1350,2070 DTD R(4) 4 16 scalar COM 1352,1353,1354,1366 DTQ2 R(4) 4 8 scalar COM 1350,1351,1352,1354,1365 DX R(4) 4 7204 2 6319 COM DY R(4) 4 0 scalar COM EF4T R(4) 4 32 scalar COM EM R(4) 4 1124 1 760 COM EMT R(4) 4 4164 1 760 COM EN R(4) 4 8 scalar COM ENT R(4) 4 12 scalar COM EPSR R(4) 4 28800 2 6319 COM ERLAM0 R(4) 4 1720 scalar COM ETA R(4) 4 756 1 46 COM ETA1 R(4) 4 1140 1 46 COM ETADT R(4) 4 3462812 3 278036 COM 1266 Page 37 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References EXCH_TIM R(4) 4 12 scalar COM F R(4) 4 158860 2 6319 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 234688 2 6319 COM 1273 FCNEV R(4) 4 101104 2 6319 COM 1796 FCNEV1 R(4) 4 581348 2 6319 COM FCNEV7 R(4) 4 151656 2 6319 COM 1798 FCP R(4) 4 108308 2 6319 COM FCSEV R(4) 4 126380 2 6319 COM 1797 FCSEV1 R(4) 4 606624 2 6319 COM FCSEV7 R(4) 4 176932 2 6319 COM 1799 FCU R(4) 4 252760 2 6319 COM 1804 FCU7 R(4) 4 353864 2 6319 COM 1808 FCV R(4) 4 278036 2 6319 COM 1805 FCV7 R(4) 4 379140 2 6319 COM 1809 FDIV R(4) 4 133584 2 6319 COM FIRST L(4) 4 24 scalar COM 1331,1359 FIS R(4) 4 4574956 2 6319 COM 1577 FQNEV R(4) 4 0 2 6319 COM 1794 FQNEV1 R(4) 4 530796 2 6319 COM FQNEV7 R(4) 4 50552 2 6319 COM 1800 FQSEV R(4) 4 25276 2 6319 COM 1795 FQSEV1 R(4) 4 556072 2 6319 COM FQSEV7 R(4) 4 75828 2 6319 COM 1801 FQU R(4) 4 202208 2 6319 COM 1802 FQU7 R(4) 4 303312 2 6319 COM 1806 FQV R(4) 4 227484 2 6319 COM 1803 FQV7 R(4) 4 328588 2 6319 COM 1807 G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GFFC R(4) 4 306836 2 6319 COM GLAT R(4) 4 104628 2 6319 COM GLON R(4) 4 129904 2 6319 COM GRNFLX R(4) 4 101104 2 6319 COM 1985 HBM2 R(4) 4 2375944 2 6319 COM 1269,1689,1698,1699 HBM3 R(4) 4 2401220 2 6319 COM HBOT R(4) 4 205732 2 6319 COM 1585 HDAC R(4) 4 407940 2 6319 COM HDACV R(4) 4 433216 2 6319 COM HTM R(4) 4 101104 3 284355 COM 1267,1689,1709 HTMG R(4) 4 743768 3 4183695 COM HTOP R(4) 4 180456 2 6319 COM 1584 IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 828 1 21 COM IDAT I(4) 4 8 1 3 COM 1407,1421,2073 IDTAD I(4) 4 72 scalar COM IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM 1550,1566,1620,1635,1664,1688,1695 ,1708,1735,1755,1782,1829,1843,185 7,1883,1903,1910,1959,2018,2085 IHE I(4) 4 0 1 89 COM IHEG I(4) 4 0 1 387 COM 1237,1238 IHHA I(4) 4 3040 1 760 COM 1924,1932,1940,1948 Page 38 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References IHLA I(4) 4 0 1 760 COM 1923,1931,1939,1947 IHRST I(4) 4 20 scalar COM 1407,1421 IHW I(4) 4 356 1 89 COM IHWG I(4) 4 1548 1 387 COM 1238 ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1324 1 100 COM IOUT I(4) 4 44 scalar COM 1531,1535,1538,1541,1542 IQUILT_GROUP I(4) 4 1320 scalar COM IRAD I(4) 4 1424 1 71 COM 1381 IRADG I(4) 4 6192 1 473 COM 1248,1252,1381 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 1375,1536,1538,1542 ISLOPE I(4) 4 202208 2 6319 COM ISLTYP I(4) 4 176932 2 6319 COM IS_GLB_TABLE I(4) 4 0 1 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM 1550,1566,1620,1635,1664,1688,1695 ,1708,1735,1755,1782,1829,1843,185 7,1883,1903,1910,1959,2018,2085 ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM ITSTLOC I(4) 4 1263800 scalar COM 1227 IVE I(4) 4 712 1 89 COM IVEG I(4) 4 3096 1 387 COM 1239,1240 IVGTYP I(4) 4 151656 2 6319 COM IVHA I(4) 4 9120 1 760 COM 1926,1934,1942,1950 IVLA I(4) 4 6080 1 760 COM 1925,1933,1941,1949 IVW I(4) 4 1068 1 89 COM IVWG I(4) 4 4644 1 387 COM 1240 IXM I(4) 4 4 scalar COM IYM I(4) 4 8 scalar COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 1549,1565,1619,1634,1663,1687,1694 ,1707,1734,1754,1781,1828,1842,185 6,1882,1902,1909,1958,2017,2084 JRA I(4) 4 12160 1 760 COM 1927,1935,1943,1951 JS_GLB_TABLE I(4) 4 168 1 21 COM JS_LOC_TABLE I(4) 4 576 1 21 COM 1549,1565,1619,1634,1663,1687,1694 ,1707,1734,1754,1781,1828,1842,185 6,1882,1902,1909,1958,2017,2084 Page 39 Source Listing INIT 2025-03-12 18:22 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 1263804 scalar COM 1228 K400 I(4) 4 0 scalar COM 2027,2037,2038 KTM I(4) 4 0 scalar COM 1354,1364 L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM LC I(4) 4 1163056 2 6319 COM LIST I(4) 4 40 scalar COM 1296,1307,1308,1309,1310,1311,1312 ,1313,1314,1315,1316,1317,1318,131 9,1320,1321,1322,1323,1357,1358,13 59,1360,1361,1362,1363,1364,1365,1 366,1367,1407,1408,1421,1422,1506, 1521,1531,1541,1719,1733,1748,1780 ,1826,1840,1854,1873,2158,2159 LMH I(4) 4 15200 2 6319 COM 1552,1567,1697,2019,2090 LMV I(4) 4 40476 2 6319 COM 2091 LSL I(4) 4 0 scalar COM 1289,1371 LTOP I(4) 4 16 1 3 COM 2033,2034,2035,2036,2039,2040 LVL I(4) 4 60 2 6319 COM 2019 MPI_ARGVS_NULL CHAR 1 0 2 1 COM MPI_ARGV_NULL CHAR 1 1 1 1 COM MPI_BOTTOM I(4) 4 0 scalar COM MPI_COMM_COMP I(4) 4 912 scalar COM 1455,1456,1457,1458,1460,1502,1504 ,2065 MPI_COMM_INTER I(4) 4 916 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 920 1 100 COM MPI_ERRCODES_IGNORE I(4) 4 20 1 1 COM MPI_IN_PLACE I(4) 4 4 scalar COM MPI_STATUSES_IGNORE I(4) 4 0 2 5 COM MPI_STATUS_IGNORE I(4) 4 8 1 5 COM MPI_UNWEIGHTED I(4) 4 0 scalar COM MPI_WEIGHTS_EMPTY I(4) 4 0 scalar COM MTSTPE I(4) 4 1263808 scalar COM 1229 MXSNAL R(4) 4 3524 2 6319 COM MYIE I(4) 4 52 scalar COM 1380 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 1380 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:22 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:22 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 1279,1296,1306,1341,1356,1406,1420 ,1435,1462,1484,1506,1513,1530,154 0,1549,1550,1565,1566,1619,1620,16 34,1635,1663,1664,1687,1688,1694,1 695,1707,1708,1718,1733,1734,1735, 1747,1754,1755,1780,1781,1782,1826 ,1828,1829,1840,1842,1843,1854,185 6,1857,1872,1882,1883,1902,1903,19 09,1910,1958,1959,2017,2018,2064,2 084,2085,2157 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 1381 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 1440,1443,1448,1450,1465,1466,1467 ,1468,1469,1470,1471,1472,1475,147 8,1489,1492,1506,1514,1515,1516,15 17,1518,1519,1520,1521 NBOCO I(4) 4 76 scalar COM 1510 NCFRCV I(4) 4 25284 2 6319 COM 1637,1737 NCFRST I(4) 4 75836 2 6319 COM 1639,1739 NCLOD I(4) 4 4 scalar COM 1337,1362,1732 NCNVC I(4) 4 92 scalar COM 1210,1314,1746 NCP I(4) 4 84 scalar COM 1334,1360 NEST L(4) 4 108 scalar COM 1212,1436,1443,1447,1462,1484,1513 ,1548,2139 NFCST I(4) 4 32 scalar COM NHB_TIM R(4) 4 4 scalar COM 1292 NHEAT I(4) 4 4 scalar COM 1336,1361,1746 NPES I(4) 4 4 scalar COM NPHS I(4) 4 88 scalar COM 1210,1313,1350,1732,1779,1825,1839 ,1853 NPREC I(4) 4 68 scalar COM 1335,1361,1779 NRADL I(4) 4 100 scalar COM 1349,1364 NRADS I(4) 4 96 scalar COM 1348,1364 NRDLW I(4) 4 4 scalar COM 1339,1362,1825 NRDSW I(4) 4 4 scalar COM 1338,1362,1839 NSHDE I(4) 4 80 scalar COM 1531,1538,1541 NSRFC I(4) 4 4 scalar COM 1340,1363,1853 NSTART I(4) 4 60 scalar COM 1332,1360,1901,1956 NTDDMP I(4) 4 64 scalar COM 1210,1316,1361 Page 42 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References NTSD I(4) 4 52 scalar COM 1419,1512,1531,1536,1542,1732,1746 ,1779,1825,1839,1853,2070 NTSTM I(4) 4 56 scalar COM 1333,1342,1360,1419 OMGALF R(4) 4 1187972 3 284355 COM 1264 P0 R(4) 4 2274840 2 6319 COM 1904 PCTSNO R(4) 4 126380 2 6319 COM 1960 PD R(4) 4 0 2 6319 COM 1559,1568,1596,1601,1605,1668,1904 ,2089 PDB R(4) 4 0 2 1716 COM PDSL R(4) 4 0 2 6319 COM 1257,1568,1592,2089,2096,2101 PHOUR R(4) 4 0 2 6319 COM PL R(4) 4 48 scalar COM PLQ R(4) 4 72 scalar COM POTEVP R(4) 4 151668 2 6319 COM 1656,1864 POTFLX R(4) 4 176944 2 6319 COM 1657,1865 PPTDAT R(4) 4 1162696 3 18957 COM PREC R(4) 4 404416 2 6319 COM 1569 PSDT R(4) 4 25276 2 6319 COM PSHLTR R(4) 4 758280 2 6319 COM 1559,1605,2098,2099 PT R(4) 4 20 scalar COM 1559,1592,1596,1601,1605,1668,2028 ,2030,2051,2054,2096 PT1 R(4) 4 412 scalar COM PT2 R(4) 4 4 scalar COM PTBL R(4) 4 509044 2 10184 COM PTOPC R(4) 4 28 1 4 COM Q R(4) 4 3437536 3 284355 COM 1259,1594,1595,1709,1816,1912,2095 Q0 R(4) 4 1137420 3 284355 COM 1912 Q10 R(4) 4 631900 2 6319 COM 2127 Q2 R(4) 4 783556 3 284355 COM 1689,1696,1698,1699 Q2B R(4) 4 1242384 3 77220 COM Q30 R(4) 4 530796 2 6319 COM 2113 QB R(4) 4 315744 3 77220 COM QOLD R(4) 4 631900 3 284355 COM 1816 QS R(4) 4 176932 2 6319 COM 1578,1599,1609,1668,2113,2127,2141 QS0 R(4) 4 628 1 134 COM QSHLTR R(4) 4 733004 2 6319 COM 2141 QWBS R(4) 4 303312 2 6319 COM 1582 QZ0 R(4) 4 126380 2 6319 COM 1609 R R(4) 4 16 scalar COM R1 R(4) 4 408 scalar COM RAD1 R(4) 4 56 scalar COM 2064,2065 RADIN R(4) 4 54076 2 6319 COM RADOT R(4) 4 79352 2 6319 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 4600232 2 6319 COM 1262,1568,2089 RESTRT L(4) 4 28 scalar COM 1209,1302,1310,1564,1728,2111,2125 ,2139,2147 RES_TIM R(4) 4 8 scalar COM 1393 RF R(4) 4 252760 2 6319 COM Page 43 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References RLWIN R(4) 4 12 2 6319 COM RLWOUT R(4) 4 25288 2 6319 COM RLWTOA R(4) 4 50564 2 6319 COM RLWTT R(4) 4 151668 3 284355 COM ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM RSWIN R(4) 4 12 2 6319 COM RSWOUT R(4) 4 25288 2 6319 COM RSWTOA R(4) 4 50564 2 6319 COM RSWTT R(4) 4 151668 3 284355 COM RTDPTH R(4) 4 480260 1 4 COM RTOP R(4) 4 50552 3 284355 COM 1263 RUN L(4) 4 4 scalar COM 1404 SBD R(4) 4 424 scalar COM SFCEVP R(4) 4 126392 2 6319 COM 1655,1863 SFCEXC R(4) 4 25276 2 6319 COM SFCLHX R(4) 4 25288 2 6319 COM 1651,1859 SFCSHX R(4) 4 12 2 6319 COM 1650,1858 SFCUVX R(4) 4 101116 2 6319 COM 1654,1862 SH2O R(4) 4 480276 3 25276 COM 1973,1994 SI R(4) 4 353864 2 6319 COM SICE R(4) 4 75828 2 6319 COM 1962 SIGMA L(4) 4 0 scalar COM SIGT4 R(4) 4 483768 2 6319 COM SLDPTH R(4) 4 480244 1 4 COM SM R(4) 4 50552 2 6319 COM 1576,1598,1600,1665,1668,1884,1961 SMC R(4) 4 278036 3 25276 COM 1972,1993 SMSTAV R(4) 4 50552 2 6319 COM 1966,1980 SMSTOT R(4) 4 75828 2 6319 COM 1967,1981 SNO R(4) 4 328588 2 6319 COM 1991 SNOPCX R(4) 4 75840 2 6319 COM 1653,1861,1989 SOILTB R(4) 4 0 2 6319 COM 1984 SPHI0 R(4) 4 1728 scalar COM SPL R(4) 4 468 1 39 COM 1209,1323,1372 SQS R(4) 4 1164 1 134 COM SR R(4) 4 1188332 2 6319 COM SSROFF R(4) 4 50556 2 6319 COM 1642,1791,1968,1982 SST R(4) 4 332112 2 6319 COM 1601,1666 STC R(4) 4 379140 3 25276 COM 1995 STHE R(4) 4 2004 1 76 COM STHEQ R(4) 4 2916 1 152 COM SUBPOST L(4) 4 104 scalar COM 1209,1312 SUBSHX R(4) 4 50564 2 6319 COM 1652,1860,1986 SURFCE_TIM R(4) 4 0 scalar COM T R(4) 4 25276 3 284355 COM 1258,1554,1555,1558,1594,1595,1604 ,1911,2094 T0 R(4) 4 0 3 284355 COM 1911 TAUCV R(4) 4 44 1 3 COM TB R(4) 4 6864 3 77220 COM TCLOD R(4) 4 0 scalar COM 1211,1318,1337 TCUCN R(4) 4 1137444 3 284355 COM 1711,1757 TDTD R(4) 4 20 scalar COM 1353,1366 TDTQ2 R(4) 4 12 scalar COM 1351,1365 TEMP1 R(4) 4 0 2 91719 COM 1280,1282 TEMP10 R(4) 4 3301884 2 91719 COM Page 44 Source Listing INIT 2025-03-12 18:22 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 281560 2 6319 COM TH10 R(4) 4 606624 2 6319 COM 2126 TH30 R(4) 4 505520 2 6319 COM 2112 THE0 R(4) 4 1700 1 76 COM THE0Q R(4) 4 2308 1 152 COM THEAT R(4) 4 0 scalar COM 1211,1317,1336 THL R(4) 4 52 scalar COM THS R(4) 4 151656 2 6319 COM 1594,1601,1608,2112,2126,2140 THZ0 R(4) 4 101104 2 6319 COM 1608 TLAT R(4) 4 25276 3 284355 COM TLM0D R(4) 4 428 scalar COM TPH0D R(4) 4 432 scalar COM TPREC R(4) 4 0 scalar COM 1211,1317,1335 TRAIN R(4) 4 24 3 284355 COM 1710,1756 TRDLW R(4) 4 0 scalar COM 1211,1319,1339 TRDSW R(4) 4 0 scalar COM 1211,1318,1338 TSHDE R(4) 4 1324 1 99 COM 1209,1321,1375 TSHLTR R(4) 4 707728 2 6319 COM 2140,2148 TSPH R(4) 4 416 scalar COM 1332,1333,1334,1335,1336,1337,1338 ,1339,1340,1342,1348,1349,1375,151 0 TSRFC R(4) 4 0 scalar COM 1211,1319,1340 TTBL R(4) 4 549780 2 10184 COM TTBLQ R(4) 4 590516 2 66880 COM TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 278036 2 6319 COM 1581 U R(4) 4 1162696 3 284355 COM 1260,2092 U00 R(4) 4 1137420 2 6319 COM 1884 U10 R(4) 4 657176 2 6319 COM 2128 U30 R(4) 4 556072 2 6319 COM 2114 UB R(4) 4 624624 3 77220 COM UL R(4) 4 1162696 1 90 COM 1893,1895 USTAR R(4) 4 25276 2 6319 COM 1607 UZ0 R(4) 4 50552 2 6319 COM 1271,1610 V R(4) 4 2300116 3 284355 COM 1261,2093 V10 R(4) 4 682452 2 6319 COM 2129 V30 R(4) 4 581348 2 6319 COM 2115 VAPINC R(4) 4 1263812 2 6319 COM 1572,1785 VAPINC7 R(4) 4 1289088 2 6319 COM 1573,1786 VB R(4) 4 933504 3 77220 COM Page 45 Source Listing INIT 2025-03-12 18:22 Symbol Table INIT.F Name Type Bytes Offset Dimen Elements Attributes References VBM2 R(4) 4 0 2 6319 COM VBM3 R(4) 4 25276 2 6319 COM VEGFRC R(4) 4 227484 2 6319 COM VTM R(4) 4 1238524 3 284355 COM 1268 VZ0 R(4) 4 75828 2 6319 COM 1272,1611 WBD R(4) 4 420 scalar COM WPDAR R(4) 4 32480 2 6319 COM X1P R(4) 4 452 scalar COM Y1P R(4) 4 456 scalar COM Z0 R(4) 4 0 2 6319 COM 1576 Z0SLP R(4) 4 464 scalar COM ZEFFIJ R(4) 4 0 3 25276 COM 1282 Page 46 Source Listing INIT 2025-03-12 18:22 INIT.F 2164 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 2165 BLOCK DATA CLOUD 2166 INCLUDE "parmeta" 2167 C----------------------------------------------------------------------- 2191 C O M M O N /RD1TIM/ 2192 1 K400,CTHK(3),LTOP(3),PTOPC(4),TAUCV(3),RAD1 2193 2,LVL(IDIM1:IDIM2,JDIM1:JDIM2) 2194 C----------------------------------------------------------------------- 2195 D A T A 2196 1 CTHK/20000.0,20000.0,20000.0/ 2197 1,TAUCV/0.16, 0.14, 0.12/, LTOP/0,0,0/ 2198 C----------------------------------------------------------------------- 2199 END BLOCK DATA CLOUD SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References CLOUD Block 2165 scalar IDIM1 Param 2187 I(4) 4 scalar 2193 IDIM2 Param 2187 I(4) 4 scalar 2193 IGSTL Param 2182 I(4) 4 scalar 2187 IGSTR Param 2182 I(4) 4 scalar 2187 IM Param 2170 I(4) 4 scalar 2184,2187 INPES Param 2179 I(4) 4 scalar 2184,2187 ITAIL Param 2184 I(4) 4 scalar JDIM1 Param 2188 I(4) 4 scalar 2193 JDIM2 Param 2188 I(4) 4 scalar 2193 JGSTL Param 2183 I(4) 4 scalar 2188 JGSTR Param 2183 I(4) 4 scalar 2188 JM Param 2170 I(4) 4 scalar 2185,2188 JNPES Param 2179 I(4) 4 scalar 2185,2188 JTAIL Param 2185 I(4) 4 scalar LM Param 2170 I(4) 4 scalar LSM Param 2170 I(4) 4 scalar RD1TIM Common 2191 25336 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References CTHK R(4) 4 4 1 3 COM,SAVE 2196 K400 I(4) 4 0 scalar COM LTOP I(4) 4 16 1 3 COM,SAVE 2197 LVL I(4) 4 60 2 6319 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 2197 Page 47 Source Listing CLOUD 2025-03-12 18:22 Subprograms/Common Blocks INIT.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 1039 101112 SAVE ACMCLH Common 1032 2274864 SAVE ACMPRE Common 1046 101108 SAVE ACMRDL Common 1053 1289088 SAVE ACMRDS Common 1062 1289088 SAVE ACMSFC Common 1071 202224 SAVE BOCO Common 1025 1860144 SAVE CLDWTR Common 1081 1213608 SAVE CLOUD Block 2165 scalar CNVCLD Common 1089 101104 SAVE CONTIN Common 985 4574956 SAVE CTLBLK Common 893 112 SAVE CUINIT Common 1202 4 DYNAM Common 919 259964 SAVE GLB_TABLE Common 242 336 SAVE INDX Common 1109 1708 SAVE INDXG Common 1115 8084 SAVE INIT Subr 2 LOOPS Common 901 65752 SAVE MAPOT Common 963 1732 SAVE MAPPINGS Common 261 5024 SAVE MASKS Common 908 2426496 SAVE MPIFCMB5 Common 819 4 SAVE MPIFCMB9 Common 820 4 SAVE MPIPRIV1 Common 824 28 SAVE MPIPRIV2 Common 826 24 SAVE MPIPRIVC Common 829 2 SAVE MPPCOM Common 206 1724 SAVE PHYS Common 937 858036 SAVE PPTASM Common 1134 1364916 SAVE PVRBLS Common 995 1946252 SAVE QFLX Common 1162 1769320 SAVE RD1TIM Common 1189 25336 RD1TIM Common 2191 25336 SOIL Common 1096 581380 SAVE TEMPCOM Common 247 6603768 SAVE TEMPV Common 1128 2300116 SAVE TIMING Common 1187 16 TOPO Common 255 17478548 SAVE VRBLS Common 975 4625508 SAVE Z0EFFT Common 1121 101104 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:22 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:22 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:22 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