Page 1 Source Listing BOCOV 2014-12-17 20:46 /tmpnwprd/ifort15AJUa.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" 74 INCLUDE "mpp.h" 75 # 1 "./sp.h" 1 76 # 4 77 78 # 53 "BOCOV.F" 2 79 C----------------------------------------------------------------------- Page 2 Source Listing BOCOV 2014-12-17 20:46 BOCOV.F 138 P A R A M E T E R 139 & (IMJM=IM*JM-JM/2,LB=2*IM+JM-3) 140 C----------------------------------------------------------------------- 141 L O G I C A L 142 & RUN,FIRST,RESTRT,SIGMA 143 C----------------------------------------------------------------------- 144 INCLUDE "CTLBLK.comm" 145 C----------------------------------------------------------------------- 155 INCLUDE "MASKS.comm" 156 C----------------------------------------------------------------------- 167 INCLUDE "VRBLS.comm" 168 C---------------------------------------------------------------------- 178 INCLUDE "BOCO.comm" 179 C*********************************************************************** 180 C------------- TIME INTERPOLATION OF U AND V AT THE OUTER BOUNDARY ----- 187 IIM=IM-MY_IS_GLB+1 188 JJM=JM-MY_JS_GLB+1 189 C----------------------------------------------------------------------- 190 DO 115 L=1,LM 191 C----------------------------------------------------------------------- 192 N=1 193 DO 111 I=1,IM-1 194 UB(N,L,1)=UB(N,L,1)+UB(N,L,2)*DT 195 VB(N,L,1)=VB(N,L,1)+VB(N,L,2)*DT 196 IF(MY_JS_GLB.EQ.1.AND.I.GE.MY_IS_GLB-ILPAD1. 197 1 AND.I.LE.MY_IE_GLB+IRPAD1)THEN 198 II=I-MY_IS_GLB+1 199 U(II,1,L)=UB(N,L,1) 200 V(II,1,L)=VB(N,L,1) 201 ENDIF 202 N=N+1 203 111 CONTINUE 204 C 205 DO 112 I=1,IM-1 206 UB(N,L,1)=UB(N,L,1)+UB(N,L,2)*DT 207 VB(N,L,1)=VB(N,L,1)+VB(N,L,2)*DT 208 IF(MY_JE_GLB.EQ.JM.AND.I.GE.MY_IS_GLB-ILPAD1. 209 1 AND.I.LE.MY_IE_GLB+IRPAD1)THEN 210 II=I-MY_IS_GLB+1 211 U(II,JJM,L)=UB(N,L,1) 212 V(II,JJM,L)=VB(N,L,1) 213 ENDIF 214 N=N+1 215 112 CONTINUE 216 C 217 DO 113 J=2,JM-1,2 218 UB(N,L,1)=UB(N,L,1)+UB(N,L,2)*DT 219 VB(N,L,1)=VB(N,L,1)+VB(N,L,2)*DT 220 IF(MY_IS_GLB.EQ.1.AND.J.GE.MY_JS_GLB-JBPAD1. 221 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 222 JJ=J-MY_JS_GLB+1 223 U(1,JJ,L)=UB(N,L,1) 224 V(1,JJ,L)=VB(N,L,1) 225 ENDIF 226 N=N+1 227 113 CONTINUE 228 C Page 3 Source Listing BOCOV 2014-12-17 20:46 BOCOV.F 229 DO 114 J=2,JM-1,2 230 UB(N,L,1)=UB(N,L,1)+UB(N,L,2)*DT 231 VB(N,L,1)=VB(N,L,1)+VB(N,L,2)*DT 232 IF(MY_IE_GLB.EQ.IM.AND.J.GE.MY_JS_GLB-JBPAD1. 233 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 234 JJ=J-MY_JS_GLB+1 235 U(IIM,JJ,L)=UB(N,L,1) 236 V(IIM,JJ,L)=VB(N,L,1) 237 ENDIF 238 N=N+1 239 114 CONTINUE 240 115 CONTINUE 241 C----------------------------------------------------------------------- 242 C--------------EXTRAPOLATION OF TANGENTIAL VELOCITY AT OUTFLOW POINTS--- 243 C----------------------------------------------------------------------- 244 DO 125 L=1,LM 245 C----------------------------------------------------------------------- 246 IF(IBROW.EQ.1)THEN 247 DO 121 I=MYIS1_P1,MYIE2_P1 248 IF(V(I,1,L).LT.0.)U(I,1,L)=(VTM(I,5,L)+1.)*U(I,3,L) 249 1 -VTM(I,5,L) *U(I,5,L) 250 121 CONTINUE 251 ENDIF 252 C 253 IF(ITROW.EQ.1)THEN 254 c if(mype.eq.13) print*,'myis1_p1,myie2_p1=', 255 c * myis1_p1,myie2_p1 256 DO 122 I=MYIS1_P1,MYIE2_P1 257 c if(mype.eq.13) print*,'i,jjm,l=',i,jjm,l 258 IF(V(I,JJM,L).GT.0.) 259 1 U(I,JJM,L)=(VTM(I,JJM-4,L)+1.)*U(I,JJM-2,L) 260 2 -VTM(I,JJM-4,L) *U(I,JJM-4,L) 261 122 CONTINUE 262 ENDIF 263 C 264 DO 123 J=4,JM-3,2 265 IF(ILCOL.EQ.1)THEN 266 IF(MY_IS_GLB.EQ.1.AND.J.GE.MY_JS_GLB-JBPAD1. 267 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 268 JJ=J-MY_JS_GLB+1 269 IF(U(1,JJ,L).LT.0.) 270 1 V(1,JJ,L)=(VTM(3,JJ,L)+1.)*V(2,JJ,L) 271 2 -VTM(3,JJ,L) *V(3,JJ,L) 272 ENDIF 273 ENDIF 274 123 CONTINUE 275 C 276 DO 124 J=4,JM-3,2 277 IF(IRCOL.EQ.1)THEN 278 IF(MY_IE_GLB.EQ.IM.AND.J.GE.MY_JS_GLB-JBPAD1. 279 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 280 JJ=J-MY_JS_GLB+1 281 IF(U(IIM,JJ,L).GT.0.) 282 1 V(IIM,JJ,L)=(VTM(IIM-2,JJ,L)+1.)*V(IIM-1,JJ,L) 283 1 -VTM(IIM-2,JJ,L) *V(IIM-2,JJ,L) 284 ENDIF 285 ENDIF Page 4 Source Listing BOCOV 2014-12-17 20:46 BOCOV.F 286 124 CONTINUE 287 125 CONTINUE 288 C----------------------------------------------------------------------- 289 C------------- SPACE INTERPOLATION OF U AND V AT THE INNER BOUNDARY ---- 290 C----------------------------------------------------------------------- 291 DO 140 L=1,LM 292 C----------------------------------------------------------------------- 293 IF(IBROW.EQ.1.AND.ILCOL.EQ.1)THEN 294 U(2,2,L)=D06666*(4.*(U(1,1,L)+U(2,1,L)+U(2,3,L)) 295 1 + U(1,2,L)+U(1,4,L)+U(2,4,L)) 296 V(2,2,L)=D06666*(4.*(V(1,1,L)+V(2,1,L)+V(2,3,L)) 297 1 +V(1,2,L)+V(1,4,L)+V(2,4,L)) 298 ENDIF 299 C 300 IF(IBROW.EQ.1.AND.IRCOL.EQ.1)THEN 301 U(IIM-1,2,L)=D06666*(4.*(U(IIM-2,1,L)+U(IIM-1,1,L) 302 1 +U(IIM-2,3,L)) 303 2 +U(IIM,2,L)+U(IIM,4,L)+U(IIM-1,4,L)) 304 V(IIM-1,2,L)=D06666*(4.*(V(IIM-2,1,L)+V(IIM-1,1,L) 305 1 +V(IIM-2,3,L)) 306 2 +V(IIM,2,L)+V(IIM,4,L)+V(IIM-1,4,L)) 307 ENDIF 308 C 309 IF(ITROW.EQ.1.AND.ILCOL.EQ.1)THEN 310 U(2,JJM-1,L)=D06666*(4.*(U(1,JJM,L)+U(2,JJM,L)+U(2,JJM-2,L)) 311 1 +U(1,JJM-1,L)+U(1,JJM-3,L) 312 2 +U(2,JJM-3,L)) 313 V(2,JJM-1,L)=D06666*(4.*(V(1,JJM,L)+V(2,JJM,L)+V(2,JJM-2,L)) 314 1 +V(1,JJM-1,L)+V(1,JJM-3,L) 315 2 +V(2,JJM-3,L)) 316 ENDIF 317 C 318 IF(ITROW.EQ.1.AND.IRCOL.EQ.1)THEN 319 U(IIM-1,JJM-1,L)= 320 1 D06666*(4.*(U(IIM-2,JJM,L)+U(IIM-1,JJM,L)+U(IIM-2,JJM-2,L)) 321 2 +U(IIM,JJM-1,L)+U(IIM,JJM-3,L)+U(IIM-1,JJM-3,L)) 322 V(IIM-1,JJM-1,L)= 323 1 D06666*(4.*(V(IIM-2,JJM,L)+V(IIM-1,JJM,L)+V(IIM-2,JJM-2,L)) 324 2 +V(IIM,JJM-1,L)+V(IIM,JJM-3,L)+V(IIM-1,JJM-3,L)) 325 ENDIF 326 C----------------------------------------------------------------------- 327 C--------------SPACE INTERPOLATION OF U AND V AT THE INNER BOUNDARY----- 328 C----------------------------------------------------------------------- 329 IF(IBROW.EQ.1)THEN 330 DO 131 I=MYIS2,MYIE2 331 U(I,2,L)=(U(I-1,1,L)+U(I,1,L)+U(I-1,3,L)+U(I,3,L))*0.25 332 V(I,2,L)=(V(I-1,1,L)+V(I,1,L)+V(I-1,3,L)+V(I,3,L))*0.25 333 131 CONTINUE 334 ENDIF 335 C 336 IF(ITROW.EQ.1)THEN 337 DO 132 I=MYIS2,MYIE2 338 U(I,JJM-1,L)=(U(I-1,JJM-2,L)+U(I,JJM-2,L) 339 1 +U(I-1,JJM,L)+U(I,JJM,L))*0.25 340 V(I,JJM-1,L)=(V(I-1,JJM-2,L)+V(I,JJM-2,L) 341 1 +V(I-1,JJM,L)+V(I,JJM,L))*0.25 342 132 CONTINUE Page 5 Source Listing BOCOV 2014-12-17 20:46 BOCOV.F 343 ENDIF 344 C 345 DO 133 J=3,JM-2,2 346 IF(ILCOL.EQ.1)THEN 347 IF(MY_IS_GLB.EQ.1.AND.J.GE.MY_JS_GLB-JBPAD1. 348 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 349 JJ=J-MY_JS_GLB+1 350 U(1,JJ,L)=(U(1,JJ-1,L)+U(2,JJ-1,L) 351 1 +U(1,JJ+1,L)+U(2,JJ+1,L))*0.25 352 V(1,JJ,L)=(V(1,JJ-1,L)+V(2,JJ-1,L) 353 1 +V(1,JJ+1,L)+V(2,JJ+1,L))*0.25 354 ENDIF 355 ENDIF 356 133 CONTINUE 357 C 358 IF(IRCOL.EQ.1)THEN 359 DO 134 J=3,JM-2,2 360 IF(MY_IE_GLB.EQ.IM.AND.J.GE.MY_JS_GLB-JBPAD1. 361 1 AND.J.LE.MY_JE_GLB+JTPAD1)THEN 362 JJ=J-MY_JS_GLB+1 363 U(IIM-1,JJ,L)=0.25*(U(IIM-1,JJ-1,L)+U(IIM,JJ-1,L) 364 1 +U(IIM-1,JJ+1,L)+U(IIM,JJ+1,L)) 365 V(IIM-1,JJ,L)=0.25*(V(IIM-1,JJ-1,L)+V(IIM,JJ-1,L) 366 1 +V(IIM-1,JJ+1,L)+V(IIM,JJ+1,L)) 367 ENDIF 368 134 CONTINUE 369 ENDIF 370 C----------------------------------------------------------------------- 371 140 CONTINUE 372 C----------------------------------------------------------------------- 373 RETURN 374 END Page 6 Source Listing BOCOV 2014-12-17 20:46 Entry Points BOCOV.F ENTRY POINTS Name bocov_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 111 Label 85 75 112 Label 97 87 113 Label 109 99 114 Label 121 111 115 Label 122 72 121 Label 132 129 122 Label 143 138 123 Label 156 146 124 Label 168 158 125 Label 169 126 131 Label 215 212 132 Label 224 219 133 Label 238 227 134 Label 250 241 140 Label 253 173 BOCO Common 2 1860144 BOCOV Subr 2 CTLBLK Common 4 112 CWMB Scalar 4 R(4) 4 3 77220 COM D06666 Param 48 R(4) 4 scalar 176,178,183,186,192,195,202,205 DT Scalar 6 R(4) 4 scalar COM 76,77,88,89,100,101,112,113 FIRST Scalar 58 L(4) 4 scalar COM FIS Scalar 7 R(4) 4 2 17955 COM G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HBM2 Scalar 8 R(4) 4 2 17955 COM HBM3 Scalar 8 R(4) 4 2 17955 COM HTM Scalar 6 R(4) 4 3 807975 COM HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 75 I(4) 4 scalar 75,78,79,80,87,90,91,92,129,130,13 1,138,140,141,142,212,213,214,219, 220,221,222,223 IBROW Scalar 22 I(4) 4 scalar COM 128,175,182,211 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM IDIM1 Param 19 I(4) 4 scalar 3,4,5,6,7,8 IDIM2 Param 19 I(4) 4 scalar 3,4,5,6,7,8 IDTAD Scalar 6 I(4) 4 scalar COM IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHRST Scalar 5 I(4) 4 scalar COM Page 7 Source Listing BOCOV 2014-12-17 20:46 Symbol Table BOCOV.F Name Object Declared Type Bytes Dimen Elements Attributes References II Local 80 I(4) 4 scalar 80,81,82,92,93,94 IIM Local 69 I(4) 4 scalar 69,117,118,163,164,165,183,184,185 ,186,187,188,201,202,203,204,205,2 06,245,246,247,248 ILCOL Scalar 22 I(4) 4 scalar COM 147,175,191,228 ILPAD1 Scalar 23 I(4) 4 scalar COM 78,90 ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,55,57,6 9,75,87,114,160,242 IMJM Param 55 I(4) 4 scalar INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Scalar 5 I(4) 4 scalar COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM 159,182,200,240 IRPAD1 Scalar 24 I(4) 4 scalar COM 79,91 IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM 135,191,200,218 J Local 99 I(4) 4 scalar 99,102,103,104,111,114,115,116,146 ,148,149,150,158,160,161,162,227,2 29,230,231,241,242,243,244 JBPAD1 Scalar 25 I(4) 4 scalar COM 102,114,148,160,229,242 JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 3,4,5,6,7,8 JDIM2 Param 20 I(4) 4 scalar 3,4,5,6,7,8 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JJ Local 104 I(4) 4 scalar 104,105,106,116,117,118,150,151,15 2,153,162,163,164,165,231,232,233, 234,235,244,245,246,247,248 JJM Local 70 I(4) 4 scalar 70,93,94,140,141,142,192,193,194,1 95,196,197,201,202,203,204,205,206 ,220,221,222,223 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,55,57,7 0,90,99,111,146,158,227,241 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar Page 8 Source Listing BOCOV 2014-12-17 20:46 Symbol Table BOCOV.F Name Object Declared Type Bytes Dimen Elements Attributes References JTPAD1 Scalar 26 I(4) 4 scalar COM 103,115,149,161,230,243 JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM L Local 72 I(4) 4 scalar 72,76,77,81,82,88,89,93,94,100,101 ,105,106,112,113,117,118,126,130,1 31,140,141,142,151,152,153,163,164 ,165,173,176,177,178,179,183,184,1 85,186,187,188,192,193,194,195,196 ,197,201,202,203,204,205,206,213,2 14,220,221,222,223,232,233,234,235 ,245,246,247,248 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LB Param 55 I(4) 4 scalar 3,4 LIST Scalar 5 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 3,4,5,6,7,52,72,126,173 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM 212,219 MYIE2_P1 Scalar 9 I(4) 4 scalar COM 129,138 MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM 129,138 MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM 212,219 MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM Page 9 Source Listing BOCOV 2014-12-17 20:46 Symbol Table BOCOV.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM 79,91,114,160,242 MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM 69,78,80,90,92,102,148,229 MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM 90,103,115,149,161,230,243 MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM 70,78,102,104,114,116,148,150,160, 162,229,231,242,244 MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM Page 10 Source Listing BOCOV 2014-12-17 20:46 Symbol Table BOCOV.F Name Object Declared Type Bytes Dimen Elements Attributes References MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM N Local 74 I(4) 4 scalar 74,76,77,81,82,84,88,89,93,94,96,1 00,101,105,106,108,112,113,117,118 ,120 NBC Scalar 5 I(4) 4 scalar COM NBOCO Scalar 6 I(4) 4 scalar COM NCNVC Scalar 7 I(4) 4 scalar COM NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 7 I(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM NPHS Scalar 7 I(4) 4 scalar COM NPREC Scalar 6 I(4) 4 scalar COM NRADL Scalar 7 I(4) 4 scalar COM NRADS Scalar 7 I(4) 4 scalar COM NSHDE Scalar 6 I(4) 4 scalar COM NSTART Scalar 6 I(4) 4 scalar COM NTDDMP Scalar 6 I(4) 4 scalar COM NTSD Scalar 6 I(4) 4 scalar COM NTSTM Scalar 6 I(4) 4 scalar COM PD Scalar 3 R(4) 4 2 17955 COM PDB Scalar 3 R(4) 4 2 1716 COM Q Scalar 6 R(4) 4 3 807975 COM Q2B Scalar 4 R(4) 4 3 77220 COM QB Scalar 3 R(4) 4 3 77220 COM RES Scalar 7 R(4) 4 2 17955 COM RESTRT Scalar 58 L(4) 4 scalar COM RUN Scalar 58 L(4) 4 scalar COM SICE Scalar 4 R(4) 4 2 17955 COM SIGMA Scalar 58 L(4) 4 scalar COM SINGLRST Local 2 L(4) 4 scalar SM Scalar 4 R(4) 4 2 17955 COM SUBPOST Scalar 2 L(4) 4 scalar COM T Scalar 5 R(4) 4 3 807975 COM TB Scalar 3 R(4) 4 3 77220 COM TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM Page 11 Source Listing BOCOV 2014-12-17 20:46 Symbol Table BOCOV.F Name Object Declared Type Bytes Dimen Elements Attributes References TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM U Scalar 5 R(4) 4 3 807975 COM 81,93,105,117,130,131,141,142,151, 163,176,177,183,184,185,192,193,19 4,201,202,203,213,220,221,232,233, 245,246 UB Scalar 3 R(4) 4 3 77220 COM 76,81,88,93,100,105,112,117 V Scalar 6 R(4) 4 3 807975 COM 82,94,106,118,130,140,152,153,164, 165,178,179,186,187,188,195,196,19 7,204,205,206,214,222,223,234,235, 247,248 VB Scalar 3 R(4) 4 3 77220 COM 77,82,89,94,101,106,113,118 VBM2 Scalar 3 R(4) 4 2 17955 COM VBM3 Scalar 3 R(4) 4 2 17955 COM VRBLS Common 2 13143060 VTM Scalar 7 R(4) 4 3 807975 COM 130,131,141,142,152,153,164,165 Page 12 Source Listing BOCOV 2014-12-17 20:46 Subprograms/Common Blocks BOCOV.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References BOCO Common 2 1860144 BOCOV Subr 2 CTLBLK Common 4 112 GLB_TABLE Common 37 128 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPPCOM Common 1 1464 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 VRBLS Common 2 13143060 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ Page 13 Source Listing BOCOV 2014-12-17 20:46 BOCOV.F -D __SSE__ -D __MMX__ -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 no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : BOCOV.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100