Page 1 Source Listing CALEKM2 2025-03-12 18:23 CALEKM2.f 1 SUBROUTINE CALEKM2(U1D,V1D) 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: CALEKM2 COMPUTES EKMAN ROT. GEOS. WINDS 5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 93-03-25 6 C 7 C ABSTRACT: 8 C THIS ROUTINE COMPUTES EKMAN SPRIAL ROTATED GEOSTROPHIC 9 C WINDS FROM THE SEA LEVEL PRESSURE. THE EKMAN SPIRAL 10 C ROTATION IS BASED ON THE MATERIAL PRESENTED IN SECTION 11 C 8.5.2 (PP274-277) OF "NUMERICAL WEATHER PREDICTION AND 12 C DYNAMIC METEOROLOGY" BY HALTINER AND WILLIAMS 13 C (WILEY,1980). 14 C . 15 C 16 C PROGRAM HISTORY LOG: 17 C 93-03-23 RUSS TREADON 18 C 98-06-16 T BLACK - CONVERSION FROM 1-D TO 2-D 19 C 00-01-04 JIM TUCCILLO - MPI VERSION 20 C 21 C USAGE: CALL CALEKM2(U1D,V1D) 22 C INPUT ARGUMENT LIST: 23 C NONE 24 C 25 C OUTPUT ARGUMENT LIST: 26 C U1D - EKMAN SPIRAL GEOSTROPHIC U WIND 27 C V1D - EKMAN SPIRAL GEOSTROPHIC V WIND 28 C 29 C OUTPUT FILES: 30 C NONE 31 C 32 C SUBPROGRAMS CALLED: 33 C UTILITIES: 34 C NONE 35 C LIBRARY: 36 C COMMON - EXTRA 37 C VRBLS 38 C DYNAMD 39 C MAPOT 40 C CTLBLK 41 C MASKS 42 C LOOPS 43 C INDX 44 C 45 C ATTRIBUTES: 46 C LANGUAGE: FORTRAN 90 47 C MACHINE : CRAY C-90 48 C$$$ 49 C 50 C 51 C INCLUDE PARAMETERS 52 INCLUDE "parmeta" 70 INCLUDE "params" 71 C 113 PARAMETER (EDDYK=5.,TWOK=2.*EDDYK) 114 PARAMETER (Z=250.,H=50.,ZMH=Z-H) 115 PARAMETER (ARGLIM=500.,ISMTHP=2) Page 2 Source Listing CALEKM2 2025-03-12 18:23 CALEKM2.f 116 PARAMETER (FACTOR=1.0,RHO=1.) 117 C 118 C DECLARE VARIABLES 119 REAL U1D(IM,JM),V1D(IM,JM),SLPH(IM,JM),SLPV(IM,JM) 120 C 121 C INCLUDE COMMON BLOCKS. 122 INCLUDE "EXTRA.comm" 134 INCLUDE "VRBLS.comm" 141 INCLUDE "DYNAMD.comm" 153 INCLUDE "MAPOT.comm" 166 INCLUDE "CTLBLK.comm" 181 INCLUDE "MASKS.comm" 189 INCLUDE "LOOPS.comm" 197 INCLUDE "INDX.comm" 198 C 199 C****************************************************************** 200 C START CALEKM2 HERE. 201 C 202 C SET CONSTANTS. 208 D75PI =3.*ACOS(-1.)/4. 209 DEG2RD=ACOS(-1.)/180. 210 SQRT2 =SQRT(2.) 211 C 212 C INITIALIZE WIND COMPONENTS TO ZERO. 213 C 214 !$omp parallel do 215 DO J=JSTA,JEND 216 DO I=1,IM 217 U1D(I,J) =D00 218 V1D(I,J) =D00 219 SLPH(I,J)=SLP(I,J) 220 SLPV(I,J)=D00 221 ENDDO 222 ENDDO 223 C 224 C COMPUTE 1000MB HEIGHTS AT V POINTS. 225 C 226 CALL P2FILT(ISMTHP,HBM2,SLPH) 227 C 228 DO J=JSTA_M,JEND_M 229 DO I=2,IM-1 230 SLPV(I,J)=D25*(SLPH(I+IVE(J),J)+SLPH(I+IVW(J),J) 231 1 +SLPH(I,J+1)+SLPH(I,J-1)) 232 ENDDO 233 ENDDO 234 C 235 CALL P2FLTV(ISMTHP,VBM2,SLPV) 236 C 237 C LOOP OVER HORIZONTAL GRID. 238 C 239 DO 30 J=JSTA_M2,JEND_M2 240 DO 30 I=2,IM-1 241 C 242 C OBTAIN FAL WIND COMPONENTS 243 C 244 LLMH=LMH(I,J) 245 UFAL=U(I,J,LLMH) Page 3 Source Listing CALEKM2 2025-03-12 18:23 CALEKM2.f 246 VFAL=V(I,J,LLMH) 247 248 CX WRITE(81,*)' ' 249 CX 1234 FORMAT(I5,1X,I2,1X,5(G12.6,1X)) 250 251 C 252 C COMPUTE GEOSTROPHIC WIND BASED ON SEA LEVEL PRESSURE. 253 C 254 FTRUE=(2.*F(I,J))/DT 255 RRHOF=1./(RHO*FTRUE) 256 DPDX =(SLPV(I+IHE(J),J)-SLPV(I+IHW(J),J))/(2.*DX(I,J)) 257 DPDY =(SLPV(I,J+1)-SLPV(I,J-1))/(2.*DY) 258 UG =-1.*RRHOF*DPDY*HBM2(I,J) 259 VG =RRHOF*DPDX*HBM2(I,J) 260 SPDG =SQRT(UG**2+VG**2) 261 262 CX WRITE(81,1235) G,FTRUE,DX(K),DY 263 CX WRITE(81,1235) SLPV(K),SLPV(K-1),SLPV(K+IM-1),SLPV(K-IM) 264 CX WRITE(81,1235) GRF,DZDX,DZDY,UG,VG,SPDG 265 CX 1235 FORMAT(5(G12.6,1X)) 266 267 C 268 C COMPUTE EKMAN SPIRAL COEFFICIENTS. 269 C 270 WDIRT=WDIR(UFAL,VFAL) 271 WDIRG=WDIR(UG,VG) 272 B =SQRT(FTRUE/TWOK) 273 BZMH =B*ZMH 274 IF (BZMH.GT. ARGLIM) BZMH= ARGLIM 275 IF (BZMH.LT.-ARGLIM) BZMH=-ARGLIM 276 EXBZMH = EXP(-1.*BZMH) 277 C 278 C COMPUTE EKMAN SPIRAL U WIND COMPONENT. 279 C 280 ALPHAS=+45. 281 ALPHAS=ALPHAS*DEG2RD*FACTOR 282 SINALF=SIN(ALPHAS) 283 ARG =D75PI + ALPHAS - BZMH 284 COSARG=COS(ARG) 285 IF(((WDIRG.GE.000.).AND.(WDIRG.LE.090.)).OR. 286 X ((WDIRG.GE.270.).AND.(WDIRG.LE.360.)) ) 287 X COSARG = -1.*COSARG 288 U1D(I,J)=UG+SQRT2*SPDG*SINALF*EXBZMH*COSARG 289 290 CX WRITE(81,1235) WDIRG,WDIRT,ALPHAS,SINALF 291 CX WRITE(81,1235) B,ZMH,BZMH,EXBZMH 292 CX WRITE(81,1235) ARG,COSARG,SINARG 293 C 294 C COMPUTE EKMAN SPIRAL V WIND COMPONENT. 295 C 296 ALPHAS=+45. 297 ALPHAS=ALPHAS*DEG2RD*FACTOR 298 SINALF=SIN(ALPHAS) 299 ARG =D75PI + ALPHAS - BZMH 300 SINARG=SIN(ARG) 301 IF((WDIRG.GE.000.).AND.(WDIRG.LE.180.)) 302 X SINARG=-1.*SINARG Page 4 Source Listing CALEKM2 2025-03-12 18:23 CALEKM2.f 303 V1D(I,J)=VG+SQRT2*SPDG*SINALF*EXBZMH*SINARG 304 305 CX WRITE(81,1235) WDIRG,WDIRT,ALPHAS,SINALF 306 CX WRITE(81,1235) B,ZMH,BZMH,EXBZMH 307 CX WRITE(81,1235) ARG,COSARG,SINARG 308 309 C 310 C SCALE EKMAN SPIRAL WIND COMPONENTS TO AN ACCEPTABLE 311 C LEVEL THIS IS ENTIRELY AD HOC. IT WAS DONE TO PRODUCE 312 C A PLEASING WIND FIELD. 313 C 314 U1D(I,J)=D50*U1D(I,J) 315 V1D(I,J)=D50*V1D(I,J) 316 317 CX WRITE(81,1234) K,LLMH,WDIRG,WDIRT,UG,VG 318 CX WRITE(81,1234) K,LLMH,SQRT2,SPDG,ALPHAS/DEG2RD,SINALF 319 CX WRITE(81,1234) K,LLMH,EXBZMH,COSARG,SINARG 320 CX WRITE(81,1234) K,LLMH,UFAL,VFAL,U1D(K),V1D(K) 321 322 30 CONTINUE 323 C 324 C END OF ROUTINE. 325 RETURN 326 END ENTRY POINTS Name calekm2_ Page 5 Source Listing CALEKM2 2025-03-12 18:23 Symbol Table CALEKM2.f SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 30 Label 322 239,240 A2 Param 112 R(4) 4 scalar A3 Param 112 R(4) 4 scalar A4 Param 112 R(4) 4 scalar ACOS Func 208 scalar 208,209 AD05 Param 104 R(4) 4 scalar ALPHAS Local 280 R(4) 4 scalar 280,281,282,283,296,297,298,299 ARG Local 283 R(4) 4 scalar 283,284,299,300 ARGLIM Param 115 R(4) 4 scalar 274,275 B Local 272 R(4) 4 scalar 272,273 BETA Param 108 R(4) 4 scalar 108 BTG Param 108 R(4) 4 scalar BZMH Local 273 R(4) 4 scalar 273,274,275,276,283,299 CALEKM2 Subr 1 CAPA Param 99 R(4) 4 scalar 106 CFT0 Param 104 R(4) 4 scalar CM1 Param 94 R(4) 4 scalar CM2 Param 94 R(4) 4 scalar CM3 Param 94 R(4) 4 scalar COS Func 284 scalar 284 COSARG Local 284 R(4) 4 scalar 284,287,288 CP Param 105 R(4) 4 scalar 107,111 CPDR Param 107 R(4) 4 scalar CTLBLK Common 168 96 SAVE D00 Param 96 R(4) 4 scalar 217,218,220 D001 Param 96 R(4) 4 scalar D0065 Param 100 R(4) 4 scalar D01 Param 96 R(4) 4 scalar D05 Param 100 R(4) 4 scalar 104 D1 Param 96 R(4) 4 scalar D115 Param 100 R(4) 4 scalar D125 Param 98 R(4) 4 scalar D25 Param 98 R(4) 4 scalar 230 D50 Param 96 R(4) 4 scalar 314,315 D608 Param 100 R(4) 4 scalar D75PI Local 208 R(4) 4 scalar 208,283,299 DEG2RD Local 209 R(4) 4 scalar 209,281,297 DP10M Param 106 R(4) 4 scalar DPDX Local 256 R(4) 4 scalar 256,259 DPDY Local 257 R(4) 4 scalar 257,258 DTR Param 105 R(4) 4 scalar 105 DYNAM Common 143 3675964 SAVE EDDYK Param 113 R(4) 4 scalar 113 ELDR Param 107 R(4) 4 scalar ELWV Param 107 R(4) 4 scalar 107 EPS Param 110 R(4) 4 scalar 110 EPSQ2 Param 111 R(4) 4 scalar ERAD Param 105 R(4) 4 scalar EXBZMH Local 276 R(4) 4 scalar 276,288,303 EXP Func 276 scalar 276 EXTRA Common 125 71506268 SAVE Page 6 Source Listing CALEKM2 2025-03-12 18:23 Symbol Table CALEKM2.f Name Object Declared Type Bytes Dimen Elements Attributes References FACTOR Param 116 R(4) 4 scalar 281,297 FMD Param 110 R(4) 4 scalar 110 FMW Param 110 R(4) 4 scalar 110 FTRUE Local 254 R(4) 4 scalar 254,255,272 G Param 103 R(4) 4 scalar 103 GI Param 103 R(4) 4 scalar 107 H Param 114 R(4) 4 scalar 114 H1 Param 97 R(4) 4 scalar 104 H100 Param 98 R(4) 4 scalar H1000 Param 98 R(4) 4 scalar H10000 Param 99 R(4) 4 scalar H10E5 Param 99 R(4) 4 scalar H1E2 Param 101 R(4) 4 scalar H1E4 Param 101 R(4) 4 scalar H1M12 Param 97 R(4) 4 scalar H1M2 Param 101 R(4) 4 scalar H1M5 Param 98 R(4) 4 scalar H2 Param 97 R(4) 4 scalar H4 Param 97 R(4) 4 scalar H999 Param 96 R(4) 4 scalar H99999 Param 97 R(4) 4 scalar I Local 216 I(4) 4 scalar 216,217,218,219,220,229,230,231,24 0,244,245,246,254,256,257,258,259, 288,303,314,315 IDIM1 Param 66 I(4) 4 scalar IDIM2 Param 66 I(4) 4 scalar IGSTL Param 61 I(4) 4 scalar 66 IGSTR Param 61 I(4) 4 scalar 66 IM Param 55 I(4) 4 scalar 63,66,75,77,78,80,119,124,126,127, 128,129,130,131,137,139,149,150,18 4,186,194,216,229,240 IM1 Param 77 I(4) 4 scalar IMJM Param 124 I(4) 4 scalar 127 IMT Param 75 I(4) 4 scalar INDX Common 204 6192 SAVE INPES Param 58 I(4) 4 scalar 63,66 ISMTHP Param 115 I(4) 4 scalar 226,235 ITAIL Param 63 I(4) 4 scalar J Local 215 I(4) 4 scalar 215,217,218,219,220,228,230,231,23 9,244,245,246,254,256,257,258,259, 288,303,314,315 JAM Param 77 I(4) 4 scalar 147,192 JDIM1 Param 67 I(4) 4 scalar JDIM2 Param 67 I(4) 4 scalar JGSTL Param 62 I(4) 4 scalar 67 JGSTR Param 62 I(4) 4 scalar 67 JM Param 55 I(4) 4 scalar 64,67,75,77,80,119,124,126,127,128 ,129,130,131,137,139,149,150,184,1 86,194,205 JM2 Param 77 I(4) 4 scalar JMT Param 75 I(4) 4 scalar JNPES Param 58 I(4) 4 scalar 64,67 JTAIL Param 64 I(4) 4 scalar KSAV Param 85 I(4) 4 scalar KSFI Param 84 I(4) 4 scalar Page 7 Source Listing CALEKM2 2025-03-12 18:23 Symbol Table CALEKM2.f Name Object Declared Type Bytes Dimen Elements Attributes References KSLI Param 85 I(4) 4 scalar KSLP Param 85 I(4) 4 scalar KSLPD Param 84 I(4) 4 scalar KSMUD Param 84 I(4) 4 scalar KSRH Param 85 I(4) 4 scalar KSSLP Param 84 I(4) 4 scalar KST Param 84 I(4) 4 scalar KSUV Param 85 I(4) 4 scalar LB Param 80 I(4) 4 scalar LHEAT Param 111 I(4) 4 scalar 111 LHTOCP Param 111 I(4) 4 scalar LLMH Local 244 I(4) 4 scalar 244,245,246 LM Param 55 I(4) 4 scalar 79,90,127,139,145,161,186 LM1 Param 79 I(4) 4 scalar LOOPS Common 191 748952 SAVE LP1 Param 79 I(4) 4 scalar 126,145,161 LSM Param 55 I(4) 4 scalar 160 MAPOT Common 155 1448 SAVE MASKS Common 183 34853220 SAVE NINC Param 78 I(4) 4 scalar NSTAT Param 90 I(4) 4 scalar NSUMD Param 86 I(4) 4 scalar NWORD Param 90 I(4) 4 scalar 90 NWORD3 Param 90 I(4) 4 scalar NWORD6 Param 90 I(4) 4 scalar ONEPS Param 110 R(4) 4 scalar OVERRC Param 104 R(4) 4 scalar 104 P1000 Param 106 R(4) 4 scalar P2FILT Subr 226 226 P2FLTV Subr 235 235 PARALLEL Common 175 8240 PQ0 Param 112 R(4) 4 scalar RCAPA Param 106 R(4) 4 scalar RD Param 103 R(4) 4 scalar 103,107,111 RDOCP Param 111 R(4) 4 scalar RG Param 107 R(4) 4 scalar RHO Param 116 R(4) 4 scalar 255 ROG Param 103 R(4) 4 scalar RRHOF Local 255 R(4) 4 scalar 255,258,259 RTD Param 105 R(4) 4 scalar SIN Func 282 scalar 282,298,300 SINALF Local 282 R(4) 4 scalar 282,288,298,303 SINARG Local 300 R(4) 4 scalar 300,302,303 SLPH Local 119 R(4) 4 2 91719 219,226,230,231 SLPV Local 119 R(4) 4 2 91719 220,230,235,256,257 SMTHA Param 86 R(4) 4 scalar SMTHB Param 86 R(4) 4 scalar SPDG Local 260 R(4) 4 scalar 260,288,303 SQRT Func 210 scalar 210,260,272 SQRT2 Local 210 R(4) 4 scalar 210,288,303 TFRZ Param 110 R(4) 4 scalar TWOK Param 113 R(4) 4 scalar 272 U1D Dummy 1 R(4) 4 2 91719 ARG,INOUT 217,288,314 UFAL Local 245 R(4) 4 scalar 245,270 UG Local 258 R(4) 4 scalar 258,260,271,288 Page 8 Source Listing CALEKM2 2025-03-12 18:23 Symbol Table CALEKM2.f Name Object Declared Type Bytes Dimen Elements Attributes References V1D Dummy 1 R(4) 4 2 91719 ARG,INOUT 218,303,315 VFAL Local 246 R(4) 4 scalar 246,270 VG Local 259 R(4) 4 scalar 259,260,271,303 VRBLS Common 136 67138308 WDIR Func 270 R(4) 4 scalar 270,271 WDIRG Local 271 R(4) 4 scalar 271,285,286,301 WDIRT Local 270 R(4) 4 scalar 270 Z Param 114 R(4) 4 scalar 114 ZMH Param 114 R(4) 4 scalar 273 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References AETA R(4) 4 808 1 45 COM AETAD R(4) 4 396 1 45 COM ALPINT R(4) 4 16876296 3 4219074 COM ALSL R(4) 4 472 1 39 COM CMLD R(4) 4 292 scalar COM CPGFU R(4) 4 740956 2 91719 COM CPGFV R(4) 4 4 scalar COM CPHI0 R(4) 4 1420 scalar COM CURV R(4) 4 1107832 2 91719 COM DDMPU R(4) 4 2942212 2 91719 COM DDMPV R(4) 4 3309088 2 91719 COM DETA R(4) 4 628 1 45 COM DETAD R(4) 4 36 1 45 COM DFL R(4) 4 940 1 46 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 254 DX R(4) 4 7204 2 91719 COM 256 DY R(4) 4 0 scalar COM 257 EF4T R(4) 4 32 scalar COM EM R(4) 4 1124 1 760 COM EMT R(4) 4 4164 1 760 COM EN R(4) 4 8 scalar COM ENT R(4) 4 12 scalar COM ERLAM0 R(4) 4 1416 scalar COM ETA R(4) 4 988 1 46 COM ETAD R(4) 4 756 1 46 COM F R(4) 4 2575336 2 91719 COM 254 F4D R(4) 4 24 scalar COM F4Q R(4) 4 28 scalar COM F4Q2 R(4) 4 576 1 45 COM FAD R(4) 4 2208460 2 91719 COM FCP R(4) 4 1474708 2 91719 COM FDIV R(4) 4 1841584 2 91719 COM FIRST R(4) 4 24 scalar COM FIS R(4) 4 733752 2 91719 COM FSL R(4) 4 70405632 2 91719 COM HBM2 R(4) 4 0 2 91719 COM 226,258,259 Page 9 Source Listing CALEKM2 2025-03-12 18:23 Symbol Table CALEKM2.f Name Type Bytes Offset Dimen Elements Attributes References 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 IHE I(4) 4 0 1 387 COM 256 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 256 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 IVE I(4) 4 3096 1 387 COM 230 IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM IVW I(4) 4 4644 1 387 COM 230 IXM I(4) 4 4 scalar COM IYM I(4) 4 8 scalar COM JEND I(4) 4 12 scalar COM 215 JEND_2U I(4) 4 8236 scalar COM JEND_M I(4) 4 20 scalar COM 228 JEND_M2 I(4) 4 28 scalar COM 239 JRA I(4) 4 12160 1 760 COM JSTA I(4) 4 8 scalar COM 215 JSTA_2L I(4) 4 8232 scalar COM JSTA_M I(4) 4 16 scalar COM 228 JSTA_M2 I(4) 4 24 scalar COM 239 KMNT I(4) 4 50629068 2 4118670 COM KMNTM I(4) 4 50628888 1 45 COM KUNIT I(4) 4 1428 scalar COM LIST I(4) 4 40 scalar COM LMH I(4) 4 15200 2 91719 COM 244 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 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 Page 10 Source Listing CALEKM2 2025-03-12 18:23 Symbol Table CALEKM2.f Name Type Bytes Offset Dimen Elements Attributes References PD R(4) 4 0 2 91719 COM 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 PSLP R(4) 4 68571252 2 91719 COM PT R(4) 4 260 scalar COM PTDYN R(4) 4 20 scalar COM PTSL R(4) 4 68938128 2 91719 COM Q R(4) 4 50628888 3 4127355 COM QSL R(4) 4 70772508 2 91719 COM R R(4) 4 256 scalar COM RDETA R(4) 4 216 1 45 COM RDYN R(4) 4 16 scalar COM RES R(4) 4 366876 2 91719 COM RESTRT R(4) 4 28 scalar COM RUN R(4) 4 4 scalar COM SBD R(4) 4 272 scalar COM SICE R(4) 4 1467504 2 91719 COM SIGMA R(4) 4 0 scalar COM SLP R(4) 4 67103748 2 91719 COM 219 SM R(4) 4 1100628 2 91719 COM SPHI0 R(4) 4 1424 scalar COM SPL R(4) 4 316 1 39 COM STDRD R(4) 4 71506264 scalar COM T R(4) 4 34119468 3 4127355 COM T500 R(4) 4 67470624 2 91719 COM 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 U R(4) 4 1100628 3 4127355 COM 245 V R(4) 4 17610048 3 4127355 COM 246 VBM2 R(4) 4 366876 2 91719 COM 235 VBM3 R(4) 4 733752 2 91719 COM VTM R(4) 4 18343800 3 4127355 COM WBD R(4) 4 268 scalar COM WPDAR R(4) 4 374080 2 91719 COM X1P R(4) 4 300 scalar COM Y1P R(4) 4 304 scalar COM Z0SLP R(4) 4 312 scalar COM Z1000 R(4) 4 71139384 2 91719 COM ZINT R(4) 4 33752592 3 4219074 COM Page 11 Source Listing CALEKM2 2025-03-12 18:23 CALEKM2.f 327 328 329 330 Page 12 Source Listing CALEKM2 2025-03-12 18:23 Subprograms/Common Blocks CALEKM2.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CALEKM2 Subr 1 CTLBLK Common 168 96 SAVE DYNAM Common 143 3675964 SAVE EXTRA Common 125 71506268 SAVE INDX Common 204 6192 SAVE LOOPS Common 191 748952 SAVE MAPOT Common 155 1448 SAVE MASKS Common 183 34853220 SAVE PARALLEL Common 175 8240 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 CALEKM2 2025-03-12 18:23 CALEKM2.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 CALEKM2 2025-03-12 18:23 CALEKM2.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 : CALEKM2.lst no -o COMPILER: Intel(R) Fortran 19.1-1655