Page 1 Source Listing BLOSFC2 2014-12-17 20:47 BLOSFC2.f 1 SUBROUTINE BLOSFC2 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: BLOSFC2 SETS BELOW SURFACE VALUES 5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 93-05-07 6 C 7 C ABSTRACT: THIS ROUTINE SETS BELOW GROUND Q, U, V, 8 C AND OMEGA. FOR U, V, AND OMEGA WE SIMPLY FILL 9 C BELOW GROUND ARRAY ELEMENTS WITH VALUES FROM 10 C THE FIRST ATMOSPHERIC ETA LAYER (FAL). FOR Q 11 C WE FIRST COMPUTE THE FAL RELATIVE HUMIDITY. USING 12 C THE GIVEN TEMPERATURE AND PRESSURE WE USE THIS 13 C FAL RH FIELD TO COMPUTE BELOW SURFACE Q WHICH 14 C MAINTAINS THE FAL RH. 15 C . 16 C 17 C PROGRAM HISTORY LOG: 18 C 93-01-27 RUSS TREADON 19 C 93-05-07 RUSS TREADON - ADDED DOCBLOC 20 C 96-03-07 MIKE BALDWIN - SPEED UP CODE 21 C 98-06-08 T BLACK - CONVERSION FROM 1-D TO 2-D 22 C 98-08-17 MIKE BALDWIN - COMPUTE RH OVER ICE 23 C 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE 24 C 00-01-03 JIM TUCCILLO - MPI VERSION 25 C 26 C USAGE: CALL BLOSFC2 27 C INPUT ARGUMENT LIST: 28 C NONE 29 C 30 C OUTPUT ARGUMENT LIST: 31 C NONE 32 C 33 C OUTPUT FILES: 34 C NONE 35 C 36 C SUBPROGRAMS CALLED: 37 C UTILITIES: 38 C NONE 39 C LIBRARY: 40 C COMMON - MAPOT 41 C VRBLS 42 C LOOPS 43 C EXTRA 44 C OMGAOT 45 C MASKS 46 C 47 C ATTRIBUTES: 48 C LANGUAGE: FORTRAN 90 49 C MACHINE : CRAY C-90 50 C$$$ 51 C 52 C 53 C INCLUDE PARAMETER STATEMENTS. SET LOCAL PARAMETERS. 54 INCLUDE "parmeta" 72 INCLUDE "params" 114 PARAMETER (DPBND=60.E2,ISMTHP=2,ISMTHT=2,ISMTHQ=2,ISMTHR=2, 115 & CLIMIT=1.E-20) Page 2 Source Listing BLOSFC2 2014-12-17 20:47 BLOSFC2.f 116 C 117 C DECLARE VARIABLES. 118 REAL PBND(IM,JM),QBND(IM,JM),RHBND(IM,JM),TBND(IM,JM) 119 REAL PSUM(IM,JM),ICEB(IM,JM),IWM1(IM,JM) 120 C 121 C INCLUDE COMMON BLOCKS 122 INCLUDE "MAPOT.comm" 135 INCLUDE "VRBLS.comm" 142 INCLUDE "CLDWTR.comm" 148 INCLUDE "LOOPS.comm" 156 INCLUDE "EXTRA.comm" 168 INCLUDE "OMGAOT.comm" 172 INCLUDE "MASKS.comm" 180 INCLUDE "CTLBLK.comm" 181 C 182 C******************************************************************** 183 C START BLOSFC HERE. 184 C 185 C SET BELOW GROUND OMEGA. 186 !$omp parallel do 201 DO L = 1,LM 202 DO J=JSTA,JEND 203 DO I=1,IM 204 LLMH = LMH(I,J) 205 IF(L.GT.LLMH) OMGA(I,J,L) = OMGA(I,J,LLMH) 206 ENDDO 207 ENDDO 208 CALL EXCH(OMGA(1,1,L)) 209 ENDDO 210 C 211 C SET BELOW GROUND U AND V WIND COMPONENTS. 212 !$omp parallel do 213 !$omp& private(llmv) 214 DO L = 1,LM 215 DO J=JSTA,JEND 216 DO I=1,IM 217 LLMV = LMV(I,J) 218 IF (L.GT.LLMV) THEN 219 U(I,J,L) = U(I,J,LLMV) 220 V(I,J,L) = V(I,J,LLMV) 221 ENDIF 222 ENDDO 223 ENDDO 224 CALL EXCH(U(1,1,L)) 225 CALL EXCH(V(1,1,L)) 226 ENDDO 227 C 228 C LOOP OVER HORIZONTAL. AT EACH MASS POINT COMPUTE 229 C LAYER MEAN P, T, AND Q IN A DPBND THICK BOUNDARY 230 C LAYER FROM THE SURFACE UP. 231 C 232 !$omp parallel do 233 DO J=JSTA,JEND 234 DO I=1,IM 235 PBND(I,J)= PD(I,J) + PT - 0.5*DPBND 236 PSUM(I,J)= D00 237 TBND(I,J)= D00 Page 3 Source Listing BLOSFC2 2014-12-17 20:47 BLOSFC2.f 238 QBND(I,J)= D00 239 ICEB(I,J)= D00 240 IWM1(I,J)= D00 241 ENDDO 242 ENDDO 243 !$omp parallel do 244 !$omp& private(dp,iwm1,pbot,pm,ptop,riw) 245 DO L = 1,LM 246 DO J=JSTA,JEND 247 DO I=1,IM 248 PM = D50*(PINT(I,J,L)+PINT(I,J,L+1)) 249 PTOP = PBND(I,J)-DPBND*0.5 250 PBOT = PBND(I,J)+DPBND*0.5 251 C COMPUTE IW 252 RIW=0. 253 IF(CWM(I,J,L).GT.CLIMIT) THEN 254 IF(T(I,J,L).LT.258.15)THEN 255 RIW=1. 256 ELSEIF(T(I,J,L).GE.273.15)THEN 257 RIW=0. 258 ELSE 259 IF(IWM1(I,J).EQ.1.0)RIW=1. 260 ENDIF 261 ELSE 262 RIW=0. 263 ENDIF 264 IWM1(I,J)=RIW 265 C COMPUTE IW 266 IF (PM.GT.PTOP.AND.PM.LE.PBOT) THEN 267 DP = PINT(I,J,L+1)-PINT(I,J,L) 268 PSUM(I,J) = PSUM(I,J) + DP 269 TBND(I,J) = TBND(I,J) + T(I,J,L)*DP 270 QBND(I,J) = QBND(I,J) + Q(I,J,L)*DP 271 ICEB(I,J) = ICEB(I,J) + RIW*DP 272 ENDIF 273 ENDDO 274 ENDDO 275 ENDDO 276 C 277 DO J=JSTA,JEND 278 DO I=1,IM 279 IF (PSUM(I,J).NE.0.) THEN 280 RPSUM = 1./PSUM(I,J) 281 TBND(I,J) = TBND(I,J)*RPSUM 282 QBND(I,J) = QBND(I,J)*RPSUM 283 ICEB(I,J) = ICEB(I,J)*RPSUM 284 IF (ICEB(I,J).LT.0.5) ICEB(I,J)=0. 285 ELSE 286 LLMH=LMH(I,J) 287 TBND(I,J) = T(I,J,LLMH) 288 QBND(I,J) = Q(I,J,LLMH) 289 ICEB(I,J) = IWM1(I,J) 290 ENDIF 291 ENDDO 292 ENDDO 293 C USE BOUNDARY LAYER PRESSURE, TEMPERATURE, AND SPECIFIC 294 C HUMIDITY ARRAYS TO COMPUTE BOUNDARY LAYER RELATIVE Page 4 Source Listing BLOSFC2 2014-12-17 20:47 BLOSFC2.f 295 C HUMIDITY 296 CALL P2FILT(ISMTHP,HBM2,PBND) 297 CALL P2FILT(ISMTHT,HBM2,TBND) 298 CALL P2FILT(ISMTHQ,HBM2,QBND) 299 CALL BOUNDL(QBND,H1M12,H99999,IM,JM) 300 CALL CALRH2(PBND,TBND,QBND,ICEB,RHBND,IM,JM) 301 CALL P2FILT(ISMTHR,HBM2,RHBND) 302 C 303 C SET BELOW GROUND Q TO PRESERVE BOUNDARY LAYER 304 C RELATIVE HUMIDITY. 305 C 306 !$omp parallel do 307 !$omp& private(ai,bi,llmh,pm,qi,qint,qs,qw,tm,tmt0,tmt15) 308 DO L = 1,LM 309 DO J=JSTA,JEND 310 DO I=1,IM 311 LLMH=LMH(I,J) 312 IF(L.GT.LLMH)THEN 313 PM=D50*(PINT(I,J,L)+PINT(I,J,L+1)) 314 TM=T(I,J,L) 315 C 316 TMT0=TM-273.16 317 TMT15=AMIN1(TMT0,-15.) 318 AI=0.008855 319 BI=1. 320 IF(TMT0.LT.-20.)THEN 321 AI=0.007225 322 BI=0.9674 323 ENDIF 324 QW=PQ0/PM*EXP(A2*(TM-A3)/(TM-A4)) 325 QI=QW*(BI+AI*AMIN1(TMT0,0.)) 326 QINT=QW*(1.-0.00032*TMT15*(TMT15+15.)) 327 IF(TMT0.LT.-15.)THEN 328 QS=QI 329 ELSEIF(TMT0.GE.0.)THEN 330 QS=QINT 331 ELSE 332 IF(ICEB(I,J).GT.0.0) THEN 333 QS=QI 334 ELSE 335 QS=QINT 336 ENDIF 337 ENDIF 338 CMEB 12/22/98 SWITCH TO RH VS WATER NO MATTER WHAT 339 C DELETE THIS LINE TO SWITCH BACK TO RH VS ICE 340 QS=QW 341 CMEB 12/22/98 SWITCH TO RH VS WATER NO MATTER WHAT 342 C 343 C 344 Q(I,J,L)=RHBND(I,J)*QS 345 Q(I,J,L)=AMAX1(H1M12,Q(I,J,L)) 346 ENDIF 347 ENDDO 348 ENDDO 349 CALL EXCH(Q(1,1,L)) 350 ENDDO 351 C Page 5 Source Listing BLOSFC2 2014-12-17 20:47 BLOSFC2.f 352 C END OF ROUTINE 353 C 354 RETURN 355 END ENTRY POINTS Name blosfc2_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A2 Param 41 R(4) 4 scalar 201 A3 Param 41 R(4) 4 scalar 201 A4 Param 41 R(4) 4 scalar 201 AD05 Param 33 R(4) 4 scalar AETA Scalar 8 R(4) 4 1 45 COM AI Local 195 R(4) 4 scalar 195,198,202 ALPINT Scalar 4 R(4) 4 3 4219074 COM ALSL Scalar 7 R(4) 4 1 39 COM AMAX1 Func 222 scalar 222 AMIN1 Func 194 scalar 194,202 BETA Param 37 R(4) 4 scalar 37 BI Local 196 R(4) 4 scalar 196,199,202 BLOSFC2 Subr 1 BOUNDL Subr 176 176 BTG Param 37 R(4) 4 scalar CALRH2 Subr 177 177 CAPA Param 28 R(4) 4 scalar 35 CFT0 Param 33 R(4) 4 scalar CLDWTR Common 2 17610408 CLIMIT Param 57 R(4) 4 scalar 130 CM1 Param 23 R(4) 4 scalar CM2 Param 23 R(4) 4 scalar CM3 Param 23 R(4) 4 scalar CMLD Scalar 6 R(4) 4 scalar COM CP Param 34 R(4) 4 scalar 36,40 CPDR Param 36 R(4) 4 scalar CPHI0 Scalar 9 R(4) 4 scalar COM CTLBLK Common 2 96 CWM Scalar 3 R(4) 4 3 4127355 COM 130 D00 Param 25 R(4) 4 scalar 113,114,115,116,117 D001 Param 25 R(4) 4 scalar D0065 Param 29 R(4) 4 scalar D01 Param 25 R(4) 4 scalar D05 Param 29 R(4) 4 scalar 33 D1 Param 25 R(4) 4 scalar D115 Param 29 R(4) 4 scalar D125 Param 27 R(4) 4 scalar D25 Param 27 R(4) 4 scalar D50 Param 25 R(4) 4 scalar 125,190 D608 Param 29 R(4) 4 scalar Page 6 Source Listing BLOSFC2 2014-12-17 20:47 Symbol Table BLOSFC2.f Name Object Declared Type Bytes Dimen Elements Attributes References DETA Scalar 8 R(4) 4 1 45 COM DISLP Scalar 7 R(4) 4 scalar COM DLMD Scalar 6 R(4) 4 scalar COM DP Local 144 R(4) 4 scalar 144,145,146,147,148 DP10M Param 35 R(4) 4 scalar DP30 Scalar 6 R(4) 4 scalar COM DPBND Param 56 R(4) 4 scalar 112,126,127 DPHD Scalar 6 R(4) 4 scalar COM DT Scalar 4 R(4) 4 scalar COM DTR Param 34 R(4) 4 scalar 34 ELDR Param 36 R(4) 4 scalar ELWV Param 36 R(4) 4 scalar 36 EPS Param 39 R(4) 4 scalar 39 EPSQ2 Param 40 R(4) 4 scalar ERAD Param 34 R(4) 4 scalar ERLAM0 Scalar 9 R(4) 4 scalar COM ETA Scalar 8 R(4) 4 1 46 COM EXCH Subr 85 85,101,102,226 EXP Func 201 scalar 201 EXTRA Common 3 71506268 FIRST Scalar 3 R(4) 4 scalar COM FIS Scalar 3 R(4) 4 2 91719 COM FMD Param 39 R(4) 4 scalar 39 FMW Param 39 R(4) 4 scalar 39 FSL Scalar 8 R(4) 4 2 91719 COM G Param 32 R(4) 4 scalar 32 GI Param 32 R(4) 4 scalar 36 H1 Param 26 R(4) 4 scalar 33 H100 Param 27 R(4) 4 scalar H1000 Param 27 R(4) 4 scalar H10000 Param 28 R(4) 4 scalar H10E5 Param 28 R(4) 4 scalar H1E2 Param 30 R(4) 4 scalar H1E4 Param 30 R(4) 4 scalar H1M12 Param 26 R(4) 4 scalar 176,222 H1M2 Param 30 R(4) 4 scalar H1M5 Param 27 R(4) 4 scalar H2 Param 26 R(4) 4 scalar H4 Param 26 R(4) 4 scalar H999 Param 25 R(4) 4 scalar H99999 Param 26 R(4) 4 scalar 176 HBM2 Scalar 3 R(4) 4 2 91719 COM 173,174,175,178 HTM Scalar 5 R(4) 4 3 4127355 COM I Local 80 I(4) 4 scalar 80,81,82,93,94,96,97,111,112,113,1 14,115,116,117,124,125,126,127,130 ,131,133,136,141,144,145,146,147,1 48,155,156,157,158,159,160,161,163 ,164,165,166,187,188,190,191,209,2 21,222 ICEB Local 61 R(4) 4 2 91719 116,148,160,161,166,177,209 ICNT Scalar 7 I(4) 4 1 1024 COM IDAT Scalar 3 I(4) 4 1 3 COM IDIM1 Param 14 I(4) 4 scalar IDIM2 Param 14 I(4) 4 scalar IDN Scalar 7 I(4) 4 scalar COM Page 7 Source Listing BLOSFC2 2014-12-17 20:47 Symbol Table BLOSFC2.f Name Object Declared Type Bytes Dimen Elements Attributes References IDSP Scalar 7 I(4) 4 1 1024 COM IDTAD Scalar 4 I(4) 4 scalar COM IGSTL Param 9 I(4) 4 scalar 14 IGSTR Param 9 I(4) 4 scalar 14 IHHA Scalar 3 I(4) 4 1 760 COM IHLA Scalar 3 I(4) 4 1 760 COM IHRST Scalar 3 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,11,14,60,61,80,93, 111,124,155,176,177,187 IM1 Param 6 I(4) 4 scalar IMJM Param 2 I(4) 4 scalar 5 IMT Param 4 I(4) 4 scalar INPES Param 6 I(4) 4 scalar 11,14 IOUT Scalar 3 I(4) 4 scalar COM ISHDE Scalar 4 I(4) 4 1 61 COM ISMTHP Param 56 I(4) 4 scalar 173 ISMTHQ Param 56 I(4) 4 scalar 175 ISMTHR Param 56 I(4) 4 scalar 178 ISMTHT Param 56 I(4) 4 scalar 174 ITAIL Param 11 I(4) 4 scalar IUNIT Scalar 10 I(4) 4 scalar COM IUP Scalar 7 I(4) 4 scalar COM IVHA Scalar 3 I(4) 4 1 760 COM IVLA Scalar 3 I(4) 4 1 760 COM IWM1 Local 61 R(4) 4 2 91719 117,136,141,166 IXM Scalar 3 I(4) 4 scalar COM IYM Scalar 3 I(4) 4 scalar COM J Local 79 I(4) 4 scalar 79,81,82,92,94,96,97,110,112,113,1 14,115,116,117,123,125,126,127,130 ,131,133,136,141,144,145,146,147,1 48,154,156,157,158,159,160,161,163 ,164,165,166,186,188,190,191,209,2 21,222 JAM Param 6 I(4) 4 scalar 3 JDIM1 Param 15 I(4) 4 scalar JDIM2 Param 15 I(4) 4 scalar JEND Scalar 6 I(4) 4 scalar COM 79,92,110,123,154,186 JEND_2U Scalar 8 I(4) 4 scalar COM JEND_M Scalar 7 I(4) 4 scalar COM JEND_M2 Scalar 7 I(4) 4 scalar COM JGSTL Param 10 I(4) 4 scalar 15 JGSTR Param 10 I(4) 4 scalar 15 JM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,12,15,60,61,176,17 7 JM2 Param 6 I(4) 4 scalar JMT Param 4 I(4) 4 scalar JNPES Param 6 I(4) 4 scalar 12,15 JRA Scalar 3 I(4) 4 1 760 COM JSTA Scalar 6 I(4) 4 scalar COM 79,92,110,123,154,186 JSTA_2L Scalar 8 I(4) 4 scalar COM JSTA_M Scalar 7 I(4) 4 scalar COM JSTA_M2 Scalar 7 I(4) 4 scalar COM JTAIL Param 12 I(4) 4 scalar KMNT Scalar 5 I(4) 4 2 4118670 COM KMNTM Scalar 5 I(4) 4 1 45 COM Page 8 Source Listing BLOSFC2 2014-12-17 20:47 Symbol Table BLOSFC2.f Name Object Declared Type Bytes Dimen Elements Attributes References KSAV Param 14 I(4) 4 scalar KSFI Param 13 I(4) 4 scalar KSLI Param 14 I(4) 4 scalar KSLP Param 14 I(4) 4 scalar KSLPD Param 13 I(4) 4 scalar KSMUD Param 13 I(4) 4 scalar KSRH Param 14 I(4) 4 scalar KSSLP Param 13 I(4) 4 scalar KST Param 13 I(4) 4 scalar KSUV Param 14 I(4) 4 scalar KUNIT Scalar 10 I(4) 4 scalar COM L Local 78 I(4) 4 scalar 78,82,85,91,95,96,97,101,102,122,1 25,130,131,133,144,146,147,185,189 ,190,191,221,222,226 LB Param 9 I(4) 4 scalar LC Scalar 3 I(4) 4 2 91719 COM LHEAT Param 40 I(4) 4 scalar 40 LHTOCP Param 40 I(4) 4 scalar LIST Scalar 3 I(4) 4 scalar COM LLMH Local 81 I(4) 4 scalar 81,82,163,164,165,188,189 LLMV Local 94 I(4) 4 scalar 94,95,96,97 LM Param 3 I(4) 4 scalar 2,3,5,8,19,78,91,122,185 LM1 Param 8 I(4) 4 scalar LMH Scalar 5 I(4) 4 2 91719 COM 81,163,188 LMV Scalar 5 I(4) 4 2 91719 COM 94 LOOPS Common 2 748952 LP1 Param 8 I(4) 4 scalar 4,8 LSL Scalar 3 I(4) 4 scalar COM LSM Param 3 I(4) 4 scalar 7 LUNIT Scalar 10 I(4) 4 scalar COM MAPOT Common 2 1448 MASKS Common 2 34853220 ME Scalar 6 I(4) 4 scalar COM MUNIT Scalar 10 I(4) 4 scalar COM NBC Scalar 3 I(4) 4 scalar COM NBOCO Scalar 4 I(4) 4 scalar COM NCP Scalar 4 I(4) 4 scalar COM NDDAMP Scalar 4 I(4) 4 scalar COM NFCST Scalar 3 I(4) 4 scalar COM NINC Param 7 I(4) 4 scalar NPHS Scalar 5 I(4) 4 scalar COM NPREC Scalar 4 I(4) 4 scalar COM NRADL Scalar 5 I(4) 4 scalar COM NRADS Scalar 5 I(4) 4 scalar COM NSHDE Scalar 4 I(4) 4 scalar COM NSTAT Param 19 I(4) 4 scalar NSUMD Param 15 I(4) 4 scalar NTSD Scalar 4 I(4) 4 scalar COM NTSTM Scalar 4 I(4) 4 scalar COM NUM_PROCS Scalar 6 I(4) 4 scalar COM NUNIT Scalar 10 I(4) 4 scalar COM NWORD Param 19 I(4) 4 scalar 19 NWORD3 Param 19 I(4) 4 scalar NWORD6 Param 19 I(4) 4 scalar OLDRD Scalar 10 R(4) 4 scalar COM Page 9 Source Listing BLOSFC2 2014-12-17 20:47 Symbol Table BLOSFC2.f Name Object Declared Type Bytes Dimen Elements Attributes References OMGA Scalar 2 R(4) 4 3 4127355 COM 82,85 OMGAOT Common 2 16509420 ONEPS Param 39 R(4) 4 scalar OVERRC Param 33 R(4) 4 scalar 33 P1000 Param 35 R(4) 4 scalar P2FILT Subr 173 173,174,175,178 PARALLEL Common 9 8240 PBND Local 60 R(4) 4 2 91719 112,126,127,173,177 PBOT Local 127 R(4) 4 scalar 127,143 PD Scalar 3 R(4) 4 2 91719 COM 112 PDSL Scalar 6 R(4) 4 2 91719 COM PDVP1 Scalar 6 R(4) 4 2 91719 COM PFSL Scalar 7 R(4) 4 2 91719 COM PINT Scalar 4 R(4) 4 3 4219074 COM 125,144,190 PM Local 125 R(4) 4 scalar 125,143,190,201 PQ0 Param 41 R(4) 4 scalar 201 PSLP Scalar 6 R(4) 4 2 91719 COM PSUM Local 61 R(4) 4 2 91719 113,145,156,157 PT Scalar 5 R(4) 4 scalar COM 112 PTOP Local 126 R(4) 4 scalar 126,143 PTSL Scalar 7 R(4) 4 2 91719 COM Q Scalar 5 R(4) 4 3 4127355 COM 147,165,221,222,226 QBND Local 60 R(4) 4 2 91719 115,147,159,165,175,176,177 QI Local 202 R(4) 4 scalar 202,205,210 QINT Local 203 R(4) 4 scalar 203,207,212 QS Local 205 R(4) 4 scalar 205,207,210,212,217,221 QSL Scalar 9 R(4) 4 2 91719 COM QW Local 201 R(4) 4 scalar 201,202,203,217 R Scalar 5 R(4) 4 scalar COM RCAPA Param 35 R(4) 4 scalar RD Param 32 R(4) 4 scalar 32,36,40 RDOCP Param 40 R(4) 4 scalar RES Scalar 3 R(4) 4 2 91719 COM RESTRT Scalar 3 R(4) 4 scalar COM RG Param 36 R(4) 4 scalar RHBND Local 60 R(4) 4 2 91719 177,178,221 RIW Local 129 R(4) 4 scalar 129,132,134,136,139,141,148 ROG Param 32 R(4) 4 scalar RPSUM Local 157 R(4) 4 scalar 157,158,159,160 RTD Param 34 R(4) 4 scalar RUN Scalar 3 R(4) 4 scalar COM SBD Scalar 6 R(4) 4 scalar COM SICE Scalar 3 R(4) 4 2 91719 COM SIGMA Scalar 3 R(4) 4 scalar COM SLP Scalar 5 R(4) 4 2 91719 COM SM Scalar 3 R(4) 4 2 91719 COM SMTHA Param 15 R(4) 4 scalar SMTHB Param 15 R(4) 4 scalar SPHI0 Scalar 9 R(4) 4 scalar COM SPL Scalar 7 R(4) 4 1 39 COM SR Scalar 3 R(4) 4 2 91719 COM STDRD Scalar 10 R(4) 4 scalar COM T Scalar 5 R(4) 4 3 4127355 COM 131,133,146,164,191 T500 Scalar 6 R(4) 4 2 91719 COM TBND Local 60 R(4) 4 2 91719 114,146,158,164,174,177 Page 10 Source Listing BLOSFC2 2014-12-17 20:47 Symbol Table BLOSFC2.f Name Object Declared Type Bytes Dimen Elements Attributes References TFRZ Param 39 R(4) 4 scalar TLM0D Scalar 6 R(4) 4 scalar COM TM Local 191 R(4) 4 scalar 191,193,201 TMT0 Local 193 R(4) 4 scalar 193,194,197,202,204,206 TMT15 Local 194 R(4) 4 scalar 194,203 TPH0D Scalar 6 R(4) 4 scalar COM TSHDE Scalar 8 R(4) 4 1 61 COM TSL Scalar 8 R(4) 4 2 91719 COM TSPH Scalar 5 R(4) 4 scalar COM TTV Scalar 8 R(4) 4 2 91719 COM U Scalar 5 R(4) 4 3 4127355 COM 96,101 U00 Scalar 3 R(4) 4 2 91719 COM UL Scalar 3 R(4) 4 1 90 COM V Scalar 5 R(4) 4 3 4127355 COM 97,102 VBM2 Scalar 3 R(4) 4 2 91719 COM VBM3 Scalar 3 R(4) 4 2 91719 COM VRBLS Common 2 67138308 VTM Scalar 5 R(4) 4 3 4127355 COM WBD Scalar 6 R(4) 4 scalar COM X1P Scalar 6 R(4) 4 scalar COM Y1P Scalar 6 R(4) 4 scalar COM Z0SLP Scalar 7 R(4) 4 scalar COM Z1000 Scalar 9 R(4) 4 2 91719 COM ZINT Scalar 4 R(4) 4 3 4219074 COM Page 11 Source Listing BLOSFC2 2014-12-17 20:47 Subprograms/Common Blocks BLOSFC2.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References BLOSFC2 Subr 1 CLDWTR Common 2 17610408 CTLBLK Common 2 96 EXTRA Common 3 71506268 LOOPS Common 2 748952 MAPOT Common 2 1448 MASKS Common 2 34853220 OMGAOT Common 2 16509420 PARALLEL Common 9 8240 VRBLS Common 2 67138308 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 12 Source Listing BLOSFC2 2014-12-17 20:47 BLOSFC2.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 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 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 : /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/,.f,./.f,/usrx/local/intel/composerxe/mkl/include/.f, /usrx/local/intel/composerxe/tbb/include/.f,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/.f, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/.f,/usr/local/include/.f,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/.f, /usr/include/.f,/usr/include/.f -list filename : BLOSFC2.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100