Page 1 Source Listing MIXLEN 2025-03-12 18:22 /tmp/ifortaHAEqT.i 1 # 1 "MIXLEN.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE MIXLEN(LMHK,LPBL,HPBL,U,V,T,Q,Q2,APE,Z,GM,GH,EL) 4 C ****************************************************************** 5 C * * 6 C * LEVEL 2.5 MIXING LENGTH * 7 C * * 8 C ****************************************************************** 9 c 10 c July 1997: Modified to restore averaging of layer values of l, 11 c ELL, a la Mesinger 1993, Res. Act. Atmos. Ocean. Mod., No. 18, 12 c 4.36-4.38; 13 c 14 c A problem removed which may have led to the Òabove PBLÓ scheme 15 c for preliminary EL to be used inadvertently at times and places 16 c where the PBL scheme was supposed to have been used 17 c 18 C----------------------------------------------------------------------- 19 INCLUDE "parmeta" 43 INCLUDE "mpp.h" 44 # 1 "./sp.h" 1 45 # 4 46 47 # 21 "MIXLEN.F" 2 48 C----------------------------------------------------------------------- 107 P A R A M E T E R 108 &(LP1=LM+1,LM1=LM-1) 109 C----------------------------------------------------------------------- 110 P A R A M E T E R 111 &(EPSQ2=0.2,EPSL=0.32,EPSRU=1.E-12,EPSRS=1.E-12 112 &,FH=1.01,ALPH=.20,VKRM=.40,ELFC=0.23 ,EL0MAX=1000.) 113 C----------------------------------------------------------------------- 114 P A R A M E T E R 115 C----------------------------------------------------------------------- 116 &(G=9.8,BETA=1./270.,BTG=BETA*G 117 &,PRT=1.0,GAM1=0.2222222222222222222 118 &,A1=0.659888514560862645,A2=0.6574209922667784586 119 &,B1=11.87799326209552761,B2=7.226971804046074028 120 &,C1=0.000830955950095854396) 121 C----------------------------------------------------------------------- 122 CUN &(G=9.8,BETA=1./270.,BTG=BETA*G 123 CUN &,PRT=1.0,GAM1=0.2222222222222222222 124 CUN &,A1=0.3310949523016403346,A2=0.8273378704055731278 125 CUN &,B1=5.959709141429526024,B2=3.626088092074591135 126 CUN &,C1=-0.3330651924968952113) 127 C----------------------------------------------------------------------- 128 CMY &(G=9.8,BETA=1./270.,BTG=BETA*G 129 CMY &,PRT=0.8,GAM1=0.2222222222222222222 130 CMY &,A1=0.9222222350809054114,A2=0.7350190142719400952 131 CMY &,B1=16.60000023145629741,B2=10.10000014082581951 132 CMY &,C1=0.0805318118080613468) 133 C--------------COEFFICIENTS OF THE TERMS IN THE DENOMINATOR------------- 134 P A R A M E T E R 135 &(ADNM=18.*A1*A1*A2*(B2-3.*A2)*BTG 136 &,ADNH= 9.*A1*A2*A2*(12.*A1+3.*B2)*BTG*BTG 137 &,BDNM= 6.*A1*A1 138 &,BDNH= 3.*A2*(7.*A1+B2)*BTG Page 2 Source Listing MIXLEN 2025-03-12 18:22 MIXLEN.F 139 C--------------FREE TERM IN THE EQUILIBRIUM EQUATION FOR (L/Q)**2------- 140 &,AEQM= 3.*A1*A2*B1*(3.*A2+3.*B2*C1+18.*A1*C1-B2)*BTG 141 & +18.*A1*A1*A2*(B2-3.*A2)*BTG 142 &,AEQH= 9.*A1*A2*A2*B1*BTG*BTG+9.*A1*A2*A2*(12.*A1+3.*B2)*BTG*BTG 143 C--------------FORBIDDEN TURBULENCE AREA-------------------------------- 144 &,REQU=-AEQH/AEQM*1.02,EPSGH=1.E-9,EPSGM=REQU*EPSGH 145 C--------------NEAR ISOTROPY FOR SHEAR TURBULENCE, WW/Q2 LOWER LIMIT---- 146 &,UBRYL=(18.*REQU*A1*A1*A2*B2*C1*BTG+9.*A1*A2*A2*B2*BTG*BTG) 147 & /(REQU*ADNM+ADNH) 148 &,UBRY=(1.+EPSRS)*UBRYL 149 &,UBRY3=3.*UBRY 150 &,AUBM=54.*A1*A1*A2*B2*C1*BTG -ADNM*UBRY3 151 &,AUBH=27.*A1*A2*A2*B2*BTG*BTG-ADNH*UBRY3 152 &,BUBM=18.*A1*A1*C1 -BDNM*UBRY3 153 &,BUBH=(9.*A1*A2+3.*A2*B2)*BTG-BDNH*UBRY3 154 &,CUBR=1. - UBRY3,RCUBR=1./CUBR) 155 C----------------------------------------------------------------------- 156 D I M E N S I O N 157 & U (LM),V (LM) 158 &,T (LM),Q (LM),Q2 (LM) 159 D I M E N S I O N 160 & GM (LM1),GH (LM1),EL (LM1) 161 &,APE (LM ) 162 &,Z (LP1) 163 C----------------------------------------------------------------------- 164 D I M E N S I O N 165 & ELM (LM1),ELL (LM ) 166 &,Q1 (LM ),THV (LM ) 167 C----------------------------------------------------------------------- 168 C*********************************************************************** 169 LMHM=LMHK-1 170 LMHP=LMHK+1 171 C--------------FIND THE HEIGHT OF THE PBL------------------------------- 172 LPBL=LMHK 173 DO 100 IVI=1,LMHK 174 L=LMHK-IVI 175 IF(Q2(L).LE.EPSQ2*FH)THEN 176 CVVVVVVVVVVVVVV NOT NECESSARY IF DRIVEN BY TURBL VVVVVVVVVVVVVVVVVVVVVVV 177 C Q2(L)=EPSQ2 178 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 179 LPBL=L 180 GO TO 110 181 ENDIF 182 100 CONTINUE 183 LPBL=1 184 C--------------THE HEIGHT OF THE PBL------------------------------------ 185 110 HPBL=Z(LPBL)-Z(LMHP) 186 C----------------------------------------------------------------------- 187 DO 120 L=1,LMHK 188 Q1(L)=0. 189 THV(L)=(0.608*Q(L)+1.)*T(L)*APE(L) 190 120 CONTINUE 191 C----------------------------------------------------------------------- 192 DO 130 L=LPBL,LMHK 193 Q1(L)=SQRT(Q2(L)) 194 130 CONTINUE 195 C----------------------------------------------------------------------- Page 3 Source Listing MIXLEN 2025-03-12 18:22 MIXLEN.F 196 SZQ=0. 197 SQ =0. 198 DO 140 L=1,LMHM 199 QDZL=(Q1(L)+Q1(L+1))*(Z(L+1)-Z(L+2)) 200 SZQ=(Z(L+1)+Z(L+2)-Z(LMHP)-Z(LMHP))*QDZL+SZQ 201 SQ=QDZL+SQ 202 RDZ=2./(Z(L)-Z(L+2)) 203 GML=((U(L)-U(L+1))**2+(V(L)-V(L+1))**2)*RDZ*RDZ 204 GM(L)=AMAX1(GML,EPSGM) 205 GHL=(THV(L)-THV(L+1))*RDZ 206 IF(ABS(GHL).LE.EPSGH) GHL=EPSGH 207 GH(L)=GHL 208 140 CONTINUE 209 C--------------COMPUTATION OF ASYMPTOTIC L IN BLACKADAR FORMULA--------- 210 EL0=AMIN1(ALPH*SZQ*0.5/SQ,EL0MAX) 211 C----------------------------------------------------------------------- 212 DO 150 L=1,LMHM 213 GML=GM(L) 214 GHL=GH(L) 215 IF(GHL.GE.EPSGH)THEN 216 IF(GML/GHL.LE.REQU)THEN 217 ELM(L)=EPSL 218 ELSE 219 AUBR=(AUBM*GML+AUBH*GHL)*GHL 220 BUBR= BUBM*GML+BUBH*GHL 221 QOL2ST=(-0.5*BUBR+SQRT(BUBR*BUBR*0.25-AUBR*CUBR))*RCUBR 222 QOL2ST=AMAX1(QOL2ST,1.E-8) 223 ELOQ2X=1./QOL2ST 224 ELM(L)=AMAX1(SQRT(ELOQ2X*Q2(L)),EPSL) 225 ENDIF 226 ELSE 227 ADEN=(ADNM*GML+ADNH*GHL)*GHL 228 BDEN= BDNM*GML+BDNH*GHL 229 QOL2UN= -0.5*BDEN+SQRT(BDEN*BDEN*0.25-ADEN) 230 ELOQ2X=1./((1.+EPSRU)*QOL2UN) 231 ELM(L)=AMAX1(SQRT(ELOQ2X*Q2(L)),EPSL) 232 ENDIF 233 150 CONTINUE 234 C----------------------------------------------------------------------- 235 c LPBLM=LPBL-1 236 c DO 160 L=1,LPBLM 237 c EL(L)=AMIN1((Z(L)-Z(L+2))*ELFC,ELM(L)) 238 c160 CONTINUE 239 c DO 165 L=LPBL,LMHM 240 c VKRMZ=(Z(L+1)-Z(LMHP))*VKRM 241 c165 EL(L)=AMIN1(VKRMZ/(VKRMZ/EL0+1.),ELM(L)) 242 C----------------------------------------------------------------------- 243 c Note: LPBL is the EL value of L of the interface starting with the 244 c lowest interface and going up for the first time having Q2 .le. 245 c a specified value 246 c 247 DO 160 L=1,LPBL 248 ELL(L)= (Z(L)-Z(L+1))*ELFC 249 160 CONTINUE 250 IF(LPBL.LT.LMHK)THEN 251 LPBLP=LPBL+1 252 DO 165 L=LPBLP,LMHK Page 4 Source Listing MIXLEN 2025-03-12 18:22 MIXLEN.F 253 VKRMZ=(0.5*(Z(L)+Z(L+1))-Z(LMHP))*VKRM 254 ELL(L)= VKRMZ/(VKRMZ/EL0+1.) 255 165 CONTINUE 256 ENDIF 257 C----------------------------------------------------------------------- 258 DO 260 L=1,LMHM 259 EL(L)=AMIN1(0.5*(ELL(L)+ELL(L+1)),ELM(L)) 260 260 CONTINUE 261 C----------------------------------------------------------------------- 262 RETURN 263 END ENTRY POINTS Name mixlen_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 182 173 110 Label 185 180 120 Label 190 187 130 Label 194 192 140 Label 208 198 150 Label 233 212 160 Label 249 247 165 Label 255 252 260 Label 260 258 A1 Param 118 R(4) 4 scalar 135,136,137,138,140,141,142,146,15 0,151,152,153 A2 Param 118 R(4) 4 scalar 135,136,138,140,141,142,146,150,15 1,153 ABS Func 206 scalar 206 ADEN Local 227 R(4) 4 scalar 227,229 ADNH Param 136 R(4) 4 scalar 147,151,227 ADNM Param 135 R(4) 4 scalar 147,150,227 AEQH Param 142 R(4) 4 scalar 144 AEQM Param 140 R(4) 4 scalar 144 ALPH Param 112 R(4) 4 scalar 210 AMAX1 Func 204 scalar 204,222,224,231 AMIN1 Func 210 scalar 210,259 APE Dummy 3 R(4) 4 1 45 ARG,INOUT 189 AUBH Param 151 R(4) 4 scalar 219 AUBM Param 150 R(4) 4 scalar 219 AUBR Local 219 R(4) 4 scalar 219,221 B1 Param 119 R(4) 4 scalar 140,142 B2 Param 119 R(4) 4 scalar 135,136,138,140,141,142,146,150,15 1,153 BDEN Local 228 R(4) 4 scalar 228,229 BDNH Param 138 R(4) 4 scalar 153,228 BDNM Param 137 R(4) 4 scalar 152,228 BETA Param 116 R(4) 4 scalar 116 Page 5 Source Listing MIXLEN 2025-03-12 18:22 Symbol Table MIXLEN.F Name Object Declared Type Bytes Dimen Elements Attributes References BTG Param 116 R(4) 4 scalar 135,136,138,140,141,142,146,150,15 1,153 BUBH Param 153 R(4) 4 scalar 220 BUBM Param 152 R(4) 4 scalar 220 BUBR Local 220 R(4) 4 scalar 220,221 C1 Param 120 R(4) 4 scalar 140,146,150,152 CUBR Param 154 R(4) 4 scalar 154,221 EL Dummy 3 R(4) 4 1 44 ARG,INOUT 259 EL0 Local 210 R(4) 4 scalar 210,254 EL0MAX Param 112 R(4) 4 scalar 210 ELFC Param 112 R(4) 4 scalar 248 ELL Local 165 R(4) 4 1 45 248,254,259 ELM Local 165 R(4) 4 1 44 217,224,231,259 ELOQ2X Local 223 R(4) 4 scalar 223,224,230,231 EPSGH Param 144 R(4) 4 scalar 144,206,215 EPSGM Param 144 R(4) 4 scalar 204 EPSL Param 111 R(4) 4 scalar 217,224,231 EPSQ2 Param 111 R(4) 4 scalar 175 EPSRS Param 111 R(4) 4 scalar 148 EPSRU Param 111 R(4) 4 scalar 230 FH Param 112 R(4) 4 scalar 175 G Param 116 R(4) 4 scalar 116 GAM1 Param 117 R(4) 4 scalar GH Dummy 3 R(4) 4 1 44 ARG,INOUT 207,214 GHL Local 205 R(4) 4 scalar 205,206,207,214,215,216,219,220,22 7,228 GLB_TABLE Common 85 336 SAVE GM Dummy 3 R(4) 4 1 44 ARG,INOUT 204,213 GML Local 203 R(4) 4 scalar 203,204,213,216,219,220,227,228 HPBL Dummy 3 R(4) 4 scalar ARG,INOUT 185 IDIM1 Param 39 I(4) 4 scalar IDIM2 Param 39 I(4) 4 scalar IGSTL Param 34 I(4) 4 scalar 39 IGSTR Param 34 I(4) 4 scalar 39 IM Param 22 I(4) 4 scalar 36,39,91,92,93,94,95,99,100,105 INPES Param 31 I(4) 4 scalar 36,39,75,76,77,86,87 ITAIL Param 36 I(4) 4 scalar IVI Local 173 I(4) 4 scalar 173,174 JDIM1 Param 40 I(4) 4 scalar JDIM2 Param 40 I(4) 4 scalar JGSTL Param 35 I(4) 4 scalar 40 JGSTR Param 35 I(4) 4 scalar 40 JM Param 22 I(4) 4 scalar 37,40,91,92,93,94,95,99,100,105 JNPES Param 31 I(4) 4 scalar 37,40,75,76,77,86,87 JTAIL Param 37 I(4) 4 scalar L Local 174 I(4) 4 scalar 174,175,179,187,188,189,192,193,19 8,199,200,202,203,204,205,207,212, 213,214,217,224,231,247,248,252,25 3,254,258,259 LM Param 22 I(4) 4 scalar 100,108,157,158,161,165,166 LM1 Param 108 I(4) 4 scalar 160,165 LMHK Dummy 3 I(4) 4 scalar ARG,INOUT 169,170,172,173,174,187,192,250,25 2 LMHM Local 169 I(4) 4 scalar 169,198,212,258 LMHP Local 170 I(4) 4 scalar 170,185,200,253 Page 6 Source Listing MIXLEN 2025-03-12 18:22 Symbol Table MIXLEN.F Name Object Declared Type Bytes Dimen Elements Attributes References LP1 Param 108 I(4) 4 scalar 162 LPBL Dummy 3 I(4) 4 scalar ARG,INOUT 172,179,183,185,192,247,250,251 LPBLP Local 251 I(4) 4 scalar 251,252 LSM Param 22 I(4) 4 scalar MAPPINGS Common 104 5024 SAVE MIXLEN Subr 3 MPPCOM Common 49 1724 SAVE PRT Param 117 R(4) 4 scalar Q Dummy 3 R(4) 4 1 45 ARG,INOUT 189 Q1 Local 166 R(4) 4 1 45 188,193,199 Q2 Dummy 3 R(4) 4 1 45 ARG,INOUT 175,193,224,231 QDZL Local 199 R(4) 4 scalar 199,200,201 QOL2ST Local 221 R(4) 4 scalar 221,222,223 QOL2UN Local 229 R(4) 4 scalar 229,230 RCUBR Param 154 R(4) 4 scalar 221 RDZ Local 202 R(4) 4 scalar 202,203,205 REQU Param 144 R(4) 4 scalar 144,146,147,216 SQ Local 197 R(4) 4 scalar 197,201,210 SQRT Func 193 scalar 193,221,224,229,231 SZQ Local 196 R(4) 4 scalar 196,200,210 T Dummy 3 R(4) 4 1 45 ARG,INOUT 189 TEMPCOM Common 90 6603768 SAVE THV Local 166 R(4) 4 1 45 189,205 TOPO Common 98 17478548 SAVE U Dummy 3 R(4) 4 1 45 ARG,INOUT 203 UBRY Param 148 R(4) 4 scalar 149 UBRY3 Param 149 R(4) 4 scalar 150,151,152,153,154 UBRYL Param 146 R(4) 4 scalar 148 V Dummy 3 R(4) 4 1 45 ARG,INOUT 203 VKRM Param 112 R(4) 4 scalar 253 VKRMZ Local 253 R(4) 4 scalar 253,254 Z Dummy 3 R(4) 4 1 46 ARG,INOUT 185,199,200,202,248,253 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM HTMG R(4) 4 743768 3 4183695 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 828 1 21 COM IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1324 1 100 COM IQUILT_GROUP I(4) 4 1320 scalar COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM Page 7 Source Listing MIXLEN 2025-03-12 18:22 Symbol Table MIXLEN.F Name Type Bytes Offset Dimen Elements Attributes References IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM IS_GLB_TABLE I(4) 4 0 1 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM JS_GLB_TABLE I(4) 4 168 1 21 COM JS_LOC_TABLE I(4) 4 576 1 21 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM MPI_COMM_COMP I(4) 4 912 scalar COM MPI_COMM_INTER I(4) 4 916 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 920 1 100 COM MYIE I(4) 4 52 scalar COM MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM MYIS2 I(4) 4 48 scalar COM MYIS_P1 I(4) 4 64 scalar COM MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM MYJE1 I(4) 4 240 scalar COM Page 8 Source Listing MIXLEN 2025-03-12 18:22 Symbol Table MIXLEN.F Name Type Bytes Offset Dimen Elements Attributes References MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM MYJE4_P1 I(4) 4 316 scalar COM MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM Page 9 Source Listing MIXLEN 2025-03-12 18:22 Symbol Table MIXLEN.F Name Type Bytes Offset Dimen Elements Attributes References MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM NPES I(4) 4 4 scalar COM TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TTVG R(4) 4 371884 2 92971 COM Page 10 Source Listing MIXLEN 2025-03-12 18:22 Subprograms/Common Blocks MIXLEN.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References GLB_TABLE Common 85 336 SAVE MAPPINGS Common 104 5024 SAVE MIXLEN Subr 3 MPPCOM Common 49 1724 SAVE TEMPCOM Common 90 6603768 SAVE TOPO Common 98 17478548 SAVE 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 -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux Page 11 Source Listing MIXLEN 2025-03-12 18:22 MIXLEN.F -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 precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -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 Page 12 Source Listing MIXLEN 2025-03-12 18:22 MIXLEN.F 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 -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 : MIXLEN.lst no -o COMPILER: Intel(R) Fortran 19.1-1655