Page 1 Source Listing FRZLVL 2025-03-12 18:23 FRZLVL.f 1 SUBROUTINE FRZLVL(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 FIRST ETA LAYER WHERE THE TEMPERATURE IS LESS THAN 13 C 273.16K. VERTICAL INTERPOLATION IN TEMPERATURE TO THE FREEZING 14 C TEMPERATURE GIVES THE FREEZING LEVEL HEIGHT. PRESSURE AND 15 C SPECIFIC HUMIDITY ARE INTERPOLATED TO THIS LEVEL AND ALONG WITH 16 C THE TEMPERATURE PROVIDE THE FREEZING LEVEL RELATIVE HUMIDITY. 17 C IF THE SURFACE (SKIN) TEMPERATURE IS BELOW FREEZING, THE ROUTINE 18 C USES SURFACE BASED FIELDS TO COMPUTE THE RELATIVE HUMIDITY. 19 C 20 C NOTE THAT IN POSTING FREEZING LEVEL DATA THE LFM LOOK-ALIKE FILE 21 C (IE, GRID 26), WE PACK 273.15K AS THE FREEZING TEMPERATURE. ALL 22 C OTHER OUTPUT GRIDS USE 273.16K 23 C . 24 C 25 C PROGRAM HISTORY LOG: 26 C 92-12-22 RUSS TREADON 27 C 93-06-10 RUSS TREADON - CORRECTED FREEZING LEVEL HEIGHTS TO BE 28 C WITH REPSECT TO MEAN SEA LEVEL, NOT 29 C ABOVE GROUND LEVEL. 30 C 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D 31 C 98-08-17 MIKE BALDWIN - COMPUTE RH OVER ICE IF NECESSARY 32 C 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE 33 C 00-01-04 JIM TUCCILLO - MPI VERSION 34 C 35 C USAGE: CALL FRZLVL(ZFRZ,RHFRZ) 36 C INPUT ARGUMENT LIST: 37 C NONE 38 C 39 C OUTPUT ARGUMENT LIST: 40 C ZFRZ - ABOVE GROUND LEVEL FREEZING HEIGHT. 41 C RHFRZ - RELATIVE HUMIDITY AT FREEZING LEVEL. 42 C 43 C OUTPUT FILES: 44 C NONE 45 C 46 C SUBPROGRAMS CALLED: 47 C UTILITIES: 48 C NONE 49 C LIBRARY: 50 C COMMON - VRBLS 51 C LOOPS 52 C EXTRA 53 C PVRBLS 54 C MASKS 55 C MAPOT 56 C POSTVAR 57 C Page 2 Source Listing FRZLVL 2025-03-12 18:23 FRZLVL.f 58 C ATTRIBUTES: 59 C LANGUAGE: FORTRAN 60 C MACHINE : CRAY C-90 61 C$$$ 62 C 63 C 64 C INCLUDE/SET PARAMETERS. 65 INCLUDE "parmeta" 83 INCLUDE "params" 84 C 85 C DECLARE VARIABLES. 86 C 128 REAL RHFRZ(IM,JM),ZFRZ(IM,JM),IWSFC(IM,JM),IWM1(IM,JM) 129 C 130 C INCLUDE COMMON BLOCKS. 131 INCLUDE "VRBLS.comm" 138 INCLUDE "CLDWTR.comm" 144 INCLUDE "LOOPS.comm" 152 INCLUDE "EXTRA.comm" 164 INCLUDE "PVRBLS.comm" 176 INCLUDE "MASKS.comm" 184 INCLUDE "MAPOT.comm" 197 INCLUDE "CTLBLK.comm" 198 C 199 C********************************************************************* 200 C START FRZLVL. 201 C 202 C 203 C COMPUTE IW AT SURFACE IN CASE WE NEED TO COMPUTE RH OVER ICE 204 C 205 220 CLIMIT =1.0E-20 221 IWSFC=0. 222 C 223 DO L=2,LM 224 DO J=JSTA,JEND 225 DO I=1,IM 226 IF (L.LE.LMH(I,J)) THEN 227 IWM1(I,J)=IWSFC(I,J) 228 IF(CWM(I,J,L).GT.CLIMIT) THEN 229 IF(T(I,J,L).LT.258.15)THEN 230 IWSFC(I,J)=1. 231 ELSEIF(T(I,J,L).GE.273.15)THEN 232 IWSFC(I,J)=0. 233 ELSE 234 IF(IWM1(I,J).EQ.1.0)IWSFC(I,J)=1. 235 ENDIF 236 ELSE 237 IWSFC(I,J)=0. 238 ENDIF 239 ENDIF 240 ENDDO 241 ENDDO 242 ENDDO 243 C 244 C LOOP OVER HORIZONTAL GRID. 245 C Page 3 Source Listing FRZLVL 2025-03-12 18:23 FRZLVL.f 246 !$omp parallel do 247 !$omp& private(ai,alpfrz,alph,alpl,bi,delalp,delq,delt,delz, 248 !$omp& delzp,dzabv,dzfr,htsfc,l,llmh,psfc,qfrz,qi,qint, 249 !$omp& qsat,qsfc,qsfrz,qw,rhsfc,rhz,tmt0,tmt15,tsfc, 250 !$omp& zl,zu) 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 CHECK IF FREEZING LEVEL IS AT THE GROUND. 259 C 260 TSFC = SM(I,J)*THZ0(I,J)+(1.-SM(I,J))*THS(I,J) 261 IF (TSFC.LE.TFRZ) THEN 262 ZFRZ(I,J) = HTSFC 263 PSFC = PD(I,J)+PT 264 QSFC = SM(I,J)*QZ0(I,J)+(1.-SM(I,J))*QS(I,J) 265 C 266 TMT0=TSFC-273.16 267 TMT15=AMIN1(TMT0,-15.) 268 AI=0.008855 269 BI=1. 270 IF(TMT0.LT.-20.)THEN 271 AI=0.007225 272 BI=0.9674 273 ENDIF 274 QW=PQ0/PSFC 275 1 *EXP(A2*(TSFC-A3)/(TSFC-A4)) 276 QI=QW*(BI+AI*AMIN1(TMT0,0.)) 277 QINT=QW*(1.-0.00032*TMT15*(TMT15+15.)) 278 IF(TMT0.LT.-15.)THEN 279 QSAT=QI 280 ELSEIF(TMT0.GE.0.)THEN 281 QSAT=QINT 282 ELSE 283 IF(IWSFC(I,J).GT.0.0) THEN 284 QSAT=QI 285 ELSE 286 QSAT=QINT 287 ENDIF 288 ENDIF 289 CMEB 12/22/98 SWITCH TO RH VS WATER NO MATTER WHAT 290 C DELETE THIS LINE TO SWITCH BACK TO RH VS ICE 291 QSAT=QW 292 CMEB 12/22/98 SWITCH TO RH VS WATER NO MATTER WHAT 293 C 294 RHSFC = QSFC/QSAT 295 RHSFC = AMAX1(0.01,RHSFC) 296 RHSFC = AMIN1(RHSFC,1.0) 297 RHFRZ(I,J)= RHSFC 298 GOTO 20 299 ENDIF 300 C 301 C OTHERWISE, LOCATE THE FREEZING LEVEL ALOFT. 302 C Page 4 Source Listing FRZLVL 2025-03-12 18:23 FRZLVL.f 303 DO 10 L = LLMH,1,-1 304 IF (T(I,J,L).LE.TFRZ) THEN 305 IF (L.LT.LLMH-1) THEN 306 DELZ = D50*(ZINT(I,J,L)-ZINT(I,J,L+2)) 307 ZL = D50*(ZINT(I,J,L+1)+ZINT(I,J,L+2)) 308 DELT = T(I,J,L)-T(I,J,L+1) 309 ZFRZ(I,J) = ZL + (TFRZ-T(I,J,L+1))/DELT*DELZ 310 C 311 DZABV = ZFRZ(I,J)-ZL 312 DELQ = Q(I,J,L)-Q(I,J,L+1) 313 QFRZ = Q(I,J,L+1) + DELQ/DELZ*DZABV 314 QFRZ = AMAX1(0.0,QFRZ) 315 C 316 C 317 ALPL = ALPINT(I,J,L+2) 318 ALPH = ALPINT(I,J,L) 319 DELALP = ALPH - ALPL 320 DELZP = ZINT(I,J,L)-ZINT(I,J,L+2) 321 DZFR = ZFRZ(I,J) - ZINT(I,J,L+2) 322 ALPFRZ = ALPL + DELALP/DELZP*DZFR 323 PFRZ = EXP(ALPFRZ) 324 QSFRZ = PQ0/PFRZ 325 C 326 RHZ = QFRZ/QSFRZ 327 RHZ = AMAX1(0.01,RHZ) 328 RHZ = AMIN1(RHZ,1.0) 329 RHFRZ(I,J) = RHZ 330 C 331 ELSE 332 ZU = D50*(ZINT(I,J,L)+ZINT(I,J,L+1)) 333 ZL = HTSFC 334 DELZ = ZU-ZL 335 TSFC = SM(I,J)*THZ0(I,J)+(1.-SM(I,J))*THS(I,J) 336 DELT = T(I,J,L)-TSFC 337 ZFRZ(I,J) = ZL + (TFRZ-TSFC)/DELT*DELZ 338 C 339 DZABV = ZFRZ(I,J)-ZL 340 QSFC = SM(I,J)*QZ0(I,J)+(1.-SM(I,J))*QS(I,J) 341 DELQ = Q(I,J,L)-QSFC 342 QFRZ = QSFC + DELQ/DELZ*DZABV 343 QFRZ = AMAX1(0.0,QFRZ) 344 C 345 ALPH = ALPINT(I,J,L) 346 PSFC = PD(I,J)+PT 347 ALPL = ALOG(PSFC) 348 DELALP = ALPH-ALPL 349 ALPFRZ = ALPL + DELALP/DELZ*DZABV 350 PFRZ = EXP(ALPFRZ) 351 QSFRZ = PQ0/PFRZ 352 C 353 RHZ = QFRZ/QSFRZ 354 RHZ = AMAX1(0.01,RHZ) 355 RHZ = AMIN1(RHZ,1.0) 356 RHFRZ(I,J)= RHZ 357 ENDIF 358 C 359 C BOUND FREEZING LEVEL RH. FREEZING LEVEL HEIGHT IS Page 5 Source Listing FRZLVL 2025-03-12 18:23 FRZLVL.f 360 C MEASURED WITH RESPECT TO MEAN SEA LEVEL. 361 C 362 RHFRZ(I,J) = AMAX1(0.01,RHFRZ(I,J)) 363 RHFRZ(I,J) = AMIN1(RHFRZ(I,J),1.00) 364 ZFRZ(I,J) = AMAX1(0.0,ZFRZ(I,J)) 365 GOTO 20 366 ENDIF 367 10 CONTINUE 368 20 CONTINUE 369 C 370 C END OF ROUTINE. 371 C 372 RETURN 373 END ENTRY POINTS Name frzlvl_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 367 303 20 Label 368 251,252,298,365 A2 Param 127 R(4) 4 scalar 275 A3 Param 127 R(4) 4 scalar 275 A4 Param 127 R(4) 4 scalar 275 AD05 Param 119 R(4) 4 scalar AI Local 268 R(4) 4 scalar 268,271,276 ALOG Func 347 scalar 347 ALPFRZ Local 322 R(4) 4 scalar 322,323,349,350 ALPH Local 318 R(4) 4 scalar 318,319,345,348 ALPL Local 317 R(4) 4 scalar 317,319,322,347,348,349 AMAX1 Func 295 scalar 295,314,327,343,354,362,364 AMIN1 Func 267 scalar 267,276,296,328,355,363 BETA Param 123 R(4) 4 scalar 123 BI Local 269 R(4) 4 scalar 269,272,276 BTG Param 123 R(4) 4 scalar CAPA Param 114 R(4) 4 scalar 121 CFT0 Param 119 R(4) 4 scalar CLDWTR Common 140 17610408 SAVE CLIMIT Local 220 R(4) 4 scalar 220,228 CM1 Param 109 R(4) 4 scalar CM2 Param 109 R(4) 4 scalar CM3 Param 109 R(4) 4 scalar CP Param 120 R(4) 4 scalar 122,126 CPDR Param 122 R(4) 4 scalar CTLBLK Common 207 96 SAVE D00 Param 111 R(4) 4 scalar 255 D001 Param 111 R(4) 4 scalar D0065 Param 115 R(4) 4 scalar D01 Param 111 R(4) 4 scalar Page 6 Source Listing FRZLVL 2025-03-12 18:23 Symbol Table FRZLVL.f Name Object Declared Type Bytes Dimen Elements Attributes References D05 Param 115 R(4) 4 scalar 119 D1 Param 111 R(4) 4 scalar D115 Param 115 R(4) 4 scalar D125 Param 113 R(4) 4 scalar D25 Param 113 R(4) 4 scalar D50 Param 111 R(4) 4 scalar 306,307,332 D608 Param 115 R(4) 4 scalar DELALP Local 319 R(4) 4 scalar 319,322,348,349 DELQ Local 312 R(4) 4 scalar 312,313,341,342 DELT Local 308 R(4) 4 scalar 308,309,336,337 DELZ Local 306 R(4) 4 scalar 306,309,313,334,337,342,349 DELZP Local 320 R(4) 4 scalar 320,322 DP10M Param 121 R(4) 4 scalar DTR Param 120 R(4) 4 scalar 120 DZABV Local 311 R(4) 4 scalar 311,313,339,342,349 DZFR Local 321 R(4) 4 scalar 321,322 ELDR Param 122 R(4) 4 scalar ELWV Param 122 R(4) 4 scalar 122 EPS Param 125 R(4) 4 scalar 125 EPSQ2 Param 126 R(4) 4 scalar ERAD Param 120 R(4) 4 scalar EXP Func 275 scalar 275,323,350 EXTRA Common 155 71506268 SAVE FMD Param 125 R(4) 4 scalar 125 FMW Param 125 R(4) 4 scalar 125 FRZLVL Subr 1 G Param 118 R(4) 4 scalar 118 GI Param 118 R(4) 4 scalar 122,253 H1 Param 112 R(4) 4 scalar 119 H100 Param 113 R(4) 4 scalar H1000 Param 113 R(4) 4 scalar H10000 Param 114 R(4) 4 scalar H10E5 Param 114 R(4) 4 scalar H1E2 Param 116 R(4) 4 scalar H1E4 Param 116 R(4) 4 scalar H1M12 Param 112 R(4) 4 scalar H1M2 Param 116 R(4) 4 scalar H1M5 Param 113 R(4) 4 scalar H2 Param 112 R(4) 4 scalar H4 Param 112 R(4) 4 scalar H999 Param 111 R(4) 4 scalar H99999 Param 112 R(4) 4 scalar HTSFC Local 253 R(4) 4 scalar 253,256,262,333 I Local 225 I(4) 4 scalar 225,226,227,228,229,230,231,232,23 4,237,252,253,254,255,256,260,262, 263,264,283,297,304,306,307,308,30 9,311,312,313,317,318,320,321,329, 332,335,336,337,339,340,341,345,34 6,356,362,363,364 IDIM1 Param 79 I(4) 4 scalar IDIM2 Param 79 I(4) 4 scalar IGSTL Param 74 I(4) 4 scalar 79 IGSTR Param 74 I(4) 4 scalar 79 IM Param 68 I(4) 4 scalar 76,79,90,92,93,95,128,134,136,141, 149,154,156,157,158,159,160,161,16 Page 7 Source Listing FRZLVL 2025-03-12 18:23 Symbol Table FRZLVL.f Name Object Declared Type Bytes Dimen Elements Attributes References 7,168,169,170,171,173,179,181,225, 252 IM1 Param 92 I(4) 4 scalar IMJM Param 154 I(4) 4 scalar 157 IMT Param 90 I(4) 4 scalar INPES Param 71 I(4) 4 scalar 76,79 ITAIL Param 76 I(4) 4 scalar IWM1 Local 128 R(4) 4 2 91719 227,234 IWSFC Local 128 R(4) 4 2 91719 221,227,230,232,234,237,283 J Local 224 I(4) 4 scalar 224,226,227,228,229,230,231,232,23 4,237,251,253,254,255,256,260,262, 263,264,283,297,304,306,307,308,30 9,311,312,313,317,318,320,321,329, 332,335,336,337,339,340,341,345,34 6,356,362,363,364 JAM Param 92 I(4) 4 scalar 147 JDIM1 Param 80 I(4) 4 scalar JDIM2 Param 80 I(4) 4 scalar JGSTL Param 75 I(4) 4 scalar 80 JGSTR Param 75 I(4) 4 scalar 80 JM Param 68 I(4) 4 scalar 77,80,90,92,95,128,134,136,141,149 ,154,156,157,158,159,160,161,167,1 68,169,170,171,173,179,181 JM2 Param 92 I(4) 4 scalar JMT Param 90 I(4) 4 scalar JNPES Param 71 I(4) 4 scalar 77,80 JTAIL Param 77 I(4) 4 scalar KSAV Param 100 I(4) 4 scalar KSFI Param 99 I(4) 4 scalar KSLI Param 100 I(4) 4 scalar KSLP Param 100 I(4) 4 scalar KSLPD Param 99 I(4) 4 scalar KSMUD Param 99 I(4) 4 scalar KSRH Param 100 I(4) 4 scalar KSSLP Param 99 I(4) 4 scalar KST Param 99 I(4) 4 scalar KSUV Param 100 I(4) 4 scalar L Local 223 I(4) 4 scalar 223,226,228,229,231,303,304,305,30 6,307,308,309,312,313,317,318,320, 321,332,336,341,345 LB Param 95 I(4) 4 scalar LHEAT Param 126 I(4) 4 scalar 126 LHTOCP Param 126 I(4) 4 scalar LLMH Local 254 I(4) 4 scalar 254,303,305 LM Param 68 I(4) 4 scalar 94,105,136,141,157,173,181,192,223 LM1 Param 94 I(4) 4 scalar LOOPS Common 146 748952 SAVE LP1 Param 94 I(4) 4 scalar 156,192 LSM Param 68 I(4) 4 scalar 191 MAPOT Common 186 1448 SAVE MASKS Common 178 34853220 SAVE NINC Param 93 I(4) 4 scalar NSTAT Param 105 I(4) 4 scalar NSUMD Param 101 I(4) 4 scalar NWORD Param 105 I(4) 4 scalar 105 Page 8 Source Listing FRZLVL 2025-03-12 18:23 Symbol Table FRZLVL.f Name Object Declared Type Bytes Dimen Elements Attributes References NWORD3 Param 105 I(4) 4 scalar NWORD6 Param 105 I(4) 4 scalar ONEPS Param 125 R(4) 4 scalar OVERRC Param 119 R(4) 4 scalar 119 P1000 Param 121 R(4) 4 scalar PARALLEL Common 214 8240 PFRZ Local 323 R(4) 4 scalar 323,324,350,351 PQ0 Param 127 R(4) 4 scalar 274,324,351 PSFC Local 263 R(4) 4 scalar 263,274,346,347 PVRBLS Common 166 23480064 SAVE QFRZ Local 313 R(4) 4 scalar 313,314,326,342,343,353 QI Local 276 R(4) 4 scalar 276,279,284 QINT Local 277 R(4) 4 scalar 277,281,286 QSAT Local 279 R(4) 4 scalar 279,281,284,286,291,294 QSFC Local 264 R(4) 4 scalar 264,294,340,341,342 QSFRZ Local 324 R(4) 4 scalar 324,326,351,353 QW Local 274 R(4) 4 scalar 274,276,277,291 RCAPA Param 121 R(4) 4 scalar RD Param 118 R(4) 4 scalar 118,122,126 RDOCP Param 126 R(4) 4 scalar RG Param 122 R(4) 4 scalar RHFRZ Dummy 1 R(4) 4 2 91719 ARG,INOUT 255,297,329,356,362,363 RHSFC Local 294 R(4) 4 scalar 294,295,296,297 RHZ Local 326 R(4) 4 scalar 326,327,328,329,353,354,355,356 ROG Param 118 R(4) 4 scalar RTD Param 120 R(4) 4 scalar SMTHA Param 101 R(4) 4 scalar SMTHB Param 101 R(4) 4 scalar TFRZ Param 125 R(4) 4 scalar 261,304,309,337 TMT0 Local 266 R(4) 4 scalar 266,267,270,276,278,280 TMT15 Local 267 R(4) 4 scalar 267,277 TSFC Local 260 R(4) 4 scalar 260,261,266,275,335,336,337 VRBLS Common 133 67138308 ZFRZ Dummy 1 R(4) 4 2 91719 ARG,INOUT 256,262,309,311,321,337,339,364 ZL Local 307 R(4) 4 scalar 307,309,311,333,334,337,339 ZU Local 332 R(4) 4 scalar 332,334 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 317,318,345 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 CWM R(4) 4 0 3 4127355 COM 228 DETA R(4) 4 628 1 45 COM Page 9 Source Listing FRZLVL 2025-03-12 18:23 Symbol Table FRZLVL.f Name Type Bytes Offset Dimen Elements Attributes References 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 224,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 224,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 226,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 NPHS I(4) 4 84 scalar COM NPREC I(4) 4 64 scalar COM Page 10 Source Listing FRZLVL 2025-03-12 18:23 Symbol Table FRZLVL.f Name Type Bytes Offset Dimen Elements Attributes References 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 263,346 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 263,346 PTSL R(4) 4 68938128 2 91719 COM Q R(4) 4 50628888 3 4127355 COM 312,313,341 Q2 R(4) 4 6970644 3 4127355 COM QS R(4) 4 1467504 2 91719 COM 264,340 QSL R(4) 4 70772508 2 91719 COM QWBS R(4) 4 4035636 2 91719 COM QZ0 R(4) 4 2935008 2 91719 COM 264,340 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 260,264,335,340 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 229,231,304,308,309,336 T500 R(4) 4 67470624 2 91719 COM THS R(4) 4 1100628 2 91719 COM 260,335 THZ0 R(4) 4 2568132 2 91719 COM 260,335 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 UZ0 R(4) 4 1834380 2 91719 COM V R(4) 4 17610048 3 4127355 COM Page 11 Source Listing FRZLVL 2025-03-12 18:23 Symbol Table FRZLVL.f Name Type Bytes Offset Dimen Elements Attributes References 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 306,307,320,321,332 Page 12 Source Listing FRZLVL 2025-03-12 18:23 Subprograms/Common Blocks FRZLVL.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 140 17610408 SAVE CTLBLK Common 207 96 SAVE EXTRA Common 155 71506268 SAVE FRZLVL Subr 1 LOOPS Common 146 748952 SAVE MAPOT Common 186 1448 SAVE MASKS Common 178 34853220 SAVE PARALLEL Common 214 8240 PVRBLS Common 166 23480064 SAVE VRBLS Common 133 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 FRZLVL 2025-03-12 18:23 FRZLVL.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 FRZLVL 2025-03-12 18:23 FRZLVL.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 : FRZLVL.lst no -o COMPILER: Intel(R) Fortran 19.1-1655