Page 1 Source Listing READICE
2025-03-12 18:22 /tmp/ifortBF1DJ8.i
1 # 1 "READICE.F"
2 SUBROUTINE READICE
3 C
4 C THIS SUBROUTINE READS IN THE AIR FORCE SNOWDEPTH ON THE 32-KM ETA
5 C GRID AND DISTRIBUTES TO ALL THE NODES TO COMPARE WITH THE EDAS
6 C SNOW TO BE READ IN VIA READ_RESTRT2.
7 C
8 C IT WILL ALSO READ IN THE SEA-ICE, THE SSTs, THE ALBEDO, AND
9 C THE GREENNESS FRACTION.
10 C
11 C PERRY SHAFRAN - 27 NOVEMBER 2002
12 C
13 INCLUDE "parmeta"
36 INCLUDE "parm.tbl"
38 INCLUDE "parmsoil"
40 INCLUDE "mpp.h"
41
100 P A R A M E T E R
101 & (LP1=LM+1,JAM=6+2*(JM-10))
102
103 INCLUDE "PVRBLS.comm"
133 INCLUDE "CTLBLK.comm"
143 INCLUDE "PHYS.comm"
171 INCLUDE "SOIL.comm"
184 INCLUDE "MASKS.comm"
185
196 INTEGER*2 IYR
197 LOGICAL*1 BIT(IM,JM)
198 INTEGER JPDS(25), JGDS(22), KGDS(22), KPDS(25)
199
200 IF (MYPE.EQ.0) THEN
201 WRITE(*,*) " ********************************* "
202 WRITE(*,*) " READ NEW SICE "
203 WRITE(*,*) " READ NEW SICE "
204 WRITE(*,*) " ********************************* "
205 END IF
206 C
207 C
208 C READ IN THE SEA-ICE.
209 C
210 IF(MYPE.EQ.0) THEN
211 call baopenr(43,'fort.43',iret)
212 write(0,*) 'baopenr on unit43', ' iret=', iret
213 JPDS=-1
214 IF(IDAT(3).GE.2000) THEN
215 IYR=2000-IDAT(3)
216 ELSE
217 IYR=IDAT(3)-1900
218 ENDIF
219 JPDS(8)=IYR
220 JPDS(9)=IDAT(1)
221 JPDS(10)=IDAT(2)
222 CALL GETGB(43,0,IM*JM,0,JPDS,JGDS,KF,K,KPDS,KGDS,BIT,TEMP1,IRET)
223 WRITE(0,11) iret,kf,kpds(5),
224 & (kpds(21)*100+kpds(8))/100-1, mod(kpds(8),100),kpds(9),
225 & kpds(10)
226 11 FORMAT('iret=',i3,' kf=', i6,' fld=', i3,
Page 2 Source Listing READICE
2025-03-12 18:22 READICE.F
227 & 2x,'SEA ICE',1x, 4i2.2)
228 IF (IRET.NE.0) THEN
229 WRITE(0,*)"JPDS(8),JPDS(9),JPDS(10)",JPDS(8),JPDS(9),JPDS(10)
230 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR)
231 STOP
232 END IF
233 ENDIF
234 C
235 C DISTRIBUTE SEA ICE TO ALL THE NODES
236 C
237 CALL DSTRB(TEMP1,SICE,1,1,1)
238 C
239
240 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE)
241 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE)
242 IF (SICE(I,J).GT.0.5) SM(I,J)=0.0
243 END DO
244 END DO
245
246 DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE)
247 DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE)
248 IF (SM(I,J).GT.0.5) ALBEDO(I,J)=0.06
249 END DO
250 END DO
251
252 RETURN
253 END
ENTRY POINTS
Name
readice_
Page 3 Source Listing READICE
2025-03-12 18:22 Symbol Table READICE.F
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
11 Label 226 223
BAOPENR Subr 211 211
BIT Local 197 L(1) 1 2 91719 222
CTLBLK Common 137 112 SAVE
DSTRB Subr 237 237
GETGB Subr 222 222
GLB_TABLE Common 78 128 SAVE
I Local 241 I(4) 4 scalar 241,242,247,248
IDIM1 Param 32 I(4) 4 scalar 106,107,108,109,110,111,112,113,11
4,115,116,117,118,119,120,121,122,
124,129,156,157,158,159,160,161,16
2,163,164,165,166,174,175,176,177,
178,179,180,181,188,189,191,192,19
3
IDIM2 Param 32 I(4) 4 scalar 106,107,108,109,110,111,112,113,11
4,115,116,117,118,119,120,121,122,
124,129,156,157,158,159,160,161,16
2,163,164,165,166,174,175,176,177,
178,179,180,181,188,189,191,192,19
3
IERR Local 230 I(4) 4 scalar 230
IGSTL Param 27 I(4) 4 scalar 32
IGSTR Param 27 I(4) 4 scalar 32
IM Param 16 I(4) 4 scalar 29,32,84,85,86,87,88,92,93,98,197,
222
INPES Param 24 I(4) 4 scalar 29,32,68,69,70,79,80
IRET Local 211 I(4) 4 scalar 211,212,222,223,228
ITAIL Param 29 I(4) 4 scalar
ITB Param 37 I(4) 4 scalar 153,168
ITBQ Param 37 I(4) 4 scalar 154,168
IYR Local 196 I(2) 2 scalar 215,217,219
J Local 240 I(4) 4 scalar 240,242,246,248
JAM Param 101 I(4) 4 scalar
JDIM1 Param 33 I(4) 4 scalar 106,107,108,109,110,111,112,113,11
4,115,116,117,118,119,120,121,122,
124,129,156,157,158,159,160,161,16
2,163,164,165,166,174,175,176,177,
178,179,180,181,188,189,191,192,19
3
JDIM2 Param 33 I(4) 4 scalar 106,107,108,109,110,111,112,113,11
4,115,116,117,118,119,120,121,122,
124,129,156,157,158,159,160,161,16
2,163,164,165,166,174,175,176,177,
178,179,180,181,188,189,191,192,19
3
JGDS Local 198 I(4) 4 1 22 222
JGSTL Param 28 I(4) 4 scalar 33
JGSTR Param 28 I(4) 4 scalar 33
JM Param 16 I(4) 4 scalar 30,33,84,85,86,87,88,92,93,98,101,
197,222
JNPES Param 24 I(4) 4 scalar 30,33,68,69,70,79,80
Page 4 Source Listing READICE
2025-03-12 18:22 Symbol Table READICE.F
Name Object Declared Type Bytes Dimen Elements Attributes References
JPDS Local 198 I(4) 4 1 25 213,219,220,221,222,229
JTAIL Param 30 I(4) 4 scalar
JTB Param 37 I(4) 4 scalar 153,168
JTBQ Param 37 I(4) 4 scalar 168
K Local 222 I(4) 4 scalar 222
KF Local 222 I(4) 4 scalar 222,223
KGDS Local 198 I(4) 4 1 22 222
KPDS Local 198 I(4) 4 1 25 222,223,224,225
LM Param 16 I(4) 4 scalar 93,101,124,152,191,192
LP1 Param 101 I(4) 4 scalar 152
LSM Param 16 I(4) 4 scalar
MAPPINGS Common 97 5024 SAVE
MASKS Common 187 6894720 SAVE
MOD Func 224 scalar 224
MPI_ABORT Subr 230 230
MPI_COMM_WORLD Local 230 I(4) 4 scalar 230
MPPCOM Common 42 1464 SAVE
NROOT Param 39 I(4) 4 scalar
NSOIL Param 39 I(4) 4 scalar 179,180,181
PHYS Common 147 1788916 SAVE
PVRBLS Common 105 5530140 SAVE
READICE Subr 2
SINGLRST Local 135 L(4) 4 scalar
SOIL Common 173 1651892 SAVE
TEMPCOM Common 83 6603768 SAVE
TOPO Common 91 17478548 SAVE
TYPE COMPONENTS/COMMON VARIABLES
Name Type Bytes Offset Dimen Elements Attributes References
ACCLIQ R(4) 4 1292760 2 17955 COM
ACPREC R(4) 4 1220940 2 17955 COM
AETA R(4) 4 264 1 45 COM
AFSI R(4) 4 5458320 2 17955 COM
AKHS R(4) 4 646380 2 17955 COM
AKMS R(4) 4 574560 2 17955 COM
ALBASE R(4) 4 1009004 2 17955 COM
ALBEDO R(4) 4 1080824 2 17955 COM 248
CI R(4) 4 40 scalar COM
CLDEFI R(4) 4 1077300 2 17955 COM
CMC R(4) 4 718200 2 17955 COM
CNVBOT R(4) 4 721724 2 17955 COM
CNVTOP R(4) 4 649904 2 17955 COM
CS R(4) 4 28 scalar COM
CUPREC R(4) 4 1364580 2 17955 COM
CZEN R(4) 4 434444 2 17955 COM
CZMEAN R(4) 4 1296284 2 17955 COM
DETA R(4) 4 84 1 45 COM
DFRLG R(4) 4 444 1 46 COM
DI R(4) 4 44 scalar COM
DS R(4) 4 32 scalar COM
DT R(4) 4 48 scalar COM
DTD R(4) 4 16 scalar COM
Page 5 Source Listing READICE
2025-03-12 18:22 Symbol Table READICE.F
Name Type Bytes Offset Dimen Elements Attributes References
DTQ2 R(4) 4 8 scalar COM
EPSR R(4) 4 75344 2 17955 COM
FIRST R(4) 4 24 scalar COM
G2LI I(4) 4 0 1 239 COM
G2LJ I(4) 4 1912 1 389 COM
GFFC R(4) 4 865364 2 17955 COM
GLAT R(4) 4 290804 2 17955 COM
GLON R(4) 4 362624 2 17955 COM
GRNFLX R(4) 4 287280 2 17955 COM
HBM2 R(4) 4 6751080 2 17955 COM
HBM3 R(4) 4 6822900 2 17955 COM
HBOT R(4) 4 578084 2 17955 COM
HDAC R(4) 4 1152644 2 17955 COM
HDACV R(4) 4 1224464 2 17955 COM
HTM R(4) 4 287280 3 807975 COM
HTMG R(4) 4 743768 3 4183695 COM
HTOP R(4) 4 506264 2 17955 COM
IBROW I(4) 4 404 scalar COM
ICHUNKTAB I(4) 4 620 1 8 COM
IDAT I(4) 4 8 1 3 COM 214,215,217,220,221
IDTAD I(4) 4 72 scalar COM
IE_GLB_TABLE I(4) 4 32 1 8 COM
IE_LOC_TABLE I(4) 4 556 1 8 COM 241,247
IHRST I(4) 4 20 scalar 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 1064 1 100 COM
IOUT I(4) 4 44 scalar COM
IQUILT_GROUP I(4) 4 1060 scalar 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
ISLOPE I(4) 4 574560 2 17955 COM
ISLTYP I(4) 4 502740 2 17955 COM
IS_GLB_TABLE I(4) 4 0 1 8 COM
IS_LOC_TABLE I(4) 4 492 1 8 COM 241,247
ITEMP I(4) 4 5870016 2 91719 COM
ITEMP2 I(4) 4 6236892 2 91719 COM
ITROW I(4) 4 408 scalar COM
IVGTYP I(4) 4 430920 2 17955 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
JE_GLB_TABLE I(4) 4 96 1 8 COM
JE_LOC_TABLE I(4) 4 588 1 8 COM 240,246
JS_GLB_TABLE I(4) 4 64 1 8 COM
Page 6 Source Listing READICE
2025-03-12 18:22 Symbol Table READICE.F
Name Type Bytes Offset Dimen Elements Attributes References
JS_LOC_TABLE I(4) 4 524 1 8 COM 240,246
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
KTM I(4) 4 0 scalar COM
L2GI I(4) 4 956 1 239 COM
L2GJ I(4) 4 3468 1 389 COM
LIST I(4) 4 40 scalar COM
MPI_COMM_COMP I(4) 4 652 scalar COM
MPI_COMM_INTER I(4) 4 656 scalar COM
MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM
MXSNAL R(4) 4 3524 2 17955 COM
MYIE I(4) 4 52 scalar COM
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
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
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
Page 7 Source Listing READICE
2025-03-12 18:22 Symbol Table READICE.F
Name Type Bytes Offset Dimen Elements Attributes References
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
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
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 200,210,240,241,246,247
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
NCNVC I(4) 4 92 scalar COM
NCP I(4) 4 84 scalar COM
NEST I(4) 4 108 scalar COM
Page 8 Source Listing READICE
2025-03-12 18:22 Symbol Table READICE.F
Name Type Bytes Offset Dimen Elements Attributes References
NFCST I(4) 4 32 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
NSHDE I(4) 4 80 scalar COM
NSTART I(4) 4 60 scalar COM
NTDDMP I(4) 4 64 scalar COM
NTSD I(4) 4 52 scalar COM
NTSTM I(4) 4 56 scalar COM
PCTSNO R(4) 4 359100 2 17955 COM
PL R(4) 4 48 scalar COM
PLQ R(4) 4 72 scalar COM
PREC R(4) 4 1149120 2 17955 COM
PSHLTR R(4) 4 2154600 2 17955 COM
PT R(4) 4 4 scalar COM
PTBL R(4) 4 1439924 2 10184 COM
Q10 R(4) 4 1795500 2 17955 COM
Q2 R(4) 4 2226420 3 807975 COM
Q30 R(4) 4 1508220 2 17955 COM
QS R(4) 4 502740 2 17955 COM
QS0 R(4) 4 628 1 134 COM
QSHLTR R(4) 4 2082780 2 17955 COM
QWBS R(4) 4 861840 2 17955 COM
QZ0 R(4) 4 359100 2 17955 COM
RADIN R(4) 4 147164 2 17955 COM
RADOT R(4) 4 218984 2 17955 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
RESTRT R(4) 4 28 scalar COM
RF R(4) 4 718200 2 17955 COM
ROI R(4) 4 36 scalar COM
ROS R(4) 4 24 scalar COM
RTDPTH R(4) 4 1364596 1 4 COM
RUN R(4) 4 4 scalar COM
SFCEXC R(4) 4 71820 2 17955 COM
SH2O R(4) 4 1364612 3 71820 COM
SI R(4) 4 1005480 2 17955 COM
SICE R(4) 4 215460 2 17955 COM 237,242
SIGMA R(4) 4 0 scalar COM
SIGT4 R(4) 4 1368104 2 17955 COM
SLDPTH R(4) 4 1364580 1 4 COM
SM R(4) 4 143640 2 17955 COM 242,248
SMC R(4) 4 790020 3 71820 COM
SMSTAV R(4) 4 143640 2 17955 COM
SMSTOT R(4) 4 215460 2 17955 COM
SNO R(4) 4 933660 2 17955 COM
SOILTB R(4) 4 0 2 17955 COM
SQS R(4) 4 1164 1 134 COM
SST R(4) 4 937184 2 17955 COM
Page 9 Source Listing READICE
2025-03-12 18:22 Symbol Table READICE.F
Name Type Bytes Offset Dimen Elements Attributes References
STC R(4) 4 1077300 3 71820 COM
STHE R(4) 4 2004 1 76 COM
STHEQ R(4) 4 2916 1 152 COM
SUBPOST L(4) 4 104 scalar COM
TDTD R(4) 4 20 scalar COM
TDTQ2 R(4) 4 12 scalar COM
TEMP1 R(4) 4 0 2 91719 COM 222,237
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 793544 2 17955 COM
TH10 R(4) 4 1723680 2 17955 COM
TH30 R(4) 4 1436400 2 17955 COM
THE0 R(4) 4 1700 1 76 COM
THE0Q R(4) 4 2308 1 152 COM
THL R(4) 4 52 scalar COM
THS R(4) 4 430920 2 17955 COM
THZ0 R(4) 4 287280 2 17955 COM
TSHLTR R(4) 4 2010960 2 17955 COM
TTBL R(4) 4 1480660 2 10184 COM
TTBLQ R(4) 4 1521396 2 66880 COM
TTVG R(4) 4 371884 2 92971 COM
TWBS R(4) 4 790020 2 17955 COM
U10 R(4) 4 1867320 2 17955 COM
U30 R(4) 4 1580040 2 17955 COM
USTAR R(4) 4 71820 2 17955 COM
UZ0 R(4) 4 143640 2 17955 COM
V10 R(4) 4 1939140 2 17955 COM
V30 R(4) 4 1651860 2 17955 COM
VBM2 R(4) 4 0 2 17955 COM
VBM3 R(4) 4 71820 2 17955 COM
VEGFRC R(4) 4 646380 2 17955 COM
VTM R(4) 4 3519180 3 807975 COM
VZ0 R(4) 4 215460 2 17955 COM
Z0 R(4) 4 0 2 17955 COM
Page 10 Source Listing READICE
2025-03-12 18:22 Subprograms/Common Blocks READICE.F
SUBPROGRAMS/COMMON BLOCKS
Name Object Declared Type Bytes Dimen Elements Attributes References
CTLBLK Common 137 112 SAVE
GLB_TABLE Common 78 128 SAVE
MAPPINGS Common 97 5024 SAVE
MASKS Common 187 6894720 SAVE
MPPCOM Common 42 1464 SAVE
PHYS Common 147 1788916 SAVE
PVRBLS Common 105 5530140 SAVE
READICE Subr 2
SOIL Common 173 1651892 SAVE
TEMPCOM Common 83 6603768 SAVE
TOPO Common 91 17478548 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
-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
Page 11 Source Listing READICE
2025-03-12 18:22 READICE.F
-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
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
Page 12 Source Listing READICE
2025-03-12 18:22 READICE.F
-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 : READICE.lst
no -o
COMPILER: Intel(R) Fortran 19.1-1655