Page 1 Source Listing BOCOV 2025-03-12 18:22 /tmp/ifortwssirr.i 1 # 1 "BOCOV.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE BOCOV 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 C SUBPROGRAM: BOCOV UPDATE WIND POINTS ON BOUNDARY 8 C PRGRMMR: JANJIC ORG: W/NP22 DATE: 94-03-08 9 C 10 C ABSTRACT: 11 C U AND V COMPONENTS OF THE WIND ARE UPDATED ON THE 12 C DOMAIN BOUNDARY BY APPLYING THE PRE-COMPUTED 13 C TENDENCIES AT EACH TIME STEP. AN EXTRAPOLATION FROM 14 C INSIDE THE DOMAIN IS USED FOR THE COMPONENT TANGENTIAL 15 C TO THE BOUNDARY IF THE NORMAL COMPONENT IS OUTWARD. 16 C 17 C PROGRAM HISTORY LOG: 18 C 87-??-?? MESINGER - ORIGINATOR 19 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL 20 C 98-10-30 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 21 C 22 C USAGE: CALL BOCOH FROM MAIN PROGRAM EBU 23 C INPUT ARGUMENT LIST: 24 C NONE 25 C 26 C OUTPUT ARGUMENT LIST: 27 C NONE 28 C 29 C OUTPUT FILES: 30 C NONE 31 C 32 C SUBPROGRAMS CALLED: 33 C 34 C UNIQUE: NONE 35 C 36 C LIBRARY: NONE 37 C 38 C COMMON BLOCKS: CTLBLK 39 C MASKS 40 C VRBLS 41 C BOCO 42 C 43 C ATTRIBUTES: 44 C LANGUAGE: FORTRAN 90 45 C MACHINE : IBM SP 46 C$$$ 47 C*********************************************************************** 48 P A R A M E T E R 49 & (D06666=.06666666) 50 C----------------------------------------------------------------------- 51 INCLUDE "parmeta" 75 INCLUDE "mpp.h" 76 # 1 "./sp.h" 1 77 # 4 78 79 # 53 "BOCOV.F" 2 80 C----------------------------------------------------------------------- Page 2 Source Listing BOCOV 2025-03-12 18:22 BOCOV.F 139 P A R A M E T E R 140 & (IMJM=IM*JM-JM/2,LB=2*IM+JM-3) 141 C----------------------------------------------------------------------- 142 L O G I C A L 143 & RUN,FIRST,RESTRT,SIGMA 144 C----------------------------------------------------------------------- 145 INCLUDE "CTLBLK.comm" 146 C----------------------------------------------------------------------- 156 INCLUDE "MASKS.comm" 157 C----------------------------------------------------------------------- 168 INCLUDE "VRBLS.comm" 169 C---------------------------------------------------------------------- 179 INCLUDE "BOCO.comm" 180 C*********************************************************************** 181 C------------- TIME INTERPOLATION OF U AND V AT THE OUTER BOUNDARY ----- 188 IIM=IM-MY_IS_GLB+1 189 JJM=JM-MY_JS_GLB+1 190 C----------------------------------------------------------------------- 191 DO 115 L=1,LM 192 C----------------------------------------------------------------------- 193 N=1 194 DO 111 I=1,IM-1 195 UB(N,L,1)=UB(N,L,1)+UB(N,L,2)*DT 196 VB(N,L,1)=VB(N,L,1)+VB(N,L,2)*DT 197 IF(MY_JS_GLB.EQ.1.AND.I.GE.MY_IS_GLB-ILPAD1. 198 1 AND.I.LE.MY_IE_GLB+IRPAD1)THEN 199 II=I-MY_IS_GLB+1 200 U(II,1,L)=UB(N,L,1) 201 V(II,1,L)=VB(N,L,1) 202 ENDIF 203 N=N+1 204 111 CONTINUE 205 C 206 DO 112 I=1,IM-1 207 UB(N,L,1)=UB(N,L,1)+UB(N,L,2)*DT 208 VB(N,L,1)=VB(N,L,1)+VB(N,L,2)*DT 209 IF(MY_JE_GLB.EQ.JM.AND.I.GE.MY_IS_GLB-ILPAD1. 210 1 AND.I.LE.MY_IE_GLB+IRPAD1)THEN 211 II=I-MY_IS_GLB+1 212 U(II,JJM,L)=UB(N,L,1) 213 V(II,JJM,L)=VB(N,L,1) 214 ENDIF 215 N=N+1 216 112 CONTINUE 217 C 218 DO 113 J=2,JM-1,2 219 UB(N,L,1)=UB(N,L,1)+UB(N,L,2)*DT 220 VB(N,L,1)=VB(N,L,1)+VB(N,L,2)*DT 221 IF(MY_IS_GLB.EQ.1.AND.J.GE.MY_JS_GLB-JBPAD1. 222 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 223 JJ=J-MY_JS_GLB+1 224 U(1,JJ,L)=UB(N,L,1) 225 V(1,JJ,L)=VB(N,L,1) 226 ENDIF 227 N=N+1 228 113 CONTINUE 229 C Page 3 Source Listing BOCOV 2025-03-12 18:22 BOCOV.F 230 DO 114 J=2,JM-1,2 231 UB(N,L,1)=UB(N,L,1)+UB(N,L,2)*DT 232 VB(N,L,1)=VB(N,L,1)+VB(N,L,2)*DT 233 IF(MY_IE_GLB.EQ.IM.AND.J.GE.MY_JS_GLB-JBPAD1. 234 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 235 JJ=J-MY_JS_GLB+1 236 U(IIM,JJ,L)=UB(N,L,1) 237 V(IIM,JJ,L)=VB(N,L,1) 238 ENDIF 239 N=N+1 240 114 CONTINUE 241 115 CONTINUE 242 C----------------------------------------------------------------------- 243 C--------------EXTRAPOLATION OF TANGENTIAL VELOCITY AT OUTFLOW POINTS--- 244 C----------------------------------------------------------------------- 245 DO 125 L=1,LM 246 C----------------------------------------------------------------------- 247 IF(IBROW.EQ.1)THEN 248 DO 121 I=MYIS1_P1,MYIE2_P1 249 IF(V(I,1,L).LT.0.)U(I,1,L)=(VTM(I,5,L)+1.)*U(I,3,L) 250 1 -VTM(I,5,L) *U(I,5,L) 251 121 CONTINUE 252 ENDIF 253 C 254 IF(ITROW.EQ.1)THEN 255 c if(mype.eq.13) print*,'myis1_p1,myie2_p1=', 256 c * myis1_p1,myie2_p1 257 DO 122 I=MYIS1_P1,MYIE2_P1 258 c if(mype.eq.13) print*,'i,jjm,l=',i,jjm,l 259 IF(V(I,JJM,L).GT.0.) 260 1 U(I,JJM,L)=(VTM(I,JJM-4,L)+1.)*U(I,JJM-2,L) 261 2 -VTM(I,JJM-4,L) *U(I,JJM-4,L) 262 122 CONTINUE 263 ENDIF 264 C 265 DO 123 J=4,JM-3,2 266 IF(ILCOL.EQ.1)THEN 267 IF(MY_IS_GLB.EQ.1.AND.J.GE.MY_JS_GLB-JBPAD1. 268 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 269 JJ=J-MY_JS_GLB+1 270 IF(U(1,JJ,L).LT.0.) 271 1 V(1,JJ,L)=(VTM(3,JJ,L)+1.)*V(2,JJ,L) 272 2 -VTM(3,JJ,L) *V(3,JJ,L) 273 ENDIF 274 ENDIF 275 123 CONTINUE 276 C 277 DO 124 J=4,JM-3,2 278 IF(IRCOL.EQ.1)THEN 279 IF(MY_IE_GLB.EQ.IM.AND.J.GE.MY_JS_GLB-JBPAD1. 280 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 281 JJ=J-MY_JS_GLB+1 282 IF(U(IIM,JJ,L).GT.0.) 283 1 V(IIM,JJ,L)=(VTM(IIM-2,JJ,L)+1.)*V(IIM-1,JJ,L) 284 1 -VTM(IIM-2,JJ,L) *V(IIM-2,JJ,L) 285 ENDIF 286 ENDIF Page 4 Source Listing BOCOV 2025-03-12 18:22 BOCOV.F 287 124 CONTINUE 288 125 CONTINUE 289 C----------------------------------------------------------------------- 290 C------------- SPACE INTERPOLATION OF U AND V AT THE INNER BOUNDARY ---- 291 C----------------------------------------------------------------------- 292 DO 140 L=1,LM 293 C----------------------------------------------------------------------- 294 IF(IBROW.EQ.1.AND.ILCOL.EQ.1)THEN 295 U(2,2,L)=D06666*(4.*(U(1,1,L)+U(2,1,L)+U(2,3,L)) 296 1 + U(1,2,L)+U(1,4,L)+U(2,4,L)) 297 V(2,2,L)=D06666*(4.*(V(1,1,L)+V(2,1,L)+V(2,3,L)) 298 1 +V(1,2,L)+V(1,4,L)+V(2,4,L)) 299 ENDIF 300 C 301 IF(IBROW.EQ.1.AND.IRCOL.EQ.1)THEN 302 U(IIM-1,2,L)=D06666*(4.*(U(IIM-2,1,L)+U(IIM-1,1,L) 303 1 +U(IIM-2,3,L)) 304 2 +U(IIM,2,L)+U(IIM,4,L)+U(IIM-1,4,L)) 305 V(IIM-1,2,L)=D06666*(4.*(V(IIM-2,1,L)+V(IIM-1,1,L) 306 1 +V(IIM-2,3,L)) 307 2 +V(IIM,2,L)+V(IIM,4,L)+V(IIM-1,4,L)) 308 ENDIF 309 C 310 IF(ITROW.EQ.1.AND.ILCOL.EQ.1)THEN 311 U(2,JJM-1,L)=D06666*(4.*(U(1,JJM,L)+U(2,JJM,L)+U(2,JJM-2,L)) 312 1 +U(1,JJM-1,L)+U(1,JJM-3,L) 313 2 +U(2,JJM-3,L)) 314 V(2,JJM-1,L)=D06666*(4.*(V(1,JJM,L)+V(2,JJM,L)+V(2,JJM-2,L)) 315 1 +V(1,JJM-1,L)+V(1,JJM-3,L) 316 2 +V(2,JJM-3,L)) 317 ENDIF 318 C 319 IF(ITROW.EQ.1.AND.IRCOL.EQ.1)THEN 320 U(IIM-1,JJM-1,L)= 321 1 D06666*(4.*(U(IIM-2,JJM,L)+U(IIM-1,JJM,L)+U(IIM-2,JJM-2,L)) 322 2 +U(IIM,JJM-1,L)+U(IIM,JJM-3,L)+U(IIM-1,JJM-3,L)) 323 V(IIM-1,JJM-1,L)= 324 1 D06666*(4.*(V(IIM-2,JJM,L)+V(IIM-1,JJM,L)+V(IIM-2,JJM-2,L)) 325 2 +V(IIM,JJM-1,L)+V(IIM,JJM-3,L)+V(IIM-1,JJM-3,L)) 326 ENDIF 327 C----------------------------------------------------------------------- 328 C--------------SPACE INTERPOLATION OF U AND V AT THE INNER BOUNDARY----- 329 C----------------------------------------------------------------------- 330 IF(IBROW.EQ.1)THEN 331 DO 131 I=MYIS2,MYIE2 332 U(I,2,L)=(U(I-1,1,L)+U(I,1,L)+U(I-1,3,L)+U(I,3,L))*0.25 333 V(I,2,L)=(V(I-1,1,L)+V(I,1,L)+V(I-1,3,L)+V(I,3,L))*0.25 334 131 CONTINUE 335 ENDIF 336 C 337 IF(ITROW.EQ.1)THEN 338 DO 132 I=MYIS2,MYIE2 339 U(I,JJM-1,L)=(U(I-1,JJM-2,L)+U(I,JJM-2,L) 340 1 +U(I-1,JJM,L)+U(I,JJM,L))*0.25 341 V(I,JJM-1,L)=(V(I-1,JJM-2,L)+V(I,JJM-2,L) 342 1 +V(I-1,JJM,L)+V(I,JJM,L))*0.25 343 132 CONTINUE Page 5 Source Listing BOCOV 2025-03-12 18:22 BOCOV.F 344 ENDIF 345 C 346 DO 133 J=3,JM-2,2 347 IF(ILCOL.EQ.1)THEN 348 IF(MY_IS_GLB.EQ.1.AND.J.GE.MY_JS_GLB-JBPAD1. 349 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 350 JJ=J-MY_JS_GLB+1 351 U(1,JJ,L)=(U(1,JJ-1,L)+U(2,JJ-1,L) 352 1 +U(1,JJ+1,L)+U(2,JJ+1,L))*0.25 353 V(1,JJ,L)=(V(1,JJ-1,L)+V(2,JJ-1,L) 354 1 +V(1,JJ+1,L)+V(2,JJ+1,L))*0.25 355 ENDIF 356 ENDIF 357 133 CONTINUE 358 C 359 IF(IRCOL.EQ.1)THEN 360 DO 134 J=3,JM-2,2 361 IF(MY_IE_GLB.EQ.IM.AND.J.GE.MY_JS_GLB-JBPAD1. 362 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 363 JJ=J-MY_JS_GLB+1 364 U(IIM-1,JJ,L)=0.25*(U(IIM-1,JJ-1,L)+U(IIM,JJ-1,L) 365 1 +U(IIM-1,JJ+1,L)+U(IIM,JJ+1,L)) 366 V(IIM-1,JJ,L)=0.25*(V(IIM-1,JJ-1,L)+V(IIM,JJ-1,L) 367 1 +V(IIM-1,JJ+1,L)+V(IIM,JJ+1,L)) 368 ENDIF 369 134 CONTINUE 370 ENDIF 371 C----------------------------------------------------------------------- 372 140 CONTINUE 373 C----------------------------------------------------------------------- 374 RETURN 375 END Page 6 Source Listing BOCOV 2025-03-12 18:22 Entry Points BOCOV.F ENTRY POINTS Name bocov_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 111 Label 204 194 112 Label 216 206 113 Label 228 218 114 Label 240 230 115 Label 241 191 121 Label 251 248 122 Label 262 257 123 Label 275 265 124 Label 287 277 125 Label 288 245 131 Label 334 331 132 Label 343 338 133 Label 357 346 134 Label 369 360 140 Label 372 292 BOCO Common 183 1860144 SAVE BOCOV Subr 3 CTLBLK Common 150 112 SAVE D06666 Param 49 R(4) 4 scalar 295,297,302,305,311,314,321,324 GLB_TABLE Common 117 336 SAVE I Local 194 I(4) 4 scalar 194,197,198,199,206,209,210,211,24 8,249,250,257,259,260,261,331,332, 333,338,339,340,341,342 IDIM1 Param 71 I(4) 4 scalar 160,161,163,164,165,172,174,175,17 6 IDIM2 Param 71 I(4) 4 scalar 160,161,163,164,165,172,174,175,17 6 IGSTL Param 66 I(4) 4 scalar 71 IGSTR Param 66 I(4) 4 scalar 71 II Local 199 I(4) 4 scalar 199,200,201,211,212,213 IIM Local 188 I(4) 4 scalar 188,236,237,282,283,284,302,303,30 4,305,306,307,320,321,322,323,324, 325,364,365,366,367 IM Param 54 I(4) 4 scalar 68,71,123,124,125,126,127,131,132, 137,140,188,194,206,233,279,361 IMJM Param 140 I(4) 4 scalar INPES Param 63 I(4) 4 scalar 68,71,107,108,109,118,119 ITAIL Param 68 I(4) 4 scalar J Local 218 I(4) 4 scalar 218,221,222,223,230,233,234,235,26 5,267,268,269,277,279,280,281,346, 348,349,350,360,361,362,363 JDIM1 Param 72 I(4) 4 scalar 160,161,163,164,165,172,174,175,17 6 JDIM2 Param 72 I(4) 4 scalar 160,161,163,164,165,172,174,175,17 Page 7 Source Listing BOCOV 2025-03-12 18:22 Symbol Table BOCOV.F Name Object Declared Type Bytes Dimen Elements Attributes References 6 JGSTL Param 67 I(4) 4 scalar 72 JGSTR Param 67 I(4) 4 scalar 72 JJ Local 223 I(4) 4 scalar 223,224,225,235,236,237,269,270,27 1,272,281,282,283,284,350,351,352, 353,354,363,364,365,366,367 JJM Local 189 I(4) 4 scalar 189,212,213,259,260,261,311,312,31 3,314,315,316,320,321,322,323,324, 325,339,340,341,342 JM Param 54 I(4) 4 scalar 69,72,123,124,125,126,127,131,132, 137,140,189,209,218,230,265,277,34 6,360 JNPES Param 63 I(4) 4 scalar 69,72,107,108,109,118,119 JTAIL Param 69 I(4) 4 scalar L Local 191 I(4) 4 scalar 191,195,196,200,201,207,208,212,21 3,219,220,224,225,231,232,236,237, 245,249,250,259,260,261,270,271,27 2,282,283,284,292,295,296,297,298, 302,303,304,305,306,307,311,312,31 3,314,315,316,320,321,322,323,324, 325,332,333,339,340,341,342,351,35 2,353,354,364,365,366,367 LB Param 140 I(4) 4 scalar 184,185 LM Param 54 I(4) 4 scalar 132,163,164,174,175,184,185,191,24 5,292 LSM Param 54 I(4) 4 scalar MAPPINGS Common 136 5024 SAVE MASKS Common 159 2426496 SAVE MPPCOM Common 81 1724 SAVE N Local 193 I(4) 4 scalar 193,195,196,200,201,203,207,208,21 2,213,215,219,220,224,225,227,231, 232,236,237,239 SINGLRST Local 148 L(4) 4 scalar TEMPCOM Common 122 6603768 SAVE TOPO Common 130 17478548 SAVE VRBLS Common 171 4625508 SAVE TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References CWMB R(4) 4 1551264 3 77220 COM DT R(4) 4 48 scalar COM 195,196,207,208,219,220,231,232 FIRST L(4) 4 24 scalar COM FIS R(4) 4 4574956 2 6319 COM G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM HBM2 R(4) 4 2375944 2 6319 COM HBM3 R(4) 4 2401220 2 6319 COM HTM R(4) 4 101104 3 284355 COM HTMG R(4) 4 743768 3 4183695 COM IBROW I(4) 4 404 scalar COM 247,294,301,330 ICHUNKTAB I(4) 4 828 1 21 COM IDAT I(4) 4 8 1 3 COM Page 8 Source Listing BOCOV 2025-03-12 18:22 Symbol Table BOCOV.F Name Type Bytes Offset Dimen Elements Attributes References IDTAD I(4) 4 72 scalar COM IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM IHRST I(4) 4 20 scalar COM ILCOL I(4) 4 396 scalar COM 266,294,310,347 ILPAD1 I(4) 4 412 scalar COM 197,209 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 IOUT I(4) 4 44 scalar COM IQUILT_GROUP I(4) 4 1320 scalar COM IRCOL I(4) 4 400 scalar COM 278,301,319,359 IRPAD1 I(4) 4 432 scalar COM 198,210 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 254,310,319,337 JBPAD1 I(4) 4 452 scalar COM 221,233,267,279,348,361 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 222,234,268,280,349,362 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 LIST I(4) 4 40 scalar 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 331,338 MYIE2_P1 I(4) 4 136 scalar COM 248,257 MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM Page 9 Source Listing BOCOV 2025-03-12 18:22 Symbol Table BOCOV.F Name Type Bytes Offset Dimen Elements Attributes References 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 248,257 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 331,338 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 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 Page 10 Source Listing BOCOV 2025-03-12 18:22 Symbol Table BOCOV.F Name Type Bytes Offset Dimen Elements Attributes References 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 198,210,233,279,361 MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM 188,197,199,209,211,221,267,348 MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM 209,222,234,268,280,349,362 MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 189,197,221,223,233,235,267,269,27 9,281,348,350,361,363 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 NBC I(4) 4 36 scalar COM NBOCO I(4) 4 76 scalar COM NCNVC I(4) 4 92 scalar COM NCP I(4) 4 84 scalar COM NEST I(4) 4 108 scalar COM NFCST I(4) 4 32 scalar COM NPES I(4) 4 4 scalar COM NPHS I(4) 4 88 scalar COM NPREC I(4) 4 68 scalar COM NRADL I(4) 4 100 scalar COM NRADS I(4) 4 96 scalar COM NSHDE I(4) 4 80 scalar COM NSTART I(4) 4 60 scalar COM NTDDMP I(4) 4 64 scalar COM NTSD I(4) 4 52 scalar COM NTSTM I(4) 4 56 scalar COM PD R(4) 4 0 2 6319 COM PDB R(4) 4 0 2 1716 COM Q R(4) 4 3437536 3 284355 COM Q2B R(4) 4 1242384 3 77220 COM QB R(4) 4 315744 3 77220 COM RES R(4) 4 4600232 2 6319 COM RESTRT L(4) 4 28 scalar COM RUN L(4) 4 4 scalar COM SICE R(4) 4 75828 2 6319 COM SIGMA L(4) 4 0 scalar COM SM R(4) 4 50552 2 6319 COM SUBPOST L(4) 4 104 scalar COM T R(4) 4 25276 3 284355 COM Page 11 Source Listing BOCOV 2025-03-12 18:22 Symbol Table BOCOV.F Name Type Bytes Offset Dimen Elements Attributes References TB R(4) 4 6864 3 77220 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 U R(4) 4 1162696 3 284355 COM 200,212,224,236,249,250,260,261,27 0,282,295,296,302,303,304,311,312, 313,320,321,322,332,339,340,351,35 2,364,365 UB R(4) 4 624624 3 77220 COM 195,200,207,212,219,224,231,236 V R(4) 4 2300116 3 284355 COM 201,213,225,237,249,259,271,272,28 3,284,297,298,305,306,307,314,315, 316,323,324,325,333,341,342,353,35 4,366,367 VB R(4) 4 933504 3 77220 COM 196,201,208,213,220,225,232,237 VBM2 R(4) 4 0 2 6319 COM VBM3 R(4) 4 25276 2 6319 COM VTM R(4) 4 1238524 3 284355 COM 249,250,260,261,271,272,283,284 Page 12 Source Listing BOCOV 2025-03-12 18:22 Subprograms/Common Blocks BOCOV.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References BOCO Common 183 1860144 SAVE BOCOV Subr 3 CTLBLK Common 150 112 SAVE GLB_TABLE Common 117 336 SAVE MAPPINGS Common 136 5024 SAVE MASKS Common 159 2426496 SAVE MPPCOM Common 81 1724 SAVE TEMPCOM Common 122 6603768 SAVE TOPO Common 130 17478548 SAVE VRBLS Common 171 4625508 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 Page 13 Source Listing BOCOV 2025-03-12 18:22 BOCOV.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 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 Page 14 Source Listing BOCOV 2025-03-12 18:22 BOCOV.F -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 -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 : BOCOV.lst no -o COMPILER: Intel(R) Fortran 19.1-1655