Page 1 Source Listing INIT 2014-12-17 20:46 /tmpnwprd/ifortb50nHm.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 2014-12-17 20:46 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----------------------------------------------------------------------- 785 P A R A M E T E R 786 & (CM1=2937.4,CM2=4.9283,CM3=23.5518,EPS=0.622,PI2=2.*3.14159265 787 &, RLAG=14.8125 788 C 789 CVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV 790 C &, Q2INI=.01,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 791 C &, Q2INI=1.0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 792 C &, Q2INI=.50,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 793 C &, Q2INI=.01,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=0.0 794 &, Q2INI=.50 ,EPSQ2=0.2 ,EPSWET=0.0 795 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 796 &, Z0LAND=.10,Z0SEA=.001,FCM=.00001 797 &, DTR=0.1745329E-1) 798 C----------------------------------------------------------------------- 799 P A R A M E T E R 800 & (A1=610.78,WA=.10,WG=1.0-WA) 801 C 802 C----------------------------------------------------------------------- Page 3 Source Listing INIT 2014-12-17 20:46 INIT.F 803 P A R A M E T E R 804 & (IMJM=IM*JM-JM/2,JMP1=JM+1,JAM=6+2*(JM-10),LB=2*IM+JM-3 805 &, LM1=LM-1,LP1=LM+1,IMT=2*IM-1 806 &, NSTAT=1000) 807 C----------------------------------------------------------------------- 808 C 809 C DECLARE VARIABLES 810 C 811 C----------------------------------------------------------------------- 812 L O G I C A L 813 & RUN,RUNB,FIRST,RESTRT,SIGMA,EXBC,NEST 814 &,INSIDEH,INSIDEV 815 C----------------------------------------------------------------------- 816 C H A R A C T E R *32 817 & LABEL 818 C H A R A C T E R *40 819 & CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV 820 &,FILCLD,FILRAD,FILSFC 821 C----------------------------------------------------------------------- 822 R E A L 823 & PHALF(LP1),NPEBND 824 C*** 825 C*** NOTE: THE DIMENSION OF THE FOLLOWING ARRAYS IS ARBITRARILY CHOSEN 826 C*** TO EXCEED ANY NUMBER OF BOUNDARY POINTS THAT MIGHT EXIST IN 827 C*** ANY INNER DOMAIN 828 C*** 829 R E A L 830 & HLATI(1500),HLONI(1500),VLATI(1500),VLONI(1500) 831 &,THLONI(1500),THLATI(1500),TVLONI(1500),TVLATI(1500) 832 &,TSLAT(NSTAT),TSLON(NSTAT) 833 C----------------------------------------------------------------------- 834 I N T E G E R 835 & IDATB(3),INIDAT(8),IBCDAT(8) 836 C----------------------------------------------------------------------- 837 # 148 838 839 C----------------------------------------------------------------------- 840 C 841 C INCLUDE COMMON BLOCKS. 842 C 843 INCLUDE "CTLBLK.comm" 853 INCLUDE "LOOPS.comm" 860 INCLUDE "MASKS.comm" 871 INCLUDE "DYNAM.comm" 887 INCLUDE "PHYS2.comm" 915 INCLUDE "MAPOT1.comm" 927 INCLUDE "VRBLS.comm" 937 INCLUDE "CONTIN.comm" 947 INCLUDE "PVRBLS.comm" 977 INCLUDE "BOCO.comm" 984 INCLUDE "ACMCLH.comm" 991 INCLUDE "ACMCLD.comm" 998 INCLUDE "ACMPRE.comm" 1005 INCLUDE "ACMRDL.comm" 1014 INCLUDE "ACMRDS.comm" 1023 INCLUDE "ACMSFC.comm" 1033 INCLUDE "CLDWTR.comm" Page 4 Source Listing INIT 2014-12-17 20:46 INIT.F 1041 INCLUDE "CNVCLD.comm" 1048 INCLUDE "SOIL.comm" 1061 INCLUDE "INDX.comm" 1073 INCLUDE "Z0EFFT.comm" 1080 INCLUDE "TEMPV.comm" 1087 INCLUDE "PPTASM.comm" 1111 INCLUDE "QFLX.comm" 1112 C----------------------------------------------------------------------- 1113 C*** 1114 C*** THE FOLLOWING IS FOR TIMIMG PURPOSES ONLY 1115 C*** 1139 real*8 timef 1140 real nhb_tim 1141 common/timing/surfce_tim,nhb_tim,res_tim,exch_tim 1142 C----------------------------------------------------------------------- 1143 C O M M O N /RD1TIM/ 1144 1 K400,CTHK(3),LTOP(3),PTOPC(4),TAUCV(3),RAD1 1145 2,LVL(IDIM1:IDIM2,JDIM1:JDIM2) 1146 C----------------------------------------------------------------------- 1147 D A T A 1148 1 PLOMD/64200./,PMDHI/35000./,PHITP/15000./,P400/40000./ 1149 2,PLBTM/105000./ 1150 D A T A 1151 1 NFILE/14/,IUNWGT/40/ 1152 !----------------------------------------------------------------------- 1153 ! 1154 !--- Flag for initializing convective clouds for radiation 1155 ! 1156 COMMON /CUINIT/ CURAD 1157 LOGICAL CURAD 1158 C----------------------------------------------------------------------- 1159 C 1160 C DECLARE NAMELISTS. 1161 C 1162 NAMELIST /FCSTDATA/ 1163 & TSTART,TEND,TCP,RESTRT,SINGLRST,SUBPOST,NMAP,TSHDE,SPL 1164 &,NPHS,NCNVC,NRADSH,NRADLH,NTDDMP 1165 &,TPREC,THEAT,TCLOD,TRDSW,TRDLW,TSRFC 1166 &,NEST 1167 CHARACTER ENVAR*4 1168 C 1169 C Read in precip assim test points (global), compute the corresponding 1170 C local coordinate 1171 C and the node it is on 1172 1173 c CALL get_environment_variable("tmmark",ENVAR) 1174 c itest=56 1175 c jtest=33 1176 c IF(ENVAR.NE.'tm00') then 1177 c READ(5,*) ITEST, JTEST 1178 c print*,'itest,jtest,mype=',itest,jtest,mype 1179 c CALL GLB2LOC(ITEST,JTEST,ITSTLOC,JTSTLOC,MTSTPE) 1180 c ENDIF 1181 itstloc=39 1182 jtstloc=26 1183 mtstpe=5 1184 C Page 5 Source Listing INIT 2014-12-17 20:46 INIT.F 1185 C*********************************************************************** 1186 C START INIT HERE. 1187 C 1188 C CALCULATE THE I-INDEX EAST-WEST INCREMENTS 1189 C 1190 DO J=1,JM 1191 IHEG(J)=MOD(J+1,2) 1192 IHWG(J)=IHEG(J)-1 1193 IVEG(J)=MOD(J,2) 1194 IVWG(J)=IVEG(J)-1 1195 ENDDO 1196 C 1197 C CALCULATE THE INDIRECT I INDICES FOR RADTN 1198 C 1199 KNT=0 1200 DO I=1,IM 1201 KNT=KNT+1 1202 IRADG(KNT)=I 1203 ENDDO 1204 DO I=1,IM-1 1205 KNT=KNT+1 1206 IRADG(KNT)=IM+2+I 1207 ENDDO 1208 C 1209 C ZERO OUT LOCALLY INDEXED ARRAYS 1210 C 1211 CALL ZERO2(PDSL) 1212 CALL ZERO3(T,LM) 1213 CALL ZERO3(Q,LM) 1214 CALL ZERO3(U,LM) 1215 CALL ZERO3(V,LM) 1216 CALL ZERO2(RES) 1217 CALL ZERO3(RTOP,LM) 1218 CALL ZERO3(OMGALF,LM) 1219 CALL ZERO3(DIV,LM) 1220 CALL ZERO3(ETADT,LM-1) 1221 CALL ZERO3(HTM,LM) 1222 CALL ZERO3(VTM,LM) 1223 CALL ZERO2(HBM2) 1224 CALL ZERO2(AKMS) 1225 CALL ZERO2(UZ0) 1226 CALL ZERO2(VZ0) 1227 CALL ZERO2(FAD) 1228 C--------------------------------------------------------------- 1229 C 1230 C READ Z0 EFFECTIVE 1231 C 1232 DO N=1,4 1233 IF(MYPE.EQ.0)THEN 1234 READ(22)TEMP1 1235 ENDIF 1236 CALL DSTRB(TEMP1,ZEFFIJ,1,4,N) 1237 ENDDO 1238 C--------------------------------------------------------------- 1239 C*** 1240 C*** READ "CONSTANT" DATA FROM UNIT CONNECTED TO NHB 1241 C*** Page 6 Source Listing INIT 2014-12-17 20:46 INIT.F 1242 NHB=12 1243 LSL =LSM 1244 btim=timef() 1245 CALL READ_NHB(NHB) 1246 nhb_tim=timef()-btim 1247 C 1248 C--------------------------------------------------------------- 1249 NHIBU = 12 1250 IF(MYPE.EQ.0)WRITE(LIST,*)'INIT: READ CONSTANTS FILE' 1251 C 1252 C 1253 C READ NAMELIST FCSTDATA WHICH CONTROLS TIMESTEPS, 1254 C ACCUMULATION PERIODS, STANDARD OUTPUT 1255 C 1256 RESTRT = .FALSE. 1257 REWIND 11 1258 READ(11,FCSTDATA) 1259 C 1260 IF(MYPE.EQ.0)THEN 1261 WRITE(LIST,*)'INIT: READ NAMELIST FCSTDATA - LISTED BELOW' 1262 WRITE(LIST,*)' TSTART,TEND : ',TSTART,TEND 1263 WRITE(LIST,*)' TCP : ',TCP 1264 WRITE(LIST,*)' RESTRT : ',RESTRT 1265 WRITE(LIST,*)' SINGLRST : ',SINGLRST 1266 WRITE(LIST,*)' SUBPOST : ',SUBPOST 1267 WRITE(LIST,*)' NMAP,NPHS : ',NMAP,NPHS 1268 WRITE(LIST,*)' NCNVC : ',NCNVC 1269 WRITE(LIST,*)' NRADSH,NRADLH: ',NRADSH,NRADLH 1270 WRITE(LIST,*)' NTDDMP : ',NTDDMP 1271 WRITE(LIST,*)' TPREC,THEAT : ',TPREC,THEAT 1272 WRITE(LIST,*)' TCLOD,TRDSW : ',TCLOD,TRDSW 1273 WRITE(LIST,*)' TRDLW,TSRFC : ',TRDLW,TSRFC 1274 WRITE(LIST,*)' TSHDE (POSTED FORECAST HOURS) BELOW: ' 1275 WRITE(LIST,75) (TSHDE(K),K=1,99) 1276 WRITE(LIST,*)' SPL (POSTED PRESSURE LEVELS) BELOW: ' 1277 WRITE(LIST,80) (SPL(L),L=1,LSM) 1278 75 FORMAT(14(F4.1,1X)) 1279 80 FORMAT(8(F8.1,1X)) 1280 ENDIF 1281 C 1282 C 1283 C SET TIME STEPPING RELATED CONSTANTS. 1284 C 1285 FIRST = .TRUE. 1286 NSTART = INT(TSTART*TSPH+0.5) 1287 NTSTM = INT(TEND *TSPH+0.5)+1 1288 NCP = INT(TCP *TSPH+0.5) 1289 NPREC = INT(TPREC *TSPH+0.5) 1290 NHEAT = INT(THEAT *TSPH+0.5) 1291 NCLOD = INT(TCLOD *TSPH+0.5) 1292 NRDSW = INT(TRDSW *TSPH+0.5) 1293 NRDLW = INT(TRDLW *TSPH+0.5) 1294 NSRFC = INT(TSRFC *TSPH+0.5) 1295 IF(MYPE.EQ.0)THEN 1296 WRITE(0,*)' NTSTM=',NTSTM,' TSPH=',TSPH,' DT=',DT 1297 ENDIF 1298 C IF (NSTART.LT.NCP) NSTART=0 Page 7 Source Listing INIT 2014-12-17 20:46 INIT.F 1299 C 1300 C SET VARIOUS PHYSICS PACKAGE TIMESTEP VARIABLES. 1301 C 1302 NRADS = NINT(TSPH)*NRADSH 1303 NRADL = NINT(TSPH)*NRADLH 1304 DTQ2 = NPHS * DT 1305 TDTQ2 = DTQ2 + DTQ2 1306 DTD = 0.5 * DTQ2 1307 TDTD = DTD + DTD 1308 KTM = INT(DTQ2/DTD+0.5) 1309 C 1310 IF(MYPE.EQ.0)THEN 1311 WRITE(LIST,*)' ' 1312 WRITE(LIST,*)'SET TIME STEPPING CONSTANTS' 1313 WRITE(LIST,*)' FIRST : ',FIRST 1314 WRITE(LIST,*)' NSTART,NSTSM,NCP : ',NSTART,NTSTM,NCP 1315 WRITE(LIST,*)' NTDDMP,NPREC,NHEAT: ',NTDDMP,NPREC,NHEAT 1316 WRITE(LIST,*)' NCLOD,NRDSW,NRDLW : ',NCLOD,NRDSW,NRDLW 1317 WRITE(LIST,*)' NSRFC : ',NSRFC 1318 WRITE(LIST,*)' NRADS,NRADL,KTM : ',NRADS,NRADL,KTM 1319 WRITE(LIST,*)' DTQ2,TDTQ2 : ',DTQ2,TDTQ2 1320 WRITE(LIST,*)' DTD,TDTD : ',DTD,TDTD 1321 WRITE(LIST,*)' ' 1322 ENDIF 1323 C 1324 C COMPUTE DERIVED MAP OUTPUT CONSTANTS. 1325 DO L = 1,LSL 1326 ALSL(L) = LOG(SPL(L)) 1327 ENDDO 1328 DO I=1,NMAP 1329 ISHDE(I)=INT(TSHDE(I)*TSPH+0.5)+1 1330 ENDDO 1331 C*** 1332 C*** SET UP ARRAY IRAD (INDICES FOR RADTN) 1333 C*** 1334 DO I=MYIS,MYIE 1335 IRAD(I)=IRADG(I+MY_IS_GLB-1)-MY_IS_GLB+1 1336 ENDDO 1337 C------------------------------------------------------------- 1338 C*** 1339 C*** READ INITIAL CONDITIONS OR RESTART FILE. 1340 C*** 1341 btim=timef() 1342 IF(SINGLRST)THEN 1343 CALL READ_RESTRT 1344 ELSE 1345 CALL READ_RESTRT2 1346 ENDIF 1347 res_tim=timef()-btim 1348 C------------------------------------------------------------- 1349 C 1350 CALL READGRDETA 1351 C 1352 C------------------------------------------------------------- 1353 C 1354 C IF NOT RUNNING THE MODEL, PRINT DATE OF INITIAL CONDITIONS 1355 C JUST READ AND STOP. OTHERWISE, CONTINUE. Page 8 Source Listing INIT 2014-12-17 20:46 INIT.F 1356 C 1357 C------------------------------------------------------------- 1358 IF (RUN) GO TO 190 1359 C 1360 IF(MYPE.EQ.0)THEN 1361 WRITE(LIST,165) IHRST,IDAT 1362 WRITE(LIST,166) 1363 ccccc CALL EXIT(2) 1364 CALL MPI_FINALIZE(IERR) 1365 STOP2 1366 165 FORMAT('0*** ',I2,' GMT ',2(I2,'/'),I4,' ***') 1367 166 FORMAT('0F*** NO INITIAL CONDITIONS. RUN TERMINATED.') 1368 ENDIF 1369 C 1370 C IF THE TIMESTEP COUNTER (NTSD) EXCEEDS THE "STOP MODEL" T 1371 C TIMESTEP,CONTINUE, STOP EXECUTION. OTHERWISE, CONTINUE. 1372 C 1373 190 IF(NTSD.GE.NTSTM)THEN 1374 IF(MYPE.EQ.0)THEN 1375 WRITE(LIST,165) IHRST,IDAT 1376 WRITE(LIST,195) 1377 195 FORMAT('0F*** FORECAST ALREADY DONE. RUN TERMINATED.') 1378 ccccc CALL EXIT(3) 1379 CALL MPI_FINALIZE(IERR) 1380 STOP3 1381 ENDIF 1382 ENDIF 1383 C 1384 C------------------------------------------------------------- 1385 C 1386 C READ BOUNDARY CONDITIONS. 1387 C 1388 C------------------------------------------------------------- 1389 IF(MYPE.EQ.0)THEN 1390 IF(NEST)THEN 1391 KBI=2*IM+JM-3 1392 KBI2=KBI-4 1393 LRECBC=4*(1+(1+6*LM)*KBI*2+(KBI+KBI2)*(LM+1)) 1394 OPEN(UNIT=NBC,ACCESS='DIRECT',RECL=LRECBC) 1395 ENDIF 1396 C 1397 IF(.NOT.NEST)REWIND NBC 1398 C 1399 # 451 1400 1401 IF(NEST)THEN 1402 READ(NBC,REC=1)RUNB,IDATB,IHRSTB,TBOCO 1403 ELSE 1404 READ(NBC)RUNB,IDATB,IHRSTB,TBOCO 1405 ENDIF 1406 1407 ENDIF 1408 C 1409 CALL MPI_BCAST(RUNB,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) 1410 CALL MPI_BCAST(IDATB,3,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1411 CALL MPI_BCAST(IHRSTB,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1412 CALL MPI_BCAST(TBOCO,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) Page 9 Source Listing INIT 2014-12-17 20:46 INIT.F 1413 C 1414 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1415 C 1416 IF(MYPE.EQ.0.AND..NOT.NEST)THEN 1417 ISTART=NINT(TSTART) 1418 C 1419 READ(NBC)BCHR 1420 205 READ(NBC) 1421 READ(NBC) 1422 READ(NBC) 1423 READ(NBC) 1424 READ(NBC) 1425 READ(NBC) 1426 READ(NBC) 1427 C 1428 IF(ISTART.EQ.NINT(BCHR))THEN 1429 IF(ISTART.GT.0)READ(NBC)BCHR 1430 GO TO 215 1431 ELSE 1432 READ(NBC)BCHR 1433 ENDIF 1434 C 1435 IF(ISTART.GE.NINT(BCHR))GO TO 205 1436 ENDIF 1437 C 1438 IF(MYPE.EQ.0.AND.NEST)THEN 1439 ISTART=NINT(TSTART) 1440 NREC=1 1441 C 1442 210 NREC=NREC+1 1443 READ(NBC,REC=NREC)BCHR 1444 C 1445 IF(ISTART.EQ.NINT(BCHR))THEN 1446 IF(ISTART.GT.0)READ(NBC,REC=NREC+1)BCHR 1447 GO TO 215 1448 ELSE 1449 GO TO 210 1450 ENDIF 1451 ENDIF 1452 C 1453 215 CONTINUE 1454 C 1455 CALL MPI_BCAST(BCHR,1,MPI_REAL,0, 1456 1 MPI_COMM_COMP,IRTN) 1457 C 1458 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1459 C 1460 IF(MYPE.EQ.0)WRITE(LIST,*)' READ UNIT NBC=',NBC 1461 C*** 1462 C*** COMPUTE THE 1ST TIME FOR BOUNDARY CONDITION READ 1463 C*** 1464 NBOCO=NINT(BCHR*TSPH) 1465 C 1466 IF(NTSD.EQ.0)THEN 1467 IF(MYPE.EQ.0.AND..NOT.NEST)THEN 1468 BACKSPACE NBC 1469 BACKSPACE NBC Page 10 Source Listing INIT 2014-12-17 20:46 INIT.F 1470 BACKSPACE NBC 1471 BACKSPACE NBC 1472 BACKSPACE NBC 1473 BACKSPACE NBC 1474 BACKSPACE NBC 1475 WRITE(LIST,*)' BACKSPACE UNIT NBC=',NBC 1476 ENDIF 1477 ENDIF 1478 C 1479 C------------------------------------------------------------- 1480 C 1481 C SET ARRAYS CONTROLLING POST PROCESSING. 1482 C 1483 C------------------------------------------------------------- 1484 IF(MYPE.EQ.0)THEN 1485 WRITE(LIST,*)'INIT: READ IOUT,NSHDE,NTSD=',IOUT,NSHDE,NTSD 1486 ENDIF 1487 C 1488 DO I=1,NMAP 1489 IOUT=I 1490 IF(ISHDE(I).GE.NTSD)GO TO 220 1491 ENDDO 1492 220 NSHDE = ISHDE(IOUT) 1493 C 1494 IF(MYPE.EQ.0)THEN 1495 WRITE(LIST,*)'INIT: SET IOUT,NSHDE =',IOUT,NSHDE, 1496 1 ' FOR ISHDE,NTSD=',ISHDE(IOUT),NTSD 1497 ENDIF 1498 C------------------------------------------------------------- 1499 C 1500 C INITIALIZE PHYSICS VARIABLES IF STARTING THIS RUN FROM SCRATCH. 1501 C 1502 IF(NEST)THEN 1503 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1504 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1505 C 1506 LLMH=LMH(I,J) 1507 C 1508 IF(T(I,J,LLMH).EQ.0.)THEN 1509 T(I,J,LLMH)=T(I,J,LLMH-1) 1510 ENDIF 1511 C 1512 TERM1=-0.068283/T(I,J,LLMH) 1513 PSHLTR(I,J)=(PD(I,J)+PT)*EXP(TERM1) 1514 ENDDO 1515 ENDDO 1516 ENDIF 1517 C 1518 IF(.NOT.RESTRT)THEN 1519 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1520 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1521 LLMH=LMH(I,J) 1522 PDSL(I,J) = PD(I,J)*RES(I,J) 1523 PREC(I,J) = 0. 1524 ACPREC(I,J) = 0. 1525 CUPREC(I,J) = 0. 1526 VAPINC(I,J)=0. Page 11 Source Listing INIT 2014-12-17 20:46 INIT.F 1527 VAPINC7(I,J)=0. 1528 CLDINC(I,J)=0. 1529 CLDINC7(I,J)=0. 1530 Z0(I,J) = SM(I,J)*Z0SEA+(1.-SM(I,J))* 1531 1 (FIS(I,J)*FCM+Z0LAND) 1532 QS(I,J) = 0. 1533 AKMS(I,J) = 0. 1534 AKHS(I,J) = 0. 1535 TWBS(I,J) = 0. 1536 QWBS(I,J) = 0. 1537 CLDEFI(I,J) = 1. 1538 HTOP(I,J) = 100. 1539 HBOT(I,J) = 0. 1540 C*** 1541 C*** AT THIS POINT, WE MUST CALCULATE THE INITIAL POTENTIAL TEMPERATURE 1542 C*** OF THE SURFACE AND OF THE SUBGROUND. 1543 C*** EXTRAPOLATE DOWN FOR INITIAL SURFACE POTENTIAL TEMPERATURE. 1544 C*** ALSO DO THE SHELTER PRESSURE. 1545 C*** 1546 PM1=PDSL(I,J)*AETA(LLMH)+PT 1547 APEM1=(1.E5/PM1)**CAPA 1548 THS(I,J)=T(I,J,LLMH)*(1.+0.608*Q(I,J,LLMH))*APEM1 1549 TSFCK=T(I,J,LLMH)*(1.+0.608*Q(I,J,LLMH)) 1550 PSFCK=PD(I,J)+PT 1551 C 1552 IF(SM(I,J).LT.0.5) THEN 1553 QS(I,J)=PQ0/PSFCK*EXP(A2*(TSFCK-A3)/(TSFCK-A4)) 1554 ELSEIF(SM(I,J).GT.0.5) THEN 1555 THS(I,J)=SST(I,J)*(1.E5/(PD(I,J)+PT))**CAPA 1556 ENDIF 1557 C 1558 TERM1=-0.068283/T(I,J,LLMH) 1559 PSHLTR(I,J)=(PD(I,J)+PT)*EXP(TERM1) 1560 C 1561 USTAR(I,J)=0.1 1562 THZ0(I,J)=THS(I,J) 1563 QZ0(I,J)=QS(I,J) 1564 UZ0(I,J)=0. 1565 VZ0(I,J)=0. 1566 C 1567 ENDDO 1568 ENDDO 1569 C 1570 C INITIALIZE CLOUD FIELDS 1571 C 1572 DO L=1,LM 1573 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1574 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1575 CWM(I,J,L)=0. 1576 ENDDO 1577 ENDDO 1578 ENDDO 1579 C 1580 C INITIALIZE ACCUMULATOR ARRAYS TO ZERO. 1581 C 1582 ARDSW=0.0 1583 ARDLW=0.0 Page 12 Source Listing INIT 2014-12-17 20:46 INIT.F 1584 ASRFC=0.0 1585 AVRAIN=0.0 1586 AVCNVC=0.0 1587 C 1588 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1589 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1590 ACFRCV(I,J)=0. 1591 NCFRCV(I,J)=0 1592 ACFRST(I,J)=0. 1593 NCFRST(I,J)=0 1594 ACSNOW(I,J)=0. 1595 ACSNOM(I,J)=0. 1596 SSROFF(I,J)=0. 1597 BGROFF(I,J)=0. 1598 ALWIN(I,J) =0. 1599 ALWOUT(I,J)=0. 1600 ALWTOA(I,J)=0. 1601 ASWIN(I,J) =0. 1602 ASWOUT(I,J)=0. 1603 ASWTOA(I,J)=0. 1604 SFCSHX(I,J)=0. 1605 SFCLHX(I,J)=0. 1606 SUBSHX(I,J)=0. 1607 SNOPCX(I,J)=0. 1608 SFCUVX(I,J)=0. 1609 SFCEVP(I,J)=0. 1610 POTEVP(I,J)=0. 1611 POTFLX(I,J)=0. 1612 ENDDO 1613 ENDDO 1614 C 1615 C INITIALIZE SATURATION SPECIFIC HUMIDITY OVER THE WATER. 1616 C 1617 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1618 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1619 IF(SM(I,J).GT.0.5)THEN 1620 CLOGES =-CM1/SST(I,J)-CM2*ALOG10(SST(I,J))+CM3 1621 ESE = 10.**(CLOGES+2.) 1622 QS(I,J)= SM(I,J)*EPS*ESE/(PD(I,J)+PT-ESE*(1.-EPS)) 1623 ENDIF 1624 ENDDO 1625 ENDDO 1626 C 1627 C PAD GROUND WETNESS IF IT IS TOO SMALL. 1628 C 1629 c DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1630 c DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1631 c WET(I,J)=AMAX1(WET(I,J),EPSWET) 1632 c ENDDO 1633 c ENDDO 1634 C 1635 C INITIALIZE TURBULENT KINETIC ENERGY (TKE) TO A SMALL 1636 C VALUE (EPSQ2) ABOVE GROUND. SET TKE TO ZERO IN THE 1637 C THE LOWEST MODEL LAYER. IN THE LOWEST TWO ATMOSPHERIC 1638 C ETA LAYERS SET TKE TO A SMALL VALUE (Q2INI). 1639 C 1640 DO L=1,LM1 Page 13 Source Listing INIT 2014-12-17 20:46 INIT.F 1641 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1642 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1643 Q2(I,J,L)=HTM(I,J,L+1)*HBM2(I,J)*EPSQ2 1644 ENDDO 1645 ENDDO 1646 ENDDO 1647 C 1648 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1649 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1650 Q2(I,J,LM) = 0. 1651 LLMH = LMH(I,J) 1652 Q2(I,J,LLMH-2)= HBM2(I,J)*Q2INI 1653 Q2(I,J,LLMH-1)= HBM2(I,J)*Q2INI 1654 ENDDO 1655 ENDDO 1656 C 1657 C PAD ABOVE GROUND SPECIFIC HUMIDITY IF IT IS TOO SMALL. 1658 C INITIALIZE LATENT HEATING ACCUMULATION ARRAYS. 1659 C 1660 DO L=1,LM 1661 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1662 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1663 IF(Q(I,J,L).LT.EPSQ)Q(I,J,L)=EPSQ*HTM(I,J,L) 1664 TRAIN(I,J,L)=0. 1665 TCUCN(I,J,L)=0. 1666 ENDDO 1667 ENDDO 1668 ENDDO 1669 C 1670 C END OF SCRATCH START INITIALIZATION BLOCK. 1671 C 1672 IF(MYPE.EQ.0)THEN 1673 WRITE(LIST,*)'INIT: INITIALIZED ARRAYS FOR CLEAN START' 1674 ENDIF 1675 ENDIF 1676 C 1677 C 1678 C 1679 C RESTART INITIALIZING. CHECK TO SEE IF WE NEED TO ZERO 1680 C ACCUMULATION ARRAYS. 1681 C 1682 IF(RESTRT)THEN 1683 C 1684 C AVERAGE CLOUD AMOUNT ARRAY 1685 C 1686 IF(MOD(NTSD,NCLOD).LT.NPHS)THEN 1687 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO AVG CLD AMT ARRAY' 1688 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1689 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1690 ACFRCV(I,J)=0. 1691 NCFRCV(I,J)=0 1692 ACFRST(I,J)=0. 1693 NCFRST(I,J)=0 1694 ENDDO 1695 ENDDO 1696 ENDIF 1697 C Page 14 Source Listing INIT 2014-12-17 20:46 INIT.F 1698 C GRID-SCALE AND CONVECTIVE LATENT HEATING ARRAYS. 1699 C 1700 IF(MOD(NTSD,NHEAT).LT.NCNVC)THEN 1701 IF(MYPE.EQ.0)THEN 1702 WRITE(LIST,*)' ZERO ACCUM LATENT HEATING ARRAYS' 1703 ENDIF 1704 C 1705 AVRAIN=0. 1706 AVCNVC=0. 1707 DO L=1,LM 1708 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1709 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1710 TRAIN(I,J,L)=0. 1711 TCUCN(I,J,L)=0. 1712 ENDDO 1713 ENDDO 1714 ENDDO 1715 ENDIF 1716 C*** 1717 C*** IF THIS IS NOT A NESTED RUN, INITIALIZE TKE 1718 C*** 1719 c IF(.NOT.NEST)THEN 1720 c DO L=1,LM 1721 c DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1722 c DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1723 c Q2(I,J,L)=AMAX1(Q2(I,J,L)*HBM2(I,J),EPSQ2) 1724 c ENDDO 1725 c ENDDO 1726 c ENDDO 1727 c ENDIF 1728 C 1729 C TOTAL AND CONVECTIVE PRECIPITATION ARRAYS. 1730 C TOTAL SNOW AND SNOW MELT ARRAYS. 1731 C STORM SURFACE AND BASE GROUND RUN OFF ARRAYS. 1732 C 1733 IF(MOD(NTSD,NPREC).LT.NPHS)THEN 1734 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO ACCUM PRECIP ARRAYS' 1735 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1736 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1737 ACPREC(I,J)=0. 1738 CUPREC(I,J)=0. 1739 VAPINC(I,J)=0. 1740 VAPINC7(I,J)=0. 1741 CLDINC(I,J)=0. 1742 CLDINC7(I,J)=0. 1743 ACSNOW(I,J)=0. 1744 ACSNOM(I,J)=0. 1745 SSROFF(I,J)=0. 1746 BGROFF(I,J)=0. 1747 C 1748 FQNEV(I,J)=0. !dule 1749 FQSEV(I,J)=0. !dule 1750 FCNEV(I,J)=0. !dule 1751 FCSEV(I,J)=0. !dule 1752 FCNEV7(I,J)=0. !dule 1753 FCSEV7(I,J)=0. !dule 1754 FQNEV7(I,J)=0. !dule Page 15 Source Listing INIT 2014-12-17 20:46 INIT.F 1755 FQSEV7(I,J)=0. !dule 1756 FQU(I,J)=0. !dule 1757 FQV(I,J)=0. !dule 1758 FCU(I,J)=0. !dule 1759 FCV(I,J)=0. !dule 1760 FQU7(I,J)=0. !dule 1761 FQV7(I,J)=0. !dule 1762 FCU7(I,J)=0. !dule 1763 FCV7(I,J)=0. !dule 1764 DQADV(I,J)=0. !dule 1765 DQFLX(I,J)=0. !dule 1766 DCFLX(I,J)=0. !dule 1767 DQFLX7(I,J)=0. !dule 1768 DCFLX7(I,J)=0. !dule 1769 DO L=1,LM !dule 1770 QOLD(I,J,L)=Q(I,J,L) !dule 1771 END DO !dule 1772 C 1773 ENDDO 1774 ENDDO 1775 ENDIF 1776 C 1777 C LONG WAVE RADIATION ARRAYS. 1778 C 1779 IF(MOD(NTSD,NRDLW).LT.NPHS)THEN 1780 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO ACCUM LW RADTN ARRAYS' 1781 ARDLW=0. 1782 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1783 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1784 ALWIN(I,J) =0. 1785 ALWOUT(I,J)=0. 1786 ALWTOA(I,J)=0. 1787 ENDDO 1788 ENDDO 1789 ENDIF 1790 C 1791 C SHORT WAVE RADIATION ARRAYS. 1792 C 1793 IF(MOD(NTSD,NRDSW).LT.NPHS)THEN 1794 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO ACCUM SW RADTN ARRAYS' 1795 ARDSW=0. 1796 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1797 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1798 ASWIN(I,J) =0. 1799 ASWOUT(I,J)=0. 1800 ASWTOA(I,J)=0. 1801 ENDDO 1802 ENDDO 1803 ENDIF 1804 C 1805 C SURFACE SENSIBLE AND LATENT HEAT FLUX ARRAYS. 1806 C 1807 IF(MOD(NTSD,NSRFC).LT.NPHS)THEN 1808 IF(MYPE.EQ.0)WRITE(LIST,*)' ZERO ACCUM SFC FLUX ARRAYS' 1809 ASRFC=0. 1810 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1811 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) Page 16 Source Listing INIT 2014-12-17 20:46 INIT.F 1812 SFCSHX(I,J)=0. 1813 SFCLHX(I,J)=0. 1814 SUBSHX(I,J)=0. 1815 SNOPCX(I,J)=0. 1816 SFCUVX(I,J)=0. 1817 SFCEVP(I,J)=0. 1818 POTEVP(I,J)=0. 1819 POTFLX(I,J)=0. 1820 ENDDO 1821 ENDDO 1822 ENDIF 1823 C 1824 C ENDIF FOR RESTART FILE ACCUMULATION ZERO BLOCK. 1825 C 1826 IF(MYPE.EQ.0)THEN 1827 WRITE(LIST,*)'INIT: INITIALIZED ARRAYS FOR RESTART START' 1828 ENDIF 1829 ENDIF 1830 C----------------------------------------------------------------------- 1831 C----------------------------------------------------------------------- 1832 C 1833 C INITIALIZE CLOUD CONSTANTS 1834 C 1835 C----------------------------------------------------------------------- 1836 DO 350 J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1837 DO 350 I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1838 U00(I,J)=(1.-SM(I,J))*0.75+SM(I,J)*0.80 1839 350 CONTINUE 1840 ! 1841 !--- Flag for initializing convective cloud arrays for radiation 1842 ! 1843 CURAD=.FALSE. 1844 C 1845 DO 355 L=1,2*LM 1846 IF(L.GE.LM-10.AND.L.LE.LM)THEN 1847 UL(L)=0.1*FLOAT(L-LM+10) 1848 ELSE 1849 UL(L)=0. 1850 ENDIF 1851 355 CONTINUE 1852 C 1853 C----------------- INITIALIZE T0, Q0 & P0 FOR GSCOND ------------------- 1854 C 1855 IF(NSTART.EQ.0)THEN 1856 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1857 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1858 P0(I,J)=PD(I,J) 1859 ENDDO 1860 ENDDO 1861 C 1862 DO L=1,LM 1863 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1864 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1865 T0(I,J,L)=T(I,J,L) 1866 Q0(I,J,L)=Q(I,J,L) 1867 ENDDO 1868 ENDDO Page 17 Source Listing INIT 2014-12-17 20:46 INIT.F 1869 ENDDO 1870 ENDIF 1871 C*** 1872 C*** SET INDEX ARRAYS FOR UPSTREAM ADVECTION 1873 C*** 1874 KNT=0 1875 DO J=3,5 1876 KNT=KNT+1 1877 IHLA(KNT)=2 1878 IHHA(KNT)=IM-1-MOD(J+1,2) 1879 IVLA(KNT)=2 1880 IVHA(KNT)=IM-1-MOD(J,2) 1881 JRA(KNT)=J 1882 ENDDO 1883 DO J=JM-4,JM-2 1884 KNT=KNT+1 1885 IHLA(KNT)=2 1886 IHHA(KNT)=IM-1-MOD(J+1,2) 1887 IVLA(KNT)=2 1888 IVHA(KNT)=IM-1-MOD(J,2) 1889 JRA(KNT)=J 1890 ENDDO 1891 DO J=6,JM-5 1892 KNT=KNT+1 1893 IHLA(KNT)=2 1894 IHHA(KNT)=2+MOD(J,2) 1895 IVLA(KNT)=2 1896 IVHA(KNT)=2+MOD(J+1,2) 1897 JRA(KNT)=J 1898 ENDDO 1899 DO J=6,JM-5 1900 KNT=KNT+1 1901 IHLA(KNT)=IM-2 1902 IHHA(KNT)=IM-2+MOD(J,2) 1903 IVLA(KNT)=IM-2 1904 IVHA(KNT)=IM-2+MOD(J+1,2) 1905 JRA(KNT)=J 1906 ENDDO 1907 C 1908 C*** SET ZERO-VALUE FOR SOME OUTPUT DIAGNOSTIC ARRAYS 1909 C 1910 IF(NSTART.EQ.0)THEN 1911 C 1912 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1913 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1914 PCTSNO(I,J)=-999.0 1915 IF(SM(I,J).LT.0.5)THEN 1916 IF(SICE(I,J).GT.0.5)THEN 1917 C 1918 C*** SEA-ICE CASE 1919 C 1920 SMSTAV(I,J)=1.0 1921 SMSTOT(I,J)=1.0 1922 SSROFF(I,J)=0.0 1923 BGROFF(I,J)=0.0 1924 CMC(I,J)=0.0 1925 DO NS=1,NSOIL Page 18 Source Listing INIT 2014-12-17 20:46 INIT.F 1926 SMC(I,J,NS)=1.0 1927 SH2O(I,J,NS)=1.0 1928 ENDDO 1929 ENDIF 1930 ELSE 1931 C 1932 C*** WATER CASE 1933 C 1934 SMSTAV(I,J)=1.0 1935 SMSTOT(I,J)=1.0 1936 SSROFF(I,J)=0.0 1937 BGROFF(I,J)=0.0 1938 SOILTB(I,J)=280.99 1939 GRNFLX(I,J)=0. 1940 SUBSHX(I,J)=0.0 1941 ACSNOW(I,J)=0.0 1942 ACSNOM(I,J)=0.0 1943 SNOPCX(I,J)=0.0 1944 CMC(I,J)=0.0 1945 SNO(I,J)=0.0 1946 DO NS=1,NSOIL 1947 SMC(I,J,NS)=1.0 1948 SH2O(I,J,NS)=1.0 1949 STC(I,J,NS)=273.16 1950 ENDDO 1951 ENDIF 1952 C 1953 ENDDO 1954 ENDDO 1955 C 1956 APHTIM=0.0 1957 ARATIM=0.0 1958 ACUTIM=0.0 1959 C 1960 ENDIF 1961 C 1962 C------------------------------------------------------------------- 1963 C INITIALIZE RADTN VARIABLES 1964 C CALCULATE THE NUMBER OF STEPS AT EACH POINT. 1965 C THE ARRAY 'LVL' WILL COORDINATE VERTICAL LOCATIONS BETWEEN 1966 C THE LIFTED WORKING ARRAYS AND THE FUNDAMENTAL MODEL ARRAYS. 1967 C LVL HOLDS THE HEIGHT (IN MODEL LAYERS) OF THE TOPOGRAPHY AT 1968 C EACH GRID POINT. 1969 C------------------------------------------------------------------- 1970 C 1971 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 1972 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) 1973 LVL(I,J)=LM-LMH(I,J) 1974 ENDDO 1975 ENDDO 1976 C 1977 C DETERMINE MODEL LAYER LIMITS FOR HIGH(3), MIDDLE(2), 1978 C AND LOW(1) CLOUDS. ALSO FIND MODEL LAYER THAT IS JUST BELOW 1979 C (HEIGHT-WISE) 400 MB. (K400) 1980 C 1981 K400=0 1982 PSUM=PT Page 19 Source Listing INIT 2014-12-17 20:46 INIT.F 1983 SLPM=101325. 1984 PDIF=SLPM-PT 1985 DO L=1,LM 1986 PSUM=PSUM+DETA(L)*PDIF 1987 IF(LTOP(3).EQ.0)THEN 1988 IF(PSUM.GT.PHITP)LTOP(3)=L 1989 ELSEIF(LTOP(2).EQ.0)THEN 1990 IF(PSUM.GT.PMDHI)LTOP(2)=L 1991 ELSEIF(K400.EQ.0)THEN 1992 IF(PSUM.GT.P400)K400=L 1993 ELSEIF(LTOP(1).EQ.0)THEN 1994 IF(PSUM.GT.PLOMD)LTOP(1)=L 1995 ENDIF 1996 ENDDO 1997 C 1998 C CALL GRADFS ONCE TO CALC. CONSTANTS AND GET O3 DATA 1999 C 2000 KCCO2=0 2001 C 2002 C CALCULATE THE MIDLAYER PRESSURES IN THE STANDARD ATMOSPHERE 2003 C 2004 PSS=101325. 2005 PDIF=PSS-PT 2006 C 2007 DO L=1,LM1 2008 PHALF(L+1)=AETA(L)*PDIF+PT 2009 ENDDO 2010 C 2011 PHALF(1)=0. 2012 PHALF(LP1)=PSS 2013 C 2014 CALL GRADFS(PHALF,KCCO2,NFILE) 2015 C 2016 C CALL SOLARD TO CALCULATE NON-DIMENSIONAL SUN-EARTH DISTANCE 2017 C 2018 IF(MYPE.EQ.0)CALL SOLARD(RAD1) 2019 CALL MPI_BCAST(RAD1,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 2020 C 2021 C CALL ZENITH SIMPLY TO GET THE DAY OF THE YEAR FOR 2022 C THE SETUP OF THE OZONE DATA 2023 C 2024 TIME=(NTSD-1)*DT 2025 CALL ZENITH(TIME,DAYI,HOUR) 2026 ADDL=0. 2027 IF(MOD(IDAT(3),4).EQ.0)ADDL=1. 2028 RANG=PI2*(DAYI-RLAG)/(365.25+ADDL) 2029 RSIN1=SIN(RANG) 2030 RCOS1=COS(RANG) 2031 RCOS2=COS(2.*RANG) 2032 CALL O3CLIM 2033 C 2034 C------------------------------------------------------------------- 2035 C*** SOME INITIAL VALUES RELATED TO TURBULENCE SCHEME 2036 C------------------------------------------------------------------- 2037 C 2038 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) 2039 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) Page 20 Source Listing INIT 2014-12-17 20:46 INIT.F 2040 C 2041 C TRY A SIMPLE LINEAR INTERP TO GET 2/10 M VALUES 2042 C 2043 PDSL(I,J)=PD(I,J)*RES(I,J) 2044 LMHK=LMH(I,J) 2045 LMVK=LMV(I,J) 2046 ULM=U(I,J,LMVK) 2047 VLM=V(I,J,LMVK) 2048 TLM=T(I,J,LMHK) 2049 QLM=Q(I,J,LMHK) 2050 PLM=PDSL(I,J)*AETA(LMHK)+PT 2051 APELM=(1.0E5/PLM)**CAPA 2052 APELMNW=(1.0E5/PSHLTR(I,J))**CAPA 2053 EXNERR=(PSHLTR(I,J)*1.E-5)**CAPA 2054 THLM=TLM*APELM 2055 DPLM=PDSL(I,J)*DETA(LMHK)*0.5 2056 DZLM=287.04*DPLM*TLM*(1.+0.608*QLM)/(9.801*PLM) 2057 2058 FAC1=30./DZLM 2059 FAC2=(DZLM-30.)/DZLM 2060 IF(DZLM.LE.30.)THEN 2061 FAC1=1. 2062 FAC2=0. 2063 ENDIF 2064 C 2065 IF(.NOT.RESTRT)THEN 2066 TH30(I,J)=FAC2*THS(I,J)+FAC1*THLM 2067 Q30(I,J)=FAC2*QS(I,J)+FAC1*QLM 2068 U30(I,J)=ULM 2069 V30(I,J)=VLM 2070 ENDIF 2071 C 2072 FAC1=10./DZLM 2073 FAC2=(DZLM-10.)/DZLM 2074 IF(DZLM.LE.10.)THEN 2075 FAC1=1. 2076 FAC2=0. 2077 ENDIF 2078 C 2079 IF(.NOT.RESTRT)THEN 2080 TH10(I,J)=FAC2*THS(I,J)+FAC1*THLM 2081 Q10(I,J)=FAC2*QS(I,J)+FAC1*QLM 2082 U10(I,J)=ULM 2083 V10(I,J)=VLM 2084 ENDIF 2085 C 2086 FAC1=2./DZLM 2087 FAC2=(DZLM-2.)/DZLM 2088 IF(DZLM.LE.2.)THEN 2089 FAC1=1. 2090 FAC2=0. 2091 ENDIF 2092 C 2093 IF(.NOT.RESTRT.OR.NEST)THEN 2094 TSHLTR(I,J)=(FAC2*THS(I,J)+FAC1*THLM) 2095 QSHLTR(I,J)=FAC2*QS(I,J)+FAC1*QLM 2096 ENDIF Page 21 Source Listing INIT 2014-12-17 20:46 INIT.F 2097 C*** 2098 C*** NEED TO CONVERT TO THETA IF IS THE RESTART CASE 2099 C*** AS CHKOUT.f WILL CONVERT TO TEMPERATURE 2100 C*** 2101 IF(RESTRT)THEN 2102 TSHLTR(I,J)=TSHLTR(I,J)*APELMNW 2103 ENDIF 2104 ENDDO 2105 ENDDO 2106 C 2107 C-------------------------------------------------------------------- 2108 C END OF SUBROUTINE INIT. 2109 C------------------------------------------------------------------- 2110 C 2111 IF(MYPE.EQ.0)THEN 2112 WRITE(LIST,*)'INIT: EXIT INIT AND START MODEL INTEGRATION' 2113 WRITE(LIST,*)' ' 2114 ENDIF 2115 C 2116 RETURN 2117 END ENTRY POINTS Name init_ Page 22 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 165 Label 406 401,415 166 Label 407 402 190 Label 413 398 195 Label 417 416 205 Label 471 486 210 Label 493 500 215 Label 504 481,498 220 Label 543 541 350 Label 890 887,888 355 Label 902 896 75 Label 318 315 80 Label 319 317 A1 Param 108 R(4) 4 scalar A2 Param 7 R(4) 4 scalar 88,604 A23M4L Param 88 R(4) 4 scalar A3 Param 7 R(4) 4 scalar 88,604 A4 Param 7 R(4) 4 scalar 88,604 ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACFRCV Scalar 4 R(4) 4 2 17955 COM 641,741 ACFRST Scalar 5 R(4) 4 2 17955 COM 643,743 ACMCLD Common 2 287288 ACMCLH Common 2 6463824 ACMPRE Common 2 287284 ACMRDL Common 2 3662832 ACMRDS Common 2 3662832 ACMSFC Common 2 574576 ACPREC Scalar 12 R(4) 4 2 17955 COM 575,788 ACSNOM Scalar 4 R(4) 4 2 17955 COM 646,795,993 ACSNOW Scalar 4 R(4) 4 2 17955 COM 645,794,992 ACUTIM Scalar 3 R(4) 4 scalar COM 1009 ADDL Local 1077 R(4) 4 scalar 1077,1078,1079 AETA Scalar 4 R(4) 4 1 45 COM 597,1059,1101 AETA1 Scalar 8 R(4) 4 1 45 COM AETA2 Scalar 9 R(4) 4 1 45 COM AFSI Scalar 26 R(4) 4 2 17955 COM AKHS Scalar 7 R(4) 4 2 17955 COM 585 AKMS Scalar 7 R(4) 4 2 17955 COM 264,584 ALBASE Scalar 20 R(4) 4 2 17955 COM ALBEDO Scalar 21 R(4) 4 2 17955 COM ALOG10 Func 671 scalar 671 ALSL Scalar 7 R(4) 4 1 39 COM 366 ALWIN Scalar 5 R(4) 4 2 17955 COM 649,835 ALWOUT Scalar 6 R(4) 4 2 17955 COM 650,836 ALWTOA Scalar 6 R(4) 4 2 17955 COM 651,837 APELM Local 1102 R(4) 4 scalar 1102,1105 APELMNW Local 1103 R(4) 4 scalar 1103,1153 APEM1 Local 598 R(4) 4 scalar 598,599 APHTIM Scalar 8 R(4) 4 scalar COM 1007 APREC Scalar 3 R(4) 4 2 17955 COM ARATIM Scalar 3 R(4) 4 scalar COM 1008 ARDLW Scalar 3 R(4) 4 scalar COM 634,832 Page 23 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References ARDSW Scalar 3 R(4) 4 scalar COM 633,846 ASRFC Scalar 3 R(4) 4 scalar COM 635,860 ASWIN Scalar 5 R(4) 4 2 17955 COM 652,849 ASWOUT Scalar 6 R(4) 4 2 17955 COM 653,850 ASWTOA Scalar 6 R(4) 4 2 17955 COM 654,851 AVCNVC Scalar 3 R(4) 4 scalar COM 637,757 AVGEFI Param 75 R(4) 4 scalar AVRAIN Scalar 3 R(4) 4 scalar COM 636,756 BCHR Local 470 R(4) 4 scalar 470,479,480,483,486,494,496,497,50 6,515 BGROFF Scalar 5 R(4) 4 2 17955 COM 648,797,974,988 BOCO Common 2 1860144 BTIM Local 284 R(4) 4 scalar 284,286,381,387 CAPA Param 5 R(4) 4 scalar 598,606,1102,1103,1104 CFRACH Scalar 4 R(4) 4 2 17955 COM CFRACL Scalar 3 R(4) 4 2 17955 COM CFRACM Scalar 4 R(4) 4 2 17955 COM CI Scalar 6 R(4) 4 scalar COM CLDEFI Scalar 11 R(4) 4 2 17955 COM 588 CLDINC Scalar 6 R(4) 4 2 17955 COM 579,792 CLDINC7 Scalar 6 R(4) 4 2 17955 COM 580,793 CLDWTR Common 2 3447720 CLOGES Local 671 R(4) 4 scalar 671,672 CM1 Param 94 R(4) 4 scalar 671 CM2 Param 94 R(4) 4 scalar 671 CM3 Param 94 R(4) 4 scalar 671 CMC Scalar 8 R(4) 4 2 17955 COM 975,995 CMLD Scalar 6 R(4) 4 scalar COM CNVBOT Scalar 18 R(4) 4 2 17955 COM CNVCLD Common 2 287280 CNVTOP Scalar 18 R(4) 4 2 17955 COM CONTIN Common 2 12999420 CONTRL Local 127 CHAR 40 scalar COS Func 1081 scalar 1081,1082 CP Param 5 R(4) 4 scalar 89 CPGFU Scalar 9 R(4) 4 2 17955 COM CPGFV Scalar 3 R(4) 4 scalar COM CPHI0 Scalar 9 R(4) 4 scalar COM CPRLG Param 89 R(4) 4 scalar CS Scalar 6 R(4) 4 scalar COM CTHK Scalar 184 R(4) 4 1 3 COM CTLBLK Common 4 112 CUINIT Common 196 4 CUPPT Scalar 3 R(4) 4 2 17955 COM CUPREC Scalar 13 R(4) 4 2 17955 COM 576,789 CURAD Scalar 196 L(4) 4 scalar COM 894 CURV Scalar 9 R(4) 4 2 17955 COM CWM Scalar 3 R(4) 4 3 807975 COM 626 CWMB Scalar 4 R(4) 4 3 77220 COM CZEN Scalar 16 R(4) 4 2 17955 COM CZMEAN Scalar 23 R(4) 4 2 17955 COM DAYI Local 1076 R(4) 4 scalar 1076,1079 DCFLX Scalar 14 R(4) 4 2 17955 COM 817 DCFLX7 Scalar 16 R(4) 4 2 17955 COM 819 DDMPU Scalar 12 R(4) 4 2 17955 COM Page 24 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References DDMPV Scalar 12 R(4) 4 2 17955 COM DETA Scalar 4 R(4) 4 1 45 COM 1037,1106 DETA1 Scalar 8 R(4) 4 1 45 COM DETA2 Scalar 9 R(4) 4 1 45 COM DFL Scalar 4 R(4) 4 1 46 COM DFRLG Scalar 9 R(4) 4 1 46 COM DI Scalar 6 R(4) 4 scalar COM DISLP Scalar 7 R(4) 4 scalar COM DIV Scalar 6 R(4) 4 3 807975 COM 259 DLMD Scalar 6 R(4) 4 scalar COM DP30 Scalar 6 R(4) 4 scalar COM DPHD Scalar 6 R(4) 4 scalar COM DPLM Local 1106 R(4) 4 scalar 1106,1107 DQADV Scalar 18 R(4) 4 2 17955 COM 815 DQFLX Scalar 13 R(4) 4 2 17955 COM 816 DQFLX7 Scalar 15 R(4) 4 2 17955 COM 818 DS Scalar 6 R(4) 4 scalar COM DSP0FL Param 56 R(4) 4 scalar 61,81 DSP0FS Param 60 R(4) 4 scalar 62,84 DSP0SL Param 61 R(4) 4 scalar 81 DSP0SS Param 62 R(4) 4 scalar 84 DSPBFL Param 56 R(4) 4 scalar 61,80 DSPBFS Param 60 R(4) 4 scalar 62,83 DSPBSL Param 61 R(4) 4 scalar 80 DSPBSS Param 62 R(4) 4 scalar 83 DSPC Param 75 R(4) 4 scalar DSPTFL Param 56 R(4) 4 scalar 61,82 DSPTFS Param 60 R(4) 4 scalar 62,85 DSPTSL Param 61 R(4) 4 scalar 82 DSPTSS Param 62 R(4) 4 scalar 85 DSTRB Subr 276 276 DT Scalar 6 R(4) 4 scalar COM 336,344,1075 DTD Scalar 5 R(4) 4 scalar COM 346,347,348,360 DTQ2 Scalar 5 R(4) 4 scalar COM 344,345,346,348,359 DTR Param 105 R(4) 4 scalar DTTOP Param 9 R(4) 4 scalar DX Scalar 8 R(4) 4 2 17955 COM DY Scalar 3 R(4) 4 scalar COM DYNAM Common 2 725404 DZLM Local 1107 R(4) 4 scalar 1107,1109,1110,1111,1123,1124,1125 ,1137,1138,1139 EF4T Scalar 3 R(4) 4 scalar COM EFIFC Param 74 R(4) 4 scalar EFIMN Param 46 R(4) 4 scalar 75,80,81,82,83,84,85,86 EFMNT Param 46 R(4) 4 scalar 86 ELIVW Param 6 R(4) 4 scalar 89 ELOCP Param 89 R(4) 4 scalar ELWV Param 6 R(4) 4 scalar 88,89 EM Scalar 6 R(4) 4 1 760 COM EMT Scalar 6 R(4) 4 1 760 COM EN Scalar 3 R(4) 4 scalar COM ENT Scalar 3 R(4) 4 scalar COM ENVAR Local 207 CHAR 4 scalar EPS Param 94 R(4) 4 scalar 673 EPSDN Param 11 R(4) 4 scalar Page 25 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References EPSNTP Param 74 R(4) 4 scalar EPSP Param 75 R(4) 4 scalar EPSQ Param 6 R(4) 4 scalar 714 EPSQ2 Param 102 R(4) 4 scalar 694 EPSR Scalar 13 R(4) 4 2 17955 COM EPSTH Param 11 R(4) 4 scalar EPSUP Param 11 R(4) 4 scalar EPSWET Param 102 R(4) 4 scalar ERLAM0 Scalar 9 R(4) 4 scalar COM ESE Local 672 R(4) 4 scalar 672,673 ETA Scalar 4 R(4) 4 1 46 COM ETA1 Scalar 8 R(4) 4 1 46 COM ETADT Scalar 7 R(4) 4 3 790020 COM 260 EXBC Local 121 L(4) 4 scalar EXCH_TIM Scalar 181 R(4) 4 scalar COM EXNERR Local 1104 R(4) 4 scalar 1104 EXP Func 564 scalar 564,604,610 F Scalar 11 R(4) 4 2 17955 COM F4D Scalar 3 R(4) 4 scalar COM F4Q Scalar 3 R(4) 4 scalar COM F4Q2 Scalar 4 R(4) 4 1 45 COM FAC1 Local 1109 R(4) 4 scalar 1109,1112,1117,1118,1123,1126,1131 ,1132,1137,1140,1145,1146 FAC2 Local 1110 R(4) 4 scalar 1110,1113,1117,1118,1124,1127,1131 ,1132,1138,1141,1145,1146 FAD Scalar 13 R(4) 4 2 17955 COM 267 FCB Param 46 R(4) 4 scalar FCC Param 46 R(4) 4 scalar 46 FCM Param 104 R(4) 4 scalar 582 FCNEV Scalar 5 R(4) 4 2 17955 COM 801 FCNEV1 Scalar 20 R(4) 4 2 17955 COM FCNEV7 Scalar 6 R(4) 4 2 17955 COM 803 FCP Scalar 10 R(4) 4 2 17955 COM FCSEV Scalar 5 R(4) 4 2 17955 COM 802 FCSEV1 Scalar 20 R(4) 4 2 17955 COM FCSEV7 Scalar 6 R(4) 4 2 17955 COM 804 FCSTDATA Local 202 scalar 298 FCU Scalar 9 R(4) 4 2 17955 COM 809 FCU7 Scalar 11 R(4) 4 2 17955 COM 813 FCV Scalar 9 R(4) 4 2 17955 COM 810 FCV7 Scalar 11 R(4) 4 2 17955 COM 814 FDIV Scalar 10 R(4) 4 2 17955 COM FILALL Local 127 CHAR 40 scalar FILCLD Local 128 CHAR 40 scalar FILMST Local 127 CHAR 40 scalar FILRAD Local 128 CHAR 40 scalar FILSFC Local 128 CHAR 40 scalar FILTKE Local 127 CHAR 40 scalar FILTMP Local 127 CHAR 40 scalar FILUNV Local 127 CHAR 40 scalar FIRST Scalar 121 L(4) 4 scalar COM 325,353 FIS Scalar 7 R(4) 4 2 17955 COM 582 FLOAT Func 898 scalar 898 FQNEV Scalar 2 R(4) 4 2 17955 COM 799 FQNEV1 Scalar 19 R(4) 4 2 17955 COM Page 26 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References FQNEV7 Scalar 3 R(4) 4 2 17955 COM 805 FQSEV Scalar 2 R(4) 4 2 17955 COM 800 FQSEV1 Scalar 19 R(4) 4 2 17955 COM FQSEV7 Scalar 3 R(4) 4 2 17955 COM 806 FQU Scalar 8 R(4) 4 2 17955 COM 807 FQU7 Scalar 10 R(4) 4 2 17955 COM 811 FQV Scalar 8 R(4) 4 2 17955 COM 808 FQV7 Scalar 10 R(4) 4 2 17955 COM 812 FSL Param 56 R(4) 4 scalar 61 FSS Param 46 R(4) 4 scalar 62 G Param 5 R(4) 4 scalar 89 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GFFC Scalar 19 R(4) 4 2 17955 COM GLAT Scalar 15 R(4) 4 2 17955 COM GLB_TABLE Common 37 128 GLON Scalar 15 R(4) 4 2 17955 COM GRADFS Subr 1065 1065 GRNFLX Scalar 5 R(4) 4 2 17955 COM 990 HBM2 Scalar 8 R(4) 4 2 17955 COM 263,694,703,704 HBM3 Scalar 8 R(4) 4 2 17955 COM HBOT Scalar 17 R(4) 4 2 17955 COM 590 HDAC Scalar 22 R(4) 4 2 17955 COM HDACV Scalar 22 R(4) 4 2 17955 COM HLATI Local 138 R(4) 4 1 1500 HLONI Local 138 R(4) 4 1 1500 HOUR Local 1076 R(4) 4 scalar 1076 HTM Scalar 6 R(4) 4 3 807975 COM 261,694,714 HTMG Scalar 52 R(4) 4 3 4183695 COM HTOP Scalar 17 R(4) 4 2 17955 COM 589 I Local 240 I(4) 4 scalar 240,242,244,246,368,369,374,375,53 9,540,541,555,557,559,560,563,564, 571,572,573,574,575,576,577,578,57 9,580,581,582,583,584,585,586,587, 588,589,590,597,599,600,601,603,60 4,605,606,609,610,612,613,614,615, 616,625,626,640,641,642,643,644,64 5,646,647,648,649,650,651,652,653, 654,655,656,657,658,659,660,661,66 2,669,670,671,673,693,694,700,701, 702,703,704,713,714,715,716,740,74 1,742,743,744,760,761,762,787,788, 789,790,791,792,793,794,795,796,79 7,799,800,801,802,803,804,805,806, 807,808,809,810,811,812,813,814,81 5,816,817,818,819,821,834,835,836, 837,848,849,850,851,862,863,864,86 5,866,867,868,869,870,888,889,908, 909,915,916,917,964,965,966,967,97 1,972,973,974,975,977,978,985,986, 987,988,989,990,991,992,993,994,99 5,996,998,999,1000,1023,1024,1090, 1094,1095,1096,1097,1098,1099,1100 ,1101,1103,1104,1106,1117,1118,111 9,1120,1131,1132,1133,1134,1145,11 Page 27 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 46,1153 IBCDAT Local 143 I(4) 4 1 8 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM 401,415,1078 IDATB Local 143 I(4) 4 1 3 453,455,461 IDIM1 Param 19 I(4) 4 scalar 2,3,4,5,6,7,8,9,10,11,12,13,14,15, 16,17,18,19,20,21,22,23,26,185 IDIM2 Param 19 I(4) 4 scalar 2,3,4,5,6,7,8,9,10,11,12,13,14,15, 16,17,18,19,20,21,22,23,26,185 IDTAD Scalar 6 I(4) 4 scalar COM IERR Local 404 I(4) 4 scalar 404,419 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM 555,571,625,640,669,693,700,713,74 0,760,787,834,848,862,888,908,915, 964,1023,1090 IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHE Scalar 3 I(4) 4 1 399 COM IHEG Scalar 9 I(4) 4 1 387 COM 231,232 IHHA Scalar 3 I(4) 4 1 760 COM 929,937,945,953 IHLA Scalar 3 I(4) 4 1 760 COM 928,936,944,952 IHRST Scalar 5 I(4) 4 scalar COM 401,415 IHRSTB Local 453 I(4) 4 scalar 453,455,462 IHW Scalar 3 I(4) 4 1 399 COM IHWG Scalar 9 I(4) 4 1 387 COM 232 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 9,16,19,43,44,45,46,47,51,52,57,11 2,113,240,244,246,431,929,931,937, 939,952,953,954,955 IMJM Param 112 I(4) 4 scalar IMT Param 113 I(4) 4 scalar INDX Common 2 6564 INDXG Common 8 8084 INIDAT Local 143 I(4) 4 1 8 INIT Subr 1 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INSIDEH Local 122 L(4) 4 scalar INSIDEV Local 122 L(4) 4 scalar INT Func 326 scalar 326,327,328,329,330,331,332,333,33 4,348,369 INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Scalar 5 I(4) 4 scalar COM 536,540,543,546,547 IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRAD Scalar 5 I(4) 4 1 45 COM 375 IRADG Scalar 9 I(4) 4 1 473 COM 242,246,375 IRCOL Scalar 22 I(4) 4 scalar COM IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM Page 28 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM IRTN Local 460 I(4) 4 scalar 460,461,462,463,465,507,509,1070 ISHDE Scalar 4 I(4) 4 1 99 COM 369,541,543,547 ISLOPE Scalar 7 I(4) 4 2 17955 COM ISLTYP Scalar 6 I(4) 4 2 17955 COM ISTART Local 468 I(4) 4 scalar 468,479,480,486,490,496,497 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM 555,571,625,640,669,693,700,713,74 0,760,787,834,848,862,888,908,915, 964,1023,1090 ITAIL Param 16 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 10,25 ITBQ Param 1 I(4) 4 scalar 11,25 ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITSTLOC Scalar 4 I(4) 4 scalar COM 221 IUNWGT Local 191 I(4) 4 scalar 191 IVE Scalar 4 I(4) 4 1 399 COM IVEG Scalar 9 I(4) 4 1 387 COM 233,234 IVGTYP Scalar 6 I(4) 4 2 17955 COM IVHA Scalar 3 I(4) 4 1 760 COM 931,939,947,955 IVLA Scalar 3 I(4) 4 1 760 COM 930,938,946,954 IVW Scalar 4 I(4) 4 1 399 COM IVWG Scalar 9 I(4) 4 1 387 COM 234 IXM Scalar 3 I(4) 4 scalar COM IYM Scalar 3 I(4) 4 scalar COM J Local 230 I(4) 4 scalar 230,231,232,233,234,554,557,559,56 0,563,564,570,572,573,574,575,576, 577,578,579,580,581,582,583,584,58 5,586,587,588,589,590,597,599,600, 601,603,604,605,606,609,610,612,61 3,614,615,616,624,626,639,641,642, 643,644,645,646,647,648,649,650,65 1,652,653,654,655,656,657,658,659, 660,661,662,668,670,671,673,692,69 4,699,701,702,703,704,712,714,715, 716,739,741,742,743,744,759,761,76 2,786,788,789,790,791,792,793,794, 795,796,797,799,800,801,802,803,80 4,805,806,807,808,809,810,811,812, 813,814,815,816,817,818,819,821,83 3,835,836,837,847,849,850,851,861, 863,864,865,866,867,868,869,870,88 7,889,907,909,914,916,917,926,929, 931,932,934,937,939,940,942,945,94 7,948,950,953,955,956,963,965,966, 967,971,972,973,974,975,977,978,98 5,986,987,988,989,990,991,992,993, 994,995,996,998,999,1000,1022,1024 ,1089,1094,1095,1096,1097,1098,109 9,1100,1101,1103,1104,1106,1117,11 18,1119,1120,1131,1132,1133,1134,1 145,1146,1153 Page 29 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References JAM Param 112 I(4) 4 scalar 3,6 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 2,3,4,5,6,7,8,9,10,11,12,13,14,15, 16,17,18,19,20,21,22,23,26,185 JDIM2 Param 20 I(4) 4 scalar 2,3,4,5,6,7,8,9,10,11,12,13,14,15, 16,17,18,19,20,21,22,23,26,185 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM 554,570,624,639,668,692,699,712,73 9,759,786,833,847,861,887,907,914, 963,1022,1089 JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JM Param 3 I(4) 4 scalar 9,17,20,43,44,45,46,47,51,52,57,11 2,230,431,934,942,950 JMP1 Param 112 I(4) 4 scalar JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JRA Scalar 3 I(4) 4 1 760 COM 932,940,948,956 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM 554,570,624,639,668,692,699,712,73 9,759,786,833,847,861,887,907,914, 963,1022,1089 JTAIL Param 17 I(4) 4 scalar JTB Param 1 I(4) 4 scalar 10,25 JTBQ Param 1 I(4) 4 scalar 25 JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM JTSTLOC Scalar 4 I(4) 4 scalar COM 222 K Local 315 I(4) 4 scalar 315 K400 Scalar 184 I(4) 4 scalar COM 1032,1042,1043 KBI Local 431 I(4) 4 scalar 431,432,433 KBI2 Local 432 I(4) 4 scalar 432,433 KCCO2 Local 1051 I(4) 4 scalar 1051,1065 KNT Local 239 I(4) 4 scalar 239,241,242,245,246,925,927,928,92 9,930,931,932,935,936,937,938,939, 940,943,944,945,946,947,948,951,95 2,953,954,955,956 KTM Scalar 5 I(4) 4 scalar COM 348,358 L Local 317 I(4) 4 scalar 317,365,366,623,626,691,694,711,71 4,715,716,758,761,762,820,821,896, 897,898,900,913,916,917,1036,1037, 1039,1041,1043,1045,1058,1059 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LABEL Local 125 CHAR 32 scalar LB Param 112 I(4) 4 scalar 3,4 LC Scalar 5 I(4) 4 2 17955 COM LIST Scalar 5 I(4) 4 scalar COM 290,301,302,303,304,305,306,307,30 8,309,310,311,312,313,314,315,316, Page 30 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 317,351,352,353,354,355,356,357,35 8,359,360,361,401,402,415,416,511, 526,536,546,724,738,753,785,831,84 5,859,878,1163,1164 LLMH Local 557 I(4) 4 scalar 557,559,560,563,572,597,599,600,60 9,702,703,704 LM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,21,52,113,252,253, 254,255,257,258,259,260,261,262,43 3,623,701,711,758,820,896,897,898, 913,1024,1036 LM1 Param 113 I(4) 4 scalar 691,1058 LMH Scalar 4 I(4) 4 2 17955 COM 557,572,702,1024,1095 LMHK Local 1095 I(4) 4 scalar 1095,1099,1100,1101,1106 LMV Scalar 4 I(4) 4 2 17955 COM 1096 LMVK Local 1096 I(4) 4 scalar 1096,1097,1098 LOG Func 366 scalar 366 LOOPS Common 2 158840 LP1 Param 113 I(4) 4 scalar 4,8,9,131,1063 LRECBC Local 433 I(4) 4 scalar 433,434 LSL Scalar 3 I(4) 4 scalar COM 283,365 LSM Param 3 I(4) 4 scalar 7,283,317 LTOP Scalar 184 I(4) 4 1 3 COM 1038,1039,1040,1041,1044,1045 LVL Scalar 185 I(4) 4 2 17955 COM 1024 MAPOT Common 2 1732 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MOD Func 231 scalar 231,233,737,751,784,830,844,858,92 9,931,937,939,945,947,953,955,1078 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar Page 31 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_BARRIER Subr 465 465,509 MPI_BCAST Subr 460 460,461,462,463,506,1070 MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 460,461,462,463,465,507,509,1070 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar Page 32 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar Page 33 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FINALIZE Subr 404 404,419 MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar 461,462 MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar 460 MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar Page 34 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 463,506,1070 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar Page 35 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MTSTPE Scalar 4 I(4) 4 scalar COM 223 MXSNAL Scalar 2 R(4) 4 2 17955 COM MYIE Scalar 4 I(4) 4 scalar COM 374 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 374 MYIS1 Scalar 4 I(4) 4 scalar COM Page 36 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM Page 37 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 273,290,300,335,350,400,414,429,46 7,489,511,518,535,545,554,555,570, 571,624,625,639,640,668,669,692,69 3,699,700,712,713,723,738,739,740, 752,759,760,785,786,787,831,833,83 4,845,847,848,859,861,862,877,887, 888,907,908,914,915,963,964,1022,1 023,1069,1089,1090,1162 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM 375 MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM N Local 272 I(4) 4 scalar 272,276 NBC Scalar 5 I(4) 4 scalar COM 434,437,453,455,470,471,472,473,47 4,475,476,477,480,483,494,497,511, 519,520,521,522,523,524,525,526 NBOCO Scalar 6 I(4) 4 scalar COM 515 NCFRCV Scalar 4 I(4) 4 2 17955 COM 642,742 NCFRST Scalar 5 I(4) 4 2 17955 COM 644,744 NCLOD Scalar 3 I(4) 4 scalar COM 331,356,737 NCNVC Scalar 7 I(4) 4 scalar COM 204,308,751 NCP Scalar 6 I(4) 4 scalar COM 328,354 NEST Scalar 121 L(4) 4 scalar COM 206,430,437,452,467,489,518,553,11 44 NFCST Scalar 5 I(4) 4 scalar COM NFILE Local 191 I(4) 4 scalar 191,1065 NHB Local 282 I(4) 4 scalar 282,285 NHB_TIM Scalar 180 R(4) 4 scalar COM 286 NHEAT Scalar 3 I(4) 4 scalar COM 330,355,751 NHIBU Local 289 I(4) 4 scalar 289 NINT Func 342 scalar 342,343,468,479,486,490,496,515 NMAP Local 203 I(4) 4 scalar 203,307,368,539 NPEBND Local 131 R(4) 4 scalar NPES Scalar 2 I(4) 4 scalar COM NPHS Scalar 7 I(4) 4 scalar COM 204,307,344,737,784,830,844,858 NPREC Scalar 6 I(4) 4 scalar COM 329,355,784 NRADL Scalar 7 I(4) 4 scalar COM 343,358 NRADLH Local 204 I(4) 4 scalar 204,309,343 NRADS Scalar 7 I(4) 4 scalar COM 342,358 Page 38 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References NRADSH Local 204 I(4) 4 scalar 204,309,342 NRDLW Scalar 3 I(4) 4 scalar COM 333,356,830 NRDSW Scalar 3 I(4) 4 scalar COM 332,356,844 NREC Local 491 I(4) 4 scalar 491,493,494,497 NROOT Param 1 I(4) 4 scalar NS Local 976 I(4) 4 scalar 976,977,978,997,998,999,1000 NSHDE Scalar 6 I(4) 4 scalar COM 536,543,546 NSOIL Param 1 I(4) 4 scalar 8,9,10,976,997 NSRFC Scalar 3 I(4) 4 scalar COM 334,357,858 NSTART Scalar 6 I(4) 4 scalar COM 326,354,906,961 NSTAT Param 114 I(4) 4 scalar 140 NTDDMP Scalar 6 I(4) 4 scalar COM 204,310,355 NTSD Scalar 6 I(4) 4 scalar COM 413,517,536,541,547,737,751,784,83 0,844,858,1075 NTSTM Scalar 6 I(4) 4 scalar COM 327,336,354,413 O3CLIM Subr 1083 1083 OCT90 Param 2 L(4) 4 scalar OMGALF Scalar 5 R(4) 4 3 807975 COM 258 P0 Scalar 4 R(4) 4 2 17955 COM 909 P400 Local 188 R(4) 4 scalar 188,1043 PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PBM Param 12 R(4) 4 scalar PCTSNO Scalar 5 R(4) 4 2 17955 COM 965 PD Scalar 3 R(4) 4 2 17955 COM 564,573,601,606,610,673,909,1094 PDB Scalar 3 R(4) 4 2 1716 COM PDIF Local 1035 R(4) 4 scalar 1035,1037,1056,1059 PDSL Scalar 3 R(4) 4 2 17955 COM 251,573,597,1094,1101,1106 PFRZ Param 13 R(4) 4 scalar PHALF Local 131 R(4) 4 1 46 1059,1062,1063,1065 PHITP Local 188 R(4) 4 scalar 188,1039 PHOUR Scalar 2 R(4) 4 2 17955 COM PHYS Common 4 1788916 PI2 Param 94 R(4) 4 scalar 1079 PL Scalar 7 R(4) 4 scalar COM PLBTM Local 189 R(4) 4 scalar 189 PLM Local 1101 R(4) 4 scalar 1101,1102,1107 PLOMD Local 188 R(4) 4 scalar 188,1045 PLQ Scalar 8 R(4) 4 scalar COM PM1 Local 597 R(4) 4 scalar 597,598 PMDHI Local 188 R(4) 4 scalar 188,1041 PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar PNO Param 12 R(4) 4 scalar PONE Param 12 R(4) 4 scalar POTEVP Scalar 7 R(4) 4 2 17955 COM 661,869 POTFLX Scalar 7 R(4) 4 2 17955 COM 662,870 PPTASM Common 1 3878292 PPTDAT Scalar 3 R(4) 4 3 53865 COM PQ0 Param 8 R(4) 4 scalar 604 PQM Param 12 R(4) 4 scalar PREC Scalar 12 R(4) 4 2 17955 COM 574 PSDT Scalar 3 R(4) 4 2 17955 COM PSFCK Local 601 R(4) 4 scalar 601,604 PSH Param 12 R(4) 4 scalar Page 39 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References PSHLTR Scalar 19 R(4) 4 2 17955 COM 564,610,1103,1104 PSHU Param 13 R(4) 4 scalar PSS Local 1055 R(4) 4 scalar 1055,1056,1063 PSUM Local 1033 R(4) 4 scalar 1033,1037,1039,1041,1043,1045 PT Scalar 3 R(4) 4 scalar COM 564,597,601,606,610,673,1033,1035, 1056,1059,1101 PT1 Scalar 5 R(4) 4 scalar COM PT2 Scalar 5 R(4) 4 scalar COM PTBL Scalar 25 R(4) 4 2 10184 COM PTOPC Scalar 184 R(4) 4 1 4 COM PVRBLS Common 2 5530140 Q Scalar 6 R(4) 4 3 807975 COM 253,599,600,714,821,917,1100 Q0 Scalar 3 R(4) 4 3 807975 COM 917 Q10 Scalar 16 R(4) 4 2 17955 COM 1132 Q2 Scalar 21 R(4) 4 3 807975 COM 694,701,703,704 Q2B Scalar 4 R(4) 4 3 77220 COM Q2INI Param 102 R(4) 4 scalar 703,704 Q30 Scalar 14 R(4) 4 2 17955 COM 1118 QB Scalar 3 R(4) 4 3 77220 COM QFLX Common 1 5027400 QLM Local 1100 R(4) 4 scalar 1100,1107,1118,1132,1146 QOLD Scalar 21 R(4) 4 3 807975 COM 821 QS Scalar 6 R(4) 4 2 17955 COM 583,604,614,673,1118,1132,1146 QS0 Scalar 10 R(4) 4 1 134 COM QSHLTR Scalar 18 R(4) 4 2 17955 COM 1146 QWBS Scalar 9 R(4) 4 2 17955 COM 587 QZ0 Scalar 5 R(4) 4 2 17955 COM 614 R Scalar 3 R(4) 4 scalar COM R1 Scalar 5 R(4) 4 scalar COM RAD1 Scalar 184 R(4) 4 scalar COM 1069,1070 RADIN Scalar 14 R(4) 4 2 17955 COM RADOT Scalar 14 R(4) 4 2 17955 COM RANG Local 1079 R(4) 4 scalar 1079,1080,1081,1082 RCOS1 Local 1081 R(4) 4 scalar 1081 RCOS2 Local 1082 R(4) 4 scalar 1082 RCP Param 89 R(4) 4 scalar RD1TIM Common 183 71880 RDETA Scalar 4 R(4) 4 1 45 COM RDP Scalar 7 R(4) 4 scalar COM RDPQ Scalar 8 R(4) 4 scalar COM RDQ Scalar 7 R(4) 4 scalar COM RDTH Scalar 7 R(4) 4 scalar COM RDTHE Scalar 7 R(4) 4 scalar COM RDTHEQ Scalar 8 R(4) 4 scalar COM READGRDETA Subr 390 390 READ_NHB Subr 285 285 READ_RESTRT Subr 383 383 READ_RESTRT2 Subr 385 385 RES Scalar 7 R(4) 4 2 17955 COM 256,573,1094 RESTRT Scalar 121 L(4) 4 scalar COM 203,296,304,569,733,1116,1130,1144 ,1152 RES_TIM Scalar 181 R(4) 4 scalar COM 387 RF Scalar 8 R(4) 4 2 17955 COM RHF Param 11 R(4) 4 scalar RLAG Param 95 R(4) 4 scalar 1079 Page 40 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References RLWIN Scalar 4 R(4) 4 2 17955 COM RLWOUT Scalar 4 R(4) 4 2 17955 COM RLWTOA Scalar 5 R(4) 4 2 17955 COM RLWTT Scalar 7 R(4) 4 3 807975 COM ROI Scalar 6 R(4) 4 scalar COM ROS Scalar 6 R(4) 4 scalar COM ROW Param 6 R(4) 4 scalar 89 RSIN1 Local 1080 R(4) 4 scalar 1080 RSWIN Scalar 4 R(4) 4 2 17955 COM RSWOUT Scalar 4 R(4) 4 2 17955 COM RSWTOA Scalar 5 R(4) 4 2 17955 COM RSWTT Scalar 7 R(4) 4 3 807975 COM RTDPTH Scalar 10 R(4) 4 1 4 COM RTOP Scalar 4 R(4) 4 3 807975 COM 257 RUN Scalar 121 L(4) 4 scalar COM 398 RUNB Local 121 L(4) 4 scalar 453,455,460 SBD Scalar 6 R(4) 4 scalar COM SFCEVP Scalar 6 R(4) 4 2 17955 COM 660,868 SFCEXC Scalar 3 R(4) 4 2 17955 COM SFCLHX Scalar 4 R(4) 4 2 17955 COM 656,864 SFCSHX Scalar 4 R(4) 4 2 17955 COM 655,863 SFCUVX Scalar 6 R(4) 4 2 17955 COM 659,867 SH2O Scalar 10 R(4) 4 3 71820 COM 978,999 SI Scalar 10 R(4) 4 2 17955 COM SICE Scalar 4 R(4) 4 2 17955 COM 967 SIGMA Scalar 121 L(4) 4 scalar COM SIGT4 Scalar 23 R(4) 4 2 17955 COM SIN Func 1080 scalar 1080 SINGLRST Local 2 L(4) 4 scalar 203,305,382 SLDPTH Scalar 10 R(4) 4 1 4 COM SLOP0L Param 81 R(4) 4 scalar SLOP0S Param 84 R(4) 4 scalar SLOPBL Param 80 R(4) 4 scalar SLOPBS Param 83 R(4) 4 scalar SLOPE Param 86 R(4) 4 scalar SLOPTL Param 82 R(4) 4 scalar SLOPTS Param 85 R(4) 4 scalar SLPM Local 1034 R(4) 4 scalar 1034,1035 SM Scalar 4 R(4) 4 2 17955 COM 581,603,605,670,673,889,966 SMC Scalar 8 R(4) 4 3 71820 COM 977,998 SMSTAV Scalar 4 R(4) 4 2 17955 COM 971,985 SMSTOT Scalar 4 R(4) 4 2 17955 COM 972,986 SNO Scalar 10 R(4) 4 2 17955 COM 996 SNOPCX Scalar 5 R(4) 4 2 17955 COM 658,866,994 SOIL Common 2 1651892 SOILTB Scalar 3 R(4) 4 2 17955 COM 989 SOLARD Subr 1069 1069 SPHI0 Scalar 9 R(4) 4 scalar COM SPL Scalar 7 R(4) 4 1 39 COM 203,317,366 SQS Scalar 10 R(4) 4 1 134 COM SR Scalar 5 R(4) 4 2 17955 COM SSROFF Scalar 5 R(4) 4 2 17955 COM 647,796,973,987 SST Scalar 20 R(4) 4 2 17955 COM 606,671 STABD Param 9 R(4) 4 scalar STABFC Param 9 R(4) 4 scalar Page 41 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References STABS Param 9 R(4) 4 scalar STC Scalar 9 R(4) 4 3 71820 COM 1000 STEFI Param 76 R(4) 4 scalar STHE Scalar 10 R(4) 4 1 76 COM STHEQ Scalar 11 R(4) 4 1 152 COM STRESH Param 8 R(4) 4 scalar SUBPOST Scalar 2 L(4) 4 scalar COM 203,306 SUBSHX Scalar 5 R(4) 4 2 17955 COM 657,865,991 SURFCE_TIM Scalar 181 R(4) 4 scalar COM T Scalar 5 R(4) 4 3 807975 COM 252,559,560,563,599,600,609,916,10 99 T0 Scalar 3 R(4) 4 3 807975 COM 916 T1 Param 8 R(4) 4 scalar TAUCV Scalar 184 R(4) 4 1 3 COM TB Scalar 3 R(4) 4 3 77220 COM TBOCO Local 453 R(4) 4 scalar 453,455,463 TCLOD Scalar 3 R(4) 4 scalar COM 205,312,331 TCP Local 203 R(4) 4 scalar 203,303,328 TCUCN Scalar 5 R(4) 4 3 807975 COM 716,762 TDTD Scalar 5 R(4) 4 scalar COM 347,360 TDTQ2 Scalar 5 R(4) 4 scalar COM 345,359 TEMP1 Scalar 43 R(4) 4 2 91719 COM 274,276 TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TEMPV Common 2 6535620 TEND Local 203 R(4) 4 scalar 203,302,327 TERM1 Local 563 R(4) 4 scalar 563,564,609,610 TFRZ Param 8 R(4) 4 scalar TG Scalar 19 R(4) 4 2 17955 COM TH10 Scalar 16 R(4) 4 2 17955 COM 1131 TH30 Scalar 14 R(4) 4 2 17955 COM 1117 THE0 Scalar 10 R(4) 4 1 76 COM THE0Q Scalar 11 R(4) 4 1 152 COM THEAT Scalar 3 R(4) 4 scalar COM 205,311,330 THL Scalar 7 R(4) 4 scalar COM THLATI Local 139 R(4) 4 1 1500 THLM Local 1105 R(4) 4 scalar 1105,1117,1131,1145 THLONI Local 139 R(4) 4 1 1500 THS Scalar 6 R(4) 4 2 17955 COM 599,606,613,1117,1131,1145 THZ0 Scalar 5 R(4) 4 2 17955 COM 613 Page 42 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References TIME Local 1075 R(4) 4 scalar 1075,1076 TIMEF Func 179 R(8) 8 scalar 284,286,381,387 TIMING Common 181 16 TLAT Scalar 2 R(4) 4 3 807975 COM TLM Local 1099 R(4) 4 scalar 1099,1105,1107 TLM0D Scalar 6 R(4) 4 scalar COM TOPO Common 50 17478548 TPH0D Scalar 6 R(4) 4 scalar COM TPREC Scalar 3 R(4) 4 scalar COM 205,311,329 TRAIN Scalar 4 R(4) 4 3 807975 COM 715,761 TRDLW Scalar 3 R(4) 4 scalar COM 205,313,333 TRDSW Scalar 3 R(4) 4 scalar COM 205,312,332 TREL Param 74 R(4) 4 scalar TSFCK Local 600 R(4) 4 scalar 600,604 TSHDE Scalar 8 R(4) 4 1 99 COM 203,315,369 TSHLTR Scalar 18 R(4) 4 2 17955 COM 1145,1153 TSLAT Local 140 R(4) 4 1 1000 TSLON Local 140 R(4) 4 1 1000 TSPH Scalar 5 R(4) 4 scalar COM 326,327,328,329,330,331,332,333,33 4,336,342,343,369,515 TSRFC Scalar 3 R(4) 4 scalar COM 205,313,334 TSTART Local 203 R(4) 4 scalar 203,302,326,468,490 TTBL Scalar 25 R(4) 4 2 10184 COM TTBLQ Scalar 25 R(4) 4 2 66880 COM TTVG Scalar 51 R(4) 4 2 92971 COM TVLATI Local 139 R(4) 4 1 1500 TVLONI Local 139 R(4) 4 1 1500 TWBS Scalar 9 R(4) 4 2 17955 COM 586 U Scalar 5 R(4) 4 3 807975 COM 254,1097 U00 Scalar 3 R(4) 4 2 17955 COM 889 U10 Scalar 17 R(4) 4 2 17955 COM 1133 U30 Scalar 15 R(4) 4 2 17955 COM 1119 UB Scalar 3 R(4) 4 3 77220 COM UL Scalar 4 R(4) 4 1 90 COM 898,900 ULM Local 1097 R(4) 4 scalar 1097,1119,1133 UNIL Param 2 L(4) 4 scalar UNIS Param 2 L(4) 4 scalar USTAR Scalar 3 R(4) 4 2 17955 COM 612 UZ0 Scalar 4 R(4) 4 2 17955 COM 265,615 V Scalar 6 R(4) 4 3 807975 COM 255,1098 V10 Scalar 17 R(4) 4 2 17955 COM 1134 V30 Scalar 15 R(4) 4 2 17955 COM 1120 VAPINC Scalar 5 R(4) 4 2 17955 COM 577,790 VAPINC7 Scalar 5 R(4) 4 2 17955 COM 578,791 VB Scalar 3 R(4) 4 3 77220 COM VBM2 Scalar 3 R(4) 4 2 17955 COM VBM3 Scalar 3 R(4) 4 2 17955 COM VEGFRC Scalar 7 R(4) 4 2 17955 COM VLATI Local 138 R(4) 4 1 1500 VLM Local 1098 R(4) 4 scalar 1098,1120,1134 VLONI Local 138 R(4) 4 1 1500 VRBLS Common 2 13143060 VTM Scalar 7 R(4) 4 3 807975 COM 262 VZ0 Scalar 4 R(4) 4 2 17955 COM 266,616 WA Param 108 R(4) 4 scalar 108 Page 43 Source Listing INIT 2014-12-17 20:46 Symbol Table INIT.F Name Object Declared Type Bytes Dimen Elements Attributes References WBD Scalar 6 R(4) 4 scalar COM WG Param 108 R(4) 4 scalar WPDAR Scalar 8 R(4) 4 2 17955 COM X1P Scalar 6 R(4) 4 scalar COM Y1P Scalar 6 R(4) 4 scalar COM Z0 Scalar 3 R(4) 4 2 17955 COM 581 Z0EFFT Common 2 287280 Z0LAND Param 104 R(4) 4 scalar 582 Z0SEA Param 104 R(4) 4 scalar 581 Z0SLP Scalar 7 R(4) 4 scalar COM ZEFFIJ Scalar 3 R(4) 4 3 71820 COM 276 ZENITH Subr 1076 1076 ZERO2 Subr 251 251,256,263,264,265,266,267 ZERO3 Subr 252 252,253,254,255,257,258,259,260,26 1,262 Page 44 Source Listing INIT 2014-12-17 20:46 INIT.F 2118 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 2119 BLOCK DATA CLOUD 2120 INCLUDE "parmeta" 2121 C----------------------------------------------------------------------- 2144 C O M M O N /RD1TIM/ 2145 1 K400,CTHK(3),LTOP(3),PTOPC(4),TAUCV(3),RAD1 2146 2,LVL(IDIM1:IDIM2,JDIM1:JDIM2) 2147 C----------------------------------------------------------------------- 2148 D A T A 2149 1 CTHK/20000.0,20000.0,20000.0/ 2150 1,TAUCV/0.16, 0.14, 0.12/, LTOP/0,0,0/ 2151 C----------------------------------------------------------------------- 2152 END BLOCK DATA CLOUD SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References CLOUD Block 1170 scalar CTHK Scalar 1174 R(4) 4 1 3 COM 1178 IDIM1 Param 19 I(4) 4 scalar 1175 IDIM2 Param 19 I(4) 4 scalar 1175 IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IM Param 3 I(4) 4 scalar 16,19 INPES Param 11 I(4) 4 scalar 16,19 ITAIL Param 16 I(4) 4 scalar JDIM1 Param 20 I(4) 4 scalar 1175 JDIM2 Param 20 I(4) 4 scalar 1175 JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JM Param 3 I(4) 4 scalar 17,20 JNPES Param 11 I(4) 4 scalar 17,20 JTAIL Param 17 I(4) 4 scalar K400 Scalar 1174 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar LSM Param 3 I(4) 4 scalar LTOP Scalar 1174 I(4) 4 1 3 COM 1179 LVL Scalar 1175 I(4) 4 2 17955 COM PTOPC Scalar 1174 R(4) 4 1 4 COM RAD1 Scalar 1174 R(4) 4 scalar COM RD1TIM Common 1173 71880 TAUCV Scalar 1174 R(4) 4 1 3 COM 1179 Page 45 Source Listing CLOUD 2014-12-17 20:46 Subprograms/Common Blocks INIT.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 2 287288 ACMCLH Common 2 6463824 ACMPRE Common 2 287284 ACMRDL Common 2 3662832 ACMRDS Common 2 3662832 ACMSFC Common 2 574576 BOCO Common 2 1860144 CLDWTR Common 2 3447720 CLOUD Block 1170 scalar CNVCLD Common 2 287280 CONTIN Common 2 12999420 CTLBLK Common 4 112 CUINIT Common 196 4 DYNAM Common 2 725404 GLB_TABLE Common 37 128 INDX Common 2 6564 INDXG Common 8 8084 INIT Subr 1 LOOPS Common 2 158840 MAPOT Common 2 1732 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPPCOM Common 1 1464 PHYS Common 4 1788916 PPTASM Common 1 3878292 PVRBLS Common 2 5530140 QFLX Common 1 5027400 RD1TIM Common 183 71880 RD1TIM Common 1173 71880 SOIL Common 2 1651892 TEMPCOM Common 42 6603768 TEMPV Common 2 6535620 TIMING Common 181 16 TOPO Common 50 17478548 VRBLS Common 2 13143060 Z0EFFT Common 2 287280 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte Page 46 Source Listing CLOUD 2014-12-17 20:46 INIT.F -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares Page 47 Source Listing CLOUD 2014-12-17 20:46 INIT.F -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 no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : INIT.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100