Page 1 Source Listing READ_RESTRT 2014-12-17 20:47 /tmpnwprd/ifortiMWdwQ.i 1 # 1 "READ_RESTRT.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE READ_RESTRT 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 8 C SUBPROGRAM: READ_RESTRT READ AND DISTRIBUTE RESTRT FILE 9 C PRGRMMR: BLACK ORG: W/NP2 DATE: 98-10-22 10 C 11 C ABSTRACT: 12 C READ_RESTRT READS IN QUANTITIES FROM THE NFC FILE OR THE 13 C RESTRT FILE AND DISTRIBUTES THEM TO THE OTHER NODES/PEs 14 C 15 C PROGRAM HISTORY LOG: 16 C 97-??-?? MEYS - ORIGINATOR 17 C 97-08-?? BLACK - REWROTE FOR BENCHMARK 18 C 98-??-?? TUCCILLO - MODIFIED FOR SINGLE OR DOUBLE PRECISION 19 C 98-10-23 BLACK - MODIFIED FOR NEWEST RESTART FILE 20 C 21 C USAGE: CALL READ_RESTRT FROM SUBROUTINE INIT 22 C INPUT ARGUMENT LIST: 23 C NONE 24 C 25 C OUTPUT ARGUMENT LIST: 26 C NONE 27 C 28 C OUTPUT FILES: 29 C NONE 30 C 31 C SUBPROGRAMS CALLED: 32 C UNIQUE: DSTRB 33 C IDSTRB 34 C 35 C LIBRARY: NONE 36 C 37 C COMMON BLOCKS: CTLBLK 38 C LOOPS 39 C MASKS 40 C DYNAM 41 C PHYS2 42 C MAPOT1 43 C VRBLS 44 C CONTIN 45 C PVRBLS 46 C BOCO 47 C ACMCLH 48 C ACMCLD 49 C ACMPRE 50 C ACMRDL 51 C ACMRDS 52 C ACMSFC 53 C PRFHLD 54 C CLDWTR 55 C CNVCLD 56 C SOIL 57 C INDX Page 2 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 58 C 59 C ATTRIBUTES: 60 C LANGUAGE: FORTRAN 90 61 C MACHINE : IBM SP 62 C$$$ 63 C----------------------------------------------------------------------- 64 C INCLUDE/SET PARAMETERS. 65 C----------------------------------------------------------------------- 66 INCLUDE "parmeta" 89 INCLUDE "parm.tbl" 91 INCLUDE "parmsoil" 92 C----------------------------------------------------------------------- 94 P A R A M E T E R 95 & (D00=0.0,D50=.50,H1=1.0,G=9.8 96 &, CM1=2937.4,CM2=4.9283,CM3=23.5518,EPS=0.622 97 C 98 CVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV 99 C &, Q2INI=.01E0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 100 C &, Q2INI=1.0E0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 101 C &, Q2INI=.50E0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=1.E-4 102 C &, Q2INI=.01E0,EPSQ2=1.E-4,EPSQ=2.E-12,EPSWET=0.0E0 103 &, Q2INI=.50,EPSQ2=2.E-2,EPSQ=2.E-12,EPSWET=0.0 104 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 105 &, Z0LAND=.10,Z0SEA=.001,FCM=.00001 106 &, DTR=0.1745329E-1,H360=360.0 107 &, H1905=190.5,H105=105.0) 108 C 109 C----------------------------------------------------------------------- 110 P A R A M E T E R 111 & (IMJM=IM*JM-JM/2,JMP1=JM+1,JAM=6+2*(JM-10),LB=2*IM+JM-3 112 &, LM1=LM-1,LP1=LM+1,IMT=2*IM-1) 113 C 114 C----------------------------------------------------------------------- 115 C 116 C DECLARE VARIABLES 117 C 118 C----------------------------------------------------------------------- 119 L O G I C A L 120 & RUN,RUNB,FIRST,RESTRT,SIGMA 121 C----------------------------------------------------------------------- 122 C H A R A C T E R *32 123 & LABEL 124 C H A R A C T E R *40 125 & CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV 126 &,FILCLD,FILRAD,FILSFC 127 C----------------------------------------------------------------------- 128 R E A L 129 & PSLP(IDIM1:IDIM2,JDIM1:JDIM2) 130 R E A L 131 & TEMPSOIL(IM,JM,NSOIL) 132 C----------------------------------------------------------------------- 133 I N T E G E R 134 & IDATB(3) 135 C----------------------------------------------------------------------- 136 C 137 C INCLUDE COMMON BLOCKS. 138 C Page 3 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 139 INCLUDE "CTLBLK.comm" 149 INCLUDE "LOOPS.comm" 156 INCLUDE "MASKS.comm" 167 INCLUDE "DYNAM.comm" 183 INCLUDE "PHYS2.comm" 211 INCLUDE "MAPOT1.comm" 223 INCLUDE "VRBLS.comm" 233 INCLUDE "CONTIN.comm" 243 INCLUDE "PVRBLS.comm" 273 INCLUDE "BOCO.comm" 280 INCLUDE "ACMCLH.comm" 287 INCLUDE "ACMCLD.comm" 294 INCLUDE "ACMPRE.comm" 301 INCLUDE "ACMRDL.comm" 310 INCLUDE "ACMRDS.comm" 319 INCLUDE "ACMSFC.comm" 329 INCLUDE "PRFHLD.comm" 333 INCLUDE "CLDWTR.comm" 341 INCLUDE "CNVCLD.comm" 348 INCLUDE "SOIL.comm" 361 INCLUDE "TEMPV.comm" 368 INCLUDE "INDX.comm" 380 INCLUDE "QFLX.comm" 404 INCLUDE "PPTASM.comm" 405 C 406 C----------------------------------------------------------------------- 430 INCLUDE "mpif.h" 947 INCLUDE "mpp.h" 948 # 1 "./sp.h" 1 949 # 4 950 951 # 143 "READ_RESTRT.F" 2 952 C----------------------------------------------------------------------- 1011 INTEGER ISTAT(MPI_STATUS_SIZE) 1012 C 1013 # 151 1014 1015 C 1016 C*********************************************************************** 1017 C*********************************************************************** 1018 C 1019 C*** TSTART IS THE INITIAL TIME IN HOURS 1020 C 1021 TSTART=NSTART*DT/3600. 1022 C 1023 C READ INITIAL CONDITIONS OR RESTART FILE. 1024 C FIRST, THE .NOT. RESTART FILE CASE. 1025 C 1026 IF(.NOT.RESTRT)THEN 1027 IF(MYPE.EQ.0)THEN 1028 # 171 1029 1030 READ(NFCST)RUN,IDAT,IHRST,NTSD 1031 1032 IF(NTSD.EQ.1)NTSD=0 1033 ELSE 1034 READ(NFCST)DUMMY Page 4 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 1035 ENDIF 1036 C 1037 CALL MPI_BCAST(RUN,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) 1038 CALL MPI_BCAST(IDAT(1),3,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1039 CALL MPI_BCAST(IHRST,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1040 CALL MPI_BCAST(NTSD,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1041 C 1042 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1043 C---------------------------------------------------------------------- 1044 C*** 1045 C*** DISTRIBUTE PD 1046 C*** 1047 IF(MYPE.EQ.0)THEN 1048 READ(NFCST)TEMP1 1049 c WRITE(0,*)'READ PD' 1050 ENDIF 1051 C 1052 CALL DSTRB(TEMP1,PD,1,1,1) 1053 C 1054 C2345678901234567890123456789012345678901234567890123456789012345678901 1055 C---------------------------------------------------------------------- 1056 C*** 1057 C*** DISTRIBUTE RES 1058 C*** 1059 IF(MYPE.EQ.0)THEN 1060 READ(NFCST)TEMP1 1061 c WRITE(0,*)'READ RES' 1062 ENDIF 1063 C 1064 CALL DSTRB(TEMP1,RES,1,1,1) 1065 C---------------------------------------------------------------------- 1066 C*** 1067 C*** DISTRIBUTE FIS 1068 C*** 1069 IF(MYPE.EQ.0)THEN 1070 READ(NFCST)TEMP1 1071 c WRITE(0,*)'READ FIS' 1072 ENDIF 1073 C 1074 CALL DSTRB(TEMP1,FIS,1,1,1) 1075 C---------------------------------------------------------------------- 1076 C*** 1077 C*** DISTRIBUTE U 1078 C*** 1079 DO L=1,LM 1080 IF(MYPE.EQ.0)THEN 1081 READ(NFCST)TEMP1 1082 c WRITE(0,*)'READ U' 1083 ENDIF 1084 CALL DSTRB(TEMP1,U,1,LM,L) 1085 ENDDO 1086 C---------------------------------------------------------------------- 1087 C*** 1088 C*** DISTRIBUTE V 1089 C*** 1090 DO L=1,LM 1091 IF(MYPE.EQ.0)THEN Page 5 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 1092 READ(NFCST)TEMP1 1093 c WRITE(0,*)'READ V' 1094 ENDIF 1095 CALL DSTRB(TEMP1,V,1,LM,L) 1096 ENDDO 1097 C---------------------------------------------------------------------- 1098 C*** 1099 C*** DISTRIBUTE T 1100 C*** 1101 DO L=1,LM 1102 IF(MYPE.EQ.0)THEN 1103 READ(NFCST)TEMP1 1104 c WRITE(0,*)'READ T' 1105 ENDIF 1106 CALL DSTRB(TEMP1,T,1,LM,L) 1107 ENDDO 1108 C---------------------------------------------------------------------- 1109 C*** 1110 C*** DISTRIBUTE Q 1111 C*** 1112 DO L=1,LM 1113 IF(MYPE.EQ.0)THEN 1114 READ(NFCST)TEMP1 1115 c WRITE(0,*)'READ Q' 1116 ENDIF 1117 CALL DSTRB(TEMP1,Q,1,LM,L) 1118 ENDDO 1119 C---------------------------------------------------------------------- 1120 C*** 1121 C*** DISTRIBUTE SI 1122 C*** 1123 IF(MYPE.EQ.0)THEN 1124 READ(NFCST)TEMP1 1125 c WRITE(0,*)'READ SI' 1126 ENDIF 1127 C 1128 CALL DSTRB(TEMP1,SI,1,1,1) 1129 C---------------------------------------------------------------------- 1130 C*** 1131 C*** DISTRIBUTE SNO 1132 C*** 1133 IF(MYPE.EQ.0)THEN 1134 READ(NFCST)TEMP1 1135 c WRITE(0,*)'READ SNO' 1136 ENDIF 1137 C 1138 CALL DSTRB(TEMP1,SNO,1,1,1) 1139 C---------------------------------------------------------------------- 1140 C*** 1141 C*** DISTRIBUTE SMC 1142 C*** 1143 IF(MYPE.EQ.0)THEN 1144 READ(NFCST)TEMPSOIL 1145 c WRITE(0,*)'READ SMC' 1146 ENDIF 1147 C 1148 CALL DSTRB(TEMPSOIL,SMC,NSOIL,NSOIL,NSOIL) Page 6 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 1149 C---------------------------------------------------------------------- 1150 C*** 1151 C*** 1152 C*** DISTRIBUTE CMC 1153 C*** 1154 IF(MYPE.EQ.0)THEN 1155 READ(NFCST)TEMP1 1156 c WRITE(0,*)'READ CMC' 1157 ENDIF 1158 C 1159 CALL DSTRB(TEMP1,CMC,1,1,1) 1160 C---------------------------------------------------------------------- 1161 C*** 1162 C*** DISTRIBUTE STC 1163 C*** 1164 IF(MYPE.EQ.0)THEN 1165 READ(NFCST)TEMPSOIL 1166 c WRITE(0,*)'READ STC' 1167 ENDIF 1168 C 1169 CALL DSTRB(TEMPSOIL,STC,NSOIL,NSOIL,NSOIL) 1170 C---------------------------------------------------------------------- 1171 C*** 1172 C*** DISTRIBUTE SH2O 1173 C*** 1174 IF(MYPE.EQ.0)THEN 1175 READ(NFCST)TEMPSOIL 1176 c WRITE(0,*)'READ SH2O' 1177 ENDIF 1178 C 1179 CALL DSTRB(TEMPSOIL,SH2O,NSOIL,NSOIL,NSOIL) 1180 C------------------------------------------------------------------- 1181 C*** 1182 C*** 1183 C*** DISTRIBUTE ALBEDO 1184 C*** 1185 IF(MYPE.EQ.0)THEN 1186 READ(NFCST)TEMP1 1187 c WRITE(0,*)'READ ALBEDO' 1188 ENDIF 1189 C 1190 CALL DSTRB(TEMP1,ALBEDO,1,1,1) 1191 C---------------------------------------------------------------------- 1192 C 1193 IYR =IDAT(3)-1900 1194 IMNTH=IDAT(1) 1195 IDAY =IDAT(2) 1196 IF(MYPE.EQ.0)WRITE(LIST,*)'INIT: READ INITIAL CONDITION FILE' 1197 C------------------------------------------------------------------- 1198 C------------------------------------------------------------------- 1199 C 1200 C SECOND, THE RESTART FILE CASE. 1201 C 1202 C------------------------------------------------------------------- 1203 C------------------------------------------------------------------- 1204 ELSE 1205 IF(MYPE.EQ.0)WRITE(LIST,*)'INIT: READ RESTART FILE' Page 7 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 1206 IF(MYPE.EQ.0)THEN 1207 # 355 1208 1209 READ(NFCST)RUN,IDAT,IHRST,NTSD,LABEL 1210 1211 IF(NTSD.EQ.1)NTSD=0 1212 READ(NFCST)PDOMG,RESOMG 1213 ENDIF 1214 C 1215 CALL MPI_BCAST(RUN,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) 1216 CALL MPI_BCAST(IDAT(1),3,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1217 CALL MPI_BCAST(IHRST,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1218 CALL MPI_BCAST(NTSD,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1219 c CALL MPI_BCAST(LABEL,1,MPI_CHARACTER,0,MPI_COMM_COMP,IRTN) 1220 c CALL MPI_BCAST(PDOMG,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1221 c CALL MPI_BCAST(RESOMG,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1222 C 1223 C------------------------------------------------------------------- 1224 C*** 1225 C*** DISTRIBUTE OMGALF 1226 C*** 1227 DO L=1,LM 1228 IF(MYPE.EQ.0)THEN 1229 READ(NFCST)TEMP1 1230 c WRITE(0,*)'READ OMGALF' 1231 ENDIF 1232 CALL DSTRB(TEMP1,OMGALF,1,LM,L) 1233 ENDDO 1234 C------------------------------------------------------------------- 1235 C 1236 IF(MYPE.EQ.0)WRITE(LIST,*)' READ ',LABEL 1237 C 1238 IF(MYPE.EQ.0)THEN 1239 # 395 1240 1241 READ(NFCST)RUN,IDAT,IHRST,NTSD,LABEL,FIRST,IOUT,NSHDE 1242 1243 IF(NTSD.EQ.1)NTSD=0 1244 ENDIF 1245 C 1246 FIRST=.TRUE. 1247 C 1248 CALL MPI_BCAST(RUN,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) 1249 CALL MPI_BCAST(IDAT(1),3,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1250 CALL MPI_BCAST(IHRST,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1251 CALL MPI_BCAST(NTSD,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1252 c CALL MPI_BCAST(LABEL,1,MPI_CHARACTER,0,MPI_COMM_COMP,IRTN) 1253 CALL MPI_BCAST(FIRST,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) 1254 CALL MPI_BCAST(IOUT,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1255 CALL MPI_BCAST(NSHDE,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1256 1257 C------------------------------------------------------------------- 1258 IF(MYPE.EQ.0)THEN 1259 READ(NFCST)TEMP1,TEMP2,TEMP3 1260 c WRITE(0,*)'READ PD' 1261 ENDIF 1262 C Page 8 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 1263 CALL DSTRB(TEMP1,PD,1,1,1) 1264 CALL DSTRB(TEMP2,RES,1,1,1) 1265 CALL DSTRB(TEMP3,FIS,1,1,1) 1266 C------------------------------------------------------------------- 1267 C*** 1268 LBM2=LB*LM*2 1269 IF(MYPE.EQ.0)THEN 1270 IF(NINT(TSTART).EQ.0)THEN 1271 READ(NFCST)PDB,TB,QB,UB,VB 1272 ELSE 1273 READ(NFCST)PDB,TB,QB,UB,VB,Q2B,CWMB 1274 ENDIF 1275 ENDIF 1276 C 1277 CALL MPI_BCAST(PDB(1,1),LB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1278 CALL MPI_BCAST(PDB(1,2),LB,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1279 CALL MPI_BCAST(TB(1,1,1),LBM2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1280 CALL MPI_BCAST(QB(1,1,1),LBM2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1281 CALL MPI_BCAST(UB(1,1,1),LBM2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1282 CALL MPI_BCAST(VB(1,1,1),LBM2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1283 C 1284 IF(NINT(TSTART).GT.0)THEN 1285 CALL MPI_BCAST(Q2B(1,1,1),LBM2,MPI_REAL,0,MPI_COMM_COMP 1286 1, IRTN) 1287 CALL MPI_BCAST(CWMB(1,1,1),LBM2,MPI_REAL,0,MPI_COMM_COMP 1288 1, IRTN) 1289 ENDIF 1290 C------------------------------------------------------------------- 1291 C*** 1292 C*** PRIMARY 3-D VARIABLES 1293 C*** 1294 DO 300 L=1,LM 1295 IF(MYPE.EQ.0)THEN 1296 READ(NFCST)TEMP1 ! T(I,J,L) 1297 READ(NFCST)TEMP2 ! Q(I,J,L) 1298 READ(NFCST)TEMP3 ! U(I,J,L) 1299 READ(NFCST)TEMP4 ! V(I,J,L) 1300 READ(NFCST)TEMP5 ! Q2(I,J,L) 1301 ENDIF 1302 C 1303 CALL DSTRB(TEMP1,T,1,LM,L) 1304 CALL DSTRB(TEMP2,Q,1,LM,L) 1305 CALL DSTRB(TEMP3,U,1,LM,L) 1306 CALL DSTRB(TEMP4,V,1,LM,L) 1307 CALL DSTRB(TEMP5,Q2,1,LM,L) 1308 C 1309 C DUMMY READ OF THE TOTAL RADIATIVE TEMPERATURE TENDENCIES 1310 C WHICH ARE NOT USED EXPLICITLY IN THE INTEGRATION 1311 C 1312 IF(MYPE.EQ.0)THEN 1313 READ(NFCST) 1314 C 1315 READ(NFCST)((TEMP6(I,J),I=1,IM),J=1,JM) ! CWM(I,J,L) 1316 READ(NFCST)((TEMP7(I,J),I=1,IM),J=1,JM) ! TRAIN(I,J,L) 1317 READ(NFCST)((TEMP8(I,J),I=1,IM),J=1,JM) ! TCUCN(I,J,L) 1318 C 1319 ENDIF Page 9 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 1320 C 1321 CALL DSTRB(TEMP6,CWM,1,LM,L) 1322 CALL DSTRB(TEMP7,TRAIN,1,LM,L) 1323 CALL DSTRB(TEMP8,TCUCN,1,LM,L) 1324 C 1325 300 CONTINUE 1326 C------------------------------------------------------------------- 1327 C 1328 IF(MYPE.EQ.0)WRITE(LIST,*)' READ ',LABEL 1329 C 1330 IF(MYPE.EQ.0)THEN 1331 # 494 1332 1333 READ(NFCST)RUN,IDAT,IHRST,NTSD,LABEL 1334 1, TEMP1,TEMP2,TEMP3 1335 2, TEMP4,((TEMP5(I,J),I=1,IM),J=1,JM),TEMP6 1336 1337 IF(NTSD.EQ.1)NTSD=0 1338 ENDIF 1339 C 1340 CALL DSTRB(TEMP1,RSWIN,1,1,1) 1341 CALL DSTRB(TEMP2,RSWOUT,1,1,1) 1342 CALL DSTRB(TEMP3,TG,1,1,1) 1343 CALL DSTRB(TEMP4,Z0,1,1,1) 1344 CALL DSTRB(TEMP5,AKMS,1,1,1) 1345 CALL DSTRB(TEMP6,CZEN,1,1,1) 1346 C 1347 CALL MPI_BCAST(RUN,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) 1348 CALL MPI_BCAST(IDAT(1),3,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1349 CALL MPI_BCAST(IHRST,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1350 CALL MPI_BCAST(NTSD,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1351 c CALL MPI_BCAST(LABEL,1,MPI_CHARACTER,0,MPI_COMM_COMP,IRTN) 1352 C 1353 C------------------------------------------------------------------- 1354 IF(MYPE.EQ.0)THEN 1355 READ(NFCST)TEMP1,TEMP2,TEMP3,TEMP4,TEMP5,TEMP6,TEMP7 1356 ENDIF 1357 C 1358 CALL DSTRB(TEMP1,AKHS,1,1,1) 1359 CALL DSTRB(TEMP2,THS,1,1,1) 1360 CALL DSTRB(TEMP3,QS,1,1,1) 1361 CALL DSTRB(TEMP4,TWBS,1,1,1) 1362 CALL DSTRB(TEMP5,QWBS,1,1,1) 1363 CALL DSTRB(TEMP6,HBOT,1,1,1) ! Used to be CNVBOT 1364 CALL DSTRB(TEMP7,CFRACL,1,1,1) 1365 C------------------------------------------------------------------- 1366 C*** 1367 IF(MYPE.EQ.0)THEN 1368 READ(NFCST)TEMP1,TEMP2 1369 1, ((TEMP3(I,J),I=1,IM),J=1,JM) 1370 2, ((TEMP4(I,J),I=1,IM),J=1,JM) 1371 3, TEMP5,TEMP6,TEMP7 1372 ENDIF 1373 C 1374 CALL DSTRB(TEMP1,THZ0,1,1,1) 1375 CALL DSTRB(TEMP2,QZ0,1,1,1) 1376 CALL DSTRB(TEMP3,UZ0,1,1,1) Page 10 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 1377 CALL DSTRB(TEMP4,VZ0,1,1,1) 1378 CALL DSTRB(TEMP5,USTAR,1,1,1) 1379 CALL DSTRB(TEMP6,HTOP,1,1,1) ! Used to be CNVTOP 1380 CALL DSTRB(TEMP7,CFRACM,1,1,1) 1381 C------------------------------------------------------------------- 1382 C*** 1383 IF(MYPE.EQ.0)THEN 1384 READ(NFCST)TEMP1,TEMP2,TEMP3,TEMP4,TEMP5,TEMP6,TEMP7 1385 ENDIF 1386 C 1387 CALL DSTRB(TEMP1,SNO,1,1,1) 1388 CALL DSTRB(TEMP2,SI,1,1,1) 1389 CALL DSTRB(TEMP3,CLDEFI,1,1,1) 1390 CALL DSTRB(TEMP4,RF,1,1,1) 1391 CALL DSTRB(TEMP5,PSLP,1,1,1) 1392 CALL DSTRB(TEMP6,CUPPT,1,1,1) 1393 CALL DSTRB(TEMP7,CFRACH,1,1,1) 1394 C------------------------------------------------------------------- 1395 C*** 1396 IF(MYPE.EQ.0)THEN 1397 READ(NFCST)TEMP1,TEMP2,TEMP3,TEMP4,TEMP5,TEMP6 1398 ENDIF 1399 C 1400 CALL DSTRB(TEMP1,SOILTB,1,1,1) 1401 CALL DSTRB(TEMP2,SFCEXC,1,1,1) 1402 CALL DSTRB(TEMP3,SMSTAV,1,1,1) 1403 CALL DSTRB(TEMP4,SMSTOT,1,1,1) 1404 CALL DSTRB(TEMP5,GRNFLX,1,1,1) 1405 CALL DSTRB(TEMP6,PCTSNO,1,1,1) 1406 C------------------------------------------------------------------- 1407 C*** 1408 IF(MYPE.EQ.0)THEN 1409 READ(NFCST)TEMP1 1410 1, ((TEMP2(I,J),I=1,IM),J=1,JM) 1411 2, TEMP3,TEMP4 1412 ENDIF 1413 C 1414 CALL DSTRB(TEMP1,RLWIN,1,1,1) 1415 CALL DSTRB(TEMP2,RADOT,1,1,1) 1416 CALL DSTRB(TEMP3,CZMEAN,1,1,1) 1417 CALL DSTRB(TEMP4,SIGT4,1,1,1) 1418 C------------------------------------------------------------------- 1419 C*** 1420 IF(MYPE.EQ.0)THEN 1421 # 586 1422 1423 READ(NFCST)TEMP1,UL,ITEMP,TEMP3 1424 1425 ENDIF 1426 C 1427 CALL DSTRB(TEMP1,U00,1,1,1) 1428 CALL IDSTRB(ITEMP,LC) 1429 CALL DSTRB(TEMP3,SR,1,1,1) 1430 CALL MPI_BCAST(UL(1),2*LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1431 C------------------------------------------------------------------- 1432 C*** 1433 IF(MYPE.EQ.0)THEN Page 11 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 1434 # 605 1435 1436 READ(NFCST)RUN,IDAT,IHRST,NTSD,LABEL 1437 1, TEMP1,TEMP2,TEMP3,TEMP4 1438 1439 IF(NTSD.EQ.1)NTSD=0 1440 ENDIF 1441 C 1442 CALL DSTRB(TEMP1,PREC,1,1,1) 1443 CALL DSTRB(TEMP2,ACPREC,1,1,1) 1444 CALL DSTRB(TEMP3,ACCLIQ,1,1,1) 1445 CALL DSTRB(TEMP4,CUPREC,1,1,1) 1446 CALL MPI_BCAST(RUN,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) 1447 CALL MPI_BCAST(IDAT(1),3,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1448 CALL MPI_BCAST(IHRST,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1449 CALL MPI_BCAST(NTSD,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) 1450 c CALL MPI_BCAST(LABEL,1,MPI_CHARACTER,0,MPI_COMM_COMP,IRTN) 1451 C------------------------------------------------------------------- 1452 C*** 1453 IF(MYPE.EQ.0)THEN 1454 # 628 1455 1456 READ(NFCST)TEMP1,ITEMP,TEMP3,ITEMP2 1457 1458 ENDIF 1459 C 1460 CALL DSTRB(TEMP1,ACFRCV,1,1,1) 1461 CALL IDSTRB(ITEMP,NCFRCV) 1462 CALL DSTRB(TEMP3,ACFRST,1,1,1) 1463 CALL IDSTRB(ITEMP2,NCFRST) 1464 C------------------------------------------------------------------- 1465 C*** 1466 IF(MYPE.EQ.0)THEN 1467 READ(NFCST)TEMP1,TEMP2,TEMP3,TEMP4 1468 ENDIF 1469 C 1470 CALL DSTRB(TEMP1,ACSNOW,1,1,1) 1471 CALL DSTRB(TEMP2,ACSNOM,1,1,1) 1472 CALL DSTRB(TEMP3,SSROFF,1,1,1) 1473 CALL DSTRB(TEMP4,BGROFF,1,1,1) 1474 C------------------------------------------------------------------- 1475 C*** 1476 IF(MYPE.EQ.0)THEN 1477 READ(NFCST)TEMP1,TEMP2,TEMP3,TEMP4,TEMP5,TEMP6 1478 1, TEMP7 1479 ENDIF 1480 C 1481 CALL DSTRB(TEMP1,SFCSHX,1,1,1) 1482 CALL DSTRB(TEMP2,SFCLHX,1,1,1) 1483 CALL DSTRB(TEMP3,SUBSHX,1,1,1) 1484 CALL DSTRB(TEMP4,SNOPCX,1,1,1) 1485 CALL DSTRB(TEMP5,SFCUVX,1,1,1) 1486 CALL DSTRB(TEMP6,SFCEVP,1,1,1) 1487 CALL DSTRB(TEMP7,POTEVP,1,1,1) 1488 C------------------------------------------------------------------- 1489 C*** 1490 IF(MYPE.EQ.0)THEN Page 12 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 1491 READ(NFCST)TEMP1,TEMP2,TEMP3,TEMP4,TEMP5,TEMP6 1492 ENDIF 1493 C 1494 CALL DSTRB(TEMP1,ASWIN,1,1,1) 1495 CALL DSTRB(TEMP2,ASWOUT,1,1,1) 1496 CALL DSTRB(TEMP3,ASWTOA,1,1,1) 1497 CALL DSTRB(TEMP4,ALWIN,1,1,1) 1498 CALL DSTRB(TEMP5,ALWOUT,1,1,1) 1499 CALL DSTRB(TEMP6,ALWTOA,1,1,1) 1500 C------------------------------------------------------------------- 1501 C*** 1502 IF(MYPE.EQ.0)THEN 1503 READ(NFCST)ARDSW,ARDLW,ASRFC,AVRAIN,AVCNVC 1504 ENDIF 1505 C 1506 CALL MPI_BCAST(ARDSW,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1507 CALL MPI_BCAST(ARDLW,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1508 CALL MPI_BCAST(ASRFC,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1509 CALL MPI_BCAST(AVRAIN,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1510 CALL MPI_BCAST(AVCNVC,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1511 C 1512 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1513 C------------------------------------------------------------------- 1514 C*** 1515 IF(MYPE.EQ.0)THEN 1516 READ(NFCST)TEMP1,TEMP2,TEMP3,TEMP4,TEMP5,TEMP6,TEMP7 1517 1, TEMP8,TEMP9,TEMP10,TEMP11 1518 ENDIF 1519 C 1520 CALL DSTRB(TEMP1,TH10,1,1,1) 1521 CALL DSTRB(TEMP2,Q10,1,1,1) 1522 CALL DSTRB(TEMP3,U10,1,1,1) 1523 CALL DSTRB(TEMP4,V10,1,1,1) 1524 CALL DSTRB(TEMP5,TSHLTR,1,1,1) 1525 CALL DSTRB(TEMP6,QSHLTR,1,1,1) 1526 CALL DSTRB(TEMP7,PSHLTR,1,1,1) 1527 CALL DSTRB(TEMP8,TH30,1,1,1) 1528 CALL DSTRB(TEMP9,Q30,1,1,1) 1529 CALL DSTRB(TEMP10,U30,1,1,1) 1530 CALL DSTRB(TEMP11,V30,1,1,1) 1531 C------------------------------------------------------------------- 1532 C*** 1533 C*** DISTRIBUTE SMC 1534 C*** 1535 IF(MYPE.EQ.0)THEN 1536 READ(NFCST)TEMPSOIL 1537 ENDIF 1538 C 1539 CALL DSTRB(TEMPSOIL,SMC,NSOIL,NSOIL,NSOIL) 1540 C------------------------------------------------------------------- 1541 C*** 1542 C*** DISTRIBUTE CMC 1543 C*** 1544 IF(MYPE.EQ.0)THEN 1545 READ(NFCST)TEMP1 1546 ENDIF 1547 C Page 13 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 1548 CALL DSTRB(TEMP1,CMC,1,1,1) 1549 C------------------------------------------------------------------- 1550 C*** 1551 C*** DISTRIBUTE STC 1552 C*** 1553 IF(MYPE.EQ.0)THEN 1554 READ(NFCST)TEMPSOIL 1555 ENDIF 1556 C 1557 CALL DSTRB(TEMPSOIL,STC,NSOIL,NSOIL,NSOIL) 1558 C------------------------------------------------------------------- 1559 C*** 1560 C*** DISTRIBUTE SH2O 1561 C*** 1562 IF(MYPE.EQ.0)THEN 1563 READ(NFCST)TEMPSOIL 1564 c WRITE(0,*)'READ SH2O' 1565 ENDIF 1566 C 1567 CALL DSTRB(TEMPSOIL,SH2O,NSOIL,NSOIL,NSOIL) 1568 C------------------------------------------------------------------- 1569 C*** 1570 C*** 1571 C*** DISTRIBUTE ALBEDO 1572 C*** 1573 IF(MYPE.EQ.0)THEN 1574 READ(NFCST)TEMP1 1575 c WRITE(0,*)'READ ALBEDO' 1576 ENDIF 1577 C 1578 CALL DSTRB(TEMP1,ALBEDO,1,1,1) 1579 C---------------------------------------------------------------------- 1580 C*** 1581 C*** 1582 C*** DISTRIBUTE VERT. INT. FLX 1583 C*** 1584 IF(MYPE.EQ.0)THEN 1585 READ(NFCST)TEMP1,TEMP2,TEMP3,TEMP4,TEMP5,TEMP6,TEMP7 1586 1, TEMP8,TEMP9,TEMP10,TEMP11,TEMP12,TEMP13 1587 2, TEMP14,TEMP15 1588 c WRITE(0,*)'READ VERT. INT. FLX.' 1589 ENDIF 1590 C 1591 CALL DSTRB(TEMP1,FQU,1,1,1) 1592 CALL DSTRB(TEMP2,FQV,1,1,1) 1593 CALL DSTRB(TEMP3,DQFLX,1,1,1) 1594 CALL DSTRB(TEMP4,FCU,1,1,1) 1595 CALL DSTRB(TEMP5,FCV,1,1,1) 1596 CALL DSTRB(TEMP6,DCFLX,1,1,1) 1597 1598 CALL DSTRB(TEMP7,FQU7,1,1,1) 1599 CALL DSTRB(TEMP8,FQV7,1,1,1) 1600 CALL DSTRB(TEMP9,DQFLX7,1,1,1) 1601 CALL DSTRB(TEMP10,FCU7,1,1,1) 1602 CALL DSTRB(TEMP11,FCV7,1,1,1) 1603 CALL DSTRB(TEMP12,DCFLX7,1,1,1) 1604 Page 14 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 1605 CALL DSTRB(TEMP13,DQADV,1,1,1) 1606 CALL DSTRB(TEMP14,FQNEV1,1,1,1) 1607 CALL DSTRB(TEMP15,FQSEV1,1,1,1) 1608 C---------------------------------------------------------------------- 1609 C*** 1610 C*** 1611 C*** DISTRIBUTE VERT. INT. MOISTURE INCREMENT DUE TO PREC. ASSIM. 1612 C*** 1613 IF(MYPE.EQ.0)THEN 1614 READ(NFCST)TEMP1,TEMP2,TEMP3,TEMP4 1615 c WRITE(0,*)'READ VERT. INT. FLX.' 1616 ENDIF 1617 C 1618 CALL DSTRB(TEMP1,VAPINC,1,1,1) 1619 CALL DSTRB(TEMP2,CLDINC,1,1,1) 1620 CALL DSTRB(TEMP3,VAPINC7,1,1,1) 1621 CALL DSTRB(TEMP4,CLDINC7,1,1,1) 1622 C---------------------------------------------------------------------- 1623 C*** 1624 C*** IF FORECAST IS NOT BEGINNING AT TIME 0 1625 C*** THEN WE MUST READ ADDITIONAL INFORMATION 1626 C*** 1627 IF(NINT(TSTART).NE.0)THEN 1628 C 1629 IF(MYPE.EQ.0)THEN 1630 READ(NFCST)TEMP1,TEMP2,TEMP3 1631 1, ACUTIM,ARATIM,APHTIM 1632 ENDIF 1633 CALL DSTRB(TEMP1,POTFLX,1,1,1) 1634 CALL DSTRB(TEMP2,TLMIN,1,1,1) 1635 CALL DSTRB(TEMP3,TLMAX,1,1,1) 1636 CALL MPI_BCAST(ACUTIM,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1637 CALL MPI_BCAST(ARATIM,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1638 CALL MPI_BCAST(APHTIM,1,MPI_REAL,0,MPI_COMM_COMP,IRTN) 1639 C 1640 DO L=1,LM 1641 IF(MYPE.EQ.0)THEN 1642 READ(NFCST)TEMP1 ! RSWTT 1643 READ(NFCST)TEMP2 ! RLWTT 1644 ENDIF 1645 C 1646 CALL DSTRB(TEMP1,RSWTT,1,LM,L) 1647 CALL DSTRB(TEMP2,RLWTT,1,LM,L) 1648 ENDDO 1649 C 1650 DO L=1,LM 1651 IF(MYPE.EQ.0)THEN 1652 READ(NFCST)TEMP1 ! T0 1653 READ(NFCST)TEMP2 ! Q0 1654 ENDIF 1655 C 1656 CALL DSTRB(TEMP1,T0,1,LM,L) 1657 CALL DSTRB(TEMP2,Q0,1,LM,L) 1658 ENDDO 1659 C 1660 IF(MYPE.EQ.0)THEN 1661 READ(NFCST)TEMP1 ! P0 Page 15 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F 1662 READ(NFCST)TEMP2 ! CNVBOT (used to be HBOT) 1663 READ(NFCST)TEMP3 ! CNVTOP (used to be HTOP) 1664 READ(NFCST)TEMP4 ! RSWTOA 1665 READ(NFCST)TEMP5 ! RLWTOA 1666 ENDIF 1667 C 1668 CALL DSTRB(TEMP1,P0,1,1,1) 1669 CALL DSTRB(TEMP2,CNVBOT,1,1,1) 1670 CALL DSTRB(TEMP3,CNVTOP,1,1,1) 1671 CALL DSTRB(TEMP4,RSWTOA,1,1,1) 1672 CALL DSTRB(TEMP5,RLWTOA,1,1,1) 1673 ENDIF 1674 C------------------------------------------------------------------- 1675 C 1676 c IF(MYPE.EQ.0)WRITE(LIST,*)' READ ',LABEL 1677 C 1678 C------------------------------------------------------------------- 1679 C*** CALL RADIATION TO OBTAIN THE SHORT AND LONGWAVE 1680 C*** TEMPERATURE TENDENCIES 1681 C*** 1682 C 1683 c CALL RADTN 1684 C 1685 ENDIF 1686 C 1687 C DONE READING INITIAL CONDITIONS OR A RESTART FILE. 1688 C 1689 C 1690 C END OF SUBROUTINE READ_RESTRT 1691 C 1692 IF(MYPE.EQ.0)THEN 1693 WRITE(LIST,*)'INIT: EXIT READ_RESTRT' 1694 WRITE(LIST,*)' ' 1695 ENDIF 1696 C 1697 RETURN 1698 END Page 16 Source Listing READ_RESTRT 2014-12-17 20:47 Entry Points READ_RESTRT.F ENTRY POINTS Name read_restrt_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 300 Label 480 449 ACCLIQ Scalar 13 R(4) 4 2 17955 COM 614 ACFRCV Scalar 4 R(4) 4 2 17955 COM 633 ACFRST Scalar 5 R(4) 4 2 17955 COM 635 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 613 ACSNOM Scalar 4 R(4) 4 2 17955 COM 644 ACSNOW Scalar 4 R(4) 4 2 17955 COM 643 ACUTIM Scalar 3 R(4) 4 scalar COM 804,809 AETA Scalar 4 R(4) 4 1 45 COM AETA1 Scalar 8 R(4) 4 1 45 COM AETA2 Scalar 9 R(4) 4 1 45 COM AFSI Scalar 26 R(4) 4 2 17955 COM AKHS Scalar 7 R(4) 4 2 17955 COM 520 AKMS Scalar 7 R(4) 4 2 17955 COM 506 ALBASE Scalar 20 R(4) 4 2 17955 COM ALBEDO Scalar 21 R(4) 4 2 17955 COM 332,751 ALSL Scalar 7 R(4) 4 1 39 COM ALWIN Scalar 5 R(4) 4 2 17955 COM 670 ALWOUT Scalar 6 R(4) 4 2 17955 COM 671 ALWTOA Scalar 6 R(4) 4 2 17955 COM 672 APHTIM Scalar 8 R(4) 4 scalar COM 804,811 APREC Scalar 3 R(4) 4 2 17955 COM ARATIM Scalar 3 R(4) 4 scalar COM 804,810 ARDLW Scalar 3 R(4) 4 scalar COM 676,680 ARDSW Scalar 3 R(4) 4 scalar COM 676,679 ASRFC Scalar 3 R(4) 4 scalar COM 676,681 ASWIN Scalar 5 R(4) 4 2 17955 COM 667 ASWOUT Scalar 6 R(4) 4 2 17955 COM 668 ASWTOA Scalar 6 R(4) 4 2 17955 COM 669 AVCNVC Scalar 3 R(4) 4 scalar COM 676,683 AVRAIN Scalar 3 R(4) 4 scalar COM 676,682 BGROFF Scalar 5 R(4) 4 2 17955 COM 646 BOCO Common 2 1860144 CFRACH Scalar 4 R(4) 4 2 17955 COM 555 CFRACL Scalar 3 R(4) 4 2 17955 COM 526 CFRACM Scalar 4 R(4) 4 2 17955 COM 542 CI Scalar 6 R(4) 4 scalar COM CLDEFI Scalar 11 R(4) 4 2 17955 COM 551 Page 17 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References CLDINC Scalar 6 R(4) 4 2 17955 COM 792 CLDINC7 Scalar 6 R(4) 4 2 17955 COM 794 CLDWTR Common 2 3447720 CM1 Param 71 R(4) 4 scalar CM2 Param 71 R(4) 4 scalar CM3 Param 71 R(4) 4 scalar CMC Scalar 8 R(4) 4 2 17955 COM 301,721 CMLD Scalar 6 R(4) 4 scalar COM CNVBOT Scalar 18 R(4) 4 2 17955 COM 842 CNVCLD Common 2 287280 CNVTOP Scalar 18 R(4) 4 2 17955 COM 843 CONTIN Common 2 12999420 CONTRL Local 100 CHAR 40 scalar CPGFU Scalar 9 R(4) 4 2 17955 COM CPGFV Scalar 3 R(4) 4 scalar COM CPHI0 Scalar 9 R(4) 4 scalar COM CS Scalar 6 R(4) 4 scalar COM CTLBLK Common 4 112 CUPPT Scalar 3 R(4) 4 2 17955 COM 554 CUPREC Scalar 13 R(4) 4 2 17955 COM 615 CURV Scalar 9 R(4) 4 2 17955 COM CWM Scalar 3 R(4) 4 3 807975 COM 476 CWMB Scalar 4 R(4) 4 3 77220 COM 428,442 CZEN Scalar 16 R(4) 4 2 17955 COM 507 CZMEAN Scalar 23 R(4) 4 2 17955 COM 578 D00 Param 70 R(4) 4 scalar D50 Param 70 R(4) 4 scalar DCFLX Scalar 14 R(4) 4 2 17955 COM 769 DCFLX7 Scalar 16 R(4) 4 2 17955 COM 776 DDMPU Scalar 12 R(4) 4 2 17955 COM DDMPV Scalar 12 R(4) 4 2 17955 COM DETA Scalar 4 R(4) 4 1 45 COM DETA1 Scalar 8 R(4) 4 1 45 COM DETA2 Scalar 9 R(4) 4 1 45 COM DFL Scalar 4 R(4) 4 1 46 COM DFRLG Scalar 9 R(4) 4 1 46 COM DI Scalar 6 R(4) 4 scalar COM DISLP Scalar 7 R(4) 4 scalar COM DIV Scalar 6 R(4) 4 3 807975 COM DLMD Scalar 6 R(4) 4 scalar COM 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 778 DQFLX Scalar 13 R(4) 4 2 17955 COM 766 DQFLX7 Scalar 15 R(4) 4 2 17955 COM 773 DS Scalar 6 R(4) 4 scalar COM DSTRB Subr 194 194,206,216,226,237,248,259,270,28 0,290,301,311,321,332,379,418,419, 420,458,459,460,461,462,476,477,47 8,502,503,504,505,506,507,520,521, 522,523,524,525,526,536,537,538,53 9,540,541,542,549,550,551,552,553, 554,555,562,563,564,565,566,567,57 6,577,578,579,591,593,612,613,614, 615,633,635,643,644,645,646,654,65 Page 18 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References 5,656,657,658,659,660,667,668,669, 670,671,672,693,694,695,696,697,69 8,699,700,701,702,703,712,721,730, 740,751,764,765,766,767,768,769,77 1,772,773,774,775,776,778,779,780, 791,792,793,794,806,807,808,819,82 0,829,830,841,842,843,844,845 DT Scalar 6 R(4) 4 scalar COM 158 DTD Scalar 5 R(4) 4 scalar COM DTQ2 Scalar 5 R(4) 4 scalar COM DTR Param 81 R(4) 4 scalar DUMMY Local 176 R(4) 4 scalar 176 DX 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 ENT Scalar 3 R(4) 4 scalar COM EPS Param 71 R(4) 4 scalar EPSQ Param 78 R(4) 4 scalar EPSQ2 Param 78 R(4) 4 scalar EPSR Scalar 13 R(4) 4 2 17955 COM EPSWET Param 78 R(4) 4 scalar ERLAM0 Scalar 9 R(4) 4 scalar COM ETA Scalar 4 R(4) 4 1 46 COM ETA1 Scalar 8 R(4) 4 1 46 COM ETADT Scalar 7 R(4) 4 3 790020 COM F Scalar 11 R(4) 4 2 17955 COM F4D Scalar 3 R(4) 4 scalar COM F4Q Scalar 3 R(4) 4 scalar COM F4Q2 Scalar 4 R(4) 4 1 45 COM FAD Scalar 13 R(4) 4 2 17955 COM FCM Param 80 R(4) 4 scalar FCNEV Scalar 5 R(4) 4 2 17955 COM FCNEV1 Scalar 20 R(4) 4 2 17955 COM FCNEV7 Scalar 6 R(4) 4 2 17955 COM FCP Scalar 10 R(4) 4 2 17955 COM FCSEV Scalar 5 R(4) 4 2 17955 COM FCSEV1 Scalar 20 R(4) 4 2 17955 COM FCSEV7 Scalar 6 R(4) 4 2 17955 COM FCU Scalar 9 R(4) 4 2 17955 COM 767 FCU7 Scalar 11 R(4) 4 2 17955 COM 774 FCV Scalar 9 R(4) 4 2 17955 COM 768 FCV7 Scalar 11 R(4) 4 2 17955 COM 775 FDIV Scalar 10 R(4) 4 2 17955 COM FILALL Local 100 CHAR 40 scalar FILCLD Local 101 CHAR 40 scalar FILMST Local 100 CHAR 40 scalar FILRAD Local 101 CHAR 40 scalar FILSFC Local 101 CHAR 40 scalar FILTKE Local 100 CHAR 40 scalar FILTMP Local 100 CHAR 40 scalar FILUNV Local 100 CHAR 40 scalar Page 19 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References FIRST Scalar 95 L(4) 4 scalar COM 396,401,408 FIS Scalar 7 R(4) 4 2 17955 COM 216,420 FQNEV Scalar 2 R(4) 4 2 17955 COM FQNEV1 Scalar 19 R(4) 4 2 17955 COM 779 FQNEV7 Scalar 3 R(4) 4 2 17955 COM FQSEV Scalar 2 R(4) 4 2 17955 COM FQSEV1 Scalar 19 R(4) 4 2 17955 COM 780 FQSEV7 Scalar 3 R(4) 4 2 17955 COM FQU Scalar 8 R(4) 4 2 17955 COM 764 FQU7 Scalar 10 R(4) 4 2 17955 COM 771 FQV Scalar 8 R(4) 4 2 17955 COM 765 FQV7 Scalar 10 R(4) 4 2 17955 COM 772 G Param 70 R(4) 4 scalar G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GFFC Scalar 19 R(4) 4 2 17955 COM GLAT Scalar 15 R(4) 4 2 17955 COM GLB_TABLE Common 37 128 GLON Scalar 15 R(4) 4 2 17955 COM GRNFLX Scalar 5 R(4) 4 2 17955 COM 566 H1 Param 70 R(4) 4 scalar H105 Param 82 R(4) 4 scalar H1905 Param 82 R(4) 4 scalar H360 Param 81 R(4) 4 scalar 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 525 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 541 I Local 470 I(4) 4 scalar 470,471,472,497,531,532,572 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM 172,180,335,336,337,356,363,396,40 4,495,510,606,617 IDATB Local 109 I(4) 4 1 3 IDAY Local 337 I(4) 4 scalar 337 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,104 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,104 IDSTRB Subr 592 592,634,636 IDTAD Scalar 6 I(4) 4 scalar COM 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 IHRST Scalar 5 I(4) 4 scalar COM 172,181,356,364,396,405,495,511,60 6,618 Page 20 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References IHW Scalar 3 I(4) 4 1 399 COM IHWG Scalar 9 I(4) 4 1 387 COM 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,86 ,87,106,470,471,472,497,531,532,57 2 IMJM Param 86 I(4) 4 scalar IMNTH Local 336 I(4) 4 scalar 336 IMT Param 87 I(4) 4 scalar INDX Common 2 6564 INDXG Common 8 8084 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Scalar 5 I(4) 4 scalar COM 396,409 IQUILT_GROUP Scalar 33 I(4) 4 scalar COM 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 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 179 I(4) 4 scalar 179,180,181,182,184,362,363,364,36 5,403,404,405,406,408,409,410,432, 433,434,435,436,437,441,443,509,51 0,511,512,594,616,617,618,619,679, 680,681,682,683,685,809,810,811 ISHDE Scalar 4 I(4) 4 1 99 COM ISLOPE Scalar 7 I(4) 4 2 17955 COM ISLTYP Scalar 6 I(4) 4 2 17955 COM ISTAT Local 144 I(4) 4 1 5 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 10,25 ITBQ Param 1 I(4) 4 scalar 11,25 ITEMP Scalar 47 I(4) 4 2 91719 COM 587,592,629,634 ITEMP2 Scalar 47 I(4) 4 2 91719 COM 629,636 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 Page 21 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References IYR Local 335 I(4) 4 scalar 335 J Local 470 I(4) 4 scalar 470,471,472,497,531,532,572 JAM Param 86 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,104 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,104 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 JM Param 3 I(4) 4 scalar 9,17,20,43,44,45,46,47,51,52,57,86 ,106,470,471,472,497,531,532,572 JMP1 Param 86 I(4) 4 scalar JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JRA Scalar 3 I(4) 4 1 760 COM JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM 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 221 I(4) 4 scalar 221,226,232,237,243,248,254,259,37 4,379,449,458,459,460,461,462,476, 477,478,813,819,820,823,829,830 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LABEL Local 98 CHAR 32 scalar 356,383,396,483,495,606 LB Param 86 I(4) 4 scalar 3,4,423,432,433 LBM2 Local 423 I(4) 4 scalar 423,434,435,436,437,440,442 LC Scalar 5 I(4) 4 2 17955 COM 592 LIST Scalar 5 I(4) 4 scalar COM 338,347,383,483,866,867 LM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,21,52,87,221,226,2 32,237,243,248,254,259,374,379,423 ,449,458,459,460,461,462,476,477,4 78,594,813,819,820,823,829,830 LM1 Param 87 I(4) 4 scalar LMH Scalar 4 I(4) 4 2 17955 COM LMV Scalar 4 I(4) 4 2 17955 COM LOOPS Common 2 158840 LP1 Param 87 I(4) 4 scalar 4,8,9 LSL Scalar 3 I(4) 4 scalar COM LSM Param 3 I(4) 4 scalar 7 MAPOT Common 2 1732 Page 22 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BARRIER Subr 184 184,685 MPI_BCAST Subr 179 179,180,181,182,362,363,364,365,40 3,404,405,406,408,409,410,432,433, 434,435,436,437,440,442,509,510,51 1,512,594,616,617,618,619,679,680, 681,682,683,809,810,811 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 Page 23 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 179,180,181,182,184,362,363,364,36 5,403,404,405,406,408,409,410,432, 433,434,435,436,437,440,442,509,51 0,511,512,594,616,617,618,619,679, 680,681,682,683,685,809,810,811 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar 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 Page 24 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar 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 Page 25 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 180,181,182,363,364,365,404,405,40 6,409,410,510,511,512,617,618,619 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 179,362,403,408,509,616 MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar 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 Page 26 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 432,433,434,435,436,437,440,442,59 4,679,680,681,682,683,809,810,811 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,144 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 Page 27 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MTSTPE Scalar 4 I(4) 4 scalar COM MXSNAL Scalar 2 R(4) 4 2 17955 COM MYIE Scalar 4 I(4) 4 scalar COM 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 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 MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM Page 28 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM 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 164,189,201,211,222,233,244,255,26 5,275,285,296,306,316,327,338,347, 348,375,383,385,413,424,450,467,48 3,485,516,529,545,558,570,582,597, 623,639,649,663,675,688,708,717,72 6,735,746,757,786,802,814,824,833, 865 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM Page 29 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM 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 634 NCFRST Scalar 5 I(4) 4 2 17955 COM 636 NCLOD Scalar 3 I(4) 4 scalar COM NCNVC Scalar 7 I(4) 4 scalar COM NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 7 I(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM 172,176,190,202,212,223,234,245,25 6,266,276,286,297,307,317,328,356, 359,376,396,414,426,428,451,452,45 3,454,455,468,470,471,472,495,517, 530,546,559,571,587,606,629,640,65 0,664,676,689,709,718,727,736,747, 758,787,803,815,816,825,826,834,83 5,836,837,838 NHEAT Scalar 3 I(4) 4 scalar COM NINT Func 425 scalar 425,439,800 NPES Scalar 2 I(4) 4 scalar COM NPHS Scalar 7 I(4) 4 scalar COM NPREC Scalar 6 I(4) 4 scalar COM NRADL Scalar 7 I(4) 4 scalar COM NRADS Scalar 7 I(4) 4 scalar COM NRDLW Scalar 3 I(4) 4 scalar COM NRDSW Scalar 3 I(4) 4 scalar COM NROOT Param 1 I(4) 4 scalar NSHDE Scalar 6 I(4) 4 scalar COM 396,410 NSOIL Param 1 I(4) 4 scalar 8,9,10,106,290,311,321,712,730,740 NSRFC Scalar 3 I(4) 4 scalar COM NSTART Scalar 6 I(4) 4 scalar COM 158 NTDDMP Scalar 6 I(4) 4 scalar COM NTSD Scalar 6 I(4) 4 scalar COM 172,174,182,356,358,365,396,398,40 6,495,499,512,606,609,619 NTSTM Scalar 6 I(4) 4 scalar COM OMGALF Scalar 5 R(4) 4 3 807975 COM 379 P0 Scalar 4 R(4) 4 2 17955 COM 841 PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PCTSNO Scalar 5 R(4) 4 2 17955 COM 567 PD Scalar 3 R(4) 4 2 17955 COM 194,418 PDB Scalar 3 R(4) 4 2 1716 COM 426,428,432,433 PDOMG Local 359 R(4) 4 scalar 359 PDSL Scalar 3 R(4) 4 2 17955 COM PHOUR Scalar 2 R(4) 4 2 17955 COM PHYS Common 4 1788916 Page 30 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 660 POTFLX Scalar 7 R(4) 4 2 17955 COM 806 PPTASM Common 1 3878292 PPTDAT Scalar 3 R(4) 4 3 53865 COM PREC Scalar 12 R(4) 4 2 17955 COM 612 PRFHLD Common 1 143640 PSDT Scalar 3 R(4) 4 2 17955 COM PSHLTR Scalar 19 R(4) 4 2 17955 COM 699 PSLP Local 104 R(4) 4 2 17955 553 PT Scalar 3 R(4) 4 scalar COM PT1 Scalar 5 R(4) 4 scalar COM PT2 Scalar 5 R(4) 4 scalar COM PTBL Scalar 25 R(4) 4 2 10184 COM PVRBLS Common 2 5530140 Q Scalar 6 R(4) 4 3 807975 COM 259,459 Q0 Scalar 3 R(4) 4 3 807975 COM 830 Q10 Scalar 16 R(4) 4 2 17955 COM 694 Q2 Scalar 21 R(4) 4 3 807975 COM 462 Q2B Scalar 4 R(4) 4 3 77220 COM 428,440 Q2INI Param 78 R(4) 4 scalar Q30 Scalar 14 R(4) 4 2 17955 COM 701 QB Scalar 3 R(4) 4 3 77220 COM 426,428,435 QFLX Common 1 5027400 QOLD Scalar 21 R(4) 4 3 807975 COM QS Scalar 6 R(4) 4 2 17955 COM 522 QS0 Scalar 10 R(4) 4 1 134 COM QSHLTR Scalar 18 R(4) 4 2 17955 COM 698 QWBS Scalar 9 R(4) 4 2 17955 COM 524 QZ0 Scalar 5 R(4) 4 2 17955 COM 537 R Scalar 3 R(4) 4 scalar COM R1 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 577 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 READ_RESTRT Subr 2 RES Scalar 7 R(4) 4 2 17955 COM 206,419 RESOMG Local 359 R(4) 4 scalar 359 RESTRT Scalar 95 L(4) 4 scalar COM 163 RF Scalar 8 R(4) 4 2 17955 COM 552 RLWIN Scalar 4 R(4) 4 2 17955 COM 576 RLWOUT Scalar 4 R(4) 4 2 17955 COM RLWTOA Scalar 5 R(4) 4 2 17955 COM 845 RLWTT Scalar 7 R(4) 4 3 807975 COM 820 ROI Scalar 6 R(4) 4 scalar COM ROS Scalar 6 R(4) 4 scalar COM Page 31 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References RSWIN Scalar 4 R(4) 4 2 17955 COM 502 RSWOUT Scalar 4 R(4) 4 2 17955 COM 503 RSWTOA Scalar 5 R(4) 4 2 17955 COM 844 RSWTT Scalar 7 R(4) 4 3 807975 COM 819 RTDPTH Scalar 10 R(4) 4 1 4 COM RTOP Scalar 4 R(4) 4 3 807975 COM RUN Scalar 95 L(4) 4 scalar COM 172,179,356,362,396,403,495,509,60 6,616 RUNB Local 95 L(4) 4 scalar SBD Scalar 6 R(4) 4 scalar COM SFCEVP Scalar 6 R(4) 4 2 17955 COM 659 SFCEXC Scalar 3 R(4) 4 2 17955 COM 563 SFCLHX Scalar 4 R(4) 4 2 17955 COM 655 SFCSHX Scalar 4 R(4) 4 2 17955 COM 654 SFCUVX Scalar 6 R(4) 4 2 17955 COM 658 SH2O Scalar 10 R(4) 4 3 71820 COM 321,740 SI Scalar 10 R(4) 4 2 17955 COM 270,550 SICE Scalar 4 R(4) 4 2 17955 COM SIGMA Scalar 95 L(4) 4 scalar COM SIGT4 Scalar 23 R(4) 4 2 17955 COM 579 SINGLRST Local 2 L(4) 4 scalar SLDPTH Scalar 10 R(4) 4 1 4 COM SM Scalar 4 R(4) 4 2 17955 COM SMC Scalar 8 R(4) 4 3 71820 COM 290,712 SMSTAV Scalar 4 R(4) 4 2 17955 COM 564 SMSTOT Scalar 4 R(4) 4 2 17955 COM 565 SNO Scalar 10 R(4) 4 2 17955 COM 280,549 SNOPCX Scalar 5 R(4) 4 2 17955 COM 657 SOIL Common 2 1651892 SOILTB Scalar 3 R(4) 4 2 17955 COM 562 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 593 SSROFF Scalar 5 R(4) 4 2 17955 COM 645 SST Scalar 20 R(4) 4 2 17955 COM STC Scalar 9 R(4) 4 3 71820 COM 311,730 STHE Scalar 10 R(4) 4 1 76 COM STHEQ Scalar 11 R(4) 4 1 152 COM SUBPOST Scalar 2 L(4) 4 scalar COM SUBSHX Scalar 5 R(4) 4 2 17955 COM 656 T Scalar 5 R(4) 4 3 807975 COM 248,458 T0 Scalar 3 R(4) 4 3 807975 COM 829 TB Scalar 3 R(4) 4 3 77220 COM 426,428,434 TCLOD Scalar 3 R(4) 4 scalar COM TCUCN Scalar 5 R(4) 4 3 807975 COM 478 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 190,194,202,206,212,216,223,226,23 4,237,245,248,256,259,266,270,276, 280,297,301,328,332,376,379,414,41 8,451,458,496,502,517,520,530,536, 546,549,559,562,571,576,587,591,60 7,612,629,633,640,643,650,654,664, 667,689,693,718,721,747,751,758,76 Page 32 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References 4,787,791,803,806,815,819,825,829, 834,841 TEMP10 Scalar 45 R(4) 4 2 91719 COM 690,702,759,774 TEMP11 Scalar 45 R(4) 4 2 91719 COM 690,703,759,775 TEMP12 Scalar 45 R(4) 4 2 91719 COM 759,776 TEMP13 Scalar 46 R(4) 4 2 91719 COM 759,778 TEMP14 Scalar 46 R(4) 4 2 91719 COM 760,779 TEMP15 Scalar 46 R(4) 4 2 91719 COM 760,780 TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM 414,419,452,459,496,503,517,521,53 0,537,546,550,559,563,572,577,607, 613,640,644,650,655,664,668,689,69 4,758,765,787,792,803,807,816,820, 826,830,835,842 TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM 414,420,453,460,496,504,517,522,53 1,538,546,551,559,564,573,578,587, 593,607,614,629,635,640,645,650,65 6,664,669,689,695,758,766,787,793, 803,808,836,843 TEMP4 Scalar 43 R(4) 4 2 91719 COM 454,461,497,505,517,523,532,539,54 6,552,559,565,573,579,607,615,640, 646,650,657,664,670,689,696,758,76 7,787,794,837,844 TEMP5 Scalar 44 R(4) 4 2 91719 COM 455,462,497,506,517,524,533,540,54 6,553,559,566,650,658,664,671,689, 697,758,768,838,845 TEMP6 Scalar 44 R(4) 4 2 91719 COM 470,476,497,507,517,525,533,541,54 6,554,559,567,650,659,664,672,689, 698,758,769 TEMP7 Scalar 44 R(4) 4 2 91719 COM 471,477,517,526,533,542,546,555,65 1,660,689,699,758,771 TEMP8 Scalar 44 R(4) 4 2 91719 COM 472,478,690,700,759,772 TEMP9 Scalar 45 R(4) 4 2 91719 COM 690,701,759,773 TEMPCOM Common 42 6603768 TEMPSOIL Local 106 R(4) 4 3 366876 286,290,307,311,317,321,709,712,72 7,730,736,740 TEMPV Common 2 6535620 TG Scalar 19 R(4) 4 2 17955 COM 504 TH10 Scalar 16 R(4) 4 2 17955 COM 693 TH30 Scalar 14 R(4) 4 2 17955 COM 700 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 521 THZ0 Scalar 5 R(4) 4 2 17955 COM 536 TLAT Scalar 2 R(4) 4 3 807975 COM TLM0D Scalar 6 R(4) 4 scalar COM TLMAX Scalar 2 R(4) 4 2 17955 COM 808 TLMIN Scalar 2 R(4) 4 2 17955 COM 807 TOPO Common 50 17478548 TPH0D Scalar 6 R(4) 4 scalar COM TPREC Scalar 3 R(4) 4 scalar COM TRAIN Scalar 4 R(4) 4 3 807975 COM 477 Page 33 Source Listing READ_RESTRT 2014-12-17 20:47 Symbol Table READ_RESTRT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 697 TSPH Scalar 5 R(4) 4 scalar COM TSRFC Scalar 3 R(4) 4 scalar COM TSTART Local 158 R(4) 4 scalar 158,425,439,800 TTBL Scalar 25 R(4) 4 2 10184 COM TTBLQ Scalar 25 R(4) 4 2 66880 COM TTVG Scalar 51 R(4) 4 2 92971 COM TWBS Scalar 9 R(4) 4 2 17955 COM 523 U Scalar 5 R(4) 4 3 807975 COM 226,460 U00 Scalar 3 R(4) 4 2 17955 COM 591 U10 Scalar 17 R(4) 4 2 17955 COM 695 U30 Scalar 15 R(4) 4 2 17955 COM 702 UB Scalar 3 R(4) 4 3 77220 COM 426,428,436 UL Scalar 4 R(4) 4 1 90 COM 587,594 USTAR Scalar 3 R(4) 4 2 17955 COM 540 UZ0 Scalar 4 R(4) 4 2 17955 COM 538 V Scalar 6 R(4) 4 3 807975 COM 237,461 V10 Scalar 17 R(4) 4 2 17955 COM 696 V30 Scalar 15 R(4) 4 2 17955 COM 703 VAPINC Scalar 5 R(4) 4 2 17955 COM 791 VAPINC7 Scalar 5 R(4) 4 2 17955 COM 793 VB Scalar 3 R(4) 4 3 77220 COM 426,428,437 VBM2 Scalar 3 R(4) 4 2 17955 COM VBM3 Scalar 3 R(4) 4 2 17955 COM VEGFRC Scalar 7 R(4) 4 2 17955 COM VRBLS Common 2 13143060 VTM Scalar 7 R(4) 4 3 807975 COM VZ0 Scalar 4 R(4) 4 2 17955 COM 539 WBD Scalar 6 R(4) 4 scalar COM WPDAR Scalar 8 R(4) 4 2 17955 COM X1P Scalar 6 R(4) 4 scalar COM Y1P Scalar 6 R(4) 4 scalar COM Z0 Scalar 3 R(4) 4 2 17955 COM 505 Z0LAND Param 80 R(4) 4 scalar Z0SEA Param 80 R(4) 4 scalar Z0SLP Scalar 7 R(4) 4 scalar COM Page 34 Source Listing READ_RESTRT 2014-12-17 20:47 Subprograms/Common Blocks READ_RESTRT.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 2 287288 ACMCLH Common 2 6463824 ACMPRE Common 2 287284 ACMRDL Common 2 3662832 ACMRDS Common 2 3662832 ACMSFC Common 2 574576 BOCO Common 2 1860144 CLDWTR Common 2 3447720 CNVCLD Common 2 287280 CONTIN Common 2 12999420 CTLBLK Common 4 112 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 PHYS Common 4 1788916 PPTASM Common 1 3878292 PRFHLD Common 1 143640 PVRBLS Common 2 5530140 QFLX Common 1 5027400 READ_RESTRT Subr 2 SOIL Common 2 1651892 TEMPCOM Common 42 6603768 TEMPV Common 2 6535620 TOPO Common 50 17478548 VRBLS Common 2 13143060 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -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 Page 35 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -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 Page 36 Source Listing READ_RESTRT 2014-12-17 20:47 READ_RESTRT.F -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 : READ_RESTRT.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100