Page 1 Source Listing CALEKM 2025-03-12 18:23 CALEKM.f 1 SUBROUTINE CALEKM(U1D,V1D) 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: CALEKM COMPUTES EKMAN ROT. GEOS. WINDS 5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 93-03-23 6 C 7 C ABSTRACT: 8 C THIS ROUTINE COMPUTES EKMAN SPRIAL ROTATED GEOSTROPHIC 9 C WINDS USING 1000MB HEIGHTS. THE EKMAN SPIRAL ROTATION 10 C IS BASED ON THE MATERIAL PRESENTED IN SECTION 8.5.2 11 C (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 CALEKM(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.,ISMTHZ=2) Page 2 Source Listing CALEKM 2025-03-12 18:23 CALEKM.f 116 PARAMETER (FACTOR=1.0,RHO=1.) 117 C 118 C DECLARE VARIABLES 119 REAL U1D(IM,JM),V1D(IM,JM),ZH(IM,JM),ZV(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 CALEKM 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 ZH(I,J) =Z1000(I,J) 220 ZV(I,J) =D00 221 ENDDO 222 ENDDO 223 C 224 C COMPUTE 1000MB HEIGHTS AT V POINTS. SMOOTH MASS POINT 225 C HEIGHTS PRIOR TO CALCULATION. SMOOTH WIND POINT HEIGHTS 226 C AFTER CALCULATION. 227 C 228 CALL P2FILT(ISMTHZ,HBM2,ZH) 229 C 230 DO J=JSTA_M,JEND_M 231 DO I=2,IM-1 232 ZV(I,J)=D25*(ZH(I+IVE(J),J)+ZH(I+IVW(J),J) 233 1 +ZH(I,J+1)+ZH(I,J-1)) 234 ENDDO 235 ENDDO 236 C 237 CALL P2FLTV(ISMTHZ,VBM2,ZV) 238 C 239 C LOOP OVER HORIZONTAL GRID. 240 C 241 DO 30 J=JSTA_M2,JEND_M2 242 DO 30 I=2,IM-1 243 C 244 C OBTAIN FAL WIND COMPONENTS 245 C Page 3 Source Listing CALEKM 2025-03-12 18:23 CALEKM.f 246 LLMH=LMH(I,J) 247 UFAL=U(I,J,LLMH) 248 VFAL=V(I,J,LLMH) 249 250 CX WRITE(81,*)' ' 251 CX 1234 FORMAT(I3,1X,I3,1X,I2,1X,5(G12.6,1X)) 252 253 C 254 C COMPUTE GEOSTROPHIC WIND BASED ON 1000MB HEIGHTS. 255 C 256 FTRUE=(2.*F(I,J))/DT 257 GRF =G/FTRUE 258 DZDX =(ZV(I+IHE(J),J)-ZV(I+IHW(J),J))/(2.*DX(I,J)) 259 DZDY =(ZV(I,J+1)-ZV(I,J-1))/(2.*DY) 260 UG =-1.*GRF*DZDY*HBM2(I,J) 261 VG =GRF*DZDX*HBM2(I,J) 262 SPDG =SQRT(UG*UG+VG*VG) 263 C 264 C COMPUTE EKMAN SPIRAL COEFFICIENTS. 265 C 266 WDIRT = WDIR(UFAL,VFAL) 267 WDIRG = WDIR(UG,VG) 268 B = SQRT(FTRUE/TWOK) 269 BZMH = B*ZMH 270 IF (BZMH.GT. ARGLIM) BZMH= ARGLIM 271 IF (BZMH.LT.-ARGLIM) BZMH=-ARGLIM 272 EXBZMH = EXP(-1.*BZMH) 273 C 274 C COMPUTE EKMAN SPIRAL U WIND COMPONENT. 275 C 276 ALPHAS=+45. 277 ALPHAS=ALPHAS*DEG2RD*FACTOR 278 SINALF=SIN(ALPHAS) 279 ARG =D75PI + ALPHAS - BZMH 280 COSARG=COS(ARG) 281 IF(((WDIRG.GE.000.).AND.(WDIRG.LE.090.)).OR. 282 X ((WDIRG.GE.270.).AND.(WDIRG.LE.360.))) 283 X COSARG=-1.*COSARG 284 U1D(I,J)=UG+SQRT2*SPDG*SINALF*EXBZMH*COSARG 285 286 CX WRITE(81,1235) WDIRG,WDIRT,ALPHAS,SINALF 287 CX WRITE(81,1235) B,ZMH,BZMH,EXBZMH 288 CX WRITE(81,1235) ARG,COSARG,SINARG 289 C 290 C COMPUTE EKMAN SPIRAL V WIND COMPONENT. 291 C 292 ALPHAS=+45. 293 ALPHAS=ALPHAS*DEG2RD*FACTOR 294 SINALF=SIN(ALPHAS) 295 ARG =D75PI+ALPHAS-BZMH 296 SINARG=SIN(ARG) 297 IF((WDIRG.GE.000.).AND.(WDIRG.LE.180.)) 298 X SINARG=-1.*SINARG 299 V1D(I,J)=VG+SQRT2*SPDG*SINALF*EXBZMH*SINARG 300 301 CX WRITE(81,1235) WDIRG,WDIRT,ALPHAS,SINALF 302 CX WRITE(81,1235) B,ZMH,BZMH,EXBZMH Page 4 Source Listing CALEKM 2025-03-12 18:23 CALEKM.f 303 CX WRITE(81,1235) ARG,COSARG,SINARG 304 305 C 306 C SCALE EKMAN SPIRAL WIND COMPONENTS TO ACCEPTABLE 307 C LEVEL. THIS IS ENTIRELY AD HOC. IT WAS DONE TO 308 C PRODUCE A PLEASING WIND FIELD. 309 C 310 U1D(I,J)=D50*U1D(I,J) 311 V1D(I,J)=D50*V1D(I,J) 312 313 CX WRITE(81,1234)I,J,LLMH,WDIRG,WDIRT,UG,VG 314 CX WRITE(81,1234)I,J,LLMH,SQRT2,SPDG,ALPHAS/DEG2RD,SINALF 315 CX WRITE(81,1234)I,J,LLMH,EXBZMH,COSARG,SINARG 316 CX WRITE(81,1234)I,J,LLMH,UFAL,VFAL,U1D(I,J),V1D(I,J) 317 318 30 CONTINUE 319 C 320 C END OF ROUTINE. 321 RETURN 322 END ENTRY POINTS Name calekm_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 30 Label 318 241,242 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 276 R(4) 4 scalar 276,277,278,279,292,293,294,295 ARG Local 279 R(4) 4 scalar 279,280,295,296 ARGLIM Param 115 R(4) 4 scalar 270,271 B Local 268 R(4) 4 scalar 268,269 BETA Param 108 R(4) 4 scalar 108 BTG Param 108 R(4) 4 scalar BZMH Local 269 R(4) 4 scalar 269,270,271,272,279,295 CALEKM 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 280 scalar 280 COSARG Local 280 R(4) 4 scalar 280,283,284 CP Param 105 R(4) 4 scalar 107,111 CPDR Param 107 R(4) 4 scalar CTLBLK Common 168 96 SAVE Page 5 Source Listing CALEKM 2025-03-12 18:23 Symbol Table CALEKM.f Name Object Declared Type Bytes Dimen Elements Attributes References 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 232 D50 Param 96 R(4) 4 scalar 310,311 D608 Param 100 R(4) 4 scalar D75PI Local 208 R(4) 4 scalar 208,279,295 DEG2RD Local 209 R(4) 4 scalar 209,277,293 DP10M Param 106 R(4) 4 scalar DTR Param 105 R(4) 4 scalar 105 DYNAM Common 143 3675964 SAVE DZDX Local 258 R(4) 4 scalar 258,261 DZDY Local 259 R(4) 4 scalar 259,260 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 272 R(4) 4 scalar 272,284,299 EXP Func 272 scalar 272 EXTRA Common 125 71506268 SAVE FACTOR Param 116 R(4) 4 scalar 277,293 FMD Param 110 R(4) 4 scalar 110 FMW Param 110 R(4) 4 scalar 110 FTRUE Local 256 R(4) 4 scalar 256,257,268 G Param 103 R(4) 4 scalar 103,257 GI Param 103 R(4) 4 scalar 107 GRF Local 257 R(4) 4 scalar 257,260,261 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,231,232,233,24 2,246,247,248,256,258,259,260,261, 284,299,310,311 IDIM1 Param 66 I(4) 4 scalar IDIM2 Param 66 I(4) 4 scalar IGSTL Param 61 I(4) 4 scalar 66 Page 6 Source Listing CALEKM 2025-03-12 18:23 Symbol Table CALEKM.f Name Object Declared Type Bytes Dimen Elements Attributes References 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,231,242 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 ISMTHZ Param 115 I(4) 4 scalar 228,237 ITAIL Param 63 I(4) 4 scalar J Local 215 I(4) 4 scalar 215,217,218,219,220,230,232,233,24 1,246,247,248,256,258,259,260,261, 284,299,310,311 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 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 246 I(4) 4 scalar 246,247,248 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 Page 7 Source Listing CALEKM 2025-03-12 18:23 Symbol Table CALEKM.f Name Object Declared Type Bytes Dimen Elements Attributes References P1000 Param 106 R(4) 4 scalar P2FILT Subr 228 228 P2FLTV Subr 237 237 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 ROG Param 103 R(4) 4 scalar RTD Param 105 R(4) 4 scalar SIN Func 278 scalar 278,294,296 SINALF Local 278 R(4) 4 scalar 278,284,294,299 SINARG Local 296 R(4) 4 scalar 296,298,299 SMTHA Param 86 R(4) 4 scalar SMTHB Param 86 R(4) 4 scalar SPDG Local 262 R(4) 4 scalar 262,284,299 SQRT Func 210 scalar 210,262,268 SQRT2 Local 210 R(4) 4 scalar 210,284,299 TFRZ Param 110 R(4) 4 scalar TWOK Param 113 R(4) 4 scalar 268 U1D Dummy 1 R(4) 4 2 91719 ARG,INOUT 217,284,310 UFAL Local 247 R(4) 4 scalar 247,266 UG Local 260 R(4) 4 scalar 260,262,267,284 V1D Dummy 1 R(4) 4 2 91719 ARG,INOUT 218,299,311 VFAL Local 248 R(4) 4 scalar 248,266 VG Local 261 R(4) 4 scalar 261,262,267,299 VRBLS Common 136 67138308 WDIR Func 266 R(4) 4 scalar 266,267 WDIRG Local 267 R(4) 4 scalar 267,281,282,297 WDIRT Local 266 R(4) 4 scalar 266 Z Param 114 R(4) 4 scalar 114 ZH Local 119 R(4) 4 2 91719 219,228,232,233 ZMH Param 114 R(4) 4 scalar 269 ZV Local 119 R(4) 4 2 91719 220,232,237,258,259 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 Page 8 Source Listing CALEKM 2025-03-12 18:23 Symbol Table CALEKM.f Name Type Bytes Offset Dimen Elements Attributes References 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 256 DX R(4) 4 7204 2 91719 COM 258 DY R(4) 4 0 scalar COM 259 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 256 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 228,260,261 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 258 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 258 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 232 IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM IVW I(4) 4 4644 1 387 COM 232 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 230 JEND_M2 I(4) 4 28 scalar COM 241 JRA I(4) 4 12160 1 760 COM JSTA I(4) 4 8 scalar COM 215 JSTA_2L I(4) 4 8232 scalar COM Page 9 Source Listing CALEKM 2025-03-12 18:23 Symbol Table CALEKM.f Name Type Bytes Offset Dimen Elements Attributes References JSTA_M I(4) 4 16 scalar COM 230 JSTA_M2 I(4) 4 24 scalar COM 241 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 246 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 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 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 Page 10 Source Listing CALEKM 2025-03-12 18:23 Symbol Table CALEKM.f Name Type Bytes Offset Dimen Elements Attributes References 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 247 V R(4) 4 17610048 3 4127355 COM 248 VBM2 R(4) 4 366876 2 91719 COM 237 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 219 ZINT R(4) 4 33752592 3 4219074 COM Page 11 Source Listing CALEKM 2025-03-12 18:23 Subprograms/Common Blocks CALEKM.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CALEKM 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 12 Source Listing CALEKM 2025-03-12 18:23 CALEKM.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 13 Source Listing CALEKM 2025-03-12 18:23 CALEKM.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 : CALEKM.lst no -o COMPILER: Intel(R) Fortran 19.1-1655