Page 1 Source Listing FRZLVL2
2025-03-12 18:23 FRZLVL2.f
1 SUBROUTINE FRZLVL2(ZFRZ,RHFRZ)
2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK
3 C . . .
4 C SUBPROGRAM: FRZLVL COMPUTES FRZING LVL Z AND RH
5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22
6 C
7 C ABSTRACT:
8 C THIS ROUTINE COMPUTES THE FREEZING LEVEL HEIGHT AND RELATIVE
9 C HUMIDITY AT THIS LEVEL FOR EACH MASS POINT ON THE ETA GRID.
10 C THE COMPUTED FREEZING LEVEL HEIGHT IS THE MEAN SEA LEVEL
11 C HEIGHT. AT EACH MASS POINT WE MOVE UP FROM THE SURFACE TO
12 C FIND THE LAST ETA LAYER WHERE THE TEMPERATURE IS LESS THAN
13 C 273.16K AND THE TEMP IN THE LAYER BELOW IS ABOVE 273.16K.
14 C VERTICAL INTERPOLATION IN TEMPERATURE TO THE FREEZING
15 C TEMPERATURE GIVES THE FREEZING LEVEL HEIGHT. PRESSURE AND
16 C SPECIFIC HUMIDITY ARE INTERPOLATED TO THIS LEVEL AND ALONG WITH
17 C THE TEMPERATURE PROVIDE THE FREEZING LEVEL RELATIVE HUMIDITY.
18 C IF THE ENTIRE ATMOSPHERE IS BELOW FREEZING, THE ROUTINE
19 C USES SURFACE BASED FIELDS TO COMPUTE THE RELATIVE HUMIDITY.
20 C
21 C NOTE THAT IN POSTING FREEZING LEVEL DATA THE LFM LOOK-ALIKE FILE
22 C (IE, GRID 26), WE PACK 273.15K AS THE FREEZING TEMPERATURE. ALL
23 C OTHER OUTPUT GRIDS USE 273.16K
24 C .
25 C
26 C PROGRAM HISTORY LOG:
27 C 92-12-22 RUSS TREADON
28 C 93-06-10 RUSS TREADON - CORRECTED FREEZING LEVEL HEIGHTS TO BE
29 C WITH REPSECT TO MEAN SEA LEVEL, NOT
30 C ABOVE GROUND LEVEL.
31 C 95-03-10 MIKE BALDWIN - GET HIGHEST FREEZING LEVEL.
32 C 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D
33 C 98-08-17 MIKE BALDWIN - COMPUTE RH OVER ICE IF NECESSARY
34 C 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE
35 C 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE
36 C 00-01-04 JIM TUCCILLO - MPI VERSION
37 C
38 C USAGE: CALL FRZLVL(ZFRZ,RHFRZ)
39 C INPUT ARGUMENT LIST:
40 C NONE
41 C
42 C OUTPUT ARGUMENT LIST:
43 C ZFRZ - ABOVE GROUND LEVEL FREEZING HEIGHT.
44 C RHFRZ - RELATIVE HUMIDITY AT FREEZING LEVEL.
45 C
46 C OUTPUT FILES:
47 C NONE
48 C
49 C SUBPROGRAMS CALLED:
50 C UTILITIES:
51 C NONE
52 C LIBRARY:
53 C COMMON - VRBLS
54 C LOOPS
55 C EXTRA
56 C PVRBLS
57 C MASKS
Page 2 Source Listing FRZLVL2
2025-03-12 18:23 FRZLVL2.f
58 C MAPOT
59 C POSTVAR
60 C
61 C ATTRIBUTES:
62 C LANGUAGE: FORTRAN
63 C MACHINE : CRAY C-90
64 C$$$
65 C
66 C
67 C INCLUDE/SET PARAMETERS.
68 INCLUDE "parmeta"
86 INCLUDE "params"
87 C
88 C DECLARE VARIABLES.
89 C
131 REAL RHFRZ(IM,JM),ZFRZ(IM,JM),IWSFC(IM,JM),IWM1(IM,JM)
132 C
133 C INCLUDE COMMON BLOCKS.
134 INCLUDE "VRBLS.comm"
141 INCLUDE "CLDWTR.comm"
147 INCLUDE "LOOPS.comm"
155 INCLUDE "EXTRA.comm"
167 INCLUDE "PVRBLS.comm"
179 INCLUDE "MASKS.comm"
187 INCLUDE "MAPOT.comm"
200 INCLUDE "CTLBLK.comm"
201 C
202 C*********************************************************************
203 C START FRZLVL.
204 C
205 C
206 C COMPUTE IW AT SURFACE IN CASE WE NEED TO COMPUTE RH OVER ICE
207 C
208
223 CLIMIT =1.0E-20
224 IWSFC=0.
225 C
226 DO L=2,LM
227 DO J=JSTA,JEND
228 DO I=1,IM
229 IF (L.LE.LMH(I,J)) THEN
230 IWM1(I,J)=IWSFC(I,J)
231 IF(CWM(I,J,L).GT.CLIMIT) THEN
232 IF(T(I,J,L).LT.258.15)THEN
233 IWSFC(I,J)=1.
234 ELSEIF(T(I,J,L).GE.273.15)THEN
235 IWSFC(I,J)=0.
236 ELSE
237 IF(IWM1(I,J).EQ.1.0)IWSFC(I,J)=1.
238 ENDIF
239 ELSE
240 IWSFC(I,J)=0.
241 ENDIF
242 ENDIF
243 ENDDO
244 ENDDO
245 ENDDO
Page 3 Source Listing FRZLVL2
2025-03-12 18:23 FRZLVL2.f
246 C LOOP OVER HORIZONTAL GRID.
247 C
248 CX ZMIN = +999999.
249 CX ZMAX = -999999.
250
251 DO 20 J=JSTA,JEND
252 DO 20 I=1,IM
253 HTSFC = FIS(I,J)*GI
254 LLMH = LMH(I,J)
255 RHFRZ(I,J) = D00
256 ZFRZ(I,J) = HTSFC
257 C
258 C FIND THE HIGHEST LAYER WHERE THE TEMPERATURE
259 C CHANGES FROM ABOVE TO BELOW FREEZING.
260 C
261 TSFC = SM(I,J)*THZ0(I,J)+(1.-SM(I,J))*THS(I,J)
262 LICE=LLMH
263 DO L = LLMH-1,1,-1
264 IF (T(I,J,L).LE.TFRZ.AND.T(I,J,L+1).GT.TFRZ) LICE=L
265 ENDDO
266 C
267 C CHECK IF FREEZING LEVEL IS AT THE GROUND.
268 C
269 IF (LICE.EQ.LLMH.AND.TSFC.LE.TFRZ) THEN
270 ZFRZ(I,J) = HTSFC
271 PSFC = PD(I,J)+PT
272 QSFC = SM(I,J)*QZ0(I,J)+(1.-SM(I,J))*QS(I,J)
273 C
274 TMT0=TSFC-273.16
275 TMT15=AMIN1(TMT0,-15.)
276 AI=0.008855
277 BI=1.
278 IF(TMT0.LT.-20.)THEN
279 AI=0.007225
280 BI=0.9674
281 ENDIF
282 QW=PQ0/PSFC
283 1 *EXP(A2*(TSFC-A3)/(TSFC-A4))
284 QI=QW*(BI+AI*AMIN1(TMT0,0.))
285 QINT=QW*(1.-0.00032*TMT15*(TMT15+15.))
286 IF(TMT0.LT.-15.)THEN
287 QSAT=QI
288 ELSEIF(TMT0.GE.0.)THEN
289 QSAT=QINT
290 ELSE
291 IF(IWSFC(I,J).GT.0.0) THEN
292 QSAT=QI
293 ELSE
294 QSAT=QINT
295 ENDIF
296 ENDIF
297 CMEB 12/22/98 SWITCH TO RH VS WATER NO MATTER WHAT
298 C DELETE THIS LINE TO SWITCH BACK TO RH VS ICE
299 QSAT=QW
300 CMEB 12/22/98 SWITCH TO RH VS WATER NO MATTER WHAT
301 C
302 RHSFC = QSFC/QSAT
Page 4 Source Listing FRZLVL2
2025-03-12 18:23 FRZLVL2.f
303 RHSFC = AMAX1(0.01,RHSFC)
304 RHSFC = AMIN1(RHSFC,1.0)
305 RHFRZ(I,J)= RHSFC
306 C
307 C OTHERWISE, LOCATE THE FREEZING LEVEL ALOFT.
308 C
309 ELSE IF (LICE.LT.LLMH) THEN
310 L=LICE
311 DELZ = D50*(ZINT(I,J,L)-ZINT(I,J,L+2))
312 ZL = D50*(ZINT(I,J,L+1)+ZINT(I,J,L+2))
313 DELT = T(I,J,L)-T(I,J,L+1)
314 ZFRZ(I,J) = ZL+(TFRZ-T(I,J,L+1))/DELT*DELZ
315 C
316 DZABV = ZFRZ(I,J)-ZL
317 DELQ = Q(I,J,L)-Q(I,J,L+1)
318 QFRZ = Q(I,J,L+1) + DELQ/DELZ*DZABV
319 QFRZ = AMAX1(0.0,QFRZ)
320 C
321 ALPL = ALPINT(I,J,L+2)
322 ALPH = ALPINT(I,J,L)
323 DELALP = ALPH - ALPL
324 DELZP = ZINT(I,J,L)-ZINT(I,J,L+2)
325 DZFR = ZFRZ(I,J) - ZINT(I,J,L+2)
326 ALPFRZ = ALPL + DELALP/DELZP*DZFR
327 PFRZ = EXP(ALPFRZ)
328 QSFRZ = PQ0/PFRZ
329 C
330 RHZ = QFRZ/QSFRZ
331 RHZ = AMAX1(0.01,RHZ)
332 RHZ = AMIN1(RHZ,1.0)
333 RHFRZ(I,J) = RHZ
334 C
335 ELSE
336 L=LICE
337 ZU = D50*(ZINT(I,J,L)+ZINT(I,J,L+1))
338 ZL = HTSFC
339 DELZ = ZU-ZL
340 TSFC = SM(I,J)*THZ0(I,J)+(1.-SM(I,J))*THS(I,J)
341 DELT = T(I,J,L)-TSFC
342 ZFRZ(I,J) = ZL + (TFRZ-TSFC)/DELT*DELZ
343 C
344 DZABV = ZFRZ(I,J)-ZL
345 QSFC = SM(I,J)*QZ0(I,J)+(1.-SM(I,J))*QS(I,J)
346 DELQ = Q(I,J,L)-QSFC
347 QFRZ = QSFC + DELQ/DELZ*DZABV
348 QFRZ = AMAX1(0.0,QFRZ)
349 C
350 ALPH = ALPINT(I,J,L)
351 PSFC = PD(I,J)+PT
352 ALPL = ALOG(PSFC)
353 DELALP = ALPH-ALPL
354 ALPFRZ = ALPL + DELALP/DELZ*DZABV
355 PFRZ = EXP(ALPFRZ)
356 QSFRZ = PQ0/PFRZ
357 C
358 RHZ = QFRZ/QSFRZ
359 RHZ = AMAX1(0.01,RHZ)
Page 5 Source Listing FRZLVL2
2025-03-12 18:23 FRZLVL2.f
360 RHZ = AMIN1(RHZ,1.0)
361 RHFRZ(I,J)= RHZ
362 ENDIF
363 C
364 C BOUND FREEZING LEVEL RH. FREEZING LEVEL HEIGHT IS
365 C MEASURED WITH RESPECT TO MEAN SEA LEVEL.
366 C
367 RHFRZ(I,J) = AMAX1(0.01,RHFRZ(I,J))
368 RHFRZ(I,J) = AMIN1(RHFRZ(I,J),1.00)
369 ZFRZ(I,J) = AMAX1(0.0,ZFRZ(I,J))
370 20 CONTINUE
371 C
372 C END OF ROUTINE.
373 C
374 RETURN
375 END
ENTRY POINTS
Name
frzlvl2_
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
20 Label 370 251,252
A2 Param 130 R(4) 4 scalar 283
A3 Param 130 R(4) 4 scalar 283
A4 Param 130 R(4) 4 scalar 283
AD05 Param 122 R(4) 4 scalar
AI Local 276 R(4) 4 scalar 276,279,284
ALOG Func 352 scalar 352
ALPFRZ Local 326 R(4) 4 scalar 326,327,354,355
ALPH Local 322 R(4) 4 scalar 322,323,350,353
ALPL Local 321 R(4) 4 scalar 321,323,326,352,353,354
AMAX1 Func 303 scalar 303,319,331,348,359,367,369
AMIN1 Func 275 scalar 275,284,304,332,360,368
BETA Param 126 R(4) 4 scalar 126
BI Local 277 R(4) 4 scalar 277,280,284
BTG Param 126 R(4) 4 scalar
CAPA Param 117 R(4) 4 scalar 124
CFT0 Param 122 R(4) 4 scalar
CLDWTR Common 143 17610408 SAVE
CLIMIT Local 223 R(4) 4 scalar 223,231
CM1 Param 112 R(4) 4 scalar
CM2 Param 112 R(4) 4 scalar
CM3 Param 112 R(4) 4 scalar
CP Param 123 R(4) 4 scalar 125,129
CPDR Param 125 R(4) 4 scalar
CTLBLK Common 210 96 SAVE
D00 Param 114 R(4) 4 scalar 255
D001 Param 114 R(4) 4 scalar
D0065 Param 118 R(4) 4 scalar
Page 6 Source Listing FRZLVL2
2025-03-12 18:23 Symbol Table FRZLVL2.f
Name Object Declared Type Bytes Dimen Elements Attributes References
D01 Param 114 R(4) 4 scalar
D05 Param 118 R(4) 4 scalar 122
D1 Param 114 R(4) 4 scalar
D115 Param 118 R(4) 4 scalar
D125 Param 116 R(4) 4 scalar
D25 Param 116 R(4) 4 scalar
D50 Param 114 R(4) 4 scalar 311,312,337
D608 Param 118 R(4) 4 scalar
DELALP Local 323 R(4) 4 scalar 323,326,353,354
DELQ Local 317 R(4) 4 scalar 317,318,346,347
DELT Local 313 R(4) 4 scalar 313,314,341,342
DELZ Local 311 R(4) 4 scalar 311,314,318,339,342,347,354
DELZP Local 324 R(4) 4 scalar 324,326
DP10M Param 124 R(4) 4 scalar
DTR Param 123 R(4) 4 scalar 123
DZABV Local 316 R(4) 4 scalar 316,318,344,347,354
DZFR Local 325 R(4) 4 scalar 325,326
ELDR Param 125 R(4) 4 scalar
ELWV Param 125 R(4) 4 scalar 125
EPS Param 128 R(4) 4 scalar 128
EPSQ2 Param 129 R(4) 4 scalar
ERAD Param 123 R(4) 4 scalar
EXP Func 283 scalar 283,327,355
EXTRA Common 158 71506268 SAVE
FMD Param 128 R(4) 4 scalar 128
FMW Param 128 R(4) 4 scalar 128
FRZLVL2 Subr 1
G Param 121 R(4) 4 scalar 121
GI Param 121 R(4) 4 scalar 125,253
H1 Param 115 R(4) 4 scalar 122
H100 Param 116 R(4) 4 scalar
H1000 Param 116 R(4) 4 scalar
H10000 Param 117 R(4) 4 scalar
H10E5 Param 117 R(4) 4 scalar
H1E2 Param 119 R(4) 4 scalar
H1E4 Param 119 R(4) 4 scalar
H1M12 Param 115 R(4) 4 scalar
H1M2 Param 119 R(4) 4 scalar
H1M5 Param 116 R(4) 4 scalar
H2 Param 115 R(4) 4 scalar
H4 Param 115 R(4) 4 scalar
H999 Param 114 R(4) 4 scalar
H99999 Param 115 R(4) 4 scalar
HTSFC Local 253 R(4) 4 scalar 253,256,270,338
I Local 228 I(4) 4 scalar 228,229,230,231,232,233,234,235,23
7,240,252,253,254,255,256,261,264,
270,271,272,291,305,311,312,313,31
4,316,317,318,321,322,324,325,333,
337,340,341,342,344,345,346,350,35
1,361,367,368,369
IDIM1 Param 82 I(4) 4 scalar
IDIM2 Param 82 I(4) 4 scalar
IGSTL Param 77 I(4) 4 scalar 82
IGSTR Param 77 I(4) 4 scalar 82
IM Param 71 I(4) 4 scalar 79,82,93,95,96,98,131,137,139,144,
Page 7 Source Listing FRZLVL2
2025-03-12 18:23 Symbol Table FRZLVL2.f
Name Object Declared Type Bytes Dimen Elements Attributes References
152,157,159,160,161,162,163,164,17
0,171,172,173,174,176,182,184,228,
252
IM1 Param 95 I(4) 4 scalar
IMJM Param 157 I(4) 4 scalar 160
IMT Param 93 I(4) 4 scalar
INPES Param 74 I(4) 4 scalar 79,82
ITAIL Param 79 I(4) 4 scalar
IWM1 Local 131 R(4) 4 2 91719 230,237
IWSFC Local 131 R(4) 4 2 91719 224,230,233,235,237,240,291
J Local 227 I(4) 4 scalar 227,229,230,231,232,233,234,235,23
7,240,251,253,254,255,256,261,264,
270,271,272,291,305,311,312,313,31
4,316,317,318,321,322,324,325,333,
337,340,341,342,344,345,346,350,35
1,361,367,368,369
JAM Param 95 I(4) 4 scalar 150
JDIM1 Param 83 I(4) 4 scalar
JDIM2 Param 83 I(4) 4 scalar
JGSTL Param 78 I(4) 4 scalar 83
JGSTR Param 78 I(4) 4 scalar 83
JM Param 71 I(4) 4 scalar 80,83,93,95,98,131,137,139,144,152
,157,159,160,161,162,163,164,170,1
71,172,173,174,176,182,184
JM2 Param 95 I(4) 4 scalar
JMT Param 93 I(4) 4 scalar
JNPES Param 74 I(4) 4 scalar 80,83
JTAIL Param 80 I(4) 4 scalar
KSAV Param 103 I(4) 4 scalar
KSFI Param 102 I(4) 4 scalar
KSLI Param 103 I(4) 4 scalar
KSLP Param 103 I(4) 4 scalar
KSLPD Param 102 I(4) 4 scalar
KSMUD Param 102 I(4) 4 scalar
KSRH Param 103 I(4) 4 scalar
KSSLP Param 102 I(4) 4 scalar
KST Param 102 I(4) 4 scalar
KSUV Param 103 I(4) 4 scalar
L Local 226 I(4) 4 scalar 226,229,231,232,234,263,264,310,31
1,312,313,314,317,318,321,322,324,
325,336,337,341,346,350
LB Param 98 I(4) 4 scalar
LHEAT Param 129 I(4) 4 scalar 129
LHTOCP Param 129 I(4) 4 scalar
LICE Local 262 I(4) 4 scalar 262,264,269,309,310,336
LLMH Local 254 I(4) 4 scalar 254,262,263,269,309
LM Param 71 I(4) 4 scalar 97,108,139,144,160,176,184,195,226
LM1 Param 97 I(4) 4 scalar
LOOPS Common 149 748952 SAVE
LP1 Param 97 I(4) 4 scalar 159,195
LSM Param 71 I(4) 4 scalar 194
MAPOT Common 189 1448 SAVE
MASKS Common 181 34853220 SAVE
NINC Param 96 I(4) 4 scalar
NSTAT Param 108 I(4) 4 scalar
Page 8 Source Listing FRZLVL2
2025-03-12 18:23 Symbol Table FRZLVL2.f
Name Object Declared Type Bytes Dimen Elements Attributes References
NSUMD Param 104 I(4) 4 scalar
NWORD Param 108 I(4) 4 scalar 108
NWORD3 Param 108 I(4) 4 scalar
NWORD6 Param 108 I(4) 4 scalar
ONEPS Param 128 R(4) 4 scalar
OVERRC Param 122 R(4) 4 scalar 122
P1000 Param 124 R(4) 4 scalar
PARALLEL Common 217 8240
PFRZ Local 327 R(4) 4 scalar 327,328,355,356
PQ0 Param 130 R(4) 4 scalar 282,328,356
PSFC Local 271 R(4) 4 scalar 271,282,351,352
PVRBLS Common 169 23480064 SAVE
QFRZ Local 318 R(4) 4 scalar 318,319,330,347,348,358
QI Local 284 R(4) 4 scalar 284,287,292
QINT Local 285 R(4) 4 scalar 285,289,294
QSAT Local 287 R(4) 4 scalar 287,289,292,294,299,302
QSFC Local 272 R(4) 4 scalar 272,302,345,346,347
QSFRZ Local 328 R(4) 4 scalar 328,330,356,358
QW Local 282 R(4) 4 scalar 282,284,285,299
RCAPA Param 124 R(4) 4 scalar
RD Param 121 R(4) 4 scalar 121,125,129
RDOCP Param 129 R(4) 4 scalar
RG Param 125 R(4) 4 scalar
RHFRZ Dummy 1 R(4) 4 2 91719 ARG,INOUT 255,305,333,361,367,368
RHSFC Local 302 R(4) 4 scalar 302,303,304,305
RHZ Local 330 R(4) 4 scalar 330,331,332,333,358,359,360,361
ROG Param 121 R(4) 4 scalar
RTD Param 123 R(4) 4 scalar
SMTHA Param 104 R(4) 4 scalar
SMTHB Param 104 R(4) 4 scalar
TFRZ Param 128 R(4) 4 scalar 264,269,314,342
TMT0 Local 274 R(4) 4 scalar 274,275,278,284,286,288
TMT15 Local 275 R(4) 4 scalar 275,285
TSFC Local 261 R(4) 4 scalar 261,269,274,283,340,341,342
VRBLS Common 136 67138308
ZFRZ Dummy 1 R(4) 4 2 91719 ARG,INOUT 256,270,314,316,325,342,344,369
ZL Local 312 R(4) 4 scalar 312,314,316,338,339,342,344
ZU Local 337 R(4) 4 scalar 337,339
TYPE COMPONENTS/COMMON VARIABLES
Name Type Bytes Offset Dimen Elements Attributes References
ACCLIQ R(4) 4 6236892 2 91719 COM
ACPREC R(4) 4 5870016 2 91719 COM
AETA R(4) 4 808 1 45 COM
AKHS R(4) 4 733752 2 91719 COM
AKMS R(4) 4 366876 2 91719 COM
ALPINT R(4) 4 16876296 3 4219074 COM 321,322,350
ALSL R(4) 4 472 1 39 COM
CLDEFI R(4) 4 5136264 2 91719 COM
CMLD R(4) 4 292 scalar COM
CPHI0 R(4) 4 1420 scalar COM
CUPREC R(4) 4 6603768 2 91719 COM
Page 9 Source Listing FRZLVL2
2025-03-12 18:23 Symbol Table FRZLVL2.f
Name Type Bytes Offset Dimen Elements Attributes References
CWM R(4) 4 0 3 4127355 COM 231
DETA R(4) 4 628 1 45 COM
DISLP R(4) 4 308 scalar COM
DLMD R(4) 4 284 scalar COM
DP30 R(4) 4 296 scalar COM
DPHD R(4) 4 288 scalar COM
DT R(4) 4 48 scalar COM
ERLAM0 R(4) 4 1416 scalar COM
ETA R(4) 4 988 1 46 COM
FIRST R(4) 4 24 scalar COM
FIS R(4) 4 733752 2 91719 COM 253
FSL R(4) 4 70405632 2 91719 COM
HBM2 R(4) 4 0 2 91719 COM
HTM R(4) 4 1834380 3 4127355 COM
ICNT I(4) 4 40 1 1024 COM
IDAT I(4) 4 8 1 3 COM
IDN I(4) 4 36 scalar COM
IDSP I(4) 4 4136 1 1024 COM
IDTAD I(4) 4 68 scalar COM
IHHA I(4) 4 3040 1 760 COM
IHLA I(4) 4 0 1 760 COM
IHRST I(4) 4 20 scalar COM
IOUT I(4) 4 44 scalar COM
ISHDE I(4) 4 12 1 61 COM
IUNIT I(4) 4 1440 scalar COM
IUP I(4) 4 32 scalar COM
IVHA I(4) 4 9120 1 760 COM
IVLA I(4) 4 6080 1 760 COM
IXM I(4) 4 4 scalar COM
IYM I(4) 4 8 scalar COM
JEND I(4) 4 12 scalar COM 227,251
JEND_2U I(4) 4 8236 scalar COM
JEND_M I(4) 4 20 scalar COM
JEND_M2 I(4) 4 28 scalar COM
JRA I(4) 4 12160 1 760 COM
JSTA I(4) 4 8 scalar COM 227,251
JSTA_2L I(4) 4 8232 scalar COM
JSTA_M I(4) 4 16 scalar COM
JSTA_M2 I(4) 4 24 scalar COM
KMNT I(4) 4 50629068 2 4118670 COM
KMNTM I(4) 4 50628888 1 45 COM
KUNIT I(4) 4 1428 scalar COM
LC I(4) 4 16876656 2 91719 COM
LIST I(4) 4 40 scalar COM
LMH I(4) 4 15200 2 91719 COM 229,254
LMV I(4) 4 382076 2 91719 COM
LSL I(4) 4 0 scalar COM
LUNIT I(4) 4 1432 scalar COM
ME I(4) 4 4 scalar COM
MUNIT I(4) 4 1436 scalar COM
NBC I(4) 4 36 scalar COM
NBOCO I(4) 4 72 scalar COM
NCP I(4) 4 80 scalar COM
NDDAMP I(4) 4 60 scalar COM
NFCST I(4) 4 32 scalar COM
Page 10 Source Listing FRZLVL2
2025-03-12 18:23 Symbol Table FRZLVL2.f
Name Type Bytes Offset Dimen Elements Attributes References
NPHS I(4) 4 84 scalar COM
NPREC I(4) 4 64 scalar COM
NRADL I(4) 4 92 scalar COM
NRADS I(4) 4 88 scalar COM
NSHDE I(4) 4 76 scalar COM
NTSD I(4) 4 52 scalar COM
NTSTM I(4) 4 56 scalar COM
NUM_PROCS I(4) 4 0 scalar COM
NUNIT I(4) 4 1444 scalar COM
OLDRD R(4) 4 71506260 scalar COM
PD R(4) 4 0 2 91719 COM 271,351
PDSL R(4) 4 67837500 2 91719 COM
PDVP1 R(4) 4 68204376 2 91719 COM
PFSL R(4) 4 69305004 2 91719 COM
PINT R(4) 4 0 3 4219074 COM
PREC R(4) 4 5503140 2 91719 COM
PSLP R(4) 4 68571252 2 91719 COM
PT R(4) 4 260 scalar COM 271,351
PTSL R(4) 4 68938128 2 91719 COM
Q R(4) 4 50628888 3 4127355 COM 317,318,346
Q2 R(4) 4 6970644 3 4127355 COM
QS R(4) 4 1467504 2 91719 COM 272,345
QSL R(4) 4 70772508 2 91719 COM
QWBS R(4) 4 4035636 2 91719 COM
QZ0 R(4) 4 2935008 2 91719 COM 272,345
R R(4) 4 256 scalar COM
RES R(4) 4 366876 2 91719 COM
RESTRT R(4) 4 28 scalar COM
RF R(4) 4 3301884 2 91719 COM
RUN R(4) 4 4 scalar COM
SBD R(4) 4 272 scalar COM
SI R(4) 4 4769388 2 91719 COM
SICE R(4) 4 1467504 2 91719 COM
SIGMA R(4) 4 0 scalar COM
SLP R(4) 4 67103748 2 91719 COM
SM R(4) 4 1100628 2 91719 COM 261,272,340,345
SNO R(4) 4 4402512 2 91719 COM
SPHI0 R(4) 4 1424 scalar COM
SPL R(4) 4 316 1 39 COM
SR R(4) 4 17243532 2 91719 COM
STDRD R(4) 4 71506264 scalar COM
T R(4) 4 34119468 3 4127355 COM 232,234,264,313,314,341
T500 R(4) 4 67470624 2 91719 COM
THS R(4) 4 1100628 2 91719 COM 261,340
THZ0 R(4) 4 2568132 2 91719 COM 261,340
TLM0D R(4) 4 276 scalar COM
TPH0D R(4) 4 280 scalar COM
TSHDE R(4) 4 1172 1 61 COM
TSL R(4) 4 69671880 2 91719 COM
TSPH R(4) 4 264 scalar COM
TTV R(4) 4 70038756 2 91719 COM
TWBS R(4) 4 3668760 2 91719 COM
U R(4) 4 1100628 3 4127355 COM
U00 R(4) 4 16509420 2 91719 COM
UL R(4) 4 16876296 1 90 COM
Page 11 Source Listing FRZLVL2
2025-03-12 18:23 Symbol Table FRZLVL2.f
Name Type Bytes Offset Dimen Elements Attributes References
UZ0 R(4) 4 1834380 2 91719 COM
V R(4) 4 17610048 3 4127355 COM
VBM2 R(4) 4 366876 2 91719 COM
VBM3 R(4) 4 733752 2 91719 COM
VTM R(4) 4 18343800 3 4127355 COM
VZ0 R(4) 4 2201256 2 91719 COM
WBD R(4) 4 268 scalar COM
X1P R(4) 4 300 scalar COM
Y1P R(4) 4 304 scalar COM
Z0 R(4) 4 0 2 91719 COM
Z0SLP R(4) 4 312 scalar COM
Z1000 R(4) 4 71139384 2 91719 COM
ZINT R(4) 4 33752592 3 4219074 COM 311,312,324,325,337
Page 12 Source Listing FRZLVL2
2025-03-12 18:23 Subprograms/Common Blocks FRZLVL2.f
SUBPROGRAMS/COMMON BLOCKS
Name Object Declared Type Bytes Dimen Elements Attributes References
CLDWTR Common 143 17610408 SAVE
CTLBLK Common 210 96 SAVE
EXTRA Common 158 71506268 SAVE
FRZLVL2 Subr 1
LOOPS Common 149 748952 SAVE
MAPOT Common 189 1448 SAVE
MASKS Common 181 34853220 SAVE
PARALLEL Common 217 8240
PVRBLS Common 169 23480064 SAVE
VRBLS Common 136 67138308
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
-coarray-num-procs 0 no -coarray-config-file
Page 13 Source Listing FRZLVL2
2025-03-12 18:23 FRZLVL2.f
-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 noprecise
-fp_model fast -fp_model nostrict
-fp_model nosource -fp_model nodouble
-fp_model noextended -fp_model novery_fast
-fp_model noexcept -fp_model nono_except
-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
Page 14 Source Listing FRZLVL2
2025-03-12 18:23 FRZLVL2.f
-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 : FRZLVL2.lst
no -o
COMPILER: Intel(R) Fortran 19.1-1655