Page 1 Source Listing CALRCH 2025-03-12 18:23 CALRCH.f 1 SUBROUTINE CALRCH(EL,RICHNO) 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: CALRCH COMPUTES GRD RCH NUMBER 5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 93-10-11 6 C 7 C ABSTRACT: 8 C THIS ROUTINE COMPUTES THE GRADIENT RICHARDSON NUMBER 9 C AS CODED IN ETA MODEL SUBROUTINE PROFQ2.F. 10 C FIX TO AVOID UNREASONABLY SMALL ANEMOMETER LEVEL WINDS. 11 C . 12 C 13 C PROGRAM HISTORY LOG: 14 C 93-10-11 RUSS TREADON 15 C 98-06-17 T BLACK - CONVERSION FROM 1-D TO 2-D 16 C 00-01-04 JIM TUCCILLO - MPI VERSION 17 C 18 C USAGE: CALL CALRCH(EL,RICHNO) 19 C INPUT ARGUMENT LIST: 20 C EL - MIXING LENGTH SCALE. 21 C 22 C OUTPUT ARGUMENT LIST: 23 C RICHNO - GRADIENT RICHARDSON NUMBER. 24 C 25 C OUTPUT FILES: 26 C NONE 27 C 28 C SUBPROGRAMS CALLED: 29 C UTILITIES: 30 C NONE 31 C LIBRARY: 32 C COMMON - EXTRA 33 C LOOPS 34 C MASKS 35 C PHYS 36 C VRBLS 37 C PVRBLS 38 C OPTIONS 39 C INDX 40 C 41 C ATTRIBUTES: 42 C LANGUAGE: FORTRAN 43 C MACHINE : CRAY C-90 44 C$$$ 45 C 46 C INCLUDE,DERIVE,SET PARAMETERS. 47 C 48 INCLUDE "parmeta" 66 INCLUDE "params" 108 INCLUDE "parm.tbl" 109 C 110 C DECLARE VARIABLES. 111 C 113 REAL EGRID1(IM,JM),EGRID2(IM,JM),HGT(IM,JM) 114 REAL EL(IM,JM,LM),RICHNO(IM,JM,LM),THV(IM,JM,LM) 115 C 116 C INCLUDE COMMON BLOCKS. Page 2 Source Listing CALRCH 2025-03-12 18:23 CALRCH.f 117 C 118 INCLUDE "EXTRA.comm" 130 INCLUDE "LOOPS.comm" 138 INCLUDE "MASKS.comm" 146 INCLUDE "PHYS.comm" 167 INCLUDE "VRBLS.comm" 174 INCLUDE "PVRBLS.comm" 186 INCLUDE "OPTIONS.comm" 190 INCLUDE "INDX.comm" 196 INCLUDE "CTLBLK.comm" 197 C 198 C 199 C************************************************************************* 200 C START CALRCH HERE. 201 C 202 C INITIALIZE ARRAYS. 203 C 218 !$omp parallel do 219 DO L = 1,LM 220 DO J=JSTA,JEND 221 DO I=1,IM 222 RICHNO(I,J,L)=SPVAL 223 ENDDO 224 ENDDO 225 ENDDO 226 C 227 !$omp parallel do 228 DO J=JSTA,JEND 229 DO I=1,IM 230 HGT(I,J)=RG*FIS(I,J) 231 ENDDO 232 ENDDO 233 C 234 C COMPUTE AND SMOOTH VIRTUAL POTENTIAL TEMPERATURE. 235 C 236 !$omp parallel do 237 !$omp& private(ape,egrid1,egrid2,ie,iw) 238 DO L=LM,1,-1 239 DO J=JSTA,JEND 240 DO I=1,IM 241 APE=(H10E5/(PDSL(I,J)*AETA(L)+PT))**CAPA 242 THV(I,J,L)=(Q(I,J,L)*D608+H1)*T(I,J,L)*APE 243 ENDDO 244 ENDDO 245 C 246 CALL EXCH(THV(1,1,L)) 247 C 248 C SMOOTH VIRTUAL POTENTIAL TEMPERATURE. 249 C 250 DO J=JSTA,JEND_M 251 DO I=1,IM-1 252 IE=I+IHE(J) 253 EGRID1(I,J)=(THV(IE,J+1,L)-THV(I,J,L)) 254 1 *HTM(I,J,L)*HTM(IE,J+1,L) 255 ENDDO 256 ENDDO 257 C Page 3 Source Listing CALRCH 2025-03-12 18:23 CALRCH.f 258 DO J=JSTA_M,JEND 259 DO I=1,IM-1 260 IE=I+IHE(J) 261 EGRID2(I,J)=(THV(IE,J-1,L)-THV(I,J,L)) 262 1 *HTM(IE,J-1,L)*HTM(I,J,L) 263 ENDDO 264 ENDDO 265 C 266 CALL EXCH(EGRID1) 267 CALL EXCH(EGRID2) 268 C 269 DO J=JSTA_M2,JEND_M2 270 DO I=2,IM-1 271 IW=I+IHW(J) 272 THV(I,J,L)=THV(I,J,L) + D125 * 273 1 (EGRID1(I,J)-EGRID1(IW,J-1)+ 274 2 EGRID2(I,J)-EGRID2(IW,J+1))*HBM2(I,J) 275 ENDDO 276 ENDDO 277 C 278 ENDDO 279 C 280 C COMPUTE GRADIENT RICHARDSON NUMBER AS CODED IN ETA MODEL 281 C SUBROUTINE PROFQ2.F. OUTER LOOP OVER THE VERTICAL. 282 C INTTER LOOP OVER THE HORIZONTAL. 283 C 284 !$omp parallel do 285 !$omp& private(cs,ct,dthvkl,dukl,dvkl,dzkl,elkl,elklsq, 286 !$omp& ie,iw,q2kl,qroot,rdzkl,ri,uhkl,ulkl,vhkl,vlkl, 287 !$omp& wndsl,wndslp) 288 DO L = 1,LM1 289 C 290 C ASSUME THAT VTM, U, and V HAVE UPDATED HALOS 291 C 292 DO J=JSTA_M2,JEND_M2 293 DO I=2,IM-1 294 IE=I+IHE(J) 295 IW=I+IHW(J) 296 C 297 C WE NEED (U,V) WINDS AT A MASS POINT. FOUR POINT 298 C AVERAGE (U,V) WINDS TO MASS POINT. NORMALIZE FOUR 299 C POINT AVERAGE BY THE ACTUAL NUMBER OF (U,V) WINDS 300 C USED IN THE AVERAGING. VTM=1 IF WIND POINT IS 301 C ABOVE GROUND. VTM=0 IF BELOW GROUND. 302 C 303 WNDSL=VTM(I,J-1,L)+VTM(IW,J,L)+VTM(IE,J,L)+VTM(I,J+1,L) 304 WNDSLP=VTM(I,J-1,L+1)+VTM(IW,J,L+1)+ 305 1 VTM(IE,J,L+1)+VTM(I,J+1,L+1) 306 IF(WNDSL.EQ.0..OR.WNDSLP.EQ.0.)GO TO 10 307 UHKL=(U(I,J-1,L)+U(IW,J,L)+U(IE,J,L)+U(I,J+1,L))/WNDSL 308 ULKL=(U(I,J-1,L+1)+U(IW,J,L+1)+U(IE,J,L+1)+ 309 1 U(I,J+1,L+1))/WNDSLP 310 VHKL=(V(I,J-1,L)+V(IW,J,L)+V(IE,J,L)+V(I,J+1,L))/WNDSL 311 VLKL=(V(I,J-1,L+1)+V(IW,J,L+1)+V(IE,J,L+1)+ 312 1 V(I,J+1,L+1))/WNDSLP 313 DZKL=D50*(ZINT(I,J,L)-ZINT(I,J,L+2)) 314 RDZKL=1./DZKL Page 4 Source Listing CALRCH 2025-03-12 18:23 CALRCH.f 315 Q2KL=AMAX1(Q2(I,J,L),0.00001) 316 QROOT=SQRT(Q2KL) 317 ELKL=EL(I,J,L) 318 ELKL=AMAX1(ELKL,EPSQ2) 319 ELKLSQ=ELKL*ELKL 320 DTHVKL=THV(I,J,L)-THV(I,J,L+1) 321 DUKL=(UHKL-ULKL) 322 DVKL=(VHKL-VLKL) 323 CS=(DUKL*RDZKL)**2+(DVKL*RDZKL)**2 324 C 325 C COMPUTE GRADIENT RICHARDSON NUMBER. 326 C 327 IF(CS.LE.1.E-8)THEN 328 C 329 C WIND SHEAR IS VANISHINGLY SO SET RICHARDSON 330 C NUMBER TO POST PROCESSOR SPECIAL VALUE. 331 C 332 RICHNO(I,J,L)=SPVAL 333 C 334 ELSE 335 C 336 C WIND SHEAR LARGE ENOUGH TO USE RICHARDSON NUMBER. 337 C 338 CT=-1.*G*BETA*DTHVKL*RDZKL 339 RI=-CT/CS 340 RICHNO(I,J,L)=RI 341 ENDIF 342 C 343 10 CONTINUE 344 ENDDO 345 ENDDO 346 ENDDO 347 C 348 C END OF ROUTINE. 349 C 350 RETURN 351 END Page 5 Source Listing CALRCH 2025-03-12 18:23 Entry Points CALRCH.f ENTRY POINTS Name calrch_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 343 306 A2 Param 107 R(4) 4 scalar A3 Param 107 R(4) 4 scalar A4 Param 107 R(4) 4 scalar AD05 Param 99 R(4) 4 scalar AMAX1 Func 315 scalar 315,318 APE Local 241 R(4) 4 scalar 241,242 BETA Param 103 R(4) 4 scalar 103,338 BTG Param 103 R(4) 4 scalar CALRCH Subr 1 CAPA Param 94 R(4) 4 scalar 101,241 CFT0 Param 99 R(4) 4 scalar CM1 Param 89 R(4) 4 scalar CM2 Param 89 R(4) 4 scalar CM3 Param 89 R(4) 4 scalar CP Param 100 R(4) 4 scalar 102,106 CPDR Param 102 R(4) 4 scalar CT Local 338 R(4) 4 scalar 338,339 CTLBLK Common 205 96 SAVE D00 Param 91 R(4) 4 scalar D001 Param 91 R(4) 4 scalar D0065 Param 95 R(4) 4 scalar D01 Param 91 R(4) 4 scalar D05 Param 95 R(4) 4 scalar 99 D1 Param 91 R(4) 4 scalar D115 Param 95 R(4) 4 scalar D125 Param 93 R(4) 4 scalar 272 D25 Param 93 R(4) 4 scalar D50 Param 91 R(4) 4 scalar 313 D608 Param 95 R(4) 4 scalar 242 DP10M Param 101 R(4) 4 scalar DTHVKL Local 320 R(4) 4 scalar 320,338 DTR Param 100 R(4) 4 scalar 100 DUKL Local 321 R(4) 4 scalar 321,323 DVKL Local 322 R(4) 4 scalar 322,323 DZKL Local 313 R(4) 4 scalar 313,314 EGRID1 Local 113 R(4) 4 2 91719 253,266,273 EGRID2 Local 113 R(4) 4 2 91719 261,267,274 EL Dummy 1 R(4) 4 3 4127355 ARG,INOUT 317 ELDR Param 102 R(4) 4 scalar ELKL Local 317 R(4) 4 scalar 317,318,319 ELKLSQ Local 319 R(4) 4 scalar 319 ELWV Param 102 R(4) 4 scalar 102 EPS Param 105 R(4) 4 scalar 105 Page 6 Source Listing CALRCH 2025-03-12 18:23 Symbol Table CALRCH.f Name Object Declared Type Bytes Dimen Elements Attributes References EPSQ2 Param 106 R(4) 4 scalar 318 ERAD Param 100 R(4) 4 scalar EXCH Subr 246 246,266,267 EXTRA Common 121 71506268 SAVE FMD Param 105 R(4) 4 scalar 105 FMW Param 105 R(4) 4 scalar 105 G Param 98 R(4) 4 scalar 98,338 GI Param 98 R(4) 4 scalar 102 H1 Param 92 R(4) 4 scalar 99,242 H100 Param 93 R(4) 4 scalar H1000 Param 93 R(4) 4 scalar H10000 Param 94 R(4) 4 scalar H10E5 Param 94 R(4) 4 scalar 241 H1E2 Param 96 R(4) 4 scalar H1E4 Param 96 R(4) 4 scalar H1M12 Param 92 R(4) 4 scalar H1M2 Param 96 R(4) 4 scalar H1M5 Param 93 R(4) 4 scalar H2 Param 92 R(4) 4 scalar H4 Param 92 R(4) 4 scalar H999 Param 91 R(4) 4 scalar H99999 Param 92 R(4) 4 scalar HGT Local 113 R(4) 4 2 91719 230 I Local 221 I(4) 4 scalar 221,222,229,230,240,241,242,251,25 2,253,254,259,260,261,262,270,271, 272,273,274,293,294,295,303,304,30 5,307,308,309,310,311,312,313,315, 317,320,332,340 IDIM1 Param 62 I(4) 4 scalar IDIM2 Param 62 I(4) 4 scalar IE Local 252 I(4) 4 scalar 252,253,254,260,261,262,294,303,30 5,307,308,310,311 IGSTL Param 57 I(4) 4 scalar 62 IGSTR Param 57 I(4) 4 scalar 62 IM Param 51 I(4) 4 scalar 59,62,70,72,73,75,113,114,120,122, 123,124,125,126,127,135,141,143,15 7,158,159,160,161,162,170,172,177, 178,179,180,181,183,221,229,240,25 1,259,270,293 IM1 Param 72 I(4) 4 scalar IMJM Param 120 I(4) 4 scalar 123 IMT Param 70 I(4) 4 scalar INDX Common 192 6192 SAVE INPES Param 54 I(4) 4 scalar 59,62 ITAIL Param 59 I(4) 4 scalar ITB Param 112 I(4) 4 scalar 154,164 ITBQ Param 112 I(4) 4 scalar 155,164 IW Local 271 I(4) 4 scalar 271,273,274,295,303,304,307,308,31 0,311 J Local 220 I(4) 4 scalar 220,222,228,230,239,241,242,250,25 2,253,254,258,260,261,262,269,271, 272,273,274,292,294,295,303,304,30 5,307,308,309,310,311,312,313,315, 317,320,332,340 JAM Param 72 I(4) 4 scalar 133 Page 7 Source Listing CALRCH 2025-03-12 18:23 Symbol Table CALRCH.f Name Object Declared Type Bytes Dimen Elements Attributes References JDIM1 Param 63 I(4) 4 scalar JDIM2 Param 63 I(4) 4 scalar JGSTL Param 58 I(4) 4 scalar 63 JGSTR Param 58 I(4) 4 scalar 63 JM Param 51 I(4) 4 scalar 60,63,70,72,75,113,114,120,122,123 ,124,125,126,127,135,141,143,157,1 58,159,160,161,162,170,172,177,178 ,179,180,181,183,193 JM2 Param 72 I(4) 4 scalar JMT Param 70 I(4) 4 scalar JNPES Param 54 I(4) 4 scalar 60,63 JTAIL Param 60 I(4) 4 scalar JTB Param 112 I(4) 4 scalar 154,164 JTBQ Param 112 I(4) 4 scalar 164 KSAV Param 80 I(4) 4 scalar KSFI Param 79 I(4) 4 scalar KSLI Param 80 I(4) 4 scalar KSLP Param 80 I(4) 4 scalar KSLPD Param 79 I(4) 4 scalar KSMUD Param 79 I(4) 4 scalar KSRH Param 80 I(4) 4 scalar KSSLP Param 79 I(4) 4 scalar KST Param 79 I(4) 4 scalar KSUV Param 80 I(4) 4 scalar L Local 219 I(4) 4 scalar 219,222,238,241,242,246,253,254,26 1,262,272,288,303,304,305,307,308, 309,310,311,312,313,315,317,320,33 2,340 LB Param 75 I(4) 4 scalar LHEAT Param 106 I(4) 4 scalar 106 LHTOCP Param 106 I(4) 4 scalar LM Param 51 I(4) 4 scalar 74,85,114,123,143,153,172,183,219, 238 LM1 Param 74 I(4) 4 scalar 288 LOOPS Common 132 748952 SAVE LP1 Param 74 I(4) 4 scalar 122,153 LSM Param 51 I(4) 4 scalar MASKS Common 140 34853220 SAVE NINC Param 73 I(4) 4 scalar NSTAT Param 85 I(4) 4 scalar NSUMD Param 81 I(4) 4 scalar NWORD Param 85 I(4) 4 scalar 85 NWORD3 Param 85 I(4) 4 scalar NWORD6 Param 85 I(4) 4 scalar ONEPS Param 105 R(4) 4 scalar OPTIONS Common 188 24 SAVE OVERRC Param 99 R(4) 4 scalar 99 P1000 Param 101 R(4) 4 scalar PARALLEL Common 212 8240 PHYS Common 148 7690036 SAVE PQ0 Param 107 R(4) 4 scalar PVRBLS Common 176 23480064 SAVE Q2KL Local 315 R(4) 4 scalar 315,316 QROOT Local 316 R(4) 4 scalar 316 RCAPA Param 101 R(4) 4 scalar Page 8 Source Listing CALRCH 2025-03-12 18:23 Symbol Table CALRCH.f Name Object Declared Type Bytes Dimen Elements Attributes References RD Param 98 R(4) 4 scalar 98,102,106 RDOCP Param 106 R(4) 4 scalar RDZKL Local 314 R(4) 4 scalar 314,323,338 RG Param 102 R(4) 4 scalar 230 RI Local 339 R(4) 4 scalar 339,340 RICHNO Dummy 1 R(4) 4 3 4127355 ARG,INOUT 222,332,340 ROG Param 98 R(4) 4 scalar RTD Param 100 R(4) 4 scalar SMTHA Param 81 R(4) 4 scalar SMTHB Param 81 R(4) 4 scalar SQRT Func 316 scalar 316 TFRZ Param 105 R(4) 4 scalar THV Local 114 R(4) 4 3 4127355 242,246,253,261,272,320 UHKL Local 307 R(4) 4 scalar 307,321 ULKL Local 308 R(4) 4 scalar 308,321 VHKL Local 310 R(4) 4 scalar 310,322 VLKL Local 311 R(4) 4 scalar 311,322 VRBLS Common 169 67138308 WNDSL Local 303 R(4) 4 scalar 303,306,307,310 WNDSLP Local 304 R(4) 4 scalar 304,306,309,312 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 264 1 45 COM 241 AKHS R(4) 4 733752 2 91719 COM AKMS R(4) 4 366876 2 91719 COM ALBASE R(4) 4 5139788 2 91719 COM ALBEDO R(4) 4 5506664 2 91719 COM ALPINT R(4) 4 16876296 3 4219074 COM CI R(4) 4 40 scalar COM CLDEFI R(4) 4 5136264 2 91719 COM CS R(4) 4 28 scalar COM 323,327,339 CUPREC R(4) 4 6603768 2 91719 COM CZEN R(4) 4 2204780 2 91719 COM CZMEAN R(4) 4 6607292 2 91719 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 DTQ2 R(4) 4 8 scalar COM ELWDWN R(4) 4 2938532 2 91719 COM EPSR R(4) 4 370400 2 91719 COM FIRST R(4) 4 24 scalar COM FIS R(4) 4 733752 2 91719 COM 230 FSL R(4) 4 70405632 2 91719 COM GFFC R(4) 4 4406036 2 91719 COM GLAT R(4) 4 1471028 2 91719 COM GLON R(4) 4 1837904 2 91719 COM Page 9 Source Listing CALRCH 2025-03-12 18:23 Symbol Table CALRCH.f Name Type Bytes Offset Dimen Elements Attributes References HBM2 R(4) 4 0 2 91719 COM 274 HBOT R(4) 4 3672284 2 91719 COM HDAC R(4) 4 5873540 2 91719 COM HDACV R(4) 4 6240416 2 91719 COM HTM R(4) 4 1834380 3 4127355 COM 254,262 HTOP R(4) 4 3305408 2 91719 COM IBESSL I(4) 4 4 scalar 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 IFLAG I(4) 4 16 scalar COM IHE I(4) 4 0 1 387 COM 252,260,294 IHHA I(4) 4 3040 1 760 COM IHLA I(4) 4 0 1 760 COM IHRST I(4) 4 20 scalar COM IHW I(4) 4 1548 1 387 COM 271,295 IOFFS I(4) 4 12 scalar COM IOUT I(4) 4 44 scalar COM IUP I(4) 4 32 scalar COM IVE I(4) 4 3096 1 387 COM IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM IVW I(4) 4 4644 1 387 COM JEND I(4) 4 12 scalar COM 220,228,239,258 JEND_2U I(4) 4 8236 scalar COM JEND_M I(4) 4 20 scalar COM 250 JEND_M2 I(4) 4 28 scalar COM 269,292 JRA I(4) 4 12160 1 760 COM JSTA I(4) 4 8 scalar COM 220,228,239,250 JSTA_2L I(4) 4 8232 scalar COM JSTA_M I(4) 4 16 scalar COM 258 JSTA_M2 I(4) 4 24 scalar COM 269,292 KMNT I(4) 4 50629068 2 4118670 COM KMNTM I(4) 4 50628888 1 45 COM KSB I(4) 4 8 scalar COM KTM I(4) 4 0 scalar COM LIST I(4) 4 40 scalar COM LMH I(4) 4 15200 2 91719 COM LMV I(4) 4 382076 2 91719 COM ME I(4) 4 4 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 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 Page 10 Source Listing CALRCH 2025-03-12 18:23 Symbol Table CALRCH.f Name Type Bytes Offset Dimen Elements Attributes References OLDRD R(4) 4 71506260 scalar COM PD R(4) 4 0 2 91719 COM PDSL R(4) 4 67837500 2 91719 COM 241 PDVP1 R(4) 4 68204376 2 91719 COM PFSL R(4) 4 69305004 2 91719 COM PINT R(4) 4 0 3 4219074 COM PL R(4) 4 48 scalar COM PLQ R(4) 4 72 scalar COM PREC R(4) 4 5503140 2 91719 COM PSLP R(4) 4 68571252 2 91719 COM PT R(4) 4 4 scalar COM 241 PTBL R(4) 4 7341044 2 10184 COM PTSL R(4) 4 68938128 2 91719 COM Q R(4) 4 50628888 3 4127355 COM 242 Q2 R(4) 4 6970644 3 4127355 COM 315 QS R(4) 4 1467504 2 91719 COM QS0 R(4) 4 628 1 134 COM QSL R(4) 4 70772508 2 91719 COM QWBS R(4) 4 4035636 2 91719 COM QZ0 R(4) 4 2935008 2 91719 COM RADIN R(4) 4 737276 2 91719 COM RADOT R(4) 4 1104152 2 91719 COM RDP R(4) 4 64 scalar COM RDPQ R(4) 4 76 scalar COM RDQ R(4) 4 56 scalar COM RDTH R(4) 4 60 scalar COM RDTHE R(4) 4 68 scalar COM RDTHEQ R(4) 4 80 scalar COM RES R(4) 4 366876 2 91719 COM RESTRT R(4) 4 28 scalar COM RF R(4) 4 3301884 2 91719 COM RMXSNAL R(4) 4 3524 2 91719 COM ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM RUN R(4) 4 4 scalar COM SATDEL R(4) 4 20 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 SIGT4 R(4) 4 6974168 2 91719 COM SLP R(4) 4 67103748 2 91719 COM SM R(4) 4 1100628 2 91719 COM SNO R(4) 4 4402512 2 91719 COM SPVAL R(4) 4 0 scalar COM 222,332 SQS R(4) 4 1164 1 134 COM SST R(4) 4 4772912 2 91719 COM STDRD R(4) 4 71506264 scalar COM STHE R(4) 4 2004 1 76 COM STHEQ R(4) 4 2916 1 152 COM SWNET R(4) 4 2571656 2 91719 COM T R(4) 4 34119468 3 4127355 COM 242 T500 R(4) 4 67470624 2 91719 COM TDTD R(4) 4 20 scalar COM TDTQ2 R(4) 4 12 scalar COM TG R(4) 4 4039160 2 91719 COM Page 11 Source Listing CALRCH 2025-03-12 18:23 Symbol Table CALRCH.f Name Type Bytes Offset Dimen Elements Attributes References 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 1100628 2 91719 COM THZ0 R(4) 4 2568132 2 91719 COM TSL R(4) 4 69671880 2 91719 COM TTBL R(4) 4 7381780 2 10184 COM TTBLQ R(4) 4 7422516 2 66880 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 307,308,309 UZ0 R(4) 4 1834380 2 91719 COM V R(4) 4 17610048 3 4127355 COM 310,311,312 VBM2 R(4) 4 366876 2 91719 COM VBM3 R(4) 4 733752 2 91719 COM VTM R(4) 4 18343800 3 4127355 COM 303,304,305 VZ0 R(4) 4 2201256 2 91719 COM Z0 R(4) 4 0 2 91719 COM Z1000 R(4) 4 71139384 2 91719 COM ZINT R(4) 4 33752592 3 4219074 COM 313 Page 12 Source Listing CALRCH 2025-03-12 18:23 CALRCH.f 352 Page 13 Source Listing CALRCH 2025-03-12 18:23 Subprograms/Common Blocks CALRCH.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CALRCH Subr 1 CTLBLK Common 205 96 SAVE EXTRA Common 121 71506268 SAVE INDX Common 192 6192 SAVE LOOPS Common 132 748952 SAVE MASKS Common 140 34853220 SAVE OPTIONS Common 188 24 SAVE PARALLEL Common 212 8240 PHYS Common 148 7690036 SAVE PVRBLS Common 176 23480064 SAVE VRBLS Common 169 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 Page 14 Source Listing CALRCH 2025-03-12 18:23 CALRCH.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 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 Page 15 Source Listing CALRCH 2025-03-12 18:23 CALRCH.f -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 : CALRCH.lst no -o COMPILER: Intel(R) Fortran 19.1-1655