Page 1 Source Listing READ_RESTRT2 2025-03-12 18:23 /tmp/ifortETlRD4.i 1 # 1 "READ_RESTRT2.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE READ_RESTRT2 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 8 C SUBPROGRAM: READ_RESTRT2 READ MULTIPLE SMALL RESTRT FILES 9 C PRGRMMR: BLACK ORG: W/NP2 DATE: 99-09-01 10 C 11 C ABSTRACT: 12 C READ_RESTRT2 READS IN QUANTITIES FROM THE SMALL RESTRT FILES 13 C WHICH WERE PREVIOUSLY WRITTEN BY INDIVIDUAL NODES 14 C 15 C PROGRAM HISTORY LOG: 16 C 99-09-01 BLACK - REWRITTEN ROM READ_RESTRT 17 C 18 C USAGE: CALL READ_RESTRT2 FROM SUBROUTINE INIT 19 C INPUT ARGUMENT LIST: 20 C NONE 21 C 22 C OUTPUT ARGUMENT LIST: 23 C NONE 24 C 25 C OUTPUT FILES: 26 C NONE 27 C 28 C SUBPROGRAMS CALLED: NONE 29 C 30 C LIBRARY: NONE 31 C 32 C COMMON BLOCKS: CTLBLK 33 C LOOPS 34 C MASKS 35 C DYNAM 36 C PHYS2 37 C MAPOT1 38 C VRBLS 39 C CONTIN 40 C PVRBLS 41 C BOCO 42 C ACMCLH 43 C ACMCLD 44 C ACMPRE 45 C ACMRDL 46 C ACMRDS 47 C ACMSFC 48 C CLDWTR 49 C CNVCLD 50 C SOIL 51 C INDX 52 C OUTFIL 53 C 54 C ATTRIBUTES: 55 C LANGUAGE: FORTRAN 90 56 C MACHINE : IBM SP 57 C$$$ Page 2 Source Listing READ_RESTRT2 2025-03-12 18:23 READ_RESTRT2.F 58 C----------------------------------------------------------------------- 59 C INCLUDE/SET PARAMETERS. 60 C----------------------------------------------------------------------- 61 INCLUDE "parmeta" 85 INCLUDE "parm.tbl" 87 INCLUDE "parmsoil" 88 C----------------------------------------------------------------------- 90 P A R A M E T E R 91 & (IMJM=IM*JM-JM/2,JMP1=JM+1,JAM=6+2*(JM-10),LB=2*IM+JM-3 92 &, LM1=LM-1,LP1=LM+1,IMT=2*IM-1) 93 C 94 C----------------------------------------------------------------------- 95 C 96 C DECLARE VARIABLES 97 C 98 C----------------------------------------------------------------------- 99 L O G I C A L 100 & RUN,RUNB,FIRST,RESTRT,SIGMA 101 C----------------------------------------------------------------------- 102 C H A R A C T E R 103 & RESTHR*4,LABEL*32 104 C H A R A C T E R *40 105 & CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV 106 &,FILCLD,FILRAD,FILSFC 107 C----------------------------------------------------------------------- 108 R E A L 109 & PSLP(IDIM1:IDIM2,JDIM1:JDIM2) 110 R E A L 111 & TEMPSOIL(IM,JM,NSOIL) 112 C----------------------------------------------------------------------- 113 I N T E G E R 114 & IDATB(3) 115 C----------------------------------------------------------------------- 116 C 117 C INCLUDE COMMON BLOCKS. 118 C 119 INCLUDE "CTLBLK.comm" 129 INCLUDE "LOOPS.comm" 136 INCLUDE "MASKS.comm" 147 INCLUDE "DYNAM.comm" 163 INCLUDE "PHYS2.comm" 191 INCLUDE "MAPOT1.comm" 203 INCLUDE "VRBLS.comm" 213 INCLUDE "CONTIN.comm" 223 INCLUDE "PVRBLS.comm" 253 INCLUDE "BOCO.comm" 260 INCLUDE "ACMCLH.comm" 267 INCLUDE "ACMCLD.comm" 274 INCLUDE "ACMPRE.comm" 281 INCLUDE "ACMRDL.comm" 290 INCLUDE "ACMRDS.comm" 299 INCLUDE "ACMSFC.comm" 309 INCLUDE "CLDWTR.comm" 317 INCLUDE "CNVCLD.comm" 324 INCLUDE "SOIL.comm" 337 INCLUDE "INDX.comm" 349 INCLUDE "OUTFIL.comm" Page 3 Source Listing READ_RESTRT2 2025-03-12 18:23 READ_RESTRT2.F 355 INCLUDE "QFLX.comm" 379 INCLUDE "PPTASM.comm" 380 C 381 C----------------------------------------------------------------------- 405 INCLUDE "mpif.h" 967 INCLUDE "mpp.h" 968 # 1 "./sp.h" 1 969 # 4 970 971 # 121 "READ_RESTRT2.F" 2 972 C----------------------------------------------------------------------- 1031 INTEGER ISTAT(MPI_STATUS_SIZE) 1032 C 1033 # 129 1034 1035 C 1036 C*********************************************************************** 1037 C*********************************************************************** 1038 C 1039 C READ INITIAL CONDITIONS FROM RESTART FILES. 1040 C 1041 C------------------------------------------------------------------- 1042 IF(MYPE.EQ.0)WRITE(LIST,*)'INIT: READ RESTART FILES' 1043 C*** 1044 C*** CREATE NAME FOR RESTART FILE 1045 C*** 1046 ccccc ITAG=NTSD/TSPH+0.5 1047 c 1048 C hardwired 1049 C hardwired 1050 ITAG=3 1051 C hardwired 1052 C hardwired 1053 c 1054 c CALL get_environment_variable("tmmarkb",RESTHR) 1055 call get_environment_variable("tmmark",RESTHR) 1056 C 1057 IF(RESTHR.EQ.' ')THEN 1058 WRITE(RSTFIL,50)ITAG,MYPE 1059 50 FORMAT('restrt',I2.2,'.',I3.3) 1060 ELSE 1061 WRITE(RSTFIL,55)ITAG,MYPE,RESTHR 1062 55 FORMAT('restrt',I2.2,'.',I3.3,'.',a4) 1063 ENDIF 1064 print*,'opening ',rstfil 1065 1066 C*** 1067 C*** OPEN UNIT TO RESTART FILE. 1068 C*** 1069 C wne LRSTRT=8 1070 LRSTRT=81 1071 C 1072 CLOSE(LRSTRT) 1073 OPEN(UNIT=LRSTRT,FILE=RSTFIL,FORM='UNFORMATTED',IOSTAT=IER) 1074 IF(IER.NE.0)WRITE(LIST,*)' LRSTRT OPEN UNIT ERROR IER=',IER 1075 C------------------------------------------------------------------- 1076 C Page 4 Source Listing READ_RESTRT2 2025-03-12 18:23 READ_RESTRT2.F 1077 # 179 1078 1079 READ(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1080 1081 NTSD=MAX(NTSD-1,0) 1082 READ(LRSTRT)PDOMG,RESOMG 1083 C 1084 C------------------------------------------------------------------- 1085 c if(mype.eq.2.or.mype.eq.5) then 1086 c print*,'Before omgalf' 1087 c endif 1088 c print*,'myis,myie,myjs,myje=',myis,myie,myjs,myje 1089 DO L=1,LM 1090 READ(LRSTRT)((OMGALF(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1091 ENDDO 1092 c if(mype.eq.2.or.mype.eq.5) print*,'After omgalf' 1093 C------------------------------------------------------------------- 1094 # 205 1095 1096 READ(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL,FIRST,IOUT,NSHDE 1097 c if(mype.eq.2.or.mype.eq.5) print*,'After next read 2' 1098 1099 C 1100 NTSD=MAX(NTSD-1,0) 1101 FIRST=.TRUE. 1102 C------------------------------------------------------------------- 1103 READ(LRSTRT)((PD(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1104 1, ((RES(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1105 2, ((FIS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1106 c if(mype.eq.2.or.mype.eq.5) print*,'after pd, res, fis' 1107 C------------------------------------------------------------------- 1108 READ(LRSTRT) 1109 C------------------------------------------------------------------- 1110 C*** 1111 C*** PRIMARY 3-D VARIABLES 1112 C*** 1113 c if(mype.eq.2.or.mype.eq.5) print*,'before primary 3d variables' 1114 DO L=1,LM 1115 READ(LRSTRT)((T(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1116 READ(LRSTRT)((Q(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1117 READ(LRSTRT)((U(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1118 READ(LRSTRT)((V(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1119 READ(LRSTRT)((Q2(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1120 READ(LRSTRT) 1121 READ(LRSTRT)((CWM(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1122 READ(LRSTRT)((TRAIN(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1123 READ(LRSTRT)((TCUCN(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1124 ENDDO 1125 c do l=1,lm 1126 c do j=myjs,myje 1127 c do i=myis,myie 1128 c print*,'i,j,l,t(i,j,l)=',i,j,l,t(i,j,l) 1129 c enddo 1130 c enddo 1131 c enddo 1132 C------------------------------------------------------------------- 1133 # 255 Page 5 Source Listing READ_RESTRT2 2025-03-12 18:23 READ_RESTRT2.F 1134 1135 c if(mype.eq.2.or.mype.eq.5) print*,'before other stuff' 1136 READ(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1137 1, ((RSWIN(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1138 2, ((RSWOUT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1139 3, ((TG(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1140 4, ((Z0(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1141 5, ((AKMS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1142 6, ((CZEN(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1143 1144 NTSD=MAX(NTSD-1,0) 1145 C 1146 C------------------------------------------------------------------- 1147 c if(mype.eq.2.or.mype.eq.5) print*,'and more stuff' 1148 READ(LRSTRT)((AKHS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1149 1, ((THS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1150 2, ((QS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1151 3, ((TWBS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1152 4, ((QWBS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1153 5, ((HBOT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1154 6, ((CFRACL(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1155 C------------------------------------------------------------------- 1156 C*** 1157 c if(mype.eq.2.or.mype.eq.5) print*,'stuff here too' 1158 READ(LRSTRT)((THZ0(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1159 1, ((QZ0(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1160 2, ((UZ0(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1161 3, ((VZ0(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1162 4, ((USTAR(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1163 5, ((HTOP(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1164 6, ((CFRACM(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1165 C------------------------------------------------------------------- 1166 C*** 1167 c if(mype.eq.2.or.mype.eq.5) print*,'ditto' 1168 READ(LRSTRT)((SNO(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1169 1, ((SI(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1170 2, ((CLDEFI(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1171 3, ((RF(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1172 4, ((PSLP(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1173 5, ((CUPPT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1174 6, ((CFRACH(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1175 C------------------------------------------------------------------- 1176 C*** 1177 c if(mype.eq.2.or.mype.eq.5) print*,'Did we make it to here?' 1178 READ(LRSTRT)((SOILTB(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1179 1, ((SFCEXC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1180 2, ((SMSTAV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1181 3, ((SMSTOT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1182 4, ((GRNFLX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1183 5, ((PCTSNO(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1184 C------------------------------------------------------------------- 1185 C*** 1186 c if(mype.eq.2.or.mype.eq.5) print*,'How about here?' 1187 READ(LRSTRT)((RLWIN(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1188 1, ((RADOT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1189 2, ((CZMEAN(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1190 3, ((SIGT4(I,J),I=MYIS,MYIE),J=MYJS,MYJE) Page 6 Source Listing READ_RESTRT2 2025-03-12 18:23 READ_RESTRT2.F 1191 C------------------------------------------------------------------- 1192 C*** 1193 READ(LRSTRT)((U00(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1194 1, UL 1195 2, ((LC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1196 3, ((SR(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1197 C------------------------------------------------------------------- 1198 C*** 1199 # 331 1200 1201 c if(mype.eq.2.or.mype.eq.5) print*,'Possibly here?' 1202 READ(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1203 1, ((PREC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1204 2, ((ACPREC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1205 3, ((ACCLIQ(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1206 4, ((CUPREC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1207 1208 NTSD=MAX(NTSD-1,0) 1209 C------------------------------------------------------------------- 1210 C*** 1211 READ(LRSTRT)((ACFRCV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1212 1, ((NCFRCV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1213 2, ((ACFRST(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1214 3, ((NCFRST(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1215 C------------------------------------------------------------------- 1216 C*** 1217 READ(LRSTRT)((ACSNOW(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1218 1, ((ACSNOM(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1219 2, ((SSROFF(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1220 3, ((BGROFF(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1221 C------------------------------------------------------------------- 1222 C*** 1223 c if(mype.eq.2.or.mype.eq.5) print*,'So much stuff' 1224 READ(LRSTRT)((SFCSHX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1225 1, ((SFCLHX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1226 2, ((SUBSHX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1227 3, ((SNOPCX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1228 4, ((SFCUVX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1229 5, ((SFCEVP(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1230 6, ((POTEVP(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1231 C------------------------------------------------------------------- 1232 C*** 1233 c if(mype.eq.2.or.mype.eq.5) print*,'Lots to read' 1234 READ(LRSTRT)((ASWIN(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1235 1, ((ASWOUT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1236 2, ((ASWTOA(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1237 3, ((ALWIN(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1238 4, ((ALWOUT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1239 5, ((ALWTOA(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1240 C------------------------------------------------------------------- 1241 C*** 1242 READ(LRSTRT)ARDSW,ARDLW,ASRFC,AVRAIN,AVCNVC 1243 C------------------------------------------------------------------- 1244 C*** 1245 c if(mype.eq.2.or.mype.eq.5) print*,'gotta be nearing the end' 1246 READ(LRSTRT)((TH10(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1247 1, ((Q10(I,J),I=MYIS,MYIE),J=MYJS,MYJE) Page 7 Source Listing READ_RESTRT2 2025-03-12 18:23 READ_RESTRT2.F 1248 2, ((U10(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1249 3, ((V10(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1250 4, ((TSHLTR(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1251 5, ((QSHLTR(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1252 6, ((PSHLTR(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1253 1, ((TH30(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1254 2, ((Q30(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1255 3, ((U30(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1256 4, ((V30(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1257 C------------------------------------------------------------------- 1258 C*** 1259 c if(mype.eq.2.or.mype.eq.5) print*,'Reading SMC' 1260 READ(LRSTRT)(((SMC(I,J,N),I=MYIS,MYIE),J=MYJS,MYJE),N=1,NSOIL) 1261 C------------------------------------------------------------------- 1262 C*** 1263 c if(mype.eq.2.or.mype.eq.5) print*,'Raading CMC' 1264 READ(LRSTRT)((CMC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1265 C------------------------------------------------------------------- 1266 C*** 1267 c if(mype.eq.2.or.mype.eq.5) print*,'Reading STC' 1268 READ(LRSTRT)(((STC(I,J,N),I=MYIS,MYIE),J=MYJS,MYJE),N=1,NSOIL) 1269 C------------------------------------------------------------------- 1270 C*** 1271 c if(mype.eq.2.or.mype.eq.5) print*,'Reading SH2O' 1272 c if(mype.eq.1) print*,'myis,myie,myjs,myje=',myis,myie,myjs,myje 1273 READ(LRSTRT)(((SH2O(I,J,N),I=MYIS,MYIE),J=MYJS,MYJE),N=1,NSOIL) 1274 c do n=1,nsoil 1275 c do j=myjs,myje 1276 c do i=myis,myie 1277 c print*,'i,j,n=',i,j,n 1278 c print*,'stc(i,j,n)=',stc(i,j,n) 1279 c print*,'sh2o(i,j,n)=',sh2o(i,j,n) 1280 c enddo 1281 c enddo 1282 c enddo 1283 C----------------------------------------------------------------------- 1284 C*** 1285 c if(mype.eq.2.or.mype.eq.5) print*,'Reading ALBEDO' 1286 READ(LRSTRT)((ALBEDO(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1287 C------------------------------------------------------------------- 1288 READ(LRSTRT)((FQU(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1289 2, ((FQV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1290 3, ((DQFLX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1291 4, ((FCU(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1292 5, ((FCV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1293 6, ((DCFLX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1294 7, ((FQU7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1295 8, ((FQV7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1296 9, ((DQFLX7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1297 &, ((FCU7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1298 1, ((FCV7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1299 2, ((DCFLX7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1300 3, ((DQADV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1301 4, ((FQNEV1(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1302 5, ((FQSEV1(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1303 C------------------------------------------------------------------- 1304 READ(LRSTRT)((VAPINC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) Page 8 Source Listing READ_RESTRT2 2025-03-12 18:23 READ_RESTRT2.F 1305 2, ((CLDINC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1306 3, ((VAPINC7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1307 4, ((CLDINC7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1308 C------------------------------------------------------------------- 1309 C*** CALL RADIATION TO OBTAIN THE SHORT AND LONGWAVE 1310 C*** TEMPERATURE TENDENCIES 1311 C*** 1312 C 1313 c CALL RADTN 1314 C 1315 C DONE READING RESTART FILES. 1316 C 1317 C END OF SUBROUTINE READ_RESTRT2 1318 C 1319 IF(MYPE.EQ.0)THEN 1320 WRITE(LIST,*)'INIT: EXIT READ_RESTRT2' 1321 WRITE(LIST,*)' ' 1322 ENDIF 1323 C 1324 RETURN 1325 END ENTRY POINTS Name read_restrt2_ Page 9 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 50 Label 1059 1058 55 Label 1062 1061 ACMCLD Common 269 101112 SAVE ACMCLH Common 262 2274864 SAVE ACMPRE Common 276 101108 SAVE ACMRDL Common 283 1289088 SAVE ACMRDS Common 292 1289088 SAVE ACMSFC Common 301 202224 SAVE BOCO Common 255 1860144 SAVE CLDWTR Common 311 1213608 SAVE CNVCLD Common 319 101104 SAVE CONTIN Common 215 4574956 SAVE CONTRL Local 105 CHAR 40 scalar CTLBLK Common 123 112 SAVE DYNAM Common 149 259964 SAVE FILALL Local 105 CHAR 40 scalar FILCLD Local 106 CHAR 40 scalar FILMST Local 105 CHAR 40 scalar FILRAD Local 106 CHAR 40 scalar FILSFC Local 106 CHAR 40 scalar FILTKE Local 105 CHAR 40 scalar FILTMP Local 105 CHAR 40 scalar FILUNV Local 105 CHAR 40 scalar GET_ENVIRONMENT_VARIABLE Intrin 1055 1055 GLB_TABLE Common 1009 336 SAVE I Local 1090 I(4) 4 scalar 1090,1103,1104,1105,1115,1116,1117 ,1118,1119,1121,1122,1123,1137,113 8,1139,1140,1141,1142,1148,1149,11 50,1151,1152,1153,1154,1158,1159,1 160,1161,1162,1163,1164,1168,1169, 1170,1171,1172,1173,1174,1178,1179 ,1180,1181,1182,1183,1187,1188,118 9,1190,1193,1195,1196,1203,1204,12 05,1206,1211,1212,1213,1214,1217,1 218,1219,1220,1224,1225,1226,1227, 1228,1229,1230,1234,1235,1236,1237 ,1238,1239,1246,1247,1248,1249,125 0,1251,1252,1253,1254,1255,1256,12 60,1264,1268,1273,1286,1288,1289,1 290,1291,1292,1293,1294,1295,1296, 1297,1298,1299,1300,1301,1302,1304 ,1305,1306,1307 IDATB Local 114 I(4) 4 1 3 IDIM1 Param 81 I(4) 4 scalar 109,133,139,140,142,143,144,155,15 6,157,158,159,160,176,177,178,179, 180,181,182,183,184,185,186,206,20 8,209,210,216,217,218,219,220,226, 227,228,229,230,231,232,233,234,23 5,236,237,238,239,240,241,242,244, 249,264,265,271,272,278,279,285,28 6,287,288,294,295,296,297,303,304, Page 10 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References 305,306,312,314,320,321,327,328,32 9,330,331,332,333,334,342,357,358, 360,361,363,364,365,366,368,369,37 0,371,373,374,375,376,383,384,386, 387 IDIM2 Param 81 I(4) 4 scalar 109,133,139,140,142,143,144,155,15 6,157,158,159,160,176,177,178,179, 180,181,182,183,184,185,186,206,20 8,209,210,216,217,218,219,220,226, 227,228,229,230,231,232,233,234,23 5,236,237,238,239,240,241,242,244, 249,264,265,271,272,278,279,285,28 6,287,288,294,295,296,297,303,304, 305,306,312,314,320,321,327,328,32 9,330,331,332,333,334,342,357,358, 360,361,363,364,365,366,368,369,37 0,371,373,374,375,376,383,384,386, 387 IER Local 1073 I(4) 4 scalar 1073,1074 IGSTL Param 76 I(4) 4 scalar 81 IGSTR Param 76 I(4) 4 scalar 81 IM Param 64 I(4) 4 scalar 78,81,91,92,111,346,1015,1016,1017 ,1018,1019,1023,1024,1029 IMJM Param 91 I(4) 4 scalar IMT Param 92 I(4) 4 scalar INDX Common 339 1708 SAVE INDXG Common 345 8084 SAVE INPES Param 73 I(4) 4 scalar 78,81,999,1000,1001,1010,1011 ISTAT Local 1031 I(4) 4 1 5 ITAIL Param 78 I(4) 4 scalar ITB Param 86 I(4) 4 scalar 173,188 ITBQ Param 86 I(4) 4 scalar 174,188 J Local 1090 I(4) 4 scalar 1090,1103,1104,1105,1115,1116,1117 ,1118,1119,1121,1122,1123,1137,113 8,1139,1140,1141,1142,1148,1149,11 50,1151,1152,1153,1154,1158,1159,1 160,1161,1162,1163,1164,1168,1169, 1170,1171,1172,1173,1174,1178,1179 ,1180,1181,1182,1183,1187,1188,118 9,1190,1193,1195,1196,1203,1204,12 05,1206,1211,1212,1213,1214,1217,1 218,1219,1220,1224,1225,1226,1227, 1228,1229,1230,1234,1235,1236,1237 ,1238,1239,1246,1247,1248,1249,125 0,1251,1252,1253,1254,1255,1256,12 60,1264,1268,1273,1286,1288,1289,1 290,1291,1292,1293,1294,1295,1296, 1297,1298,1299,1300,1301,1302,1304 ,1305,1306,1307 JAM Param 91 I(4) 4 scalar 132,153 JDIM1 Param 82 I(4) 4 scalar 109,133,139,140,142,143,144,155,15 6,157,158,159,160,176,177,178,179, 180,181,182,183,184,185,186,206,20 8,209,210,216,217,218,219,220,226, 227,228,229,230,231,232,233,234,23 Page 11 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References 5,236,237,238,239,240,241,242,244, 249,264,265,271,272,278,279,285,28 6,287,288,294,295,296,297,303,304, 305,306,312,314,320,321,327,328,32 9,330,331,332,333,334,340,341,357, 358,360,361,363,364,365,366,368,36 9,370,371,373,374,375,376,383,384, 386,387 JDIM2 Param 82 I(4) 4 scalar 109,133,139,140,142,143,144,155,15 6,157,158,159,160,176,177,178,179, 180,181,182,183,184,185,186,206,20 8,209,210,216,217,218,219,220,226, 227,228,229,230,231,232,233,234,23 5,236,237,238,239,240,241,242,244, 249,264,265,271,272,278,279,285,28 6,287,288,294,295,296,297,303,304, 305,306,312,314,320,321,327,328,32 9,330,331,332,333,334,340,341,357, 358,360,361,363,364,365,366,368,36 9,370,371,373,374,375,376,383,384, 386,387 JGSTL Param 77 I(4) 4 scalar 82 JGSTR Param 77 I(4) 4 scalar 82 JM Param 64 I(4) 4 scalar 79,82,91,111,346,1015,1016,1017,10 18,1019,1023,1024,1029 JMP1 Param 91 I(4) 4 scalar JNPES Param 73 I(4) 4 scalar 79,82,999,1000,1001,1010,1011 JTAIL Param 79 I(4) 4 scalar JTB Param 86 I(4) 4 scalar 173,188 JTBQ Param 86 I(4) 4 scalar 188 L Local 1089 I(4) 4 scalar 1089,1090,1114,1115,1116,1117,1118 ,1119,1121,1122,1123 LABEL Local 103 CHAR 32 scalar 1079,1096,1136,1202 LB Param 91 I(4) 4 scalar 256,257 LM Param 64 I(4) 4 scalar 92,142,143,151,172,199,208,209,217 ,218,219,220,244,256,257,264,265,2 88,297,312,313,376,383,1024,1089,1 114 LM1 Param 92 I(4) 4 scalar LOOPS Common 131 65752 SAVE LP1 Param 92 I(4) 4 scalar 151,172,199 LSM Param 64 I(4) 4 scalar 198 MAPOT Common 193 1732 SAVE MAPPINGS Common 1028 5024 SAVE MASKS Common 138 2426496 SAVE MAX Func 1081 scalar 1081,1100,1144,1208 MPIFCMB5 Common 955 4 SAVE MPIFCMB9 Common 956 4 SAVE MPIPRIV1 Common 960 28 SAVE MPIPRIV2 Common 962 24 SAVE MPIPRIVC Common 965 2 SAVE MPI_2DOUBLE_PRECISION Param 701 I(4) 4 scalar MPI_2INT Param 785 I(4) 4 scalar MPI_2INTEGER Param 699 I(4) 4 scalar MPI_2REAL Param 703 I(4) 4 scalar Page 12 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ADDRESS_KIND Param 737 I(4) 4 scalar MPI_AINT Param 815 I(4) 4 scalar MPI_ANY_SOURCE Param 667 I(4) 4 scalar MPI_ANY_TAG Param 669 I(4) 4 scalar MPI_APPNUM Param 631 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 937 L(4) 4 scalar MPI_BAND Param 575 I(4) 4 scalar MPI_BOR Param 579 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 663 I(4) 4 scalar MPI_BXOR Param 583 I(4) 4 scalar MPI_BYTE Param 707 I(4) 4 scalar MPI_CART Param 675 I(4) 4 scalar MPI_CHAR Param 745 I(4) 4 scalar MPI_CHARACTER Param 705 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 833 I(4) 4 scalar MPI_COMBINER_DARRAY Param 855 I(4) 4 scalar MPI_COMBINER_DUP Param 831 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 859 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 861 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 857 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 845 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 865 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 843 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 839 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 837 I(4) 4 scalar MPI_COMBINER_INDEXED Param 841 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 847 I(4) 4 scalar MPI_COMBINER_NAMED Param 829 I(4) 4 scalar MPI_COMBINER_RESIZED Param 863 I(4) 4 scalar MPI_COMBINER_STRUCT Param 851 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 849 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 853 I(4) 4 scalar MPI_COMBINER_VECTOR Param 835 I(4) 4 scalar MPI_COMM_DUP_FN Subr 944 scalar MPI_COMM_NULL Param 599 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 945 scalar MPI_COMM_NULL_DELETE_FN Subr 944 scalar MPI_COMM_SELF Param 595 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 883 I(4) 4 scalar MPI_COMM_WORLD Param 593 I(4) 4 scalar MPI_COMPLEX Param 687 I(4) 4 scalar MPI_COMPLEX16 Param 733 I(4) 4 scalar MPI_COMPLEX32 Param 735 I(4) 4 scalar MPI_COMPLEX8 Param 731 I(4) 4 scalar MPI_CONGRUENT Param 547 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 950 scalar MPI_COUNT Param 819 I(4) 4 scalar MPI_COUNT_KIND Param 741 I(4) 4 scalar MPI_CXX_BOOL Param 821 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 825 I(4) 4 scalar Page 13 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_CXX_FLOAT_COMPLEX Param 823 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 827 I(4) 4 scalar MPI_C_BOOL Param 805 I(4) 4 scalar MPI_C_COMPLEX Param 809 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 811 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 807 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 813 I(4) 4 scalar MPI_DATATYPE_NULL Param 609 I(4) 4 scalar 724,822,824,826,828 MPI_DISPLACEMENT_CURRENT Param 933 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 925 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 927 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 931 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 929 I(4) 4 scalar MPI_DIST_GRAPH Param 677 I(4) 4 scalar MPI_DOUBLE Param 767 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 689 I(4) 4 scalar MPI_DOUBLE_INT Param 779 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 695 I(4) 4 scalar MPI_DUP_FN Subr 941 scalar MPI_ERRHANDLER_NULL Param 613 I(4) 4 scalar MPI_ERROR Param 414 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 541 I(4) 4 scalar MPI_ERRORS_RETURN Param 543 I(4) 4 scalar MPI_ERR_ACCESS Param 533 I(4) 4 scalar MPI_ERR_AMODE Param 519 I(4) 4 scalar MPI_ERR_ARG Param 489 I(4) 4 scalar MPI_ERR_ASSERT Param 495 I(4) 4 scalar MPI_ERR_BAD_FILE Param 457 I(4) 4 scalar MPI_ERR_BASE Param 487 I(4) 4 scalar MPI_ERR_BUFFER Param 429 I(4) 4 scalar MPI_ERR_COMM Param 507 I(4) 4 scalar MPI_ERR_CONVERSION Param 523 I(4) 4 scalar MPI_ERR_COUNT Param 433 I(4) 4 scalar MPI_ERR_DIMS Param 471 I(4) 4 scalar MPI_ERR_DISP Param 455 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 437 I(4) 4 scalar MPI_ERR_FILE Param 467 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 449 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 491 I(4) 4 scalar MPI_ERR_GROUP Param 453 I(4) 4 scalar MPI_ERR_INFO Param 481 I(4) 4 scalar MPI_ERR_INFO_KEY Param 485 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 465 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 451 I(4) 4 scalar MPI_ERR_INTERN Param 483 I(4) 4 scalar MPI_ERR_IN_STATUS Param 469 I(4) 4 scalar MPI_ERR_IO Param 529 I(4) 4 scalar MPI_ERR_KEYVAL Param 475 I(4) 4 scalar MPI_ERR_LASTCODE Param 497 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 479 I(4) 4 scalar MPI_ERR_NAME Param 473 I(4) 4 scalar MPI_ERR_NOT_SAME Param 501 I(4) 4 scalar MPI_ERR_NO_MEM Param 493 I(4) 4 scalar MPI_ERR_NO_SPACE Param 425 I(4) 4 scalar Page 14 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_NO_SUCH_FILE Param 509 I(4) 4 scalar MPI_ERR_OP Param 527 I(4) 4 scalar MPI_ERR_OTHER Param 441 I(4) 4 scalar MPI_ERR_PENDING Param 431 I(4) 4 scalar MPI_ERR_PORT Param 513 I(4) 4 scalar MPI_ERR_QUOTA Param 517 I(4) 4 scalar MPI_ERR_RANK Param 439 I(4) 4 scalar MPI_ERR_READ_ONLY Param 477 I(4) 4 scalar MPI_ERR_REQUEST Param 521 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 443 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 447 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 463 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 525 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 515 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 427 I(4) 4 scalar MPI_ERR_ROOT Param 459 I(4) 4 scalar MPI_ERR_SERVICE Param 435 I(4) 4 scalar MPI_ERR_SIZE Param 445 I(4) 4 scalar MPI_ERR_SPAWN Param 505 I(4) 4 scalar MPI_ERR_TAG Param 535 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 539 I(4) 4 scalar MPI_ERR_TRUNCATE Param 499 I(4) 4 scalar MPI_ERR_TYPE Param 503 I(4) 4 scalar MPI_ERR_UNKNOWN Param 537 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 461 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 511 I(4) 4 scalar MPI_ERR_WIN Param 531 I(4) 4 scalar MPI_FILE_NULL Param 603 I(4) 4 scalar MPI_FLOAT Param 765 I(4) 4 scalar MPI_FLOAT_INT Param 777 I(4) 4 scalar MPI_GRAPH Param 673 I(4) 4 scalar MPI_GROUP_EMPTY Param 597 I(4) 4 scalar MPI_GROUP_NULL Param 605 I(4) 4 scalar MPI_HOST Param 621 I(4) 4 scalar MPI_IDENT Param 545 I(4) 4 scalar MPI_INFO_ENV Param 617 I(4) 4 scalar MPI_INFO_NULL Param 615 I(4) 4 scalar MPI_INT Param 757 I(4) 4 scalar MPI_INT16_T Param 791 I(4) 4 scalar MPI_INT32_T Param 793 I(4) 4 scalar MPI_INT64_T Param 795 I(4) 4 scalar MPI_INT8_T Param 789 I(4) 4 scalar MPI_INTEGER Param 697 I(4) 4 scalar MPI_INTEGER1 Param 715 I(4) 4 scalar MPI_INTEGER16 Param 723 I(4) 4 scalar MPI_INTEGER2 Param 717 I(4) 4 scalar MPI_INTEGER4 Param 719 I(4) 4 scalar MPI_INTEGER8 Param 721 I(4) 4 scalar MPI_INTEGER_KIND Param 743 I(4) 4 scalar MPI_IO Param 623 I(4) 4 scalar MPI_KEYVAL_INVALID Param 661 I(4) 4 scalar MPI_LAND Param 573 I(4) 4 scalar MPI_LASTUSEDCODE Param 629 I(4) 4 scalar Page 15 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LB Param 711 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 683 I(4) 4 scalar MPI_LOCK_SHARED Param 685 I(4) 4 scalar MPI_LOGICAL Param 691 I(4) 4 scalar MPI_LONG Param 761 I(4) 4 scalar MPI_LONG_DOUBLE Param 769 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 787 I(4) 4 scalar MPI_LONG_INT Param 781 I(4) 4 scalar MPI_LONG_LONG Param 775 I(4) 4 scalar MPI_LONG_LONG_INT Param 771 I(4) 4 scalar MPI_LOR Param 577 I(4) 4 scalar MPI_LXOR Param 581 I(4) 4 scalar MPI_MAX Param 565 I(4) 4 scalar MPI_MAXLOC Param 587 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 655 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 643 I(4) 4 scalar MPI_MAX_INFO_KEY Param 649 I(4) 4 scalar MPI_MAX_INFO_VAL Param 651 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 657 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 647 I(4) 4 scalar MPI_MAX_PORT_NAME Param 645 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 653 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 887 I(4) 4 scalar MPI_MESSAGE_NULL Param 885 I(4) 4 scalar MPI_MIN Param 567 I(4) 4 scalar MPI_MINLOC Param 585 I(4) 4 scalar MPI_MODE_APPEND Param 911 I(4) 4 scalar MPI_MODE_CREATE Param 907 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 903 I(4) 4 scalar MPI_MODE_EXCL Param 909 I(4) 4 scalar MPI_MODE_NOCHECK Param 873 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 879 I(4) 4 scalar MPI_MODE_NOPUT Param 877 I(4) 4 scalar MPI_MODE_NOSTORE Param 875 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 881 I(4) 4 scalar MPI_MODE_RDONLY Param 897 I(4) 4 scalar MPI_MODE_RDWR Param 899 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 913 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 905 I(4) 4 scalar MPI_MODE_WRONLY Param 901 I(4) 4 scalar MPI_NO_OP Param 591 I(4) 4 scalar MPI_NULL_COPY_FN Subr 941 scalar MPI_NULL_DELETE_FN Subr 941 scalar MPI_OFFSET Param 817 I(4) 4 scalar MPI_OFFSET_KIND Param 739 I(4) 4 scalar MPI_OP_NULL Param 607 I(4) 4 scalar MPI_ORDER_C Param 921 I(4) 4 scalar MPI_ORDER_FORTRAN Param 923 I(4) 4 scalar MPI_PACKED Param 713 I(4) 4 scalar MPI_PROC_NULL Param 665 I(4) 4 scalar MPI_PROD Param 571 I(4) 4 scalar MPI_REAL Param 693 I(4) 4 scalar MPI_REAL16 Param 729 I(4) 4 scalar MPI_REAL4 Param 725 I(4) 4 scalar Page 16 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_REAL8 Param 727 I(4) 4 scalar MPI_REPLACE Param 589 I(4) 4 scalar MPI_REQUEST_NULL Param 611 I(4) 4 scalar MPI_ROOT Param 671 I(4) 4 scalar MPI_SEEK_CUR Param 917 I(4) 4 scalar MPI_SEEK_END Param 919 I(4) 4 scalar MPI_SEEK_SET Param 915 I(4) 4 scalar MPI_SHORT Param 753 I(4) 4 scalar MPI_SHORT_INT Param 783 I(4) 4 scalar MPI_SIGNED_CHAR Param 747 I(4) 4 scalar MPI_SIMILAR Param 549 I(4) 4 scalar MPI_SOURCE Param 414 I(4) 4 scalar MPI_STATUS_SIZE Param 416 I(4) 4 scalar 418,419,1031 MPI_SUBARRAYS_SUPPORTED Param 935 L(4) 4 scalar MPI_SUBVERSION Param 681 I(4) 4 scalar MPI_SUCCESS Param 423 I(4) 4 scalar MPI_SUM Param 569 I(4) 4 scalar MPI_TAG Param 414 I(4) 4 scalar MPI_TAG_UB Param 619 I(4) 4 scalar MPI_THREAD_FUNNELED Param 891 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 895 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 893 I(4) 4 scalar MPI_THREAD_SINGLE Param 889 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 871 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 869 I(4) 4 scalar MPI_TYPECLASS_REAL Param 867 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 948 scalar MPI_TYPE_NULL_COPY_FN Subr 949 scalar MPI_TYPE_NULL_DELETE_FN Subr 948 scalar MPI_UB Param 709 I(4) 4 scalar MPI_UINT16_T Param 799 I(4) 4 scalar MPI_UINT32_T Param 801 I(4) 4 scalar MPI_UINT64_T Param 803 I(4) 4 scalar MPI_UINT8_T Param 797 I(4) 4 scalar MPI_UNDEFINED Param 659 I(4) 4 scalar MPI_UNEQUAL Param 551 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 627 I(4) 4 scalar MPI_UNSIGNED Param 759 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 749 I(4) 4 scalar MPI_UNSIGNED_LONG Param 763 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 773 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 755 I(4) 4 scalar MPI_VERSION Param 679 I(4) 4 scalar MPI_WCHAR Param 751 I(4) 4 scalar MPI_WIN_BASE Param 633 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 639 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 637 I(4) 4 scalar MPI_WIN_DUP_FN Subr 946 scalar MPI_WIN_FLAVOR_ALLOCATE Param 555 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 553 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 557 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 559 I(4) 4 scalar MPI_WIN_MODEL Param 641 I(4) 4 scalar MPI_WIN_NULL Param 601 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 947 scalar Page 17 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WIN_NULL_DELETE_FN Subr 946 scalar MPI_WIN_SEPARATE Param 561 I(4) 4 scalar MPI_WIN_SIZE Param 635 I(4) 4 scalar MPI_WIN_UNIFIED Param 563 I(4) 4 scalar MPI_WTICK Func 942 R(8) 8 scalar MPI_WTIME Func 942 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 625 I(4) 4 scalar MPPCOM Common 973 1724 SAVE N Local 1260 I(4) 4 scalar 1260,1268,1273 NROOT Param 89 I(4) 4 scalar NSOIL Param 89 I(4) 4 scalar 111,332,333,334,1260,1268,1273 OUTFIL Common 352 58 SAVE PDOMG Local 1082 R(4) 4 scalar 1082 PHYS Common 167 858036 SAVE PMPI_WTICK Func 943 R(8) 8 scalar PMPI_WTIME Func 943 R(8) 8 scalar PPTASM Common 382 1364916 SAVE PSLP Local 109 R(4) 4 2 6319 1172 PVRBLS Common 225 1946252 SAVE QFLX Common 356 1769320 SAVE READ_RESTRT2 Subr 3 RESOMG Local 1082 R(4) 4 scalar 1082 RESTHR Local 103 CHAR 4 scalar 1055,1057,1061 RUNB Local 100 L(4) 4 scalar SINGLRST Local 121 L(4) 4 scalar SOIL Common 326 581380 SAVE TEMPCOM Common 1014 6603768 SAVE TEMPSOIL Local 111 R(4) 4 3 366876 TOPO Common 1022 17478548 SAVE VRBLS Common 205 4625508 SAVE TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 454968 2 6319 COM 1205 ACFRCV R(4) 4 8 2 6319 COM 1211 ACFRST R(4) 4 50560 2 6319 COM 1213 ACPREC R(4) 4 429692 2 6319 COM 1204 ACSNOM R(4) 4 25280 2 6319 COM 1218 ACSNOW R(4) 4 4 2 6319 COM 1217 ACUTIM R(4) 4 20 scalar COM AETA R(4) 4 396 1 45 COM AETA1 R(4) 4 960 1 45 COM AETA2 R(4) 4 264 1 45 COM AFSI R(4) 4 1920976 2 6319 COM AKHS R(4) 4 227484 2 6319 COM 1148 AKMS R(4) 4 202208 2 6319 COM 1141 ALBASE R(4) 4 357388 2 6319 COM ALBEDO R(4) 4 382664 2 6319 COM 1286 ALSL R(4) 4 624 1 39 COM ALWIN R(4) 4 75840 2 6319 COM 1237 ALWOUT R(4) 4 101116 2 6319 COM 1238 ALWTOA R(4) 4 126392 2 6319 COM 1239 Page 18 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Type Bytes Offset Dimen Elements Attributes References APHTIM R(4) 4 202220 scalar COM APREC R(4) 4 1238524 2 6319 COM ARATIM R(4) 4 16 scalar COM ARDLW R(4) 4 8 scalar COM 1242 ARDSW R(4) 4 8 scalar COM 1242 ASRFC R(4) 4 8 scalar COM 1242 ASWIN R(4) 4 75840 2 6319 COM 1234 ASWOUT R(4) 4 101116 2 6319 COM 1235 ASWTOA R(4) 4 126392 2 6319 COM 1236 AVCNVC R(4) 4 12 scalar COM 1242 AVRAIN R(4) 4 8 scalar COM 1242 BGROFF R(4) 4 75832 2 6319 COM 1220 CFRACH R(4) 4 75828 2 6319 COM 1174 CFRACL R(4) 4 25276 2 6319 COM 1154 CFRACM R(4) 4 50552 2 6319 COM 1164 CI R(4) 4 40 scalar COM CLDEFI R(4) 4 379140 2 6319 COM 1170 CLDINC R(4) 4 1314364 2 6319 COM 1305 CLDINC7 R(4) 4 1339640 2 6319 COM 1307 CMC R(4) 4 252760 2 6319 COM 1264 CMLD R(4) 4 444 scalar COM CNVBOT R(4) 4 256284 2 6319 COM CNVTOP R(4) 4 231008 2 6319 COM CPGFU R(4) 4 57756 2 6319 COM CPGFV R(4) 4 4 scalar COM CPHI0 R(4) 4 1724 scalar COM CS R(4) 4 28 scalar COM CUPPT R(4) 4 0 2 6319 COM 1173 CUPREC R(4) 4 480244 2 6319 COM 1206 CURV R(4) 4 83032 2 6319 COM CWM R(4) 4 0 3 284355 COM 1121 CWMB R(4) 4 1551264 3 77220 COM CZEN R(4) 4 155180 2 6319 COM 1142 CZMEAN R(4) 4 458492 2 6319 COM 1189 DCFLX R(4) 4 429692 2 6319 COM 1293 DCFLX7 R(4) 4 480244 2 6319 COM 1299 DDMPU R(4) 4 184136 2 6319 COM DDMPV R(4) 4 209412 2 6319 COM DETA R(4) 4 36 1 45 COM DETA1 R(4) 4 780 1 45 COM DETA2 R(4) 4 84 1 45 COM DFL R(4) 4 940 1 46 COM DFRLG R(4) 4 444 1 46 COM DI R(4) 4 44 scalar COM DISLP R(4) 4 460 scalar COM DIV R(4) 4 2325392 3 284355 COM DLMD R(4) 4 436 scalar COM DP30 R(4) 4 448 scalar COM DPHD R(4) 4 440 scalar COM DQADV R(4) 4 505520 2 6319 COM 1300 DQFLX R(4) 4 404416 2 6319 COM 1290 DQFLX7 R(4) 4 454968 2 6319 COM 1296 DS R(4) 4 32 scalar COM DT R(4) 4 48 scalar COM DTD R(4) 4 16 scalar COM Page 19 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Type Bytes Offset Dimen Elements Attributes References DTQ2 R(4) 4 8 scalar COM DX R(4) 4 7204 2 6319 COM DY R(4) 4 0 scalar COM EF4T R(4) 4 32 scalar COM EM R(4) 4 1124 1 760 COM EMT R(4) 4 4164 1 760 COM EN R(4) 4 8 scalar COM ENT R(4) 4 12 scalar COM EPSR R(4) 4 28800 2 6319 COM ERLAM0 R(4) 4 1720 scalar COM ETA R(4) 4 756 1 46 COM ETA1 R(4) 4 1140 1 46 COM ETADT R(4) 4 3462812 3 278036 COM F R(4) 4 158860 2 6319 COM F4D R(4) 4 24 scalar COM F4Q R(4) 4 28 scalar COM F4Q2 R(4) 4 576 1 45 COM FAD R(4) 4 234688 2 6319 COM FCNEV R(4) 4 101104 2 6319 COM FCNEV1 R(4) 4 581348 2 6319 COM FCNEV7 R(4) 4 151656 2 6319 COM FCP R(4) 4 108308 2 6319 COM FCSEV R(4) 4 126380 2 6319 COM FCSEV1 R(4) 4 606624 2 6319 COM FCSEV7 R(4) 4 176932 2 6319 COM FCU R(4) 4 252760 2 6319 COM 1291 FCU7 R(4) 4 353864 2 6319 COM 1297 FCV R(4) 4 278036 2 6319 COM 1292 FCV7 R(4) 4 379140 2 6319 COM 1298 FDIV R(4) 4 133584 2 6319 COM FIRST L(4) 4 24 scalar COM 1096,1101 FIS R(4) 4 4574956 2 6319 COM 1105 FQNEV R(4) 4 0 2 6319 COM FQNEV1 R(4) 4 530796 2 6319 COM 1301 FQNEV7 R(4) 4 50552 2 6319 COM FQSEV R(4) 4 25276 2 6319 COM FQSEV1 R(4) 4 556072 2 6319 COM 1302 FQSEV7 R(4) 4 75828 2 6319 COM FQU R(4) 4 202208 2 6319 COM 1288 FQU7 R(4) 4 303312 2 6319 COM 1294 FQV R(4) 4 227484 2 6319 COM 1289 FQV7 R(4) 4 328588 2 6319 COM 1295 G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GFFC R(4) 4 306836 2 6319 COM GLAT R(4) 4 104628 2 6319 COM GLON R(4) 4 129904 2 6319 COM GRNFLX R(4) 4 101104 2 6319 COM 1182 HBM2 R(4) 4 2375944 2 6319 COM HBM3 R(4) 4 2401220 2 6319 COM HBOT R(4) 4 205732 2 6319 COM 1153 HDAC R(4) 4 407940 2 6319 COM HDACV R(4) 4 433216 2 6319 COM HTM R(4) 4 101104 3 284355 COM HTMG R(4) 4 743768 3 4183695 COM Page 20 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Type Bytes Offset Dimen Elements Attributes References HTOP R(4) 4 180456 2 6319 COM 1163 IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 828 1 21 COM IDAT I(4) 4 8 1 3 COM 1079,1096,1136,1202 IDTAD I(4) 4 72 scalar COM IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM IHE I(4) 4 0 1 89 COM IHEG I(4) 4 0 1 387 COM IHHA I(4) 4 3040 1 760 COM IHLA I(4) 4 0 1 760 COM IHRST I(4) 4 20 scalar COM 1079,1096,1136,1202 IHW I(4) 4 356 1 89 COM IHWG I(4) 4 1548 1 387 COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1324 1 100 COM IOUT I(4) 4 44 scalar COM 1096 IQUILT_GROUP I(4) 4 1320 scalar COM IRAD I(4) 4 1424 1 71 COM IRADG I(4) 4 6192 1 473 COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM ISHDE I(4) 4 12 1 99 COM ISLOPE I(4) 4 202208 2 6319 COM ISLTYP I(4) 4 176932 2 6319 COM IS_GLB_TABLE I(4) 4 0 1 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM ITAG I(4) 4 0 scalar COM 1050,1058,1061 ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM ITSTLOC I(4) 4 1263800 scalar COM IVE I(4) 4 712 1 89 COM IVEG I(4) 4 3096 1 387 COM IVGTYP I(4) 4 151656 2 6319 COM IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM IVW I(4) 4 1068 1 89 COM IVWG I(4) 4 4644 1 387 COM IXM I(4) 4 4 scalar COM IYM I(4) 4 8 scalar COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM Page 21 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Type Bytes Offset Dimen Elements Attributes References JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM JRA I(4) 4 12160 1 760 COM JS_GLB_TABLE I(4) 4 168 1 21 COM JS_LOC_TABLE I(4) 4 576 1 21 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM JTSTLOC I(4) 4 1263804 scalar COM KTM I(4) 4 0 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM LC I(4) 4 1163056 2 6319 COM 1195 LIST I(4) 4 40 scalar COM 1042,1074,1320,1321 LMH I(4) 4 15200 2 6319 COM LMV I(4) 4 40476 2 6319 COM LRSTRT I(4) 4 4 scalar COM 1070,1072,1073,1079,1082,1090,1096 ,1103,1108,1115,1116,1117,1118,111 9,1120,1121,1122,1123,1136,1148,11 58,1168,1178,1187,1193,1202,1211,1 217,1224,1234,1242,1246,1260,1264, 1268,1273,1286,1288,1304 LSL I(4) 4 0 scalar COM MPI_ARGVS_NULL CHAR 1 0 2 1 COM MPI_ARGV_NULL CHAR 1 1 1 1 COM MPI_BOTTOM I(4) 4 0 scalar COM MPI_COMM_COMP I(4) 4 912 scalar COM MPI_COMM_INTER I(4) 4 916 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 920 1 100 COM MPI_ERRCODES_IGNORE I(4) 4 20 1 1 COM MPI_IN_PLACE I(4) 4 4 scalar COM MPI_STATUSES_IGNORE I(4) 4 0 2 5 COM MPI_STATUS_IGNORE I(4) 4 8 1 5 COM MPI_UNWEIGHTED I(4) 4 0 scalar COM MPI_WEIGHTS_EMPTY I(4) 4 0 scalar COM MTSTPE I(4) 4 1263808 scalar COM MXSNAL R(4) 4 3524 2 6319 COM MYIE I(4) 4 52 scalar COM 1090,1103,1104,1105,1115,1116,1117 ,1118,1119,1121,1122,1123,1137,113 8,1139,1140,1141,1142,1148,1149,11 50,1151,1152,1153,1154,1158,1159,1 160,1161,1162,1163,1164,1168,1169, 1170,1171,1172,1173,1174,1178,1179 ,1180,1181,1182,1183,1187,1188,118 9,1190,1193,1195,1196,1203,1204,12 05,1206,1211,1212,1213,1214,1217,1 218,1219,1220,1224,1225,1226,1227, 1228,1229,1230,1234,1235,1236,1237 ,1238,1239,1246,1247,1248,1249,125 0,1251,1252,1253,1254,1255,1256,12 60,1264,1268,1273,1286,1288,1289,1 290,1291,1292,1293,1294,1295,1296, 1297,1298,1299,1300,1301,1302,1304 Page 22 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Type Bytes Offset Dimen Elements Attributes References ,1305,1306,1307 MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM 1090,1103,1104,1105,1115,1116,1117 ,1118,1119,1121,1122,1123,1137,113 8,1139,1140,1141,1142,1148,1149,11 50,1151,1152,1153,1154,1158,1159,1 160,1161,1162,1163,1164,1168,1169, 1170,1171,1172,1173,1174,1178,1179 ,1180,1181,1182,1183,1187,1188,118 9,1190,1193,1195,1196,1203,1204,12 05,1206,1211,1212,1213,1214,1217,1 218,1219,1220,1224,1225,1226,1227, 1228,1229,1230,1234,1235,1236,1237 ,1238,1239,1246,1247,1248,1249,125 0,1251,1252,1253,1254,1255,1256,12 60,1264,1268,1273,1286,1288,1289,1 290,1291,1292,1293,1294,1295,1296, 1297,1298,1299,1300,1301,1302,1304 ,1305,1306,1307 MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM MYIS2 I(4) 4 48 scalar COM MYIS_P1 I(4) 4 64 scalar COM MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM 1090,1103,1104,1105,1115,1116,1117 ,1118,1119,1121,1122,1123,1137,113 8,1139,1140,1141,1142,1148,1149,11 50,1151,1152,1153,1154,1158,1159,1 160,1161,1162,1163,1164,1168,1169, 1170,1171,1172,1173,1174,1178,1179 ,1180,1181,1182,1183,1187,1188,118 9,1190,1193,1195,1196,1203,1204,12 05,1206,1211,1212,1213,1214,1217,1 218,1219,1220,1224,1225,1226,1227, 1228,1229,1230,1234,1235,1236,1237 ,1238,1239,1246,1247,1248,1249,125 0,1251,1252,1253,1254,1255,1256,12 60,1264,1268,1273,1286,1288,1289,1 Page 23 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Type Bytes Offset Dimen Elements Attributes References 290,1291,1292,1293,1294,1295,1296, 1297,1298,1299,1300,1301,1302,1304 ,1305,1306,1307 MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM MYJE4_P1 I(4) 4 316 scalar COM MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 1090,1103,1104,1105,1115,1116,1117 ,1118,1119,1121,1122,1123,1137,113 8,1139,1140,1141,1142,1148,1149,11 50,1151,1152,1153,1154,1158,1159,1 160,1161,1162,1163,1164,1168,1169, 1170,1171,1172,1173,1174,1178,1179 ,1180,1181,1182,1183,1187,1188,118 9,1190,1193,1195,1196,1203,1204,12 05,1206,1211,1212,1213,1214,1217,1 218,1219,1220,1224,1225,1226,1227, 1228,1229,1230,1234,1235,1236,1237 ,1238,1239,1246,1247,1248,1249,125 0,1251,1252,1253,1254,1255,1256,12 60,1264,1268,1273,1286,1288,1289,1 290,1291,1292,1293,1294,1295,1296, 1297,1298,1299,1300,1301,1302,1304 ,1305,1306,1307 MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM Page 24 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Type Bytes Offset Dimen Elements Attributes References MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM 1042,1058,1061,1319 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM NBC I(4) 4 36 scalar COM NBOCO I(4) 4 76 scalar COM NCFRCV I(4) 4 25284 2 6319 COM 1212 NCFRST I(4) 4 75836 2 6319 COM 1214 NCLOD I(4) 4 4 scalar COM NCNVC I(4) 4 92 scalar COM NCP I(4) 4 84 scalar COM NEST I(4) 4 108 scalar COM NFCST I(4) 4 32 scalar COM NHEAT I(4) 4 4 scalar COM NPES I(4) 4 4 scalar COM NPHS I(4) 4 88 scalar COM NPREC I(4) 4 68 scalar COM NRADL I(4) 4 100 scalar COM NRADS I(4) 4 96 scalar COM NRDLW I(4) 4 4 scalar COM NRDSW I(4) 4 4 scalar COM NSHDE I(4) 4 80 scalar COM 1096 NSRFC I(4) 4 4 scalar COM NSTART I(4) 4 60 scalar COM NTDDMP I(4) 4 64 scalar COM NTSD I(4) 4 52 scalar COM 1079,1081,1096,1100,1136,1144,1202 ,1208 NTSTM I(4) 4 56 scalar COM OMGALF R(4) 4 1187972 3 284355 COM 1090 PCTSNO R(4) 4 126380 2 6319 COM 1183 Page 25 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Type Bytes Offset Dimen Elements Attributes References PD R(4) 4 0 2 6319 COM 1103 PDB R(4) 4 0 2 1716 COM PDSL R(4) 4 0 2 6319 COM PHOUR R(4) 4 0 2 6319 COM PL R(4) 4 48 scalar COM PLQ R(4) 4 72 scalar COM POTEVP R(4) 4 151668 2 6319 COM 1230 POTFLX R(4) 4 176944 2 6319 COM PPTDAT R(4) 4 1162696 3 18957 COM PREC R(4) 4 404416 2 6319 COM 1203 PSDT R(4) 4 25276 2 6319 COM PSHLTR R(4) 4 758280 2 6319 COM 1252 PT R(4) 4 20 scalar COM PT1 R(4) 4 412 scalar COM PT2 R(4) 4 4 scalar COM PTBL R(4) 4 509044 2 10184 COM Q R(4) 4 3437536 3 284355 COM 1116 Q10 R(4) 4 631900 2 6319 COM 1247 Q2 R(4) 4 783556 3 284355 COM 1119 Q2B R(4) 4 1242384 3 77220 COM Q30 R(4) 4 530796 2 6319 COM 1254 QB R(4) 4 315744 3 77220 COM QOLD R(4) 4 631900 3 284355 COM QS R(4) 4 176932 2 6319 COM 1150 QS0 R(4) 4 628 1 134 COM QSHLTR R(4) 4 733004 2 6319 COM 1251 QWBS R(4) 4 303312 2 6319 COM 1152 QZ0 R(4) 4 126380 2 6319 COM 1159 R R(4) 4 16 scalar COM R1 R(4) 4 408 scalar COM RADIN R(4) 4 54076 2 6319 COM RADOT R(4) 4 79352 2 6319 COM 1188 RDETA R(4) 4 216 1 45 COM RDP R(4) 4 64 scalar COM RDPQ R(4) 4 76 scalar COM RDQ R(4) 4 56 scalar COM RDTH R(4) 4 60 scalar COM RDTHE R(4) 4 68 scalar COM RDTHEQ R(4) 4 80 scalar COM RES R(4) 4 4600232 2 6319 COM 1104 RESTRT L(4) 4 28 scalar COM RF R(4) 4 252760 2 6319 COM 1171 RLWIN R(4) 4 12 2 6319 COM 1187 RLWOUT R(4) 4 25288 2 6319 COM RLWTOA R(4) 4 50564 2 6319 COM RLWTT R(4) 4 151668 3 284355 COM ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM RSTFIL CHAR 50 8 scalar COM 1058,1061,1064,1073 RSWIN R(4) 4 12 2 6319 COM 1137 RSWOUT R(4) 4 25288 2 6319 COM 1138 RSWTOA R(4) 4 50564 2 6319 COM RSWTT R(4) 4 151668 3 284355 COM RTDPTH R(4) 4 480260 1 4 COM RTOP R(4) 4 50552 3 284355 COM Page 26 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Type Bytes Offset Dimen Elements Attributes References RUN L(4) 4 4 scalar COM 1079,1096,1136,1202 SBD R(4) 4 424 scalar COM SFCEVP R(4) 4 126392 2 6319 COM 1229 SFCEXC R(4) 4 25276 2 6319 COM 1179 SFCLHX R(4) 4 25288 2 6319 COM 1225 SFCSHX R(4) 4 12 2 6319 COM 1224 SFCUVX R(4) 4 101116 2 6319 COM 1228 SH2O R(4) 4 480276 3 25276 COM 1273 SI R(4) 4 353864 2 6319 COM 1169 SICE R(4) 4 75828 2 6319 COM SIGMA L(4) 4 0 scalar COM SIGT4 R(4) 4 483768 2 6319 COM 1190 SLDPTH R(4) 4 480244 1 4 COM SM R(4) 4 50552 2 6319 COM SMC R(4) 4 278036 3 25276 COM 1260 SMSTAV R(4) 4 50552 2 6319 COM 1180 SMSTOT R(4) 4 75828 2 6319 COM 1181 SNO R(4) 4 328588 2 6319 COM 1168 SNOPCX R(4) 4 75840 2 6319 COM 1227 SOILTB R(4) 4 0 2 6319 COM 1178 SPHI0 R(4) 4 1728 scalar COM SPL R(4) 4 468 1 39 COM SQS R(4) 4 1164 1 134 COM SR R(4) 4 1188332 2 6319 COM 1196 SSROFF R(4) 4 50556 2 6319 COM 1219 SST R(4) 4 332112 2 6319 COM STC R(4) 4 379140 3 25276 COM 1268 STHE R(4) 4 2004 1 76 COM STHEQ R(4) 4 2916 1 152 COM SUBPOST L(4) 4 104 scalar COM SUBSHX R(4) 4 50564 2 6319 COM 1226 T R(4) 4 25276 3 284355 COM 1115 TB R(4) 4 6864 3 77220 COM TCLOD R(4) 4 0 scalar COM TCUCN R(4) 4 1137444 3 284355 COM 1123 TDTD R(4) 4 20 scalar COM TDTQ2 R(4) 4 12 scalar COM TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TG R(4) 4 281560 2 6319 COM 1139 Page 27 Source Listing READ_RESTRT2 2025-03-12 18:23 Symbol Table READ_RESTRT2.F Name Type Bytes Offset Dimen Elements Attributes References TH10 R(4) 4 606624 2 6319 COM 1246 TH30 R(4) 4 505520 2 6319 COM 1253 THE0 R(4) 4 1700 1 76 COM THE0Q R(4) 4 2308 1 152 COM THEAT R(4) 4 0 scalar COM THL R(4) 4 52 scalar COM THS R(4) 4 151656 2 6319 COM 1149 THZ0 R(4) 4 101104 2 6319 COM 1158 TLAT R(4) 4 25276 3 284355 COM TLM0D R(4) 4 428 scalar COM TPH0D R(4) 4 432 scalar COM TPREC R(4) 4 0 scalar COM TRAIN R(4) 4 24 3 284355 COM 1122 TRDLW R(4) 4 0 scalar COM TRDSW R(4) 4 0 scalar COM TSHDE R(4) 4 1324 1 99 COM TSHLTR R(4) 4 707728 2 6319 COM 1250 TSPH R(4) 4 416 scalar COM TSRFC R(4) 4 0 scalar COM TTBL R(4) 4 549780 2 10184 COM TTBLQ R(4) 4 590516 2 66880 COM TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 278036 2 6319 COM 1151 U R(4) 4 1162696 3 284355 COM 1117 U00 R(4) 4 1137420 2 6319 COM 1193 U10 R(4) 4 657176 2 6319 COM 1248 U30 R(4) 4 556072 2 6319 COM 1255 UB R(4) 4 624624 3 77220 COM UL R(4) 4 1162696 1 90 COM 1194 USTAR R(4) 4 25276 2 6319 COM 1162 UZ0 R(4) 4 50552 2 6319 COM 1160 V R(4) 4 2300116 3 284355 COM 1118 V10 R(4) 4 682452 2 6319 COM 1249 V30 R(4) 4 581348 2 6319 COM 1256 VAPINC R(4) 4 1263812 2 6319 COM 1304 VAPINC7 R(4) 4 1289088 2 6319 COM 1306 VB R(4) 4 933504 3 77220 COM VBM2 R(4) 4 0 2 6319 COM VBM3 R(4) 4 25276 2 6319 COM VEGFRC R(4) 4 227484 2 6319 COM VTM R(4) 4 1238524 3 284355 COM VZ0 R(4) 4 75828 2 6319 COM 1161 WBD R(4) 4 420 scalar COM WPDAR R(4) 4 32480 2 6319 COM X1P R(4) 4 452 scalar COM Y1P R(4) 4 456 scalar COM Z0 R(4) 4 0 2 6319 COM 1140 Z0SLP R(4) 4 464 scalar COM Page 28 Source Listing READ_RESTRT2 2025-03-12 18:23 Subprograms/Common Blocks READ_RESTRT2.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLD Common 269 101112 SAVE ACMCLH Common 262 2274864 SAVE ACMPRE Common 276 101108 SAVE ACMRDL Common 283 1289088 SAVE ACMRDS Common 292 1289088 SAVE ACMSFC Common 301 202224 SAVE BOCO Common 255 1860144 SAVE CLDWTR Common 311 1213608 SAVE CNVCLD Common 319 101104 SAVE CONTIN Common 215 4574956 SAVE CTLBLK Common 123 112 SAVE DYNAM Common 149 259964 SAVE GLB_TABLE Common 1009 336 SAVE INDX Common 339 1708 SAVE INDXG Common 345 8084 SAVE LOOPS Common 131 65752 SAVE MAPOT Common 193 1732 SAVE MAPPINGS Common 1028 5024 SAVE MASKS Common 138 2426496 SAVE MPIFCMB5 Common 955 4 SAVE MPIFCMB9 Common 956 4 SAVE MPIPRIV1 Common 960 28 SAVE MPIPRIV2 Common 962 24 SAVE MPIPRIVC Common 965 2 SAVE MPPCOM Common 973 1724 SAVE OUTFIL Common 352 58 SAVE PHYS Common 167 858036 SAVE PPTASM Common 382 1364916 SAVE PVRBLS Common 225 1946252 SAVE QFLX Common 356 1769320 SAVE READ_RESTRT2 Subr 3 SOIL Common 326 581380 SAVE TEMPCOM Common 1014 6603768 SAVE TOPO Common 1022 17478548 SAVE VRBLS Common 205 4625508 SAVE COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout Page 29 Source Listing READ_RESTRT2 2025-03-12 18:23 READ_RESTRT2.F -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest Page 30 Source Listing READ_RESTRT2 2025-03-12 18:23 READ_RESTRT2.F no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : READ_RESTRT2.lst no -o Page 31 Source Listing READ_RESTRT2 2025-03-12 18:23 READ_RESTRT2.F COMPILER: Intel(R) Fortran 19.1-1655