Page 1 Source Listing READ_RESTRT2 2014-12-17 20:47 /tmpnwprd/ifortVKWyi8.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 2014-12-17 20:47 READ_RESTRT2.F 58 C----------------------------------------------------------------------- 59 C INCLUDE/SET PARAMETERS. 60 C----------------------------------------------------------------------- 61 INCLUDE "parmeta" 84 INCLUDE "parm.tbl" 86 INCLUDE "parmsoil" 87 C----------------------------------------------------------------------- 89 P A R A M E T E R 90 & (IMJM=IM*JM-JM/2,JMP1=JM+1,JAM=6+2*(JM-10),LB=2*IM+JM-3 91 &, LM1=LM-1,LP1=LM+1,IMT=2*IM-1) 92 C 93 C----------------------------------------------------------------------- 94 C 95 C DECLARE VARIABLES 96 C 97 C----------------------------------------------------------------------- 98 L O G I C A L 99 & RUN,RUNB,FIRST,RESTRT,SIGMA 100 C----------------------------------------------------------------------- 101 C H A R A C T E R 102 & RESTHR*4,LABEL*32 103 C H A R A C T E R *40 104 & CONTRL,FILALL,FILMST,FILTMP,FILTKE,FILUNV 105 &,FILCLD,FILRAD,FILSFC 106 C----------------------------------------------------------------------- 107 R E A L 108 & PSLP(IDIM1:IDIM2,JDIM1:JDIM2) 109 R E A L 110 & TEMPSOIL(IM,JM,NSOIL) 111 C----------------------------------------------------------------------- 112 I N T E G E R 113 & IDATB(3) 114 C----------------------------------------------------------------------- 115 C 116 C INCLUDE COMMON BLOCKS. 117 C 118 INCLUDE "CTLBLK.comm" 128 INCLUDE "LOOPS.comm" 135 INCLUDE "MASKS.comm" 146 INCLUDE "DYNAM.comm" 162 INCLUDE "PHYS2.comm" 190 INCLUDE "MAPOT1.comm" 202 INCLUDE "VRBLS.comm" 212 INCLUDE "CONTIN.comm" 222 INCLUDE "PVRBLS.comm" 252 INCLUDE "BOCO.comm" 259 INCLUDE "ACMCLH.comm" 266 INCLUDE "ACMCLD.comm" 273 INCLUDE "ACMPRE.comm" 280 INCLUDE "ACMRDL.comm" 289 INCLUDE "ACMRDS.comm" 298 INCLUDE "ACMSFC.comm" 308 INCLUDE "CLDWTR.comm" 316 INCLUDE "CNVCLD.comm" 323 INCLUDE "SOIL.comm" 336 INCLUDE "INDX.comm" 348 INCLUDE "OUTFIL.comm" Page 3 Source Listing READ_RESTRT2 2014-12-17 20:47 READ_RESTRT2.F 354 INCLUDE "QFLX.comm" 378 INCLUDE "PPTASM.comm" 379 C 380 C----------------------------------------------------------------------- 404 INCLUDE "mpif.h" 921 INCLUDE "mpp.h" 922 # 1 "./sp.h" 1 923 # 4 924 925 # 121 "READ_RESTRT2.F" 2 926 C----------------------------------------------------------------------- 985 INTEGER ISTAT(MPI_STATUS_SIZE) 986 C 987 # 129 988 989 C 990 C*********************************************************************** 991 C*********************************************************************** 992 C 993 C READ INITIAL CONDITIONS FROM RESTART FILES. 994 C 995 C------------------------------------------------------------------- 996 IF(MYPE.EQ.0)WRITE(LIST,*)'INIT: READ RESTART FILES' 997 C*** 998 C*** CREATE NAME FOR RESTART FILE 999 C*** 1000 ccccc ITAG=NTSD/TSPH+0.5 1001 c 1002 C hardwired 1003 C hardwired 1004 ITAG=3 1005 C hardwired 1006 C hardwired 1007 c 1008 c CALL get_environment_variable("tmmarkb",RESTHR) 1009 call get_environment_variable("tmmark",RESTHR) 1010 C 1011 IF(RESTHR.EQ.' ')THEN 1012 WRITE(RSTFIL,50)ITAG,MYPE 1013 50 FORMAT('restrt',I2.2,'.',I3.3) 1014 ELSE 1015 WRITE(RSTFIL,55)ITAG,MYPE,RESTHR 1016 55 FORMAT('restrt',I2.2,'.',I3.3,'.',a4) 1017 ENDIF 1018 print*,'opening ',rstfil 1019 1020 C*** 1021 C*** OPEN UNIT TO RESTART FILE. 1022 C*** 1023 C wne LRSTRT=8 1024 LRSTRT=81 1025 C 1026 CLOSE(LRSTRT) 1027 OPEN(UNIT=LRSTRT,FILE=RSTFIL,FORM='UNFORMATTED',IOSTAT=IER) 1028 IF(IER.NE.0)WRITE(LIST,*)' LRSTRT OPEN UNIT ERROR IER=',IER 1029 C------------------------------------------------------------------- 1030 C Page 4 Source Listing READ_RESTRT2 2014-12-17 20:47 READ_RESTRT2.F 1031 # 179 1032 1033 READ(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1034 1035 NTSD=MAX(NTSD-1,0) 1036 READ(LRSTRT)PDOMG,RESOMG 1037 C 1038 C------------------------------------------------------------------- 1039 c if(mype.eq.2.or.mype.eq.5) then 1040 c print*,'Before omgalf' 1041 c endif 1042 c print*,'myis,myie,myjs,myje=',myis,myie,myjs,myje 1043 DO L=1,LM 1044 READ(LRSTRT)((OMGALF(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1045 ENDDO 1046 c if(mype.eq.2.or.mype.eq.5) print*,'After omgalf' 1047 C------------------------------------------------------------------- 1048 # 205 1049 1050 READ(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL,FIRST,IOUT,NSHDE 1051 c if(mype.eq.2.or.mype.eq.5) print*,'After next read 2' 1052 1053 C 1054 NTSD=MAX(NTSD-1,0) 1055 FIRST=.TRUE. 1056 C------------------------------------------------------------------- 1057 READ(LRSTRT)((PD(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1058 1, ((RES(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1059 2, ((FIS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1060 c if(mype.eq.2.or.mype.eq.5) print*,'after pd, res, fis' 1061 C------------------------------------------------------------------- 1062 READ(LRSTRT) 1063 C------------------------------------------------------------------- 1064 C*** 1065 C*** PRIMARY 3-D VARIABLES 1066 C*** 1067 c if(mype.eq.2.or.mype.eq.5) print*,'before primary 3d variables' 1068 DO L=1,LM 1069 READ(LRSTRT)((T(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1070 READ(LRSTRT)((Q(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1071 READ(LRSTRT)((U(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1072 READ(LRSTRT)((V(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1073 READ(LRSTRT)((Q2(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1074 READ(LRSTRT) 1075 READ(LRSTRT)((CWM(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1076 READ(LRSTRT)((TRAIN(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1077 READ(LRSTRT)((TCUCN(I,J,L),I=MYIS,MYIE),J=MYJS,MYJE) 1078 ENDDO 1079 c do l=1,lm 1080 c do j=myjs,myje 1081 c do i=myis,myie 1082 c print*,'i,j,l,t(i,j,l)=',i,j,l,t(i,j,l) 1083 c enddo 1084 c enddo 1085 c enddo 1086 C------------------------------------------------------------------- 1087 # 255 Page 5 Source Listing READ_RESTRT2 2014-12-17 20:47 READ_RESTRT2.F 1088 1089 c if(mype.eq.2.or.mype.eq.5) print*,'before other stuff' 1090 READ(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1091 1, ((RSWIN(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1092 2, ((RSWOUT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1093 3, ((TG(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1094 4, ((Z0(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1095 5, ((AKMS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1096 6, ((CZEN(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1097 1098 NTSD=MAX(NTSD-1,0) 1099 C 1100 C------------------------------------------------------------------- 1101 c if(mype.eq.2.or.mype.eq.5) print*,'and more stuff' 1102 READ(LRSTRT)((AKHS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1103 1, ((THS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1104 2, ((QS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1105 3, ((TWBS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1106 4, ((QWBS(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1107 5, ((HBOT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1108 6, ((CFRACL(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1109 C------------------------------------------------------------------- 1110 C*** 1111 c if(mype.eq.2.or.mype.eq.5) print*,'stuff here too' 1112 READ(LRSTRT)((THZ0(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1113 1, ((QZ0(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1114 2, ((UZ0(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1115 3, ((VZ0(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1116 4, ((USTAR(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1117 5, ((HTOP(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1118 6, ((CFRACM(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1119 C------------------------------------------------------------------- 1120 C*** 1121 c if(mype.eq.2.or.mype.eq.5) print*,'ditto' 1122 READ(LRSTRT)((SNO(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1123 1, ((SI(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1124 2, ((CLDEFI(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1125 3, ((RF(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1126 4, ((PSLP(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1127 5, ((CUPPT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1128 6, ((CFRACH(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1129 C------------------------------------------------------------------- 1130 C*** 1131 c if(mype.eq.2.or.mype.eq.5) print*,'Did we make it to here?' 1132 READ(LRSTRT)((SOILTB(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1133 1, ((SFCEXC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1134 2, ((SMSTAV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1135 3, ((SMSTOT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1136 4, ((GRNFLX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1137 5, ((PCTSNO(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1138 C------------------------------------------------------------------- 1139 C*** 1140 c if(mype.eq.2.or.mype.eq.5) print*,'How about here?' 1141 READ(LRSTRT)((RLWIN(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1142 1, ((RADOT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1143 2, ((CZMEAN(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1144 3, ((SIGT4(I,J),I=MYIS,MYIE),J=MYJS,MYJE) Page 6 Source Listing READ_RESTRT2 2014-12-17 20:47 READ_RESTRT2.F 1145 C------------------------------------------------------------------- 1146 C*** 1147 READ(LRSTRT)((U00(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1148 1, UL 1149 2, ((LC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1150 3, ((SR(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1151 C------------------------------------------------------------------- 1152 C*** 1153 # 331 1154 1155 c if(mype.eq.2.or.mype.eq.5) print*,'Possibly here?' 1156 READ(LRSTRT)RUN,IDAT,IHRST,NTSD,LABEL 1157 1, ((PREC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1158 2, ((ACPREC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1159 3, ((ACCLIQ(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1160 4, ((CUPREC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1161 1162 NTSD=MAX(NTSD-1,0) 1163 C------------------------------------------------------------------- 1164 C*** 1165 READ(LRSTRT)((ACFRCV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1166 1, ((NCFRCV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1167 2, ((ACFRST(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1168 3, ((NCFRST(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1169 C------------------------------------------------------------------- 1170 C*** 1171 READ(LRSTRT)((ACSNOW(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1172 1, ((ACSNOM(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1173 2, ((SSROFF(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1174 3, ((BGROFF(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1175 C------------------------------------------------------------------- 1176 C*** 1177 c if(mype.eq.2.or.mype.eq.5) print*,'So much stuff' 1178 READ(LRSTRT)((SFCSHX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1179 1, ((SFCLHX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1180 2, ((SUBSHX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1181 3, ((SNOPCX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1182 4, ((SFCUVX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1183 5, ((SFCEVP(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1184 6, ((POTEVP(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1185 C------------------------------------------------------------------- 1186 C*** 1187 c if(mype.eq.2.or.mype.eq.5) print*,'Lots to read' 1188 READ(LRSTRT)((ASWIN(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1189 1, ((ASWOUT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1190 2, ((ASWTOA(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1191 3, ((ALWIN(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1192 4, ((ALWOUT(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1193 5, ((ALWTOA(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1194 C------------------------------------------------------------------- 1195 C*** 1196 READ(LRSTRT)ARDSW,ARDLW,ASRFC,AVRAIN,AVCNVC 1197 C------------------------------------------------------------------- 1198 C*** 1199 c if(mype.eq.2.or.mype.eq.5) print*,'gotta be nearing the end' 1200 READ(LRSTRT)((TH10(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1201 1, ((Q10(I,J),I=MYIS,MYIE),J=MYJS,MYJE) Page 7 Source Listing READ_RESTRT2 2014-12-17 20:47 READ_RESTRT2.F 1202 2, ((U10(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1203 3, ((V10(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1204 4, ((TSHLTR(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1205 5, ((QSHLTR(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1206 6, ((PSHLTR(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1207 1, ((TH30(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1208 2, ((Q30(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1209 3, ((U30(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1210 4, ((V30(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1211 C------------------------------------------------------------------- 1212 C*** 1213 c if(mype.eq.2.or.mype.eq.5) print*,'Reading SMC' 1214 READ(LRSTRT)(((SMC(I,J,N),I=MYIS,MYIE),J=MYJS,MYJE),N=1,NSOIL) 1215 C------------------------------------------------------------------- 1216 C*** 1217 c if(mype.eq.2.or.mype.eq.5) print*,'Raading CMC' 1218 READ(LRSTRT)((CMC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1219 C------------------------------------------------------------------- 1220 C*** 1221 c if(mype.eq.2.or.mype.eq.5) print*,'Reading STC' 1222 READ(LRSTRT)(((STC(I,J,N),I=MYIS,MYIE),J=MYJS,MYJE),N=1,NSOIL) 1223 C------------------------------------------------------------------- 1224 C*** 1225 c if(mype.eq.2.or.mype.eq.5) print*,'Reading SH2O' 1226 c if(mype.eq.1) print*,'myis,myie,myjs,myje=',myis,myie,myjs,myje 1227 READ(LRSTRT)(((SH2O(I,J,N),I=MYIS,MYIE),J=MYJS,MYJE),N=1,NSOIL) 1228 c do n=1,nsoil 1229 c do j=myjs,myje 1230 c do i=myis,myie 1231 c print*,'i,j,n=',i,j,n 1232 c print*,'stc(i,j,n)=',stc(i,j,n) 1233 c print*,'sh2o(i,j,n)=',sh2o(i,j,n) 1234 c enddo 1235 c enddo 1236 c enddo 1237 C----------------------------------------------------------------------- 1238 C*** 1239 c if(mype.eq.2.or.mype.eq.5) print*,'Reading ALBEDO' 1240 READ(LRSTRT)((ALBEDO(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1241 C------------------------------------------------------------------- 1242 READ(LRSTRT)((FQU(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1243 2, ((FQV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1244 3, ((DQFLX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1245 4, ((FCU(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1246 5, ((FCV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1247 6, ((DCFLX(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1248 7, ((FQU7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1249 8, ((FQV7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1250 9, ((DQFLX7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1251 &, ((FCU7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1252 1, ((FCV7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1253 2, ((DCFLX7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1254 3, ((DQADV(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1255 4, ((FQNEV1(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1256 5, ((FQSEV1(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1257 C------------------------------------------------------------------- 1258 READ(LRSTRT)((VAPINC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) Page 8 Source Listing READ_RESTRT2 2014-12-17 20:47 READ_RESTRT2.F 1259 2, ((CLDINC(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1260 3, ((VAPINC7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1261 4, ((CLDINC7(I,J),I=MYIS,MYIE),J=MYJS,MYJE) 1262 C------------------------------------------------------------------- 1263 C*** CALL RADIATION TO OBTAIN THE SHORT AND LONGWAVE 1264 C*** TEMPERATURE TENDENCIES 1265 C*** 1266 C 1267 c CALL RADTN 1268 C 1269 C DONE READING RESTART FILES. 1270 C 1271 C END OF SUBROUTINE READ_RESTRT2 1272 C 1273 IF(MYPE.EQ.0)THEN 1274 WRITE(LIST,*)'INIT: EXIT READ_RESTRT2' 1275 WRITE(LIST,*)' ' 1276 ENDIF 1277 C 1278 RETURN 1279 END ENTRY POINTS Name read_restrt2_ Page 9 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 50 Label 154 153 55 Label 157 156 ACCLIQ Scalar 13 R(4) 4 2 17955 COM 336 ACFRCV Scalar 4 R(4) 4 2 17955 COM 342 ACFRST Scalar 5 R(4) 4 2 17955 COM 344 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 335 ACSNOM Scalar 4 R(4) 4 2 17955 COM 349 ACSNOW Scalar 4 R(4) 4 2 17955 COM 348 ACUTIM Scalar 3 R(4) 4 scalar COM 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 269 AKMS Scalar 7 R(4) 4 2 17955 COM 262 ALBASE Scalar 20 R(4) 4 2 17955 COM ALBEDO Scalar 21 R(4) 4 2 17955 COM 417 ALSL Scalar 7 R(4) 4 1 39 COM ALWIN Scalar 5 R(4) 4 2 17955 COM 368 ALWOUT Scalar 6 R(4) 4 2 17955 COM 369 ALWTOA Scalar 6 R(4) 4 2 17955 COM 370 APHTIM Scalar 8 R(4) 4 scalar COM APREC Scalar 3 R(4) 4 2 17955 COM ARATIM Scalar 3 R(4) 4 scalar COM ARDLW Scalar 3 R(4) 4 scalar COM 373 ARDSW Scalar 3 R(4) 4 scalar COM 373 ASRFC Scalar 3 R(4) 4 scalar COM 373 ASWIN Scalar 5 R(4) 4 2 17955 COM 365 ASWOUT Scalar 6 R(4) 4 2 17955 COM 366 ASWTOA Scalar 6 R(4) 4 2 17955 COM 367 AVCNVC Scalar 3 R(4) 4 scalar COM 373 AVRAIN Scalar 3 R(4) 4 scalar COM 373 BGROFF Scalar 5 R(4) 4 2 17955 COM 351 BOCO Common 2 1860144 CFRACH Scalar 4 R(4) 4 2 17955 COM 295 CFRACL Scalar 3 R(4) 4 2 17955 COM 275 CFRACM Scalar 4 R(4) 4 2 17955 COM 285 CI Scalar 6 R(4) 4 scalar COM CLDEFI Scalar 11 R(4) 4 2 17955 COM 291 CLDINC Scalar 6 R(4) 4 2 17955 COM 436 CLDINC7 Scalar 6 R(4) 4 2 17955 COM 438 CLDWTR Common 2 3447720 CMC Scalar 8 R(4) 4 2 17955 COM 395 CMLD Scalar 6 R(4) 4 scalar COM CNVBOT Scalar 18 R(4) 4 2 17955 COM Page 10 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References CNVCLD Common 2 287280 CNVTOP Scalar 18 R(4) 4 2 17955 COM CONTIN Common 2 12999420 CONTRL Local 79 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 294 CUPREC Scalar 13 R(4) 4 2 17955 COM 337 CURV Scalar 9 R(4) 4 2 17955 COM CWM Scalar 3 R(4) 4 3 807975 COM 231 CWMB Scalar 4 R(4) 4 3 77220 COM CZEN Scalar 16 R(4) 4 2 17955 COM 263 CZMEAN Scalar 23 R(4) 4 2 17955 COM 310 DCFLX Scalar 14 R(4) 4 2 17955 COM 424 DCFLX7 Scalar 16 R(4) 4 2 17955 COM 430 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 431 DQFLX Scalar 13 R(4) 4 2 17955 COM 421 DQFLX7 Scalar 15 R(4) 4 2 17955 COM 427 DS Scalar 6 R(4) 4 scalar COM DT Scalar 6 R(4) 4 scalar COM DTD Scalar 5 R(4) 4 scalar COM DTQ2 Scalar 5 R(4) 4 scalar COM 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 EPSR Scalar 13 R(4) 4 2 17955 COM 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 Page 11 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References FAD Scalar 13 R(4) 4 2 17955 COM 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 422 FCU7 Scalar 11 R(4) 4 2 17955 COM 428 FCV Scalar 9 R(4) 4 2 17955 COM 423 FCV7 Scalar 11 R(4) 4 2 17955 COM 429 FDIV Scalar 10 R(4) 4 2 17955 COM FILALL Local 79 CHAR 40 scalar FILCLD Local 80 CHAR 40 scalar FILMST Local 79 CHAR 40 scalar FILRAD Local 80 CHAR 40 scalar FILSFC Local 80 CHAR 40 scalar FILTKE Local 79 CHAR 40 scalar FILTMP Local 79 CHAR 40 scalar FILUNV Local 79 CHAR 40 scalar FIRST Scalar 74 L(4) 4 scalar COM 206,211 FIS Scalar 7 R(4) 4 2 17955 COM 215 FQNEV Scalar 2 R(4) 4 2 17955 COM FQNEV1 Scalar 19 R(4) 4 2 17955 COM 432 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 433 FQSEV7 Scalar 3 R(4) 4 2 17955 COM FQU Scalar 8 R(4) 4 2 17955 COM 419 FQU7 Scalar 10 R(4) 4 2 17955 COM 425 FQV Scalar 8 R(4) 4 2 17955 COM 420 FQV7 Scalar 10 R(4) 4 2 17955 COM 426 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GET_ENVIRONMENT_VARIABLE Intrin 150 150 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 303 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 274 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 284 I Local 191 I(4) 4 scalar 191,213,214,215,225,226,227,228,22 9,231,232,233,258,259,260,261,262, 263,269,270,271,272,273,274,275,27 9,280,281,282,283,284,285,289,290, 291,292,293,294,295,299,300,301,30 2,303,304,308,309,310,311,314,316, Page 12 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References 317,334,335,336,337,342,343,344,34 5,348,349,350,351,355,356,357,358, 359,360,361,365,366,367,368,369,37 0,377,378,379,380,381,382,383,384, 385,386,387,391,395,399,404,417,41 9,420,421,422,423,424,425,426,427, 428,429,430,431,432,433,435,436,43 7,438 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 180,206,257,333 IDATB Local 88 I(4) 4 1 3 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,83 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,83 IDTAD Scalar 6 I(4) 4 scalar COM IER Local 168 I(4) 4 scalar 168,169 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 180,206,257,333 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,65 ,66,85 IMJM Param 65 I(4) 4 scalar IMT Param 66 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 206 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 ISHDE Scalar 4 I(4) 4 1 99 COM ISLOPE Scalar 7 I(4) 4 2 17955 COM Page 13 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References ISLTYP Scalar 6 I(4) 4 2 17955 COM ISTAT Local 122 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 ITAG Scalar 3 I(4) 4 scalar COM 145,153,156 ITAIL Param 16 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 10,25 ITBQ Param 1 I(4) 4 scalar 11,25 ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITSTLOC Scalar 4 I(4) 4 scalar COM IVE Scalar 4 I(4) 4 1 399 COM IVEG Scalar 9 I(4) 4 1 387 COM IVGTYP Scalar 6 I(4) 4 2 17955 COM IVHA Scalar 3 I(4) 4 1 760 COM IVLA Scalar 3 I(4) 4 1 760 COM IVW Scalar 4 I(4) 4 1 399 COM IVWG Scalar 9 I(4) 4 1 387 COM IXM Scalar 3 I(4) 4 scalar COM IYM Scalar 3 I(4) 4 scalar COM J Local 191 I(4) 4 scalar 191,213,214,215,225,226,227,228,22 9,231,232,233,258,259,260,261,262, 263,269,270,271,272,273,274,275,27 9,280,281,282,283,284,285,289,290, 291,292,293,294,295,299,300,301,30 2,303,304,308,309,310,311,314,316, 317,334,335,336,337,342,343,344,34 5,348,349,350,351,355,356,357,358, 359,360,361,365,366,367,368,369,37 0,377,378,379,380,381,382,383,384, 385,386,387,391,395,399,404,417,41 9,420,421,422,423,424,425,426,427, 428,429,430,431,432,433,435,436,43 7,438 JAM Param 65 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,83 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,83 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,65 ,85 JMP1 Param 65 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 Page 14 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 190 I(4) 4 scalar 190,191,224,225,226,227,228,229,23 1,232,233 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LABEL Local 77 CHAR 32 scalar 180,206,257,333 LB Param 65 I(4) 4 scalar 3,4 LC Scalar 5 I(4) 4 2 17955 COM 316 LIST Scalar 5 I(4) 4 scalar COM 137,169,451,452 LM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,21,52,66,190,224 LM1 Param 66 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 66 I(4) 4 scalar 4,8,9 LRSTRT Scalar 3 I(4) 4 scalar COM 165,167,168,180,183,191,206,213,21 8,225,226,227,228,229,230,231,232, 233,257,269,279,289,299,308,314,33 3,342,348,355,365,373,377,391,395, 399,404,417,419,435 LSL Scalar 3 I(4) 4 scalar COM LSM Param 3 I(4) 4 scalar 7 MAPOT Common 2 1732 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MAX Func 182 scalar 182,210,265,339 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 Page 15 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 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 Page 16 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar 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 Page 17 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar 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 Page 18 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar 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 Page 19 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,122 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar 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 191,213,214,215,225,226,227,228,22 9,231,232,233,258,259,260,261,262, 263,269,270,271,272,273,274,275,27 9,280,281,282,283,284,285,289,290, 291,292,293,294,295,299,300,301,30 2,303,304,308,309,310,311,314,316, 317,334,335,336,337,342,343,344,34 5,348,349,350,351,355,356,357,358, 359,360,361,365,366,367,368,369,37 0,377,378,379,380,381,382,383,384, Page 20 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References 385,386,387,391,395,399,404,417,41 9,420,421,422,423,424,425,426,427, 428,429,430,431,432,433,435,436,43 7,438 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 191,213,214,215,225,226,227,228,22 9,231,232,233,258,259,260,261,262, 263,269,270,271,272,273,274,275,27 9,280,281,282,283,284,285,289,290, 291,292,293,294,295,299,300,301,30 2,303,304,308,309,310,311,314,316, 317,334,335,336,337,342,343,344,34 5,348,349,350,351,355,356,357,358, 359,360,361,365,366,367,368,369,37 0,377,378,379,380,381,382,383,384, 385,386,387,391,395,399,404,417,41 9,420,421,422,423,424,425,426,427, 428,429,430,431,432,433,435,436,43 7,438 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 191,213,214,215,225,226,227,228,22 9,231,232,233,258,259,260,261,262, 263,269,270,271,272,273,274,275,27 9,280,281,282,283,284,285,289,290, 291,292,293,294,295,299,300,301,30 2,303,304,308,309,310,311,314,316, 317,334,335,336,337,342,343,344,34 5,348,349,350,351,355,356,357,358, 359,360,361,365,366,367,368,369,37 0,377,378,379,380,381,382,383,384, 385,386,387,391,395,399,404,417,41 9,420,421,422,423,424,425,426,427, 428,429,430,431,432,433,435,436,43 7,438 Page 21 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 191,213,214,215,225,226,227,228,22 9,231,232,233,258,259,260,261,262, 263,269,270,271,272,273,274,275,27 9,280,281,282,283,284,285,289,290, 291,292,293,294,295,299,300,301,30 2,303,304,308,309,310,311,314,316, 317,334,335,336,337,342,343,344,34 5,348,349,350,351,355,356,357,358, 359,360,361,365,366,367,368,369,37 0,377,378,379,380,381,382,383,384, 385,386,387,391,395,399,404,417,41 9,420,421,422,423,424,425,426,427, 428,429,430,431,432,433,435,436,43 7,438 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 Page 22 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 137,153,156,450 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 MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM N Local 391 I(4) 4 scalar 391,399,404 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 343 NCFRST Scalar 5 I(4) 4 2 17955 COM 345 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 NHEAT Scalar 3 I(4) 4 scalar COM 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 206 NSOIL Param 1 I(4) 4 scalar 8,9,10,85,391,399,404 NSRFC Scalar 3 I(4) 4 scalar COM NSTART Scalar 6 I(4) 4 scalar COM NTDDMP Scalar 6 I(4) 4 scalar COM NTSD Scalar 6 I(4) 4 scalar COM 180,182,206,210,257,265,333,339 NTSTM Scalar 6 I(4) 4 scalar COM OMGALF Scalar 5 R(4) 4 3 807975 COM 191 OUTFIL Common 3 58 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 304 PD Scalar 3 R(4) 4 2 17955 COM 213 Page 23 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References PDB Scalar 3 R(4) 4 2 1716 COM PDOMG Local 183 R(4) 4 scalar 183 PDSL Scalar 3 R(4) 4 2 17955 COM PHOUR Scalar 2 R(4) 4 2 17955 COM PHYS Common 4 1788916 PL Scalar 7 R(4) 4 scalar COM PLQ Scalar 8 R(4) 4 scalar COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar POTEVP Scalar 7 R(4) 4 2 17955 COM 361 POTFLX Scalar 7 R(4) 4 2 17955 COM PPTASM Common 1 3878292 PPTDAT Scalar 3 R(4) 4 3 53865 COM PREC Scalar 12 R(4) 4 2 17955 COM 334 PSDT Scalar 3 R(4) 4 2 17955 COM PSHLTR Scalar 19 R(4) 4 2 17955 COM 383 PSLP Local 83 R(4) 4 2 17955 293 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 226 Q10 Scalar 16 R(4) 4 2 17955 COM 378 Q2 Scalar 21 R(4) 4 3 807975 COM 229 Q2B Scalar 4 R(4) 4 3 77220 COM Q30 Scalar 14 R(4) 4 2 17955 COM 385 QB Scalar 3 R(4) 4 3 77220 COM QFLX Common 1 5027400 QOLD Scalar 21 R(4) 4 3 807975 COM QS Scalar 6 R(4) 4 2 17955 COM 271 QS0 Scalar 10 R(4) 4 1 134 COM QSHLTR Scalar 18 R(4) 4 2 17955 COM 382 QWBS Scalar 9 R(4) 4 2 17955 COM 273 QZ0 Scalar 5 R(4) 4 2 17955 COM 280 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 309 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_RESTRT2 Subr 2 RES Scalar 7 R(4) 4 2 17955 COM 214 RESOMG Local 183 R(4) 4 scalar 183 RESTHR Local 77 CHAR 4 scalar 150,152,156 RESTRT Scalar 74 L(4) 4 scalar COM RF Scalar 8 R(4) 4 2 17955 COM 292 RLWIN Scalar 4 R(4) 4 2 17955 COM 308 RLWOUT Scalar 4 R(4) 4 2 17955 COM RLWTOA Scalar 5 R(4) 4 2 17955 COM Page 24 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References RLWTT Scalar 7 R(4) 4 3 807975 COM ROI Scalar 6 R(4) 4 scalar COM ROS Scalar 6 R(4) 4 scalar COM RSTFIL Scalar 2 CHAR 50 scalar COM 153,156,159,168 RSWIN Scalar 4 R(4) 4 2 17955 COM 258 RSWOUT Scalar 4 R(4) 4 2 17955 COM 259 RSWTOA Scalar 5 R(4) 4 2 17955 COM RSWTT Scalar 7 R(4) 4 3 807975 COM RTDPTH Scalar 10 R(4) 4 1 4 COM RTOP Scalar 4 R(4) 4 3 807975 COM RUN Scalar 74 L(4) 4 scalar COM 180,206,257,333 RUNB Local 74 L(4) 4 scalar SBD Scalar 6 R(4) 4 scalar COM SFCEVP Scalar 6 R(4) 4 2 17955 COM 360 SFCEXC Scalar 3 R(4) 4 2 17955 COM 300 SFCLHX Scalar 4 R(4) 4 2 17955 COM 356 SFCSHX Scalar 4 R(4) 4 2 17955 COM 355 SFCUVX Scalar 6 R(4) 4 2 17955 COM 359 SH2O Scalar 10 R(4) 4 3 71820 COM 404 SI Scalar 10 R(4) 4 2 17955 COM 290 SICE Scalar 4 R(4) 4 2 17955 COM SIGMA Scalar 74 L(4) 4 scalar COM SIGT4 Scalar 23 R(4) 4 2 17955 COM 311 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 391 SMSTAV Scalar 4 R(4) 4 2 17955 COM 301 SMSTOT Scalar 4 R(4) 4 2 17955 COM 302 SNO Scalar 10 R(4) 4 2 17955 COM 289 SNOPCX Scalar 5 R(4) 4 2 17955 COM 358 SOIL Common 2 1651892 SOILTB Scalar 3 R(4) 4 2 17955 COM 299 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 317 SSROFF Scalar 5 R(4) 4 2 17955 COM 350 SST Scalar 20 R(4) 4 2 17955 COM STC Scalar 9 R(4) 4 3 71820 COM 399 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 357 T Scalar 5 R(4) 4 3 807975 COM 225 TB Scalar 3 R(4) 4 3 77220 COM TCLOD Scalar 3 R(4) 4 scalar COM TCUCN Scalar 5 R(4) 4 3 807975 COM 233 TDTD Scalar 5 R(4) 4 scalar COM TDTQ2 Scalar 5 R(4) 4 scalar COM TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM Page 25 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TEMPSOIL Local 85 R(4) 4 3 366876 TG Scalar 19 R(4) 4 2 17955 COM 260 TH10 Scalar 16 R(4) 4 2 17955 COM 377 TH30 Scalar 14 R(4) 4 2 17955 COM 384 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 270 THZ0 Scalar 5 R(4) 4 2 17955 COM 279 TLAT Scalar 2 R(4) 4 3 807975 COM TLM0D Scalar 6 R(4) 4 scalar COM TOPO Common 50 17478548 TPH0D Scalar 6 R(4) 4 scalar COM TPREC Scalar 3 R(4) 4 scalar COM TRAIN Scalar 4 R(4) 4 3 807975 COM 232 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 381 TSPH Scalar 5 R(4) 4 scalar COM TSRFC Scalar 3 R(4) 4 scalar COM TTBL Scalar 25 R(4) 4 2 10184 COM TTBLQ Scalar 25 R(4) 4 2 66880 COM TTVG Scalar 51 R(4) 4 2 92971 COM TWBS Scalar 9 R(4) 4 2 17955 COM 272 U Scalar 5 R(4) 4 3 807975 COM 227 U00 Scalar 3 R(4) 4 2 17955 COM 314 U10 Scalar 17 R(4) 4 2 17955 COM 379 U30 Scalar 15 R(4) 4 2 17955 COM 386 UB Scalar 3 R(4) 4 3 77220 COM UL Scalar 4 R(4) 4 1 90 COM 315 USTAR Scalar 3 R(4) 4 2 17955 COM 283 UZ0 Scalar 4 R(4) 4 2 17955 COM 281 V Scalar 6 R(4) 4 3 807975 COM 228 V10 Scalar 17 R(4) 4 2 17955 COM 380 V30 Scalar 15 R(4) 4 2 17955 COM 387 VAPINC Scalar 5 R(4) 4 2 17955 COM 435 VAPINC7 Scalar 5 R(4) 4 2 17955 COM 437 VB Scalar 3 R(4) 4 3 77220 COM VBM2 Scalar 3 R(4) 4 2 17955 COM VBM3 Scalar 3 R(4) 4 2 17955 COM Page 26 Source Listing READ_RESTRT2 2014-12-17 20:47 Symbol Table READ_RESTRT2.F Name Object Declared Type Bytes Dimen Elements Attributes References VEGFRC Scalar 7 R(4) 4 2 17955 COM VRBLS Common 2 13143060 VTM Scalar 7 R(4) 4 3 807975 COM VZ0 Scalar 4 R(4) 4 2 17955 COM 282 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 261 Z0SLP Scalar 7 R(4) 4 scalar COM Page 27 Source Listing READ_RESTRT2 2014-12-17 20:47 Subprograms/Common Blocks READ_RESTRT2.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 OUTFIL Common 3 58 PHYS Common 4 1788916 PPTASM Common 1 3878292 PVRBLS Common 2 5530140 QFLX Common 1 5027400 READ_RESTRT2 Subr 2 SOIL Common 2 1651892 TEMPCOM Common 42 6603768 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 -assume nofpe_summary -assume noieee_fpe_flags Page 28 Source Listing READ_RESTRT2 2014-12-17 20:47 READ_RESTRT2.F -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 -heap_arrays 0 no -threadprivate_compat Page 29 Source Listing READ_RESTRT2 2014-12-17 20:47 READ_RESTRT2.F -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_RESTRT2.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100