Page 1 Source Listing CHKOUT 2014-12-17 20:46 /tmpnwprd/ifortAgdedT.i 1 # 1 "CHKOUT.F" 2 SUBROUTINE CHKOUT 3 C 4 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 5 C . . . 6 C SUBPROGRAM: CHKOUT POSTS PROFILES AND OUTPUT POST DATA 7 C PRGRMMR: TREADON ORG: W/NP2 DATE: 93-02-26 8 C 9 C ABSTRACT: THIS ROUTINE POSTS PROFILE DATA AND WRITES 10 C COMMON BLOCKS TO TEMPORARY FILE FOR USE BY THE POST 11 C PROCESSOR. OPTIONALLY, IF RUN UNDER PSHELL THIS 12 C ROUTINE WILL SUBMIT POST JOBS AS THE MODEL RUNS. 13 C THIS ROUTINE REPLACES ETA MODEL SUBROUTINE OUTMAP. 14 C . 15 C 16 C PROGRAM HISTORY LOG: 17 C 93-02-26 RUSS TREADON 18 C 93-08-30 RUSS TREADON - ADDED DOCBLOC AND DIAGNOSTIC PROFILES. 19 C 95-03-31 T BLACK - CONVERTED FROM 1-D TO 2-D IN HORIZONTAL. 20 C 95-07-31 MIKE BALDWIN - REMOVED SOUNDING DIAGNOSTICS AND BUFR. 21 C 96-03-13 F MESINGER - IMPROVED REDUCTION TO SEA LEVEL 22 C (TO ACHIEVE EXACT CONSISTENCY WITH THE 23 C MODEL'S HYDROSTATIC EQUATION NEXT TO 24 C MOUNTAIN SIDES) 25 C 96-04-12 MIKE BALDWIN - MODIFIED SOUNDING OUTPUT 26 C 96-10-31 T BLACK - MODIFICATIONS FOR GENERATIONS OF NEST'S BCs 27 C 98-11-17 T BLACK - MODIFIED FOR DISTRIBUTED MEMORY 28 C 99-05-03 T BLACK - SLP REDUCTION, BCEX, AND PROFILES REMOVED; 29 C EACH PE WRITES ITS OWN MINI-RESTRT FILE 30 C 00-08-01 JIM TUCCILLO - QUILT SERVER CAPABILITY ADDED 31 C 00-10-11 T BLACK - MODIFICATIONS FOR RESTART CAPABILITY 32 C 33 C 34 C USAGE: CALL CHKOUT 35 C INPUT ARGUMENT LIST: 36 C NONE 37 C 38 C OUTPUT ARGUMENT LIST: 39 C NONE 40 C 41 C OUTPUT FILES: 42 C NONE 43 C 44 C SUBPROGRAMS CALLED: 45 C UTILITIES: 46 C 47 C LIBRARY: NONE 48 C 49 C COMMON BLOCKS: OUTFIL 50 C CTLBLK 51 C LOOPS 52 C MASKS 53 C MAPOT 54 C VRBLS 55 C PVRBLS 56 C DYNAMD 57 C PHYS2 Page 2 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 58 C BOCO 59 C CNVCLD 60 C CLDWTR 61 C CUINIT 62 C ACMCLD 63 C ACMCLH 64 C ACMPRE 65 C ACMRDL 66 C ACMRDS 67 C ACMSFC 68 C SOIL 69 C PRFHLD 70 C TEMPV 71 C INDX 72 C 73 C ATTRIBUTES: 74 C LANGUAGE: FORTRAN 90 75 C MACHINE : IBM SP 76 C$$$ 77 C 78 C INCLUDE/DECLARE PARAMETERS. 79 C 80 INCLUDE "parmeta" 103 INCLUDE "parm.tbl" 105 INCLUDE "parmsoil" 107 INCLUDE "mpp.h" 166 INCLUDE "mpif.h" 167 # 1 "./sp.h" 1 168 # 4 169 170 # 85 "CHKOUT.F" 2 171 C-------------------------------------------------------------------- 688 P A R A M E T E R 689 & (IMJM=IM*JM-JM/2,IMT=2*IM-1,JMT=JM/2+1,LB=2*IM+JM-3) 690 C-------------------------------------------------------------------- 691 P A R A M E T E R 692 & (LM1=LM-1,LP1=LM+1,JAM=6+2*(JM-10) 693 &, NRLX1=250,NRLX2=100) 694 C-------------------------------------------------------------------- 695 P A R A M E T E R 696 & (CAPA=0.285896) 697 C-------------------------------------------------------------------- 698 C 699 C DECLARE VARIABLES. 700 C 701 C-------------------------------------------------------------------- 702 L O G I C A L 703 & RUN,FIRST,RESTRT,SIGMA,STDRD,MESO,ONHOUR,EXBC,NEST 704 C-------------------------------------------------------------------- 705 CHARACTER*2 FHR 706 CHARACTER*8 OUTJOB 707 CHARACTER*13 ASSIGN 708 CHARACTER*4 ASTMRK,TMYY 709 CHARACTER*15 SUBMIT 710 CHARACTER*32 LABEL 711 INTEGER LABINT(4) 712 EQUIVALENCE(LABEL, LABINT) Page 3 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 713 CHARACTER*80 LINE 714 CHARACTER*1 LINE1(80) 715 CHARACTER*4 RESTHR 716 EQUIVALENCE (LINE,LINE1) 717 C-------------------------------------------------------------------- 718 R E A L 719 & PSLP (IDIM1:IDIM2,JDIM1:JDIM2) 720 &,PDS (IDIM1:IDIM2,JDIM1:JDIM2) 721 &,FACTR (IDIM1:IDIM2,JDIM1:JDIM2) 722 &,SWTTC (IDIM1:IDIM2,JDIM1:JDIM2,LM) 723 &,TTND (IDIM1:IDIM2,JDIM1:JDIM2,LM) 724 C 725 I N T E G E R 726 & IKNTS(0:INPES*JNPES-1),IDISP(0:INPES*JNPES-1) 727 C 728 R E A L 729 &,ALLOCATABLE,DIMENSION(:,:,:) :: TEMPSOIL 730 C 731 C-------------------------------------------------------------------- 732 CHARACTER FINFIL*50,DONE*10 733 C-------------------------------------------------------------------- 734 C 735 C INCLUDE COMMON BLOCKS. 736 C 737 C-------------------------------------------------------------------- 738 INCLUDE "OUTFIL.comm" 744 INCLUDE "CTLBLK.comm" 754 INCLUDE "LOOPS.comm" 761 INCLUDE "MASKS.comm" 772 INCLUDE "MAPOT.comm" 784 INCLUDE "VRBLS.comm" 794 INCLUDE "PVRBLS.comm" 824 INCLUDE "DYNAMD.comm" 840 INCLUDE "PHYS2.comm" 868 INCLUDE "BOCO.comm" 875 INCLUDE "CNVCLD.comm" 882 INCLUDE "ACMCLD.comm" 889 INCLUDE "ACMCLH.comm" 896 INCLUDE "ACMPRE.comm" 903 INCLUDE "ACMRDL.comm" 912 INCLUDE "ACMRDS.comm" 921 INCLUDE "ACMSFC.comm" 931 INCLUDE "SOIL.comm" 944 INCLUDE "PRFHLD.comm" 948 INCLUDE "CLDWTR.comm" 956 INCLUDE "INDX.comm" 968 INCLUDE "CONTIN.comm" 978 INCLUDE "TEMPV.comm" 985 INCLUDE "BUFFER.comm" 994 INCLUDE "QFLX.comm" 1018 INCLUDE "PPTASM.comm" 1019 !-------------------------------------------------------------------- 1043 COMMON /CUINIT/ CURAD 1044 save /cuinit/ 1045 LOGICAL CURAD 1046 C-------------------------------------------------------------------- 1047 C Page 4 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1048 C DECLARE EQUIVALENCES. 1049 C 1050 C-------------------------------------------------------------------- 1051 E Q U I V A L E N C E 1052 & (TTND (1,1,1),SWTTC(1,1,1)) 1053 C-------------------------------------------------------------------- 1054 I N T E G E R 1055 & JSTAT(MPI_STATUS_SIZE) 1056 C-------------------------------------------------------------------- 1057 REAL(8) SUMT(LM), 1058 & SUMT_0(LM), 1059 & SUMT2(LM), 1060 & SUMT2_0(LM) 1061 REAL(8) STDEV,RMS,TMEAN 1062 REAL TMAX(LM), TMAX_0(LM), TMIN(LM), TMIN_0(LM) 1063 REAL(8) STRWAIT, ENDWAIT, rtc 1064 INTEGER IHS 1065 DATA IHS/MPI_REQUEST_NULL/ 1066 INTEGER STATUS(MPI_STATUS_SIZE) 1067 INTEGER ISERVE 1068 C 1069 DATA ISERVE / 1 / 1070 C 1071 C-------------------------------------------------------------------- 1072 C*** 1073 C*** THE FOLLOWING ARE USED FOR TIMIMG PURPOSES ONLY 1074 C*** 1075 real*8 timef 1076 real nhb_tim,mpp_tim,init_tim 1077 common/timing/surfce_tim,nhb_tim,res_tim,exch_tim 1078 save /timing/ 1079 1080 common/timchk/slp_tim,gath_tim,wrt_tim,prof_tim 1081 1, bcex_tim,stat_tim 1082 save /timchk/ 1083 C*********************************************************************** 1084 C START CHKOUT HERE. 1085 C*********************************************************************** 1086 C*** 1087 C*** ON FIRST ENTRY INITIALIZE THE OUTPUT FILE TAG TO ZERO 1088 C*** AND DO PRELIMINARY PROFILE DATA ASSIGNMENTS 1089 C*** 1090 IF(NTSD.EQ.1)THEN 1091 ITAG=0 1092 C 1093 DO J=MYJS,MYJE 1094 DO I=MYIS,MYIE 1095 LMHK=LMH(I,J) 1096 TLL1=T(I,J,LMHK) 1097 TLMIN(I,J)=TLL1 1098 TLMAX(I,J)=TLL1 1099 ENDDO 1100 ENDDO 1101 ENDIF 1102 C*********************************************************************** 1103 C*** 1104 C*** UPDATE MAX AND MIN LOWEST LAYER TEMPS Page 5 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1105 C*** 1106 DO J=MYJS,MYJE 1107 DO I=MYIS,MYIE 1108 LMHK=LMH(I,J) 1109 TLL1=T(I,J,LMHK) 1110 IF(TLL1.LT.TLMIN(I,J))TLMIN(I,J)=TLL1 1111 IF(TLL1.GT.TLMAX(I,J))TLMAX(I,J)=TLL1 1112 ENDDO 1113 ENDDO 1114 C*********************************************************************** 1115 C*** 1116 C*** FIGURE OUT JUST WHERE IN THE FORECAST WE ARE. 1117 C*** 1118 NTSPH=INT(3600./DT+0.50) 1119 TIMES=(NTSD-1)*DT 1120 ONHOUR=.FALSE. 1121 IF((MOD(TIMES,3600.).EQ.0.).OR. 1122 1 (MOD(TIMES,3600.).GT.3600.-DT))ONHOUR=.TRUE. 1123 C------------------------------------------------------------------ 1124 C 1125 C IF THE CURRENT FORECAST TIME IS A FULL HOUR OR EQUALS 1126 C A FULL BLOWN POST TIME, THEN WRITE THE FIELDS. 1127 C IF NOT, EXIT THIS ROUTINE. 1128 C 1129 IF((NTSD.EQ.NSHDE).OR.ONHOUR)GO TO 100 1130 IF(NSTART.GT.0.AND.NSTART+1.EQ.NSHDE.AND. 1131 1 NTSD-1.EQ.NSHDE)GO TO 100 1132 ! 1133 !--- Begin: Initialize convective cloud fields for radiation before 1134 ! returning to EBU (Ferrier 23 Jan 02) 1135 ! 1136 IF (CURAD) THEN 1137 IF (MYPE .EQ. 0) THEN 1138 WRITE(0,"(a)") 'CHKOUT: Initialize CUPPT,HTOP,HBOT' 1139 WRITE(6,"(a)") 'CHKOUT: Initialize CUPPT,HTOP,HBOT' 1140 ENDIF 1141 DO J=MYJS,MYJE 1142 DO I=MYIS,MYIE 1143 CUPPT(I,J)=0. 1144 HTOP(I,J)=100. 1145 HBOT(I,J)=0. 1146 ENDDO 1147 ENDDO 1148 CURAD=.FALSE. 1149 ENDIF 1150 ! 1151 !--- End: 1152 ! 1153 RETURN 1154 C 1155 C IT IS TIME TO WRITE TO THE PROFILE FILE AND/OR WRITE 1156 C TEMPORARY FILES FOR A FULL BLOWN POST. 1157 C 1158 100 CONTINUE 1159 C--------------------------------------------------------------------- 1160 C 1161 C SET FORECAST HOUR. Page 6 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1162 C 1163 IHR=NTSD/TSPH+0.5 1164 C-------------------------------------------------------------------- 1165 C*** IF THIS IS NOT A FULL BLOWN OUTPUT TIME, 1166 C*** SKIP THE RESTART FILE AND POST JOB WRITES AND GO TO SECTION 1167 C*** WHERE ACCUMULATION ARRAYS ARE ZEROED OUT IF NECESSARY. 1168 C-------------------------------------------------------------------- 1169 C 1170 IF(NTSD.NE.NSHDE.AND.NSTART+1.NE.NSHDE)GO TO 1310 1171 C 1172 C-------------------------------------------------------------------- 1173 C*** 1174 C*** COMPUTE TEMPERATURE STATISTICS 1175 C*** 1176 C-------------------------------------------------------------------- 1177 btim0=timef() 1178 DO 1100 L=1,LM 1179 C 1180 TMAX(L)=-1.E6 1181 TMIN(L)=1.E6 1182 SUMT(L)=0. 1183 SUMT2(L)=0. 1184 C 1185 JJ=0 1186 DO J=MY_JS_GLB,MY_JE_GLB 1187 JJ=JJ+1 1188 IF(MOD(J+1,2).NE.0.and.MY_IE_GLB.EQ.IM)THEN 1189 IMAX=MY_IE_LOC-1 1190 ELSE 1191 IMAX=MY_IE_LOC 1192 ENDIF 1193 DO I=MYIS,IMAX 1194 SUMT(L)=SUMT(L)+T(I,JJ,L) 1195 SUMT2(L)=SUMT2(L)+T(I,JJ,L)**2 1196 TMAX(L)=AMAX1(TMAX(L),T(I,JJ,L)) 1197 TMIN(L)=AMIN1(TMIN(L),T(I,JJ,L)) 1198 ENDDO 1199 ENDDO 1200 1100 CONTINUE 1201 C 1202 C*** GLOBAL STATS 1203 C 1204 CALL MPI_REDUCE(SUMT,SUMT_0,LM,MPI_REAL8,MPI_SUM,0, 1205 1 MPI_COMM_COMP,IRTN) 1206 CALL MPI_REDUCE(SUMT2,SUMT2_0,LM,MPI_REAL8,MPI_SUM,0, 1207 1 MPI_COMM_COMP,IRTN) 1208 CALL MPI_REDUCE(TMAX,TMAX_0,LM,MPI_REAL,MPI_MAX,0, 1209 1 MPI_COMM_COMP,IRTN) 1210 CALL MPI_REDUCE(TMIN,TMIN_0,LM,MPI_REAL,MPI_MIN,0, 1211 1 MPI_COMM_COMP,IRTN) 1212 C 1213 C 1214 IF(MYPE.EQ.0)THEN 1215 DO L=1,LM 1216 TMEAN=SUMT_0(L)/DBLE(IMJM) 1217 STDEV=DSQRT((DBLE(IMJM)*SUMT2_0(L)-SUMT_0(L)**2)/ 1218 1 DBLE(DBLE(IMJM)*(DBLE(IMJM-1)))) Page 7 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1219 RMS =DSQRT(SUMT2_0(L)/DBLE(IMJM)) 1220 WRITE(6,1094)L,TMAX_0(L),TMIN_0(L) 1221 WRITE(6,1095)TMEAN,STDEV,RMS 1222 1094 FORMAT(' LAYER=',I2,' TMAX=',E13.6,' TMIN=',E13.6) 1223 1095 FORMAT(9X,' TMEAN=',E13.6,' STDEV=',E13.6, 1224 1 ' RMS=',E13.6) 1225 ENDDO 1226 ENDIF 1227 C 1228 stat_tim=stat_tim+timef()-btim0 1229 C 1230 C---------------------------------------------------------------------- 1231 C*** WE REACH THE CODE BELOW ONLY IF IT IS A FULL BLOWN POSTING TIME. 1232 C*** WRITE DATA REQUIRED TO RESTART THE MODEL/INITIALIZE THE POST. 1233 C---------------------------------------------------------------------- 1234 CALL MPI_BARRIER(MPI_COMM_COMP,ISTAT) 1235 C 1236 C PDS IS SURFACE PRESSURE. 1237 C TSHLTR HOLDS THE 2M THETA, CONVERT TO TEMPERATURE. 1238 C TERM1 IS 2m*G/(Rd*T) 1239 C 1240 !$omp parallel do 1241 DO J=MYJS,MYJE 1242 DO I=MYIS,MYIE 1243 LLMH=LMH(I,J) 1244 PDS(I,J)=PD(I,J)+PT 1245 TERM1=-0.068283/T(I,J,LLMH) 1246 PSHLTR(I,J)=PDS(I,J)*EXP(TERM1) 1247 TSHLTR(I,J)=TSHLTR(I,J)*(PSHLTR(I,J)*1.E-5)**CAPA 1248 C 1249 IF(CZMEAN(I,J).GT.0.)THEN 1250 FACTR(I,J)=CZEN(I,J)/CZMEAN(I,J) 1251 ELSE 1252 FACTR(I,J)=0. 1253 ENDIF 1254 C 1255 ENDDO 1256 ENDDO 1257 C 1258 C MAKE SURE POST DOES NOT BLOW UP WHEN COMPUTING RH 1259 C ON THE GLOBAL N/S BOUNDARIES 1260 C 1261 IF(MYPE.LT.INPES)THEN 1262 DO J=1,2 1263 DO I=MYIS,MYIE 1264 TSHLTR(I,J)=TSHLTR(I,3) 1265 QSHLTR(I,J)=QSHLTR(I,3) 1266 ENDDO 1267 ENDDO 1268 ENDIF 1269 IF(MYPE.GE.NPES-INPES)THEN 1270 DO J=MYJE-1,MYJE 1271 DO I=MYIS,MYIE 1272 TSHLTR(I,J)=TSHLTR(I,MYJE-2) 1273 QSHLTR(I,J)=QSHLTR(I,MYJE-2) 1274 ENDDO 1275 ENDDO Page 8 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1276 ENDIF 1277 C 1278 C SWTTC IS THE CURRENT SW TEMP TENDENCIES. 1279 C 1280 !$omp parallel do 1281 DO L=1,LM 1282 DO J=MYJS,MYJE 1283 DO I=MYIS,MYIE 1284 SWTTC(I,J,L)=RSWTT(I,J,L)*FACTR(I,J) 1285 ENDDO 1286 ENDDO 1287 ENDDO 1288 C 1289 C*** TTND IS THE CURRENT RAD TEMP TENDENCIES. 1290 C 1291 DO L=1,LM 1292 DO J=MYJS,MYJE 1293 DO I=MYIS,MYIE 1294 TTND(I,J,L)=RLWTT(I,J,L)+SWTTC(I,J,L) 1295 ENDDO 1296 ENDDO 1297 ENDDO 1298 C*** 1299 C*** CREATE NAME FOR RESTART FILE. 1300 C*** 1301 c IF(MYPE.EQ.0)THEN 1302 C 1303 ITAG=NTSD/TSPH+0.5 1304 CALL get_environment_variable("tmmark",RESTHR) 1305 IF(RESTHR.EQ.' ')THEN 1306 c WRITE(RSTFIL,1150)ITAG,MYPE 1307 c1150 FORMAT('restrt',I2.2 1308 c 1, '.',I3.3) 1309 WRITE(RSTFIL,1150)ITAG 1310 1150 FORMAT('restrt',I2.2 1311 1, '.quilt') 1312 ELSE 1313 c WRITE(RSTFIL,1155)ITAG,MYPE,RESTHR 1314 c1155 FORMAT('restrt',I2.2 1315 c 1, '.',I3.3,'.',a4) 1316 WRITE(RSTFIL,1155)ITAG,RESTHR 1317 1155 FORMAT('restrt',I2.2 1318 1, '.quilt.',a4) 1319 ENDIF 1320 C*** 1321 C*** OPEN UNIT TO RESTART FILE. 1322 C*** 1323 C wne LRSTRT=8 1324 LRSTRT=81 1325 c 1326 wrt_tim=0. 1327 btimw=timef() 1328 btim0=timef() 1329 c 1330 CLOSE(LRSTRT) 1331 c OPEN(UNIT=LRSTRT,FILE=RSTFIL,FORM='UNFORMATTED',IOSTAT=IER) 1332 c IF(IER.NE.0)WRITE(LIST,*)' LRSTRT OPEN UNIT ERROR IER=',IER Page 9 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1333 C 1334 C BE SURE THAT THE BUFFER IF AVAILABLE 1335 C 1336 STRWAIT = rtc() 1337 CALL MPI_WAIT(IHS,STATUS,IERR) 1338 ENDWAIT = rtc() - STRWAIT 1339 C 1340 IF(MYPE.EQ.0)THEN 1341 IF(ENDWAIT.GE.1.)THEN 1342 PRINT*,' Appears to be wait time in CHKOUT, time = ' 1343 1, ENDWAIT 1344 ENDIF 1345 ENDIF 1346 C 1347 C PLACEHOLDER FOR RECORD LENGTH 1348 CALL COAL(DUMMY,-1) 1349 C*** 1350 C*** WRITE DATE AND TIMESTEP INFORMATION TO RESTART FILE. 1351 C*** 1352 LABEL='OMEGA-ALPHA*DT/CP' 1353 c WRITE(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1354 print*,'rstfil=',rstfil 1355 print*,'idat,ihrst,ntsd=',idat,ihrst,ntsd 1356 CALL COAL(RUN,1) 1357 CALL COAL(IDAT,3) 1358 CALL COAL(IHRST,1) 1359 CALL COAL(NTSD,1) 1360 CALL COAL(LABEL,8) 1361 c ENDIF 1362 C---------------------------------------------------------------------- 1363 C*** 1364 C*** BEGIN WRITING THE RESTRT FILE 1365 C*** 1366 C---------------------------------------------------------------------- 1367 C 1368 c WRITE(LRSTRT)((PD(I,J),I=1,MYIE),J=1,MYJE) 1369 c 1, ((RES(I,J),I=1,MYIE),J=1,MYJE) 1370 CALL COAL(PD(1:MYIE,1:MYJE),MYIE*MYJE) 1371 CALL COAL(RES(1:MYIE,1:MYJE),MYIE*MYJE) 1372 C---------------------------------------------------------------------- 1373 C 1374 DO L=1,LM 1375 c WRITE(LRSTRT)((OMGALF(I,J,L),I=1,MYIE),J=1,MYJE) 1376 CALL COAL(OMGALF(1:MYIE,1:MYJE,L),MYIE*MYJE) 1377 ENDDO 1378 c rec46 1379 C 1380 LABEL = 'BND,PD,RES,T,Q,U,V,Q2,TTND,CWM,TRAIN,TCUCN' 1381 c WRITE(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1382 c 1, FIRST,IOUT,NSHDE 1383 CALL COAL(RUN,1) 1384 CALL COAL(IDAT,3) 1385 CALL COAL(IHRST,1) 1386 CALL COAL(NTSD,1) 1387 CALL COAL(LABEL,8) 1388 CALL COAL(FIRST,1) 1389 CALL COAL(IOUT,1) Page 10 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1390 CALL COAL(NSHDE,1) 1391 c rec47 1392 C---------------------------------------------------------------------- 1393 C 1394 c WRITE(LRSTRT)((PD(I,J),I=1,MYIE),J=1,MYJE) 1395 c 1, ((RES(I,J),I=1,MYIE),J=1,MYJE) 1396 c 2, ((FIS(I,J),I=1,MYIE),J=1,MYJE) 1397 CALL COAL(PD(1:MYIE,1:MYJE),MYIE*MYJE) 1398 CALL COAL(RES(1:MYIE,1:MYJE),MYIE*MYJE) 1399 CALL COAL(FIS(1:MYIE,1:MYJE),MYIE*MYJE) 1400 CCCCC 1401 CCCCC 1402 CCCCC BOUNDARY CONDITION WRITE CHANGED TO BLANK RECORD 1403 CCCCC 1404 CCCCC 1405 c WRITE(LRSTRT) 1406 CALL COAL(PDB,LB*2) 1407 CALL COAL(TB,LB*LM*2) 1408 CALL COAL(QB,LB*LM*2) 1409 CALL COAL(UB,LB*LM*2) 1410 CALL COAL(VB,LB*LM*2) 1411 CALL COAL(Q2B,LB*LM*2) 1412 CALL COAL(CWMB,LB*LM*2) 1413 c rec48 1414 C---------------------------------------------------------------------- 1415 C 1416 DO L = 1,LM 1417 c WRITE(LRSTRT)((T(I,J,L),I=1,MYIE),J=1,MYJE) 1418 CALL COAL(T(1:MYIE,1:MYJE,L),MYIE*MYJE) 1419 C 1420 c WRITE(LRSTRT)((Q(I,J,L),I=1,MYIE),J=1,MYJE) 1421 CALL COAL(Q(1:MYIE,1:MYJE,L),MYIE*MYJE) 1422 C 1423 c WRITE(LRSTRT)((U(I,J,L),I=1,MYIE),J=1,MYJE) 1424 CALL COAL(U(1:MYIE,1:MYJE,L),MYIE*MYJE) 1425 C 1426 c WRITE(LRSTRT)((V(I,J,L),I=1,MYIE),J=1,MYJE) 1427 CALL COAL(V(1:MYIE,1:MYJE,L),MYIE*MYJE) 1428 C 1429 c WRITE(LRSTRT)((Q2(I,J,L),I=1,MYIE),J=1,MYJE) 1430 CALL COAL(Q2(1:MYIE,1:MYJE,L),MYIE*MYJE) 1431 C 1432 c WRITE(LRSTRT)((TTND(I,J,L),I=1,MYIE),J=1,MYJE) 1433 CALL COAL(TTND(1:MYIE,1:MYJE,L),MYIE*MYJE) 1434 C 1435 c WRITE(LRSTRT)((CWM(I,J,L),I=1,MYIE),J=1,MYJE) 1436 CALL COAL(CWM(1:MYIE,1:MYJE,L),MYIE*MYJE) 1437 C 1438 c WRITE(LRSTRT)((TRAIN(I,J,L),I=1,MYIE),J=1,MYJE) 1439 CALL COAL(TRAIN(1:MYIE,1:MYJE,L),MYIE*MYJE) 1440 C 1441 c WRITE(LRSTRT)((TCUCN(I,J,L),I=1,MYIE),J=1,MYJE) 1442 CALL COAL(TCUCN(1:MYIE,1:MYJE,L),MYIE*MYJE) 1443 ENDDO 1444 c rec453 1445 C---------------------------------------------------------------------- 1446 C Page 11 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1447 LABEL = 'MISC VARIABLES' 1448 c WRITE(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1449 c 1, ((RSWIN(I,J),I=1,MYIE),J=1,MYJE) 1450 c 2, ((RSWOUT(I,J),I=1,MYIE),J=1,MYJE) 1451 c 3, ((TG(I,J),I=1,MYIE),J=1,MYJE) 1452 c 4, ((Z0(I,J),I=1,MYIE),J=1,MYJE) 1453 c 5, ((AKMS(I,J),I=1,MYIE),J=1,MYJE) 1454 c 6, ((CZEN(I,J),I=1,MYIE),J=1,MYJE) 1455 CALL COAL(RUN,1) 1456 CALL COAL(IDAT,3) 1457 CALL COAL(IHRST,1) 1458 CALL COAL(NTSD,1) 1459 CALL COAL(LABEL,8) 1460 CALL COAL(RSWIN(1:MYIE,1:MYJE),MYIE*MYJE) 1461 CALL COAL(RSWOUT(1:MYIE,1:MYJE),MYIE*MYJE) 1462 CALL COAL(TG(1:MYIE,1:MYJE),MYIE*MYJE) 1463 CALL COAL(Z0(1:MYIE,1:MYJE),MYIE*MYJE) 1464 CALL COAL(AKMS(1:MYIE,1:MYJE),MYIE*MYJE) 1465 CALL COAL(CZEN(1:MYIE,1:MYJE),MYIE*MYJE) 1466 1467 c rec454 1468 C---------------------------------------------------------------------- 1469 C 1470 c WRITE(LRSTRT)((AKHS(I,J),I=1,MYIE),J=1,MYJE) 1471 c 1, ((THS(I,J),I=1,MYIE),J=1,MYJE) 1472 c 2, ((QS(I,J),I=1,MYIE),J=1,MYJE) 1473 c 3, ((TWBS(I,J),I=1,MYIE),J=1,MYJE) 1474 c 4, ((QWBS(I,J),I=1,MYIE),J=1,MYJE) 1475 c 5, ((HBOT(I,J),I=1,MYIE),J=1,MYJE) 1476 c 6, ((CFRACL(I,J),I=1,MYIE),J=1,MYJE) 1477 CALL COAL(AKHS(1:MYIE,1:MYJE),MYIE*MYJE) 1478 CALL COAL(THS(1:MYIE,1:MYJE),MYIE*MYJE) 1479 CALL COAL(QS(1:MYIE,1:MYJE),MYIE*MYJE) 1480 CALL COAL(TWBS(1:MYIE,1:MYJE),MYIE*MYJE) 1481 CALL COAL(QWBS(1:MYIE,1:MYJE),MYIE*MYJE) 1482 CALL COAL(HBOT(1:MYIE,1:MYJE),MYIE*MYJE) 1483 CALL COAL(CFRACL(1:MYIE,1:MYJE),MYIE*MYJE) 1484 c rec455 1485 C---------------------------------------------------------------------- 1486 C 1487 c WRITE(LRSTRT)((THZ0(I,J),I=1,MYIE),J=1,MYJE) 1488 c 1, ((QZ0(I,J),I=1,MYIE),J=1,MYJE) 1489 c 2, ((UZ0(I,J),I=1,MYIE),J=1,MYJE) 1490 c 3, ((VZ0(I,J),I=1,MYIE),J=1,MYJE) 1491 c 4, ((USTAR(I,J),I=1,MYIE),J=1,MYJE) 1492 c 5, ((HTOP(I,J),I=1,MYIE),J=1,MYJE) 1493 c 6, ((CFRACM(I,J),I=1,MYIE),J=1,MYJE) 1494 CALL COAL(THZ0(1:MYIE,1:MYJE),MYIE*MYJE) 1495 CALL COAL(QZ0(1:MYIE,1:MYJE),MYIE*MYJE) 1496 CALL COAL(UZ0(1:MYIE,1:MYJE),MYIE*MYJE) 1497 CALL COAL(VZ0(1:MYIE,1:MYJE),MYIE*MYJE) 1498 CALL COAL(USTAR(1:MYIE,1:MYJE),MYIE*MYJE) 1499 CALL COAL(HTOP(1:MYIE,1:MYJE),MYIE*MYJE) 1500 CALL COAL(CFRACM(1:MYIE,1:MYJE),MYIE*MYJE) 1501 c rec456 1502 C---------------------------------------------------------------------- 1503 C Page 12 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1504 c WRITE(LRSTRT)((SNO(I,J),I=1,MYIE),J=1,MYJE) 1505 c 1, ((SI(I,J),I=1,MYIE),J=1,MYJE) 1506 c 2, ((CLDEFI(I,J),I=1,MYIE),J=1,MYJE) 1507 c 3, ((RF(I,J),I=1,MYIE),J=1,MYJE) 1508 c 4, ((PSLP(I,J),I=1,MYIE),J=1,MYJE) 1509 c 5, ((CUPPT(I,J),I=1,MYIE),J=1,MYJE) 1510 c 6, ((CFRACH(I,J),I=1,MYIE),J=1,MYJE) 1511 CALL COAL(SNO(1:MYIE,1:MYJE),MYIE*MYJE) 1512 CALL COAL(SI(1:MYIE,1:MYJE),MYIE*MYJE) 1513 CALL COAL(CLDEFI(1:MYIE,1:MYJE),MYIE*MYJE) 1514 CALL COAL(RF(1:MYIE,1:MYJE),MYIE*MYJE) 1515 CALL COAL(PSLP(1:MYIE,1:MYJE),MYIE*MYJE) 1516 CALL COAL(CUPPT(1:MYIE,1:MYJE),MYIE*MYJE) 1517 CALL COAL(CFRACH(1:MYIE,1:MYJE),MYIE*MYJE) 1518 c rec457 1519 C---------------------------------------------------------------------- 1520 C 1521 c WRITE(LRSTRT)((SOILTB(I,J),I=1,MYIE),J=1,MYJE) 1522 c 1, ((SFCEXC(I,J),I=1,MYIE),J=1,MYJE) 1523 c 2, ((SMSTAV(I,J),I=1,MYIE),J=1,MYJE) 1524 c 3, ((SMSTOT(I,J),I=1,MYIE),J=1,MYJE) 1525 c 4, ((GRNFLX(I,J),I=1,MYIE),J=1,MYJE) 1526 c 5, ((PCTSNO(I,J),I=1,MYIE),J=1,MYJE) 1527 CALL COAL(SOILTB(1:MYIE,1:MYJE),MYIE*MYJE) 1528 CALL COAL(SFCEXC(1:MYIE,1:MYJE),MYIE*MYJE) 1529 CALL COAL(SMSTAV(1:MYIE,1:MYJE),MYIE*MYJE) 1530 CALL COAL(SMSTOT(1:MYIE,1:MYJE),MYIE*MYJE) 1531 CALL COAL(GRNFLX(1:MYIE,1:MYJE),MYIE*MYJE) 1532 CALL COAL(PCTSNO(1:MYIE,1:MYJE),MYIE*MYJE) 1533 c rec458 1534 C---------------------------------------------------------------------- 1535 C 1536 c WRITE(LRSTRT)((RLWIN(I,J),I=1,MYIE),J=1,MYJE) 1537 c 1, ((RADOT(I,J),I=1,MYIE),J=1,MYJE) 1538 c 2, ((CZMEAN(I,J),I=1,MYIE),J=1,MYJE) 1539 c 3, ((SIGT4(I,J),I=1,MYIE),J=1,MYJE) 1540 CALL COAL(RLWIN(1:MYIE,1:MYJE),MYIE*MYJE) 1541 CALL COAL(RADOT(1:MYIE,1:MYJE),MYIE*MYJE) 1542 CALL COAL(CZMEAN(1:MYIE,1:MYJE),MYIE*MYJE) 1543 CALL COAL(SIGT4(1:MYIE,1:MYJE),MYIE*MYJE) 1544 c rec459 1545 C---------------------------------------------------------------------- 1546 C 1547 c WRITE(LRSTRT)((U00(I,J),I=1,MYIE),J=1,MYJE) 1548 c 1, UL 1549 c 2, ((LC(I,J),I=1,MYIE),J=1,MYJE) 1550 c 3, ((SR(I,J),I=1,MYIE),J=1,MYJE) 1551 CALL COAL(U00(1:MYIE,1:MYJE),MYIE*MYJE) 1552 CALL COAL(UL,2*LM) 1553 CALL COAL(LC(1:MYIE,1:MYJE),MYIE*MYJE) 1554 CALL COAL(SR(1:MYIE,1:MYJE),MYIE*MYJE) 1555 c rec460 1556 C---------------------------------------------------------------------- 1557 C 1558 LABEL = 'ACCUMULATED VARIABLES' 1559 c WRITE(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1560 c 1, ((PREC(I,J),I=1,MYIE),J=1,MYJE) Page 13 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1561 c 2, ((ACPREC(I,J),I=1,MYIE),J=1,MYJE) 1562 c 3, ((ACCLIQ(I,J),I=1,MYIE),J=1,MYJE) 1563 c 4, ((CUPREC(I,J),I=1,MYIE),J=1,MYJE) 1564 CALL COAL(RUN,1) 1565 CALL COAL(IDAT,3) 1566 CALL COAL(IHRST,1) 1567 CALL COAL(NTSD,1) 1568 CALL COAL(LABEL,8) 1569 CALL COAL(PREC(1:MYIE,1:MYJE),MYIE*MYJE) 1570 CALL COAL(ACPREC(1:MYIE,1:MYJE),MYIE*MYJE) 1571 CALL COAL(ACCLIQ(1:MYIE,1:MYJE),MYIE*MYJE) 1572 CALL COAL(CUPREC(1:MYIE,1:MYJE),MYIE*MYJE) 1573 c rec461 1574 C---------------------------------------------------------------------- 1575 C 1576 c WRITE(LRSTRT)((ACFRCV(I,J),I=1,MYIE),J=1,MYJE) 1577 c 1, ((NCFRCV(I,J),I=1,MYIE),J=1,MYJE) 1578 c 2, ((ACFRST(I,J),I=1,MYIE),J=1,MYJE) 1579 c 3, ((NCFRST(I,J),I=1,MYIE),J=1,MYJE) 1580 CALL COAL(ACFRCV(1:MYIE,1:MYJE),MYIE*MYJE) 1581 CALL COAL(NCFRCV(1:MYIE,1:MYJE),MYIE*MYJE) 1582 CALL COAL(ACFRST(1:MYIE,1:MYJE),MYIE*MYJE) 1583 CALL COAL(NCFRST(1:MYIE,1:MYJE),MYIE*MYJE) 1584 c rec462 1585 C---------------------------------------------------------------------- 1586 C 1587 c WRITE(LRSTRT)((ACSNOW(I,J),I=1,MYIE),J=1,MYJE) 1588 c 1, ((ACSNOM(I,J),I=1,MYIE),J=1,MYJE) 1589 c 2, ((SSROFF(I,J),I=1,MYIE),J=1,MYJE) 1590 c 3, ((BGROFF(I,J),I=1,MYIE),J=1,MYJE) 1591 CALL COAL(ACSNOW(1:MYIE,1:MYJE),MYIE*MYJE) 1592 CALL COAL(ACSNOM(1:MYIE,1:MYJE),MYIE*MYJE) 1593 CALL COAL(SSROFF(1:MYIE,1:MYJE),MYIE*MYJE) 1594 CALL COAL(BGROFF(1:MYIE,1:MYJE),MYIE*MYJE) 1595 c rec463 1596 C---------------------------------------------------------------------- 1597 C 1598 c WRITE(LRSTRT)((SFCSHX(I,J),I=1,MYIE),J=1,MYJE) 1599 c 1, ((SFCLHX(I,J),I=1,MYIE),J=1,MYJE) 1600 c 2, ((SUBSHX(I,J),I=1,MYIE),J=1,MYJE) 1601 c 3, ((SNOPCX(I,J),I=1,MYIE),J=1,MYJE) 1602 c 4, ((SFCUVX(I,J),I=1,MYIE),J=1,MYJE) 1603 c 5, ((SFCEVP(I,J),I=1,MYIE),J=1,MYJE) 1604 c 6, ((POTEVP(I,J),I=1,MYIE),J=1,MYJE) 1605 CALL COAL(SFCSHX(1:MYIE,1:MYJE),MYIE*MYJE) 1606 CALL COAL(SFCLHX(1:MYIE,1:MYJE),MYIE*MYJE) 1607 CALL COAL(SUBSHX(1:MYIE,1:MYJE),MYIE*MYJE) 1608 CALL COAL(SNOPCX(1:MYIE,1:MYJE),MYIE*MYJE) 1609 CALL COAL(SFCUVX(1:MYIE,1:MYJE),MYIE*MYJE) 1610 CALL COAL(SFCEVP(1:MYIE,1:MYJE),MYIE*MYJE) 1611 CALL COAL(POTEVP(1:MYIE,1:MYJE),MYIE*MYJE) 1612 c rec464 1613 C---------------------------------------------------------------------- 1614 C 1615 c WRITE(LRSTRT)((ASWIN(I,J),I=1,MYIE),J=1,MYJE) 1616 c 1, ((ASWOUT(I,J),I=1,MYIE),J=1,MYJE) 1617 c 2, ((ASWTOA(I,J),I=1,MYIE),J=1,MYJE) Page 14 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1618 c 3, ((ALWIN(I,J),I=1,MYIE),J=1,MYJE) 1619 c 4, ((ALWOUT(I,J),I=1,MYIE),J=1,MYJE) 1620 c 5, ((ALWTOA(I,J),I=1,MYIE),J=1,MYJE) 1621 CALL COAL(ASWIN(1:MYIE,1:MYJE),MYIE*MYJE) 1622 CALL COAL(ASWOUT(1:MYIE,1:MYJE),MYIE*MYJE) 1623 CALL COAL(ASWTOA(1:MYIE,1:MYJE),MYIE*MYJE) 1624 CALL COAL(ALWIN(1:MYIE,1:MYJE),MYIE*MYJE) 1625 CALL COAL(ALWOUT(1:MYIE,1:MYJE),MYIE*MYJE) 1626 CALL COAL(ALWTOA(1:MYIE,1:MYJE),MYIE*MYJE) 1627 C 1628 c WRITE(LRSTRT)ARDSW,ARDLW,ASRFC,AVRAIN,AVCNVC 1629 CALL COAL(ARDSW,1) 1630 CALL COAL(ARDLW,1) 1631 CALL COAL(ASRFC,1) 1632 CALL COAL(AVRAIN,1) 1633 CALL COAL(AVCNVC,1) 1634 c rec465 1635 C 1636 c WRITE(LRSTRT)((TH10(I,J),I=1,MYIE),J=1,MYJE) 1637 c 1, ((Q10(I,J),I=1,MYIE),J=1,MYJE) 1638 c 2, ((U10(I,J),I=1,MYIE),J=1,MYJE) 1639 c 3, ((V10(I,J),I=1,MYIE),J=1,MYJE) 1640 c 4, ((TSHLTR(I,J),I=1,MYIE),J=1,MYJE) 1641 c 5, ((QSHLTR(I,J),I=1,MYIE),J=1,MYJE) 1642 c 6, ((PSHLTR(I,J),I=1,MYIE),J=1,MYJE) 1643 c 1, ((TH30(I,J),I=1,MYIE),J=1,MYJE) 1644 c 2, ((Q30(I,J),I=1,MYIE),J=1,MYJE) 1645 c 3, ((U30(I,J),I=1,MYIE),J=1,MYJE) 1646 c 4, ((V30(I,J),I=1,MYIE),J=1,MYJE) 1647 CALL COAL(TH10(1:MYIE,1:MYJE),MYIE*MYJE) 1648 CALL COAL(Q10(1:MYIE,1:MYJE),MYIE*MYJE) 1649 CALL COAL(U10(1:MYIE,1:MYJE),MYIE*MYJE) 1650 CALL COAL(V10(1:MYIE,1:MYJE),MYIE*MYJE) 1651 CALL COAL(TSHLTR(1:MYIE,1:MYJE),MYIE*MYJE) 1652 CALL COAL(QSHLTR(1:MYIE,1:MYJE),MYIE*MYJE) 1653 CALL COAL(PSHLTR(1:MYIE,1:MYJE),MYIE*MYJE) 1654 CALL COAL(TH30(1:MYIE,1:MYJE),MYIE*MYJE) 1655 CALL COAL(Q30(1:MYIE,1:MYJE),MYIE*MYJE) 1656 CALL COAL(U30(1:MYIE,1:MYJE),MYIE*MYJE) 1657 CALL COAL(V30(1:MYIE,1:MYJE),MYIE*MYJE) 1658 c rec466 1659 C---------------------------------------------------------------------- 1660 C 1661 c WRITE(LRSTRT)(((SMC(I,J,N),I=1,MYIE),J=1,MYJE),N=1,NSOIL) 1662 CALL COAL(SMC(1:MYIE,1:MYJE,1:NSOIL),MYIE*MYJE*NSOIL) 1663 c rec467 1664 C---------------------------------------------------------------------- 1665 C 1666 c WRITE(LRSTRT)((CMC(I,J),I=1,MYIE),J=1,MYJE) 1667 CALL COAL(CMC(1:MYIE,1:MYJE),MYIE*MYJE) 1668 c rec468 1669 C---------------------------------------------------------------------- 1670 C 1671 c WRITE(LRSTRT)(((STC(I,J,N),I=1,MYIE),J=1,MYJE),N=1,NSOIL) 1672 CALL COAL(STC(1:MYIE,1:MYJE,1:NSOIL),MYIE*MYJE*NSOIL) 1673 c rec469 1674 C---------------------------------------------------------------------- Page 15 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1675 C 1676 c WRITE(LRSTRT)(((SH2O(I,J,N),I=1,MYIE),J=1,MYJE),N=1,NSOIL) 1677 CALL COAL(SH2O(1:MYIE,1:MYJE,1:NSOIL),MYIE*MYJE*NSOIL) 1678 c rec??? 1679 C---------------------------------------------------------------------- 1680 C 1681 c WRITE(LRSTRT)((ALBEDO(I,J),I=1,MYIE),J=1,MYJE) 1682 CALL COAL(ALBEDO(1:MYIE,1:MYJE),MYIE*MYJE) 1683 c rec??? 1684 C---------------------------------------------------------------------- 1685 C 1686 c WRITE(LRSTRT)((FQU(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1687 c 2, ((FQV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1688 c 3, ((DQFLX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1689 c 4, ((FCU(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1690 c 5, ((FCV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1691 c 6, ((DCFLX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1692 1693 c 7, ((FQU7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1694 c 8, ((FQV7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1695 c 9, ((DQFLX7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1696 c 0, ((FCU7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1697 c 1, ((FCV7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1698 c 2, ((DCFLX7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1699 1700 c 3, ((DQADV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1701 c 4, ((FQNEV1(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1702 c 5, ((FQSEV1(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1703 CALL COAL(FQU(1:MYIE,1:MYJE),MYIE*MYJE) 1704 CALL COAL(FQV(1:MYIE,1:MYJE),MYIE*MYJE) 1705 CALL COAL(DQFLX(1:MYIE,1:MYJE),MYIE*MYJE) 1706 CALL COAL(FCU(1:MYIE,1:MYJE),MYIE*MYJE) 1707 CALL COAL(FCV(1:MYIE,1:MYJE),MYIE*MYJE) 1708 CALL COAL(DCFLX(1:MYIE,1:MYJE),MYIE*MYJE) 1709 1710 CALL COAL(FQU7(1:MYIE,1:MYJE),MYIE*MYJE) 1711 CALL COAL(FQV7(1:MYIE,1:MYJE),MYIE*MYJE) 1712 CALL COAL(DQFLX7(1:MYIE,1:MYJE),MYIE*MYJE) 1713 CALL COAL(FCU7(1:MYIE,1:MYJE),MYIE*MYJE) 1714 CALL COAL(FCV7(1:MYIE,1:MYJE),MYIE*MYJE) 1715 CALL COAL(DCFLX7(1:MYIE,1:MYJE),MYIE*MYJE) 1716 1717 CALL COAL(DQADV(1:MYIE,1:MYJE),MYIE*MYJE) 1718 CALL COAL(FQNEV1(1:MYIE,1:MYJE),MYIE*MYJE) 1719 CALL COAL(FQSEV1(1:MYIE,1:MYJE),MYIE*MYJE) 1720 c rec??? 1721 C---------------------------------------------------------------------- 1722 C 1723 c WRITE(LRSTRT)((VAPINC(I,J),I=1,MYIE),J=1,MYJE) 1724 c 2, ((CLDINC(I,J),I=1,MYIE),J=1,MYJE) 1725 c 3, ((VAPINC7(I,J),I=1,MYIE),J=1,MYJE) 1726 c 4, ((CLDINC7(I,J),I=1,MYIE),J=1,MYJE) 1727 CALL COAL(VAPINC(1:MYIE,1:MYJE),MYIE*MYJE) 1728 CALL COAL(CLDINC(1:MYIE,1:MYJE),MYIE*MYJE) 1729 CALL COAL(VAPINC7(1:MYIE,1:MYJE),MYIE*MYJE) 1730 CALL COAL(CLDINC7(1:MYIE,1:MYJE),MYIE*MYJE) 1731 c rec??? Page 16 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1732 C---------------------------------------------------------------------- 1733 c WRITE(LRSTRT)((POTFLX(I,J),I=1,MYIE),J=1,MYJE) 1734 c 1, ((TLMIN(I,J),I=1,MYIE),J=1,MYJE) 1735 c 2, ((TLMAX(I,J),I=1,MYIE),J=1,MYJE) 1736 c 3, ACUTIM,ARATIM,APHTIM 1737 c 4, NHEAT,NPHS,NCNVC,NPREC,NRDSW,NRDLW,NSRFC 1738 c 5, TPH0D,TLM0D,RESTRT 1739 CALL COAL(POTFLX(1:MYIE,1:MYJE),MYIE*MYJE) 1740 CALL COAL(TLMIN(1:MYIE,1:MYJE),MYIE*MYJE) 1741 CALL COAL(TLMAX(1:MYIE,1:MYJE),MYIE*MYJE) 1742 CALL COAL(ACUTIM,1) 1743 CALL COAL(ARATIM,1) 1744 CALL COAL(APHTIM,1) 1745 CALL COAL(NHEAT,1) 1746 CALL COAL(NPHS,1) 1747 CALL COAL(NCNVC,1) 1748 CALL COAL(NPREC,1) 1749 CALL COAL(NRDSW,1) 1750 CALL COAL(NRDLW,1) 1751 CALL COAL(NSRFC,1) 1752 CALL COAL(TPH0D,1) 1753 CALL COAL(TLM0D,1) 1754 CALL COAL(RESTRT,1) 1755 c rec470 1756 C---------------------------------------------------------------------- 1757 DO L=1,LM 1758 c WRITE(LRSTRT)((RSWTT(I,J,L),I=1,MYIE),J=1,MYJE) 1759 c WRITE(LRSTRT)((RLWTT(I,J,L),I=1,MYIE),J=1,MYJE) 1760 CALL COAL(RSWTT(1:MYIE,1:MYJE,L),MYIE*MYJE) 1761 CALL COAL(RLWTT(1:MYIE,1:MYJE,L),MYIE*MYJE) 1762 ENDDO 1763 C 1764 DO L=1,LM 1765 c WRITE(LRSTRT)((T0(I,J,L),I=1,MYIE),J=1,MYJE) 1766 c WRITE(LRSTRT)((Q0(I,J,L),I=1,MYIE),J=1,MYJE) 1767 CALL COAL(T0(1:MYIE,1:MYJE,L),MYIE*MYJE) 1768 CALL COAL(Q0(1:MYIE,1:MYJE,L),MYIE*MYJE) 1769 ENDDO 1770 C 1771 c WRITE(LRSTRT)((P0(I,J),I=1,MYIE),J=1,MYJE) 1772 CALL COAL(P0(1:MYIE,1:MYJE),MYIE*MYJE) 1773 C 1774 c WRITE(LRSTRT)((CNVBOT(I,J),I=1,MYIE),J=1,MYJE) 1775 c WRITE(LRSTRT)((CNVTOP(I,J),I=1,MYIE),J=1,MYJE) 1776 CALL COAL(CNVBOT(1:MYIE,1:MYJE),MYIE*MYJE) 1777 CALL COAL(CNVTOP(1:MYIE,1:MYJE),MYIE*MYJE) 1778 C 1779 c WRITE(LRSTRT)((RSWTOA(I,J),I=1,MYIE),J=1,MYJE) 1780 c WRITE(LRSTRT)((RLWTOA(I,J),I=1,MYIE),J=1,MYJE) 1781 CALL COAL(RSWTOA(1:MYIE,1:MYJE),MYIE*MYJE) 1782 CALL COAL(RLWTOA(1:MYIE,1:MYJE),MYIE*MYJE) 1783 c rec560 1784 C---------------------------------------------------------------------- 1785 C AT THIS POINT WE HAVE ACCUMULATED ALL OF THE DATA INTO BUF. 1786 C WE WANT TO KNOW THE MAXIMUM AMOUNT ACROSS ALL MPI TASKS 1787 C THIS IS USEFUL IN CASE WE DECIDE TO WRITE A FILE 1788 C INSTEAD OF SENDING THE DATA TO THE I/O SERVERS Page 17 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1789 C 1790 CALL MPI_ALLREDUCE(IP,IPMAX,1,MPI_INTEGER,MPI_MAX, 1791 * MPI_COMM_COMP,IERR) 1792 C 1793 C IPMAX IS THE MAXIMUM NUMBER OF 4 BYTE REALS ACROSS 1794 C THE MPI TASKS 1795 C LETS COMPUTE A RECLEN THAT IS A MULTIPLE OF 2**18 BYTES 1796 C WE WILL USE THIS WHEN OPENING THE DIRECT ACCESS FILE 1797 C 1798 IBLOCK = ((IPMAX*4)/(2**18) ) + 1 1799 IRECLEN = IBLOCK * ( 2**18 ) 1800 C 1801 C WE WILL PLACE THE RECLEN IN THE BEGINNING OF THE FILE 1802 C THIS IS HANDY 1803 C 1804 CALL REPLACE(IRECLEN,1,1) 1805 C 1806 C IF WE HAVE ANY I/O SERVERS WE WILL SEND THE DATA TO THEM 1807 C FOR PROCESSING 1808 C 1809 IF ( IQUILT_GROUP .GT. 0 ) THEN 1810 C 1811 IF ( MYPE .EQ. 0 ) THEN 1812 CALL MPI_SEND 1813 * (ITAG,1,MPI_INTEGER,0,0,MPI_COMM_INTER_ARRAY(ISERVE),IERR) 1814 ENDIF 1815 C 1816 DO I = 0, INUMQ(ISERVE) -1 1817 CALL PARA_RANGE(0, jnpes-1, INUMQ(ISERVE), I, ISTART, IEND) 1818 cwas call para_range(0, NPES-1,inumq(iserve), i, istart, iend) 1819 MYPE_ROW = MYPE / INPES 1820 C 1821 IF(MYPE_ROW .GE. ISTART .AND. MYPE_ROW .LE. IEND )THEN 1822 CALL MPI_ISEND 1823 * (BUF,IP,mpi_real,I,ITAG,MPI_COMM_INTER_ARRAY(ISERVE),IHS,IERR) 1824 ENDIF 1825 C 1826 ENDDO 1827 C 1828 C IN CASE WE HAVE MULTIPLE GROUPS OF I/O SERVERS, INCREMENT TO THE 1829 C NEXT SERVER FOR THE NEXT OUTPUT TIME 1830 C 1831 ISERVE = ISERVE + 1 1832 IF ( ISERVE .GT. IQUILT_GROUP ) ISERVE = 1 1833 C 1834 C APPARENTLY, WE HAVE CHOSEN NOT TO SUPPLY ANY I/O SERVERS 1835 C WE WILL WRITE A DIRECT ACCESS FILE INSTEAD 1836 C 1837 ELSE 1838 C 1839 OPEN(UNIT=LRSTRT,FILE=RSTFIL,FORM='UNFORMATTED',IOSTAT=IER, 1840 * ACCESS='DIRECT',RECL=IRECLEN) 1841 IF(IER.NE.0)WRITE(LIST,*)' LRSTRT OPEN UNIT ERROR IER=',IER 1842 C 1843 WRITE(LRSTRT,REC=MYPE+1) (BUF(I),I=1,IP) 1844 CLOSE(LRSTRT) 1845 C Page 18 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1846 ENDIF 1847 c 1848 dif_tim=timef()-btim0 1849 wrt_tim=wrt_tim+dif_tim 1850 call mpi_reduce(wrt_tim,wrt_tim_0,1,MPI_REAL,MPI_MAX,0, 1851 1 MPI_COMM_COMP,ierr) 1852 if(mype.eq.0)then 1853 write(6,*)' SHIPPED OR WROTE DATA, TIME = ', 1854 * wrt_tim_0*1.e-03 1855 endif 1856 CALL MPI_BARRIER(MPI_COMM_COMP,ISTAT) 1857 C*** 1858 C*** SEND SIGNAL THAT ALL TASKS HAVE FINISHED WRITING 1859 C*** 1860 IF(IQUILT_GROUP.EQ.0)THEN 1861 IF(MYPE.EQ.0)THEN 1862 DONE='DONE' 1863 WRITE(FINFIL,1190)ITAG,RESTHR 1864 1190 FORMAT('fcstdone',I2.2,'.',A4) 1865 LFINFIL=91 1866 CLOSE(LFINFIL) 1867 OPEN(UNIT=LFINFIL,FILE=FINFIL,FORM='UNFORMATTED',IOSTAT=IER) 1868 WRITE(LFINFIL)DONE 1869 CLOSE(LFINFIL) 1870 IF(IER.NE.0)WRITE(LIST,*)' SIGNAL SENT TO FINFIL: DONE' 1871 ENDIF 1872 ENDIF 1873 C---------------------------------------------------------------------- 1874 C 1875 C*** RESET ACCUMULATION COUNTERS TO ZERO. 1876 C 1877 APHTIM=0. 1878 ACUTIM=0. 1879 ARATIM=0. 1880 C---------------------------------------------------------------------- 1881 C*** 1882 C*** EDIT POST JOB SCRIPT TO ACCESS DATA JUST WRITTEN. 1883 C*** 1884 C---------------------------------------------------------------------- 1885 IF(MYPE.EQ.0)THEN 1886 CALL get_environment_variable("tmmark",ASTMRK) 1887 IF(ASTMRK.EQ.' ')THEN 1888 WRITE(ASSIGN,1200)ITAG 1889 1200 FORMAT('.assign',I2.2) 1890 ELSE 1891 WRITE(ASSIGN,1230)ITAG,ASTMRK 1892 1230 FORMAT('.assign',I2.2,A4) 1893 ENDIF 1894 C 1895 WRITE(OUTJOB,1240) ITAG 1896 1240 FORMAT('outjob',I2.2) 1897 WRITE(LIST,*)'CHKOUT: GENERATE POST SCRIPT FILE ',OUTJOB 1898 C 1899 LUNIN = 21 1900 LUNOT = 5 1901 REWIND(LUNIN) 1902 OPEN(LUNOT,FILE=OUTJOB) Page 19 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1903 1250 READ(LUNIN,1260,END=1290) LINE 1904 1260 FORMAT(A80) 1905 C 1906 C*** TMMARK STATEMENT. 1907 C 1908 IF(INDEX(LINE,'tmmark=').NE.0)THEN 1909 IF(LINE1(11).EQ.'0')THEN 1910 CALL get_environment_variable("TM00",TMYY) 1911 ELSEIF(LINE1(11).EQ.'3')THEN 1912 CALL get_environment_variable("TM03",TMYY) 1913 ELSEIF(LINE1(11).EQ.'6')THEN 1914 CALL get_environment_variable("TM06",TMYY) 1915 ELSEIF(LINE1(11).EQ.'9')THEN 1916 CALL get_environment_variable("TM09",TMYY) 1917 ELSEIF(LINE1(11).EQ.'2')THEN 1918 CALL get_environment_variable("TM12",TMYY) 1919 ENDIF 1920 WRITE(LUNOT,1260) LINE 1921 GO TO 1250 1922 ENDIF 1923 C 1924 C*** TMYY STATEMENT 1925 C 1926 IF(INDEX(LINE,'TMYY=').NE.0)THEN 1927 LINE = 'TMYY='//TMYY 1928 WRITE(LUNOT,1260) LINE 1929 GO TO 1250 1930 ENDIF 1931 C 1932 C*** ASSIGN STATEMENT. 1933 C 1934 IF(INDEX(LINE,'ASSIGN=').NE.0)THEN 1935 LINE = 'ASSIGN='//ASSIGN 1936 WRITE(LUNOT,1260) LINE 1937 GO TO 1250 1938 ENDIF 1939 C 1940 C*** MODEL RESTART FILE. 1941 C 1942 IF(INDEX(LINE,'RESTRT=').NE.0)THEN 1943 LINE = 'RESTRT='//RSTFIL 1944 WRITE(LUNOT,1260) LINE 1945 GO TO 1250 1946 ENDIF 1947 C 1948 C*** LINES CONTAINING qq NEED TO BE MODIFIED FOR DISPOSAL 1949 C*** FROM AND TO PROPER PLACES 1950 C 1951 IF(INDEX(LINE,'qq').NE.0)THEN 1952 IHR1 = IHR / 10 1953 IHR2 = IHR - 10 * IHR1 1954 IPUTIT = INDEX(LINE,'qq') 1955 WRITE(LINE1(IPUTIT),1270)IHR1 1956 WRITE(LINE1(IPUTIT+1),1270)IHR2 1957 1270 FORMAT(I1) 1958 ISTRT = IPUTIT + 2 1959 C Page 20 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 1960 DO I = ISTRT,80 1961 IF(LINE1(I).EQ.'q')THEN 1962 WRITE(LINE1(I),1270)IHR1 1963 WRITE(LINE1(I+1),1270)IHR2 1964 GO TO 1280 1965 ENDIF 1966 ENDDO 1967 1280 CONTINUE 1968 C 1969 WRITE(LUNOT,1260)LINE 1970 GO TO 1250 1971 ENDIF 1972 C 1973 C*** TURN ON LINE TO QUEUE JOB AFTER ALL OUTPUT JOBS. 1974 C 1975 IF(NTSD.GE.NTSTM)THEN 1976 IF(INDEX(LINE,'$LAST').NE.0)THEN 1977 LXX = INDEX(LINE,'#') 1978 LINE = LINE(LXX+1:80) 1979 WRITE(LUNOT,1260) LINE 1980 GO TO 1250 1981 ENDIF 1982 ENDIF 1983 C 1984 C*** IF NOTHING TRIGGERED ABOVE, WRITE LINE TO OUTPUT FILE. 1985 C 1986 WRITE(LUNOT,1260) LINE 1987 GO TO 1250 1988 C 1989 1290 CONTINUE 1990 CLOSE(LUNOT) 1991 C 1992 ENDIF 1993 C 1994 C*** IF SUBPOST (NAMELIST INPUT VARIABLE) IS TRUE THEN 1995 C*** THE FOLLOWING CALL TO ISHELL WILL SUBMIT A POST JOB TO 1996 C*** PROCESS THE DATA JUST WRITTEN TO THE TEMPORARY FILES. 1997 C 1998 C*** IF SUBPOST IS FALSE ISHELL WILL NOT BE CALLED AND 1999 C*** THE POST JOB SHOULD BE SUBMITTED LATER IN THE SCRIPT 2000 C 2001 ccccc IF(SUBPOST)THEN 2002 ccccc SUBMIT = 'qsub ' // OUTJOB 2003 ccccc WRITE(LIST,*)'CHKOUT: SUBMIT POST JOB ',SUBMIT 2004 ccccc CALL ISHELL(SUBMIT) 2005 ccccc ENDIF 2006 C-------------------------------------------------------------------- 2007 C*** 2008 C*** POST-POSTING UPDATING AND INITIALIZING. 2009 C*** 2010 C-------------------------------------------------------------------- 2011 C*** IF (NTSD.EQ.NSHDE), THEN THIS WAS ALSO A FORECAST 2012 C*** OUTPUT TIME. WE NEED TO INCREMENT NSHDE FOR THE 2013 C*** NEXT FORECAST OUTPUT TIME. 2014 C 2015 IF(NTSD.EQ.NSHDE.OR.NSTART+1.EQ.NSHDE)THEN 2016 IOUT = IOUT+1 Page 21 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 2017 IF (.NOT.RESTRT) GO TO 1300 2018 IF (NTSD.EQ.NSHDE.OR.NSTART+1.EQ.NSHDE) GO TO 1300 2019 IOUT = IOUT-1 2020 1300 NSHDE = ISHDE(IOUT) 2021 ENDIF 2022 C 2023 C*** ZERO ACCUMULATOR ARRAYS. 2024 C*** AVERAGE CLOUD AMOUNT ARRAY 2025 C 2026 1310 CONTINUE 2027 IF(MOD(NTSD,NCLOD).LT.NPHS)THEN 2028 IF(MYPE.EQ.0)WRITE(LIST,*)'CHKOUT: ZERO AVG CLD AMT ARRAY' 2029 DO J=MYJS,MYJE 2030 DO I=MYIS,MYIE 2031 ACFRCV(I,J) = 0. 2032 NCFRCV(I,J) = 0 2033 ACFRST(I,J) = 0. 2034 NCFRST(I,J) = 0 2035 ENDDO 2036 ENDDO 2037 ENDIF 2038 C 2039 C*** TOTAL AND CONVECTIVE PRECIPITATION ARRAYS. 2040 C*** TOTAL SNOW AND SNOW MELT ARRAYS. 2041 C*** STORM SURFACE AND BASE GROUND RUN OFF ARRAYS. 2042 C*** PRECIPITATION TYPE ARRAY 2043 C 2044 IF(MOD(NTSD,NPREC).LT.NCNVC)THEN 2045 IF(MYPE.EQ.0)WRITE(LIST,*) 2046 1 'CHKOUT: ZERO ACCUM PRECIP ARRAYS' 2047 DO J=MYJS,MYJE 2048 DO I=MYIS,MYIE 2049 ACPREC(I,J) = 0. 2050 CUPREC(I,J) = 0. 2051 ACSNOW(I,J) = 0. 2052 ACSNOM(I,J) = 0. 2053 SSROFF(I,J) = 0. 2054 BGROFF(I,J) = 0. 2055 SFCEVP(I,J) = 0. 2056 POTEVP(I,J) = 0. 2057 ENDDO 2058 ENDDO 2059 CduleS 2060 DO J=JDIM1,JDIM2 2061 DO I=IDIM1,IDIM2 2062 VAPINC(I,J) = 0. 2063 CLDINC(I,J) = 0. 2064 VAPINC7(I,J) = 0. 2065 CLDINC7(I,J) = 0. 2066 C 2067 FQNEV(I,J)=0. 2068 FQSEV(I,J)=0. 2069 FCNEV(I,J)=0. 2070 FCSEV(I,J)=0. 2071 FCNEV7(I,J)=0. 2072 FCSEV7(I,J)=0. 2073 FQNEV7(I,J)=0. Page 22 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 2074 FQSEV7(I,J)=0. 2075 FQU(I,J)=0. 2076 FQV(I,J)=0. 2077 FCU(I,J)=0. 2078 FCV(I,J)=0. 2079 FQU7(I,J)=0. 2080 FQV7(I,J)=0. 2081 FCU7(I,J)=0. 2082 FCV7(I,J)=0. 2083 DQADV(I,J)=0. 2084 DQFLX(I,J)=0. 2085 DCFLX(I,J)=0. 2086 DQFLX7(I,J)=0. 2087 DCFLX7(I,J)=0. 2088 ENDDO 2089 ENDDO 2090 CduleE 2091 ENDIF 2092 C 2093 C*** GRID-SCALE AND CONVECTIVE (LATENT) HEATING ARRAYS. 2094 C 2095 IF(MOD(NTSD,NHEAT).LT.NCNVC)THEN 2096 IF(MYPE.EQ.0)WRITE(LIST,*) 2097 1 'CHKOUT: ZERO ACCUM LATENT HEATING ARRAYS' 2098 AVRAIN = 0. 2099 AVCNVC = 0. 2100 DO L=1,LM 2101 DO J=MYJS,MYJE 2102 DO I=MYIS,MYIE 2103 TRAIN(I,J,L) = 0. 2104 TCUCN(I,J,L) = 0. 2105 ENDDO 2106 ENDDO 2107 ENDDO 2108 ENDIF 2109 ! 2110 !--- Begin: Initialize convective cloud fields for radiation before 2111 ! returning to EBU (Ferrier 23 Jan 02) 2112 ! 2113 IF (CURAD) THEN 2114 IF (MYPE .EQ. 0) THEN 2115 WRITE(0,"(a)") 'CHKOUT: Initialize CUPPT,HTOP,HBOT' 2116 WRITE(6,"(a)") 'CHKOUT: Initialize CUPPT,HTOP,HBOT' 2117 ENDIF 2118 DO J=MYJS,MYJE 2119 DO I=MYIS,MYIE 2120 CUPPT(I,J)=0. 2121 HTOP(I,J)=100. 2122 HBOT(I,J)=0. 2123 ENDDO 2124 ENDDO 2125 CURAD=.FALSE. 2126 ENDIF 2127 C 2128 C*** RESET CONVECTIVE CLOUD TOP AND BOTTOM ARRAYS 2129 C (diagnostic only; these fields are not cycled & not read when TSTART=0) 2130 C Page 23 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 2131 DO J=MYJS,MYJE 2132 DO I=MYIS,MYIE 2133 CNVTOP(I,J)=100. 2134 CNVBOT(I,J)=0. 2135 ENDDO 2136 ENDDO 2137 ! 2138 !--- End: 2139 ! 2140 C 2141 C*** LONG WAVE RADIATION ARRAYS. 2142 C 2143 IF(MOD(NTSD,NRDLW).LT.NPHS)THEN 2144 IF(MYPE.EQ.0)WRITE(LIST,*) 2145 1 'CHKOUT: ZERO ACCUM LW RADTN ARRAYS' 2146 ARDLW = 0. 2147 DO J=MYJS,MYJE 2148 DO I=MYIS,MYIE 2149 ALWIN(I,J) = 0. 2150 ALWOUT(I,J) = 0. 2151 ALWTOA(I,J) = 0. 2152 ENDDO 2153 ENDDO 2154 ENDIF 2155 C 2156 C*** SHORT WAVE RADIATION ARRAYS. 2157 C 2158 IF(MOD(NTSD,NRDSW).LT.NPHS)THEN 2159 IF(MYPE.EQ.0)WRITE(LIST,*) 2160 1 'CHKOUT: ZERO ACCUM SW RADTN ARRAYS' 2161 ARDSW = 0. 2162 DO J=MYJS,MYJE 2163 DO I=MYIS,MYIE 2164 ASWIN(I,J) = 0. 2165 ASWOUT(I,J) = 0. 2166 ASWTOA(I,J) = 0. 2167 ENDDO 2168 ENDDO 2169 ENDIF 2170 C 2171 C*** SURFACE SENSIBLE AND LATENT HEAT FLUX ARRAYS. 2172 C 2173 IF(MOD(NTSD,NSRFC).LT.NPHS)THEN 2174 IF(MYPE.EQ.0)WRITE(LIST,*) 2175 1 'CHKOUT: ZERO ACCUM SFC FLUX ARRAYS' 2176 ASRFC = 0. 2177 DO J=MYJS,MYJE 2178 DO I=MYIS,MYIE 2179 SFCSHX(I,J) = 0. 2180 SFCLHX(I,J) = 0. 2181 SUBSHX(I,J) = 0. 2182 SNOPCX(I,J) = 0. 2183 SFCUVX(I,J) = 0. 2184 POTFLX(I,J) = 0. 2185 ENDDO 2186 ENDDO 2187 ENDIF Page 24 Source Listing CHKOUT 2014-12-17 20:46 CHKOUT.F 2188 C 2189 C*** RESET THE MAX/MIN TEMPERATURE ARRAYS 2190 C 2191 DO J=MYJS,MYJE 2192 DO I=MYIS,MYIE 2193 TLMIN(I,J)=999. 2194 TLMAX(I,J)=-999. 2195 ENDDO 2196 ENDDO 2197 C 2198 C END OF ROUTINE. 2199 C 2200 RETURN 2201 END ENTRY POINTS Name chkout_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 278 249,251 1094 Label 342 340 1095 Label 343 341 1100 Label 320 298 1150 Label 430 429 1155 Label 437 436 1190 Label 984 983 1200 Label 1009 1008 1230 Label 1012 1011 1240 Label 1016 1015 1250 Label 1023 1041,1049,1057,1065,1090,1100,1107 1260 Label 1024 1023,1040,1048,1056,1064,1089,1099 ,1106 1270 Label 1077 1075,1076,1082,1083 1280 Label 1087 1084 1290 Label 1109 1023 1300 Label 1140 1137,1138 1310 Label 1146 290 ACCLIQ Scalar 13 R(4) 4 2 17955 COM 691 ACFRCV Scalar 4 R(4) 4 2 17955 COM 700,1151 ACFRST Scalar 5 R(4) 4 2 17955 COM 702,1153 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 690,1169 ACSNOM Scalar 4 R(4) 4 2 17955 COM 712,1172 ACSNOW Scalar 4 R(4) 4 2 17955 COM 711,1171 Page 25 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References ACUTIM Scalar 3 R(4) 4 scalar COM 862,998 AETA Scalar 8 R(4) 4 1 45 COM AETA2 Scalar 9 R(4) 4 1 45 COM AETAD Scalar 4 R(4) 4 1 45 COM AFSI Scalar 26 R(4) 4 2 17955 COM AKHS Scalar 7 R(4) 4 2 17955 COM 597 AKMS Scalar 7 R(4) 4 2 17955 COM 584 ALBASE Scalar 20 R(4) 4 2 17955 COM ALBEDO Scalar 21 R(4) 4 2 17955 COM 802 ALSL Scalar 7 R(4) 4 1 39 COM ALWIN Scalar 5 R(4) 4 2 17955 COM 744,1269 ALWOUT Scalar 6 R(4) 4 2 17955 COM 745,1270 ALWTOA Scalar 6 R(4) 4 2 17955 COM 746,1271 AMAX1 Func 316 scalar 316 AMIN1 Func 317 scalar 317 APHTIM Scalar 8 R(4) 4 scalar COM 864,997 APREC Scalar 3 R(4) 4 2 17955 COM ARATIM Scalar 3 R(4) 4 scalar COM 863,999 ARDLW Scalar 3 R(4) 4 scalar COM 750,1266 ARDSW Scalar 3 R(4) 4 scalar COM 749,1281 ASRFC Scalar 3 R(4) 4 scalar COM 751,1296 ASSIGN Local 105 CHAR 13 scalar 1008,1011,1055 ASTMRK Local 106 CHAR 4 scalar 1006,1007,1011 ASWIN Scalar 5 R(4) 4 2 17955 COM 741,1284 ASWOUT Scalar 6 R(4) 4 2 17955 COM 742,1285 ASWTOA Scalar 6 R(4) 4 2 17955 COM 743,1286 AVCNVC Scalar 3 R(4) 4 scalar COM 753,1219 AVRAIN Scalar 3 R(4) 4 scalar COM 752,1218 BCEX_TIM Scalar 201 R(4) 4 scalar COM BGROFF Scalar 5 R(4) 4 2 17955 COM 714,1174 BOCO Common 2 1860144 BTIM0 Local 297 R(4) 4 scalar 297,348,448,968 BTIMW Local 447 R(4) 4 scalar 447 BUF Scalar 3 R(4) 4 1 30000000 COM 943,963 BUFFER Common 4 12000000 4 CAPA Param 94 R(4) 4 scalar 367 CFRACH Scalar 4 R(4) 4 2 17955 COM 637 CFRACL Scalar 3 R(4) 4 2 17955 COM 603 CFRACM Scalar 4 R(4) 4 2 17955 COM 620 CHKOUT Subr 1 CI Scalar 6 R(4) 4 scalar COM CLDEFI Scalar 11 R(4) 4 2 17955 COM 633 CLDINC Scalar 6 R(4) 4 2 17955 COM 848,1183 CLDINC7 Scalar 6 R(4) 4 2 17955 COM 850,1185 CLDWTR Common 2 3447720 CMC Scalar 8 R(4) 4 2 17955 COM 787 CMLD Scalar 6 R(4) 4 scalar COM CNVBOT Scalar 18 R(4) 4 2 17955 COM 896,1254 CNVCLD Common 2 287280 CNVTOP Scalar 18 R(4) 4 2 17955 COM 897,1253 COAL Subr 468 468,476,477,478,479,480,490,491,49 6,503,504,505,506,507,508,509,510, 517,518,519,526,527,528,529,530,53 1,532,538,541,544,547,550,553,556, Page 26 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 559,562,575,576,577,578,579,580,58 1,582,583,584,585,597,598,599,600, 601,602,603,614,615,616,617,618,61 9,620,631,632,633,634,635,636,637, 647,648,649,650,651,652,660,661,66 2,663,671,672,673,674,684,685,686, 687,688,689,690,691,692,700,701,70 2,703,711,712,713,714,725,726,727, 728,729,730,731,741,742,743,744,74 5,746,749,750,751,752,753,767,768, 769,770,771,772,773,774,775,776,77 7,782,787,792,797,802,823,824,825, 826,827,828,830,831,832,833,834,83 5,837,838,839,847,848,849,850,859, 860,861,862,863,864,865,866,867,86 8,869,870,871,872,873,874,880,881, 887,888,892,896,897,901,902 CONTIN Common 2 12999420 CPGFUX Scalar 9 R(4) 4 2 17955 COM CPGFV Scalar 3 R(4) 4 scalar COM CPHI0 Scalar 9 R(4) 4 scalar COM CS Scalar 6 R(4) 4 scalar COM CTLBLK Common 4 112 CUINIT Common 163 4 CUPPT Scalar 3 R(4) 4 2 17955 COM 263,636,1240 CUPREC Scalar 13 R(4) 4 2 17955 COM 692,1170 CURAD Scalar 163 L(4) 4 scalar COM 256,268,1233,1245 CURVX Scalar 9 R(4) 4 2 17955 COM CWM Scalar 3 R(4) 4 3 807975 COM 556 CWMB Scalar 4 R(4) 4 3 77220 COM 532 CZEN Scalar 16 R(4) 4 2 17955 COM 370,585 CZMEAN Scalar 23 R(4) 4 2 17955 COM 369,370,662 DBLE Func 336 scalar 336,337,338,339 DCFLX Scalar 14 R(4) 4 2 17955 COM 828,1205 DCFLX7 Scalar 16 R(4) 4 2 17955 COM 835,1207 DDMPUX Scalar 12 R(4) 4 2 17955 COM DDMPVX Scalar 12 R(4) 4 2 17955 COM DETA Scalar 8 R(4) 4 1 45 COM DETA2 Scalar 9 R(4) 4 1 45 COM DETAD Scalar 4 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 DIF_TIM Local 968 R(4) 4 scalar 968,969 DISLP Scalar 7 R(4) 4 scalar COM DIV Scalar 6 R(4) 4 3 807975 COM DLMD Scalar 6 R(4) 4 scalar COM DONE Local 130 CHAR 10 scalar 982,988 DP30 Scalar 6 R(4) 4 scalar COM DPHD Scalar 6 R(4) 4 scalar COM DQADV Scalar 18 R(4) 4 2 17955 COM 837,1203 DQFLX Scalar 13 R(4) 4 2 17955 COM 825,1204 DQFLX7 Scalar 15 R(4) 4 2 17955 COM 832,1206 DS Scalar 6 R(4) 4 scalar COM DSQRT Func 337 scalar 337,339 Page 27 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References DT Scalar 6 R(4) 4 scalar COM 238,239,242 DTD Scalar 5 R(4) 4 scalar COM DTQ2 Scalar 5 R(4) 4 scalar COM DUMMY Local 468 R(4) 4 scalar 468 DXX Scalar 8 R(4) 4 2 17955 COM DY Scalar 3 R(4) 4 scalar COM DYNAM Common 2 725404 EF4T Scalar 3 R(4) 4 scalar COM 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 ENDWAIT Local 183 R(8) 8 scalar 458,461,463 ENT Scalar 3 R(4) 4 scalar COM EPSR Scalar 13 R(4) 4 2 17955 COM ERLAM0 Scalar 9 R(4) 4 scalar COM ETA Scalar 8 R(4) 4 1 46 COM ETAD Scalar 4 R(4) 4 1 46 COM ETADT Scalar 7 R(4) 4 3 790020 COM EXBC Local 101 L(4) 4 scalar EXCH_TIM Scalar 197 R(4) 4 scalar COM EXP Func 366 scalar 366 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 FACTR Local 119 R(4) 4 2 17955 370,372,404 FADX Scalar 13 R(4) 4 2 17955 COM FCNEV Scalar 5 R(4) 4 2 17955 COM 1189 FCNEV1 Scalar 20 R(4) 4 2 17955 COM FCNEV7 Scalar 6 R(4) 4 2 17955 COM 1191 FCP Scalar 10 R(4) 4 2 17955 COM FCSEV Scalar 5 R(4) 4 2 17955 COM 1190 FCSEV1 Scalar 20 R(4) 4 2 17955 COM FCSEV7 Scalar 6 R(4) 4 2 17955 COM 1192 FCU Scalar 9 R(4) 4 2 17955 COM 826,1197 FCU7 Scalar 11 R(4) 4 2 17955 COM 833,1201 FCV Scalar 9 R(4) 4 2 17955 COM 827,1198 FCV7 Scalar 11 R(4) 4 2 17955 COM 834,1202 FDIVX Scalar 10 R(4) 4 2 17955 COM FHR Local 103 CHAR 2 scalar FINFIL Local 130 CHAR 50 scalar 983,987 FIRST Scalar 101 L(4) 4 scalar COM 508 FIS Scalar 7 R(4) 4 2 17955 COM 519 FQNEV Scalar 2 R(4) 4 2 17955 COM 1187 FQNEV1 Scalar 19 R(4) 4 2 17955 COM 838 FQNEV7 Scalar 3 R(4) 4 2 17955 COM 1193 FQSEV Scalar 2 R(4) 4 2 17955 COM 1188 FQSEV1 Scalar 19 R(4) 4 2 17955 COM 839 FQSEV7 Scalar 3 R(4) 4 2 17955 COM 1194 FQU Scalar 8 R(4) 4 2 17955 COM 823,1195 FQU7 Scalar 10 R(4) 4 2 17955 COM 830,1199 FQV Scalar 8 R(4) 4 2 17955 COM 824,1196 FQV7 Scalar 10 R(4) 4 2 17955 COM 831,1200 FX Scalar 11 R(4) 4 2 17955 COM G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM Page 28 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References GATH_TIM Scalar 200 R(4) 4 scalar COM GET_ENVIRONMENT_VARIABLE Intrin 424 424,1006,1030,1032,1034,1036,1038 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 GRNFLX Scalar 5 R(4) 4 2 17955 COM 651 HBM2 Scalar 8 R(4) 4 2 17955 COM HBM3 Scalar 8 R(4) 4 2 17955 COM HBOT Scalar 17 R(4) 4 2 17955 COM 265,602,1242 HDAC Scalar 22 R(4) 4 2 17955 COM HDACV Scalar 22 R(4) 4 2 17955 COM HTM Scalar 6 R(4) 4 3 807975 COM HTMG Scalar 52 R(4) 4 3 4183695 COM HTOP Scalar 17 R(4) 4 2 17955 COM 264,619,1241 I Local 214 I(4) 4 scalar 214,215,216,217,218,227,228,229,23 0,231,262,263,264,265,313,314,315, 316,317,362,363,364,365,366,367,36 9,370,372,383,384,385,391,392,393, 403,404,413,414,936,937,943,963,10 80,1081,1082,1083,1150,1151,1152,1 153,1154,1168,1169,1170,1171,1172, 1173,1174,1175,1176,1181,1182,1183 ,1184,1185,1187,1188,1189,1190,119 1,1192,1193,1194,1195,1196,1197,11 98,1199,1200,1201,1202,1203,1204,1 205,1206,1207,1222,1223,1224,1239, 1240,1241,1242,1252,1253,1254,1268 ,1269,1270,1271,1283,1284,1285,128 6,1298,1299,1300,1301,1302,1303,13 04,1312,1313,1314 IBLOCK Local 918 I(4) 4 scalar 918,919 IBROW Scalar 22 I(4) 4 scalar COM IBUFMAX Param 1 I(4) 4 scalar 4 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM 475,477,504,576,685 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,117,118 ,119,120,121,1181 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,117,118 ,119,120,121,1181 IDISP Local 124 I(4) 4 1 7 IDTAD Scalar 6 I(4) 4 scalar COM IEND Local 937 I(4) 4 scalar 937,941 IER Local 959 I(4) 4 scalar 959,961,987,990 IERR Local 457 I(4) 4 scalar 457,911,933,943,971 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM 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 IHHA Scalar 3 I(4) 4 1 760 COM IHLA Scalar 3 I(4) 4 1 760 COM Page 29 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References IHR Local 283 I(4) 4 scalar 283,1072,1073 IHR1 Local 1072 I(4) 4 scalar 1072,1073,1075,1082 IHR2 Local 1073 I(4) 4 scalar 1073,1076,1083 IHRST Scalar 5 I(4) 4 scalar COM 475,478,505,577,686 IHS Local 184 I(4) 4 scalar 185,457,943 IHW Scalar 3 I(4) 4 1 399 COM IHWG Scalar 9 I(4) 4 1 387 COM IKNTS Local 124 I(4) 4 1 7 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,87 ,308 IMAX Local 309 I(4) 4 scalar 309,311,313 IMJM Param 87 I(4) 4 scalar 336,337,338,339 IMT Param 87 I(4) 4 scalar INDEX Func 1028 scalar 1028,1046,1054,1062,1071,1074,1096 ,1097 INDX Common 2 6564 INDXG Common 8 8084 INIT_TIM Local 196 R(4) 4 scalar INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39,124,381,389,9 39 INT Func 238 scalar 238 INUMQ Scalar 34 I(4) 4 1 100 COM 936,937 IOUT Scalar 5 I(4) 4 scalar COM 509,1136,1139,1140 IP Scalar 2 I(4) 4 scalar COM 910,943,963 IPMAX Local 910 I(4) 4 scalar 910,918 IPUTIT Local 1074 I(4) 4 scalar 1074,1075,1076,1078 IQUILT_GROUP Scalar 33 I(4) 4 scalar COM 929,952,980 IRAD Scalar 5 I(4) 4 1 45 COM IRADG Scalar 9 I(4) 4 1 473 COM IRCOL Scalar 22 I(4) 4 scalar COM IRECLEN Local 919 I(4) 4 scalar 919,924,960 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM IRTN Local 325 I(4) 4 scalar 325,327,329,331 ISERVE Local 187 I(4) 4 scalar 189,933,936,937,943,951,952 ISHDE Scalar 4 I(4) 4 1 99 COM 1140 ISLOPE Scalar 7 I(4) 4 2 17955 COM ISLTYP Scalar 6 I(4) 4 2 17955 COM ISTART Local 937 I(4) 4 scalar 937,941 ISTAT Local 354 I(4) 4 scalar 354,976 ISTRT Local 1078 I(4) 4 scalar 1078,1080 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAG Scalar 3 I(4) 4 scalar COM 211,423,429,436,933,943,983,1008,1 011,1015 ITAIL Param 16 I(4) 4 scalar Page 30 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 IVE Scalar 4 I(4) 4 1 399 COM IVEG Scalar 9 I(4) 4 1 387 COM IVGTYP Scalar 6 I(4) 4 2 17955 COM IVHA Scalar 3 I(4) 4 1 760 COM IVLA Scalar 3 I(4) 4 1 760 COM IVW Scalar 4 I(4) 4 1 399 COM IVWG Scalar 9 I(4) 4 1 387 COM IXM Scalar 3 I(4) 4 scalar COM IYM Scalar 3 I(4) 4 scalar COM J Local 213 I(4) 4 scalar 213,215,216,217,218,226,228,229,23 0,231,261,263,264,265,306,308,361, 363,364,365,366,367,369,370,372,38 2,384,385,390,392,393,402,404,412, 414,1149,1151,1152,1153,1154,1167, 1169,1170,1171,1172,1173,1174,1175 ,1176,1180,1182,1183,1184,1185,118 7,1188,1189,1190,1191,1192,1193,11 94,1195,1196,1197,1198,1199,1200,1 201,1202,1203,1204,1205,1206,1207, 1221,1223,1224,1238,1240,1241,1242 ,1251,1253,1254,1267,1269,1270,127 1,1282,1284,1285,1286,1297,1299,13 00,1301,1302,1303,1304,1311,1313,1 314 JAM Param 90 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,117,118 ,119,120,121,1180 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,117,118 ,119,120,121,1180 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JJ Local 305 I(4) 4 scalar 305,307,314,315,316,317 JM Param 3 I(4) 4 scalar 9,17,20,43,44,45,46,47,51,52,57,87 ,90 JMT Param 87 I(4) 4 scalar JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39,124,937 JRA Scalar 3 I(4) 4 1 760 COM JSTAT Local 175 I(4) 4 1 5 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM Page 31 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 KTM Scalar 5 I(4) 4 scalar COM L Local 298 I(4) 4 scalar 298,300,301,302,303,314,315,316,31 7,335,336,337,339,340,401,404,411, 414,494,496,536,538,541,544,547,55 0,553,556,559,562,877,880,881,884, 887,888,1220,1223,1224 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LABEL Local 108 CHAR 32 scalar 472,480,500,507,567,579,678,688 LABINT Local 109 I(4) 4 1 4 LB Param 87 I(4) 4 scalar 3,4,526,527,528,529,530,531,532 LC Scalar 5 I(4) 4 2 17955 COM 673 LFINFIL Local 985 I(4) 4 scalar 985,986,987,988,989 LINE Local 111 CHAR 80 scalar 1023,1028,1040,1046,1047,1048,1054 ,1055,1056,1062,1063,1064,1071,107 4,1089,1096,1097,1098,1099,1106 LINE1 Local 112 CHAR 1 1 80 1029,1031,1033,1035,1037,1075,1076 ,1081,1082,1083 LIST Scalar 5 I(4) 4 scalar COM 961,990,1017,1148,1165,1216,1264,1 279,1294 LLMH Local 363 I(4) 4 scalar 363,365 LM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,21,52,90,120,121,1 77,178,179,180,182,298,324,326,328 ,330,335,401,411,494,527,528,529,5 30,531,532,536,672,877,884,1220 LM1 Param 90 I(4) 4 scalar LMH Scalar 4 I(4) 4 2 17955 COM 215,228,363 LMHK Local 215 I(4) 4 scalar 215,216,228,229 LMV Scalar 4 I(4) 4 2 17955 COM LOOPS Common 2 158840 LP1 Param 90 I(4) 4 scalar 4,8,9 LRSTRT Scalar 3 I(4) 4 scalar COM 444,450,959,963,964 LSL Scalar 3 I(4) 4 scalar COM LSM Param 3 I(4) 4 scalar 7 LUNIN Local 1019 I(4) 4 scalar 1019,1021,1023 LUNOT Local 1020 I(4) 4 scalar 1020,1022,1040,1048,1056,1064,1089 ,1099,1106,1110 LXX Local 1097 I(4) 4 scalar 1097,1098 MAPOT Common 2 1732 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MESO Local 101 L(4) 4 scalar MOD Func 241 scalar 241,242,308,1147,1164,1215,1263,12 78,1293 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 Page 32 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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_ALLREDUCE Subr 910 910 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 MPI_BARRIER Subr 354 354,976 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 Page 33 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 325,327,329,331,354,911,971,976 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 933,943 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 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 Page 34 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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_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 910,933 MPI_INTEGER1 Param 284 I(4) 4 scalar Page 35 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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_ISEND Subr 942 942 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 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 328,910,970 MPI_MAXLOC Param 162 I(4) 4 scalar 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 330 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 Page 36 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 328,330,943,970 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar 324,326 MPI_REDUCE Subr 324 324,326,328,330,970 MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 185,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_SEND Subr 932 932 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,175,186 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar 324,326 MPI_TAG Param 9 I(4) 4 scalar 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_WAIT Subr 457 457 MPI_WCHAR Param 316 I(4) 4 scalar Page 37 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 MPP_TIM Local 196 R(4) 4 scalar MTSTPE Scalar 4 I(4) 4 scalar COM MXSNAL Scalar 2 R(4) 4 2 17955 COM MYIE Scalar 4 I(4) 4 scalar COM 214,227,262,362,383,391,403,413,49 0,491,496,517,518,519,538,541,544, 547,550,553,556,559,562,580,581,58 2,583,584,585,597,598,599,600,601, 602,603,614,615,616,617,618,619,62 0,631,632,633,634,635,636,637,647, 648,649,650,651,652,660,661,662,66 3,671,673,674,689,690,691,692,700, 701,702,703,711,712,713,714,725,72 6,727,728,729,730,731,741,742,743, 744,745,746,767,768,769,770,771,77 2,773,774,775,776,777,782,787,792, 797,802,823,824,825,826,827,828,83 0,831,832,833,834,835,837,838,839, 847,848,849,850,859,860,861,880,88 1,887,888,892,896,897,901,902,1150 ,1168,1222,1239,1252,1268,1283,129 8,1312 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 214,227,262,313,362,383,391,403,41 3,1150,1168,1222,1239,1252,1268,12 83,1298,1312 MYIS1 Scalar 4 I(4) 4 scalar COM 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 Page 38 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 213,226,261,361,390,392,393,402,41 2,490,491,496,517,518,519,538,541, 544,547,550,553,556,559,562,580,58 1,582,583,584,585,597,598,599,600, 601,602,603,614,615,616,617,618,61 9,620,631,632,633,634,635,636,637, 647,648,649,650,651,652,660,661,66 2,663,671,673,674,689,690,691,692, 700,701,702,703,711,712,713,714,72 5,726,727,728,729,730,731,741,742, 743,744,745,746,767,768,769,770,77 1,772,773,774,775,776,777,782,787, 792,797,802,823,824,825,826,827,82 8,830,831,832,833,834,835,837,838, 839,847,848,849,850,859,860,861,88 0,881,887,888,892,896,897,901,902, 1149,1167,1221,1238,1251,1267,1282 ,1297,1311 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 213,226,261,361,402,412,1149,1167, 1221,1238,1251,1267,1282,1297,1311 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 Page 39 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 257,334,381,389,460,931,939,963,97 2,981,1005,1148,1165,1216,1234,126 4,1279,1294 MYPE_ROW Local 939 I(4) 4 scalar 939,941 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM 308 MY_IE_LOC Scalar 3 I(4) 4 scalar COM 309,311 MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM 306 MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM 306 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 NBC Scalar 5 I(4) 4 scalar COM NBOCO Scalar 6 I(4) 4 scalar COM NCFRCV Scalar 4 I(4) 4 2 17955 COM 701,1152 NCFRST Scalar 5 I(4) 4 2 17955 COM 703,1154 NCLOD Scalar 3 I(4) 4 scalar COM 1147 NCNVC Scalar 7 I(4) 4 scalar COM 867,1164,1215 NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 101 L(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM NHB_TIM Scalar 196 R(4) 4 scalar COM NHEAT Scalar 3 I(4) 4 scalar COM 865,1215 NPES Scalar 2 I(4) 4 scalar COM 389 NPHS Scalar 7 I(4) 4 scalar COM 866,1147,1263,1278,1293 NPREC Scalar 6 I(4) 4 scalar COM 868,1164 NRADL Scalar 7 I(4) 4 scalar COM NRADS Scalar 7 I(4) 4 scalar COM NRDLW Scalar 3 I(4) 4 scalar COM 870,1263 NRDSW Scalar 3 I(4) 4 scalar COM 869,1278 NRLX1 Param 91 I(4) 4 scalar NRLX2 Param 91 I(4) 4 scalar Page 40 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References NROOT Param 1 I(4) 4 scalar NSHDE Scalar 6 I(4) 4 scalar COM 249,250,251,290,510,1135,1138,1140 NSOIL Param 1 I(4) 4 scalar 8,9,10,782,792,797 NSRFC Scalar 3 I(4) 4 scalar COM 871,1293 NSTART Scalar 6 I(4) 4 scalar COM 250,290,1135,1138 NTDDMP Scalar 6 I(4) 4 scalar COM NTSD Scalar 6 I(4) 4 scalar COM 210,239,249,251,283,290,423,475,47 9,506,578,687,1095,1135,1138,1147, 1164,1215,1263,1278,1293 NTSPH Local 238 I(4) 4 scalar 238 NTSTM Scalar 6 I(4) 4 scalar COM 1095 OMGALF Scalar 5 R(4) 4 3 807975 COM 496 ONHOUR Local 101 L(4) 4 scalar 240,242,249 OUTFIL Common 3 58 OUTJOB Local 104 CHAR 8 scalar 1015,1017,1022 P0 Scalar 4 R(4) 4 2 17955 COM 892 PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PARA_RANGE Subr 937 937 PCTSNO Scalar 5 R(4) 4 2 17955 COM 652 PD Scalar 3 R(4) 4 2 17955 COM 364,490,517 PDB Scalar 3 R(4) 4 2 1716 COM 526 PDS Local 118 R(4) 4 2 17955 364,366 PDSL Scalar 3 R(4) 4 2 17955 COM PHOUR Scalar 2 R(4) 4 2 17955 COM PHYS Common 4 1788916 PL Scalar 7 R(4) 4 scalar COM PLQ Scalar 8 R(4) 4 scalar COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar POTEVP Scalar 7 R(4) 4 2 17955 COM 731,1176 POTFLX Scalar 7 R(4) 4 2 17955 COM 859,1304 PPTASM Common 1 3878292 PPTDAT Scalar 3 R(4) 4 3 53865 COM PREC Scalar 12 R(4) 4 2 17955 COM 689 PRFHLD Common 1 143640 PROF_TIM Scalar 200 R(4) 4 scalar COM PSDT Scalar 3 R(4) 4 2 17955 COM PSHLTR Scalar 19 R(4) 4 2 17955 COM 366,367,773 PSLP Local 117 R(4) 4 2 17955 635 PT Scalar 5 R(4) 4 scalar COM 364 PT2 Scalar 5 R(4) 4 scalar COM PTBL Scalar 25 R(4) 4 2 10184 COM PTDYN Scalar 3 R(4) 4 scalar COM PVRBLS Common 2 5530140 Q Scalar 6 R(4) 4 3 807975 COM 541 Q0 Scalar 3 R(4) 4 3 807975 COM 888 Q10 Scalar 16 R(4) 4 2 17955 COM 768 Q2 Scalar 21 R(4) 4 3 807975 COM 550 Q2B Scalar 4 R(4) 4 3 77220 COM 531 Q30 Scalar 14 R(4) 4 2 17955 COM 775 QB Scalar 3 R(4) 4 3 77220 COM 528 QFLX Common 1 5027400 QOLD Scalar 21 R(4) 4 3 807975 COM QS Scalar 6 R(4) 4 2 17955 COM 599 Page 41 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References QS0 Scalar 10 R(4) 4 1 134 COM QSHLTR Scalar 18 R(4) 4 2 17955 COM 385,393,772 QWBS Scalar 9 R(4) 4 2 17955 COM 601 QZ0 Scalar 5 R(4) 4 2 17955 COM 615 R Scalar 5 R(4) 4 scalar COM RADIN Scalar 14 R(4) 4 2 17955 COM RADOT Scalar 14 R(4) 4 2 17955 COM 661 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 RDYN Scalar 3 R(4) 4 scalar COM REPLACE Subr 924 924 RES Scalar 7 R(4) 4 2 17955 COM 491,518 RESTHR Local 113 CHAR 4 scalar 424,425,436,983 RESTRT Scalar 101 L(4) 4 scalar COM 874,1137 RES_TIM Scalar 197 R(4) 4 scalar COM RF Scalar 8 R(4) 4 2 17955 COM 634 RLWIN Scalar 4 R(4) 4 2 17955 COM 660 RLWOUT Scalar 4 R(4) 4 2 17955 COM RLWTOA Scalar 5 R(4) 4 2 17955 COM 902 RLWTT Scalar 7 R(4) 4 3 807975 COM 414,881 RMS Local 181 R(8) 8 scalar 339,341 ROI Scalar 6 R(4) 4 scalar COM ROS Scalar 6 R(4) 4 scalar COM RSTFIL Scalar 2 CHAR 50 scalar COM 429,436,474,959,1063 RSWIN Scalar 4 R(4) 4 2 17955 COM 580 RSWOUT Scalar 4 R(4) 4 2 17955 COM 581 RSWTOA Scalar 5 R(4) 4 2 17955 COM 901 RSWTT Scalar 7 R(4) 4 3 807975 COM 404,880 RTC Func 183 R(8) 8 scalar 456,458 RTDPTH Scalar 10 R(4) 4 1 4 COM RTOP Scalar 4 R(4) 4 3 807975 COM RUN Scalar 101 L(4) 4 scalar COM 476,503,575,684 SBD Scalar 6 R(4) 4 scalar COM SFCEVP Scalar 6 R(4) 4 2 17955 COM 730,1175 SFCEXC Scalar 3 R(4) 4 2 17955 COM 648 SFCLHX Scalar 4 R(4) 4 2 17955 COM 726,1300 SFCSHX Scalar 4 R(4) 4 2 17955 COM 725,1299 SFCUVX Scalar 6 R(4) 4 2 17955 COM 729,1303 SH2O Scalar 10 R(4) 4 3 71820 COM 797 SI Scalar 10 R(4) 4 2 17955 COM 632 SICE Scalar 4 R(4) 4 2 17955 COM SIGMA Scalar 101 L(4) 4 scalar COM SIGT4 Scalar 23 R(4) 4 2 17955 COM 663 SINGLRST Local 2 L(4) 4 scalar SLDPTH Scalar 10 R(4) 4 1 4 COM SLP_TIM Scalar 200 R(4) 4 scalar COM SM Scalar 4 R(4) 4 2 17955 COM SMC Scalar 8 R(4) 4 3 71820 COM 782 SMSTAV Scalar 4 R(4) 4 2 17955 COM 649 SMSTOT Scalar 4 R(4) 4 2 17955 COM 650 Page 42 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References SNO Scalar 10 R(4) 4 2 17955 COM 631 SNOPCX Scalar 5 R(4) 4 2 17955 COM 728,1302 SOIL Common 2 1651892 SOILTB Scalar 3 R(4) 4 2 17955 COM 647 SPHI0 Scalar 9 R(4) 4 scalar COM SPL Scalar 7 R(4) 4 1 39 COM SQS Scalar 10 R(4) 4 1 134 COM SR Scalar 5 R(4) 4 2 17955 COM 674 SSROFF Scalar 5 R(4) 4 2 17955 COM 713,1173 SST Scalar 20 R(4) 4 2 17955 COM STATUS Local 186 I(4) 4 1 5 457 STAT_TIM Scalar 201 R(4) 4 scalar COM 348 STC Scalar 9 R(4) 4 3 71820 COM 792 STDEV Local 181 R(8) 8 scalar 337,341 STDRD Local 101 L(4) 4 scalar STHE Scalar 10 R(4) 4 1 76 COM STHEQ Scalar 11 R(4) 4 1 152 COM STRWAIT Local 183 R(8) 8 scalar 456,458 SUBMIT Local 107 CHAR 15 scalar SUBPOST Scalar 2 L(4) 4 scalar COM SUBSHX Scalar 5 R(4) 4 2 17955 COM 727,1301 SUMT Local 177 R(8) 8 1 45 302,314,324 SUMT2 Local 179 R(8) 8 1 45 303,315,326 SUMT2_0 Local 180 R(8) 8 1 45 326,337,339 SUMT_0 Local 178 R(8) 8 1 45 324,336,337 SURFCE_TIM Scalar 197 R(4) 4 scalar COM SWTTC Local 120 R(4) 4 3 807975 404,414 T Scalar 5 R(4) 4 3 807975 COM 216,229,314,315,316,317,365,538 T0 Scalar 3 R(4) 4 3 807975 COM 887 TB Scalar 3 R(4) 4 3 77220 COM 527 TCLOD Scalar 3 R(4) 4 scalar COM TCUCN Scalar 5 R(4) 4 3 807975 COM 562,1224 TDTD Scalar 5 R(4) 4 scalar COM TDTQ2 Scalar 5 R(4) 4 scalar COM TEMP1 Scalar 43 R(4) 4 2 91719 COM 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 TEMPSOIL Local 127 R(4) 4 3 1 ALC TEMPV Common 2 6535620 TERM1 Local 365 R(4) 4 scalar 365,366 Page 43 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References TG Scalar 19 R(4) 4 2 17955 COM 582 TH10 Scalar 16 R(4) 4 2 17955 COM 767 TH30 Scalar 14 R(4) 4 2 17955 COM 774 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 THL Scalar 7 R(4) 4 scalar COM THS Scalar 6 R(4) 4 2 17955 COM 598 THZ0 Scalar 5 R(4) 4 2 17955 COM 614 TIMCHK Common 200 24 TIMEF Func 195 R(8) 8 scalar 297,348,447,448,968 TIMES Local 239 R(4) 4 scalar 239,241,242 TIMING Common 197 16 TLAT Scalar 2 R(4) 4 3 807975 COM TLL1 Local 216 R(4) 4 scalar 216,217,218,229,230,231 TLM0D Scalar 6 R(4) 4 scalar COM 873 TLMAX Scalar 2 R(4) 4 2 17955 COM 218,231,861,1314 TLMIN Scalar 2 R(4) 4 2 17955 COM 217,230,860,1313 TMAX Local 182 R(4) 4 1 45 300,316,328 TMAX_0 Local 182 R(4) 4 1 45 328,340 TMEAN Local 181 R(8) 8 scalar 336,341 TMIN Local 182 R(4) 4 1 45 301,317,330 TMIN_0 Local 182 R(4) 4 1 45 330,340 TMYY Local 106 CHAR 4 scalar 1030,1032,1034,1036,1038,1047 TOPO Common 50 17478548 TPH0D Scalar 6 R(4) 4 scalar COM 872 TPREC Scalar 3 R(4) 4 scalar COM TRAIN Scalar 4 R(4) 4 3 807975 COM 559,1223 TRDLW Scalar 3 R(4) 4 scalar COM TRDSW Scalar 3 R(4) 4 scalar COM TSHDE Scalar 8 R(4) 4 1 99 COM TSHLTR Scalar 18 R(4) 4 2 17955 COM 367,384,392,771 TSPH Scalar 5 R(4) 4 scalar COM 283,423 TSRFC Scalar 3 R(4) 4 scalar COM TTBL Scalar 25 R(4) 4 2 10184 COM TTBLQ Scalar 25 R(4) 4 2 66880 COM TTND Local 121 R(4) 4 3 807975 414,553 TTVG Scalar 51 R(4) 4 2 92971 COM TWBS Scalar 9 R(4) 4 2 17955 COM 600 U Scalar 5 R(4) 4 3 807975 COM 544 U00 Scalar 3 R(4) 4 2 17955 COM 671 U10 Scalar 17 R(4) 4 2 17955 COM 769 U30 Scalar 15 R(4) 4 2 17955 COM 776 UB Scalar 3 R(4) 4 3 77220 COM 529 UL Scalar 4 R(4) 4 1 90 COM 672 USTAR Scalar 3 R(4) 4 2 17955 COM 618 UZ0 Scalar 4 R(4) 4 2 17955 COM 616 V Scalar 6 R(4) 4 3 807975 COM 547 V10 Scalar 17 R(4) 4 2 17955 COM 770 V30 Scalar 15 R(4) 4 2 17955 COM 777 VAPINC Scalar 5 R(4) 4 2 17955 COM 847,1182 VAPINC7 Scalar 5 R(4) 4 2 17955 COM 849,1184 VB Scalar 3 R(4) 4 3 77220 COM 530 VBM2 Scalar 3 R(4) 4 2 17955 COM VBM3 Scalar 3 R(4) 4 2 17955 COM Page 44 Source Listing CHKOUT 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References VEGFRC Scalar 7 R(4) 4 2 17955 COM VRBLS Common 2 13143060 VTM Scalar 7 R(4) 4 3 807975 COM VZ0 Scalar 4 R(4) 4 2 17955 COM 617 WBD Scalar 6 R(4) 4 scalar COM WPDARX Scalar 8 R(4) 4 2 17955 COM WRT_TIM Scalar 200 R(4) 4 scalar COM 446,969,970 WRT_TIM_0 Local 970 R(4) 4 scalar 970,974 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 583 Z0SLP Scalar 7 R(4) 4 scalar COM Page 45 Source Listing COAL 2014-12-17 20:46 CHKOUT.F 2202 SUBROUTINE COAL(A,LEN) 2203 INCLUDE "BUFFER.comm" 2212 INCLUDE 'mpif.h' 2729 REAL A(*) 2730 IF ( LEN .LT. 0 ) THEN 2731 IP = 0 2732 END IF 2733 IF ( IP + LEN .GT. IBUFMAX ) THEN 2734 PRINT *, ' IBUFMAX in BUFFER.comm is too small, stopping' 2735 PRINT *, ' CHANGE IBUFMAX in parmbuf and recompile' 2736 PRINT *, ' IBUFMAX=', IBUFMAX, ' WANT AT LEAST ', IP + LEN 2737 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 2738 ENDIF 2739 DO I = 1, ABS(LEN) 2740 IP = IP + 1 2741 BUF(IP) = A(I) 2742 ENDDO 2743 return 2744 END ENTRY POINTS Name coal_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A Dummy 1322 R(4) 4 1 0 ARG,INOUT 1337 ABS Func 1335 scalar 1335 BUF Scalar 3 R(4) 4 1 30000000 COM 1337 BUFFER Common 4 12000000 4 COAL Subr 1322 I Local 1335 I(4) 4 scalar 1335,1337 IBUFMAX Param 1 I(4) 4 scalar 4,1329,1332 IERR Local 1333 I(4) 4 scalar 1333 IP Scalar 2 I(4) 4 scalar COM 1327,1329,1332,1336,1337 LEN Dummy 1322 I(4) 4 scalar ARG,INOUT 1326,1329,1332,1335 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 Page 46 Source Listing COAL 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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_ABORT Subr 1333 1333 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 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_DUP_FN Subr 494 scalar 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 1333 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 Page 47 Source Listing COAL 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 Page 48 Source Listing COAL 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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_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 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 MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar Page 49 Source Listing COAL 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 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 Page 50 Source Listing COAL 2014-12-17 20:46 Symbol Table CHKOUT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar Page 51 Source Listing REPLACE 2014-12-17 20:46 CHKOUT.F 2745 SUBROUTINE REPLACE(A,LEN,IW) 2746 INCLUDE "BUFFER.comm" 2755 REAL A(*) 2756 IPP = IW 2757 DO I = 1, LEN 2758 BUF(IPP) = A(I) 2759 IPP = IPP + 1 2760 END DO 2761 return 2762 END ENTRY POINTS Name replace_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A Dummy 1341 R(4) 4 1 0 ARG,INOUT 1346 BUF Scalar 3 R(4) 4 1 30000000 COM 1346 BUFFER Common 4 12000000 4 I Local 1345 I(4) 4 scalar 1345,1346 IBUFMAX Param 1 I(4) 4 scalar 4 IP Scalar 2 I(4) 4 scalar COM IPP Local 1344 I(4) 4 scalar 1344,1346,1347 IW Dummy 1341 I(4) 4 scalar ARG,INOUT 1344 LEN Dummy 1341 I(4) 4 scalar ARG,INOUT 1345 REPLACE Subr 1341 Page 52 Source Listing REPLACE 2014-12-17 20:46 CHKOUT.F 2763 2764 Page 53 Source Listing REPLACE 2014-12-17 20:46 Subprograms/Common Blocks CHKOUT.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 BUFFER Common 4 12000000 4 CHKOUT Subr 1 CLDWTR Common 2 3447720 CNVCLD Common 2 287280 COAL Subr 1322 CONTIN Common 2 12999420 CTLBLK Common 4 112 CUINIT Common 163 4 DYNAM Common 2 725404 GLB_TABLE Common 37 128 INDX Common 2 6564 INDXG Common 8 8084 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 OUTFIL Common 3 58 PHYS Common 4 1788916 PPTASM Common 1 3878292 PRFHLD Common 1 143640 PVRBLS Common 2 5530140 QFLX Common 1 5027400 REPLACE Subr 1341 SOIL Common 2 1651892 TEMPCOM Common 42 6603768 TEMPV Common 2 6535620 TIMCHK Common 200 24 TIMING Common 197 16 TOPO Common 50 17478548 VRBLS Common 2 13143060 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons Page 54 Source Listing REPLACE 2014-12-17 20:46 CHKOUT.F -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -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 Page 55 Source Listing REPLACE 2014-12-17 20:46 CHKOUT.F -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 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 : CHKOUT.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100