Page 1 Source Listing LFMFLD 2014-12-17 20:48 LFMFLD.f 1 SUBROUTINE LFMFLD(RH3310,RH6610,RH3366,PW3310) 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: LFMFLD COMPUTES LAYER MEAN LFM FIELDS 5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 6 C 7 C ABSTRACT: 8 C THIS ROUTINE COMPUTES THREE LAYER MEAN RELATIVE HUMIDITIES 9 C AND A PRECIPITABLE WATER FIELD FROM ETA LEVEL DATA. THE 10 C COMPUTED FIELDS ARE INTENDED TO MIMIC SIMILAR FIELDS COM- 11 C PUTED BY THE LFM. THE ALGORITHM USED HERE IS FAIRLY PRI- 12 C MATIVE. IN EACH COLUMN ABOVE A MASS POINT ON THE ETA GRID 13 C WE SET THE FOLLOWING TARGET PRESSURES: 14 C SIGMA LAYER 1.00 PRESSURE: SURFACE PRESSURE 15 C SIGMA LAYER 0.66 PRESSURE: 0.50 * SURFACE PRESSURE 16 C SIGMA LAYER 0.33 PRESSURE: 0.4356 * SURFACE PRESSURE 17 C GIVEN THESE PRESSURES A SURFACE UP SUMMATION IS MADE OF 18 C RELATIVE HUMIDITY AND/OR PRECIPITABLE WATER BETWEEN THESE 19 C TARGET PRESSURES. EACH TERM IN THE SUMMATION IS WEIGHTED 20 C BY THE THICKNESS OF THE ETA LAYER. THE FINAL LAYER MEAN 21 C IS THIS SUM NORMALIZED BY THE TOTAL DEPTH OF THE LAYER. 22 C THERE IS, OBVIOUSLY, NO NORMALIZATION FOR PRECIPITABLE WATER. 23 C 24 C 25 C PROGRAM HISTORY LOG: 26 C 92-12-22 RUSS TREADON 27 C 93-07-27 RUSS TREADON - MODIFIED SUMMATION LIMITS FROM 28 C 0.66*PSFC TO 0.75*PSFC AND 0.33*PSFC 29 C TO 0.50*PSFC, WHERE PSFC IS THE 30 C SURFACES PRESSURE. THE REASON FOR 31 C THIS CHANGE WAS RECOGNITION THAT IN 32 C THE LFM 0.33 AND 0.66 WERE MEASURED 33 C FROM THE SURFACE TO THE TROPOPAUSE, 34 C NOT THE TOP OF THE MODEL. 35 C 93-09-13 RUSS TREADON - RH CALCULATIONS WERE MADE INTERNAL 36 C TO THE ROUTINE. 37 C 96-03-04 MIKE BALDWIN - CHANGE PW CALC TO INCLUDE CLD WTR 38 C 98-06-16 T BLACK - CONVERSION FROM 1-D TO 2-D 39 C 98-08-17 MIKE BALDWIN - COMPUTE RH OVER ICE 40 C 98-12-22 MIKE BALDWIN - BACK OUT RH OVER ICE 41 C 00-01-04 JIM TUCCILLO - MPI VERSION 42 C 43 C 44 C USAGE: CALL LFMFLD(RH3310,RH6610,RH3366,PW3310) 45 C INPUT ARGUMENT LIST: 46 C NONE 47 C 48 C OUTPUT ARGUMENT LIST: 49 C RH3310 - SIGMA LAYER 0.33-1.00 MEAN RELATIVE HUMIDITY. 50 C RH6610 - SIGMA LAYER 0.66-1.00 MEAN RELATIVE HUMIDITY. 51 C RH3366 - SIGMA LAYER 0.33-0.66 MEAN RELATIVE HUMIDITY. 52 C PW3310 - SIGMA LAYER 0.33-1.00 PRECIPITABLE WATER. 53 C 54 C OUTPUT FILES: 55 C NONE 56 C 57 C LIBRARY: Page 2 Source Listing LFMFLD 2014-12-17 20:48 LFMFLD.f 58 C COMMON - VRBLS 59 C MAPOT 60 C EXTRA 61 C LOOPS 62 C OPTIONS 63 C 64 C ATTRIBUTES: 65 C LANGUAGE: FORTRAN 66 C MACHINE : CRAY C-90 67 C$$$ 68 C 69 C 70 C 71 C INCLUDE PARAMETERS. 72 INCLUDE "parmeta" 90 INCLUDE "params" 91 C 133 PARAMETER (RHOWAT=1.E3) 134 C 135 C DECLARE VARIABLES. 136 C 137 REAL ALPM, DZ, ES, PM, PWSUM, QM, QS, TM 138 REAL RH3310(IM,JM), RH6610(IM,JM), RH3366(IM,JM) 139 REAL PW3310(IM,JM), IW(IM,JM,LM) 140 C 141 C INCLUDE COMMON BLOCKS. 142 INCLUDE "VRBLS.comm" 149 INCLUDE "MAPOT.comm" 162 INCLUDE "CLDWTR.comm" 168 INCLUDE "EXTRA.comm" 180 INCLUDE "LOOPS.comm" 188 INCLUDE "OPTIONS.comm" 192 INCLUDE "CTLBLK.comm" 193 C 194 C*********************************************************************** 195 C START LFMFLD HERE 196 C 197 C 198 C COMPUTE IW 199 C 214 CLIMIT =1.0E-20 215 IW=0. 216 C 217 DO L=2,LM 218 DO J=JSTA,JEND 219 DO I=1,IM 220 IF(CWM(I,J,L).GT.CLIMIT) THEN 221 IF(T(I,J,L).LT.258.15)THEN 222 IW(I,J,L)=1. 223 ELSEIF(T(I,J,L).GE.273.15)THEN 224 IW(I,J,L)=0. 225 ELSE 226 IF(IW(I,J,L-1).EQ.1.0)IW(I,J,L)=1. 227 ENDIF 228 ELSE 229 IW(I,J,L)=0. 230 ENDIF Page 3 Source Listing LFMFLD 2014-12-17 20:48 LFMFLD.f 231 ENDDO 232 ENDDO 233 ENDDO 234 C 235 C LOOP OVER HORIZONTAL GRID. 236 C 237 DO 30 J=JSTA,JEND 238 DO 30 I=1,IM 239 C 240 C ZERO VARIABLES. 241 RH3310(I,J) = D00 242 PW3310(I,J) = D00 243 RH6610(I,J) = D00 244 RH3366(I,J) = D00 245 Z3310 = D00 246 Z6610 = D00 247 Z3366 = D00 248 C 249 C SET BOUNDS FOR PRESSURES AND SURFACE L. 250 P10 = PD(I,J) + PT 251 P66 = 0.75*P10 252 P33 = 0.50*P10 253 LLMH = LMH(I,J) 254 C 255 C ACCULMULATE RELATIVE HUMIDITIES AND PRECIPITABLE WATER. 256 C 257 DO 10 L = LLMH,1,-1 258 C 259 C GET P, Z, T, AND Q AT MIDPOINT OF ETA LAYER. 260 ALPM = D50*(ALPINT(I,J,L)+ALPINT(I,J,L+1)) 261 DZ = ZINT(I,J,L)-ZINT(I,J,L+1) 262 DP = PINT(I,J,L+1)-PINT(I,J,L) 263 PM = EXP(ALPM) 264 TM = T(I,J,L) 265 QM = Q(I,J,L) 266 QM = AMAX1(QM,D00) 267 C 268 TMT0=TM-273.16 269 TMT15=AMIN1(TMT0,-15.) 270 AI=0.008855 271 BI=1. 272 IF(TMT0.LT.-20.)THEN 273 AI=0.007225 274 BI=0.9674 275 ENDIF 276 QW=PQ0/PM*EXP(A2*(TM-A3)/(TM-A4)) 277 QI=QW*(BI+AI*AMIN1(TMT0,0.)) 278 QINT=QW*(1.-0.00032*TMT15*(TMT15+15.)) 279 IF(TMT0.LT.-15.)THEN 280 QS=QI 281 ELSEIF(TMT0.GE.0.)THEN 282 QS=QINT 283 ELSE 284 IF(IW(I,J,L).GT.0.0) THEN 285 QS=QI 286 ELSE 287 QS=QINT Page 4 Source Listing LFMFLD 2014-12-17 20:48 LFMFLD.f 288 ENDIF 289 ENDIF 290 CMEB 12/22/98 SWITCH TO RH VS WATER NO MATTER WHAT 291 C DELETE THIS LINE TO SWITCH BACK TO RH VS ICE 292 QS=QW 293 CMEB 12/22/98 SWITCH TO RH VS WATER NO MATTER WHAT 294 295 C 296 RH = QM/QS 297 IF (RH.GT.H1) THEN 298 RH = H1 299 QM = RH*QS 300 ENDIF 301 IF (RH.LT.D01) THEN 302 RH = D01 303 QM = RH*QS 304 ENDIF 305 C 306 C JUMP OUT OF THIS LOOP IF WE ARE ABOVE THE HIGHEST TARGET PRESSURE. 307 IF (PM.LE.P33) GOTO 20 308 C 309 C 0.66-1.00 RELATIVE HUMIDITY. 310 IF ((PM.LE.P10).AND.(PM.GE.P66)) THEN 311 Z6610 = Z6610 + DZ 312 RH6610(I,J) = RH6610(I,J) + RH*DZ 313 ENDIF 314 C 315 C 0.33-1.00 RELATIVE HUMIDITY AND PRECIPITABLE WATER. 316 IF ((PM.LE.P10).AND.(PM.GE.P33)) THEN 317 Z3310 = Z3310 + DZ 318 RH3310(I,J)= RH3310(I,J)+RH*DZ 319 PW3310(I,J)= PW3310(I,J)+(Q(I,J,L)+CWM(I,J,L))*DP*GI 320 ENDIF 321 C 322 C 0.33-0.66 RELATIVE HUMIDITY. 323 IF ((PM.LE.P66).AND.(PM.GE.P33)) THEN 324 Z3366 = Z3366 + DZ 325 RH3366(I,J) = RH3366(I,J) + RH*DZ 326 ENDIF 327 C 328 10 CONTINUE 329 20 CONTINUE 330 C 331 C NORMALIZE TO GET MEAN RELATIVE HUMIDITIES. AT 332 C ONE TIME WE DIVIDED PRECIPITABLE WATER BY DENSITY 333 C TO GET THE EQUIVALENT WATER DEPTH IN METERS. NO MORE. 334 IF (Z6610.GT.D00) THEN 335 RH6610(I,J) = RH6610(I,J)/Z6610 336 ELSE 337 RH6610(I,J) = SPVAL 338 ENDIF 339 C 340 IF (Z3310.GT.D00) THEN 341 RH3310(I,J) = RH3310(I,J)/Z3310 342 ELSE 343 RH3310(I,J) = SPVAL 344 ENDIF Page 5 Source Listing LFMFLD 2014-12-17 20:48 LFMFLD.f 345 C 346 IF (Z3366.GT.D00) THEN 347 RH3366(I,J) = RH3366(I,J)/Z3366 348 ELSE 349 RH3366(I,J) = SPVAL 350 ENDIF 351 C 352 CWAS PW3310(I,J) = PW3310(I,J)/RHOWAT 353 C 354 30 CONTINUE 355 C 356 C 357 C END OF ROUTINE. 358 C 359 RETURN 360 END ENTRY POINTS Name lfmfld_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 212 141 20 Label 213 191 30 Label 238 121,122 A2 Param 41 R(4) 4 scalar 160 A3 Param 41 R(4) 4 scalar 160 A4 Param 41 R(4) 4 scalar 160 AD05 Param 33 R(4) 4 scalar AETA Scalar 8 R(4) 4 1 45 COM AI Local 154 R(4) 4 scalar 154,157,161 ALPINT Scalar 4 R(4) 4 3 4219074 COM 144 ALPM Local 79 R(4) 4 scalar 144,147 ALSL Scalar 7 R(4) 4 1 39 COM AMAX1 Func 150 scalar 150 AMIN1 Func 153 scalar 153,161 BETA Param 37 R(4) 4 scalar 37 BI Local 155 R(4) 4 scalar 155,158,161 BTG Param 37 R(4) 4 scalar CAPA Param 28 R(4) 4 scalar 35 CFT0 Param 33 R(4) 4 scalar CLDWTR Common 2 17610408 CLIMIT Local 98 R(4) 4 scalar 98,104 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 Page 6 Source Listing LFMFLD 2014-12-17 20:48 Symbol Table LFMFLD.f Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 2 96 CWM Scalar 3 R(4) 4 3 4127355 COM 104,203 D00 Param 25 R(4) 4 scalar 125,126,127,128,129,130,131,150,21 8,224,230 D001 Param 25 R(4) 4 scalar D0065 Param 29 R(4) 4 scalar D01 Param 25 R(4) 4 scalar 185,186 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 144 D608 Param 29 R(4) 4 scalar 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 146 R(4) 4 scalar 146,203 DP10M Param 35 R(4) 4 scalar DP30 Scalar 6 R(4) 4 scalar COM DPHD Scalar 6 R(4) 4 scalar COM DT Scalar 4 R(4) 4 scalar COM DTR Param 34 R(4) 4 scalar 34 DZ Local 79 R(4) 4 scalar 145,195,196,201,202,208,209 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 ES Local 79 R(4) 4 scalar ETA Scalar 8 R(4) 4 1 46 COM EXP Func 147 scalar 147,160 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,203 H1 Param 26 R(4) 4 scalar 33,181,182 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 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 Page 7 Source Listing LFMFLD 2014-12-17 20:48 Symbol Table LFMFLD.f Name Object Declared Type Bytes Dimen Elements Attributes References I Local 103 I(4) 4 scalar 103,104,105,106,107,108,110,113,12 2,125,126,127,128,134,137,144,145, 146,148,149,168,196,202,203,209,21 9,221,225,227,231,233 IBESSL Scalar 2 I(4) 4 scalar COM 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 IDSP Scalar 7 I(4) 4 1 1024 COM IDTAD Scalar 4 I(4) 4 scalar COM IFLAG Scalar 2 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,80,81,103,12 2 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 IOFFS Scalar 2 I(4) 4 scalar COM IOUT Scalar 3 I(4) 4 scalar COM ISHDE Scalar 4 I(4) 4 1 61 COM 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 IW Local 81 R(4) 4 3 4127355 99,106,108,110,113,168 IXM Scalar 3 I(4) 4 scalar COM IYM Scalar 3 I(4) 4 scalar COM J Local 102 I(4) 4 scalar 102,104,105,106,107,108,110,113,12 1,125,126,127,128,134,137,144,145, 146,148,149,168,196,202,203,209,21 9,221,225,227,231,233 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 102,121 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,80,81 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 102,121 JSTA_2L Scalar 8 I(4) 4 scalar COM Page 8 Source Listing LFMFLD 2014-12-17 20:48 Symbol Table LFMFLD.f Name Object Declared Type Bytes Dimen Elements Attributes References 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 KSAV Param 14 I(4) 4 scalar KSB Scalar 2 I(4) 4 scalar COM 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 101 I(4) 4 scalar 101,104,105,106,107,108,110,113,14 1,144,145,146,148,149,168,203 LB Param 9 I(4) 4 scalar LC Scalar 3 I(4) 4 2 91719 COM LFMFLD Subr 1 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 137 I(4) 4 scalar 137,141 LM Param 3 I(4) 4 scalar 3,5,8,19,81,101 LM1 Param 8 I(4) 4 scalar LMH Scalar 5 I(4) 4 2 91719 COM 137 LMV Scalar 5 I(4) 4 2 91719 COM 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 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 Page 9 Source Listing LFMFLD 2014-12-17 20:48 Symbol Table LFMFLD.f Name Object Declared Type Bytes Dimen Elements Attributes References 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 ONEPS Param 39 R(4) 4 scalar OPTIONS Common 2 24 OVERRC Param 33 R(4) 4 scalar 33 P10 Local 134 R(4) 4 scalar 134,135,136,194,200 P1000 Param 35 R(4) 4 scalar P33 Local 136 R(4) 4 scalar 136,191,200,207 P66 Local 135 R(4) 4 scalar 135,194,207 PARALLEL Common 9 8240 PD Scalar 3 R(4) 4 2 91719 COM 134 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 146 PM Local 79 R(4) 4 scalar 147,160,191,194,200,207 PQ0 Param 41 R(4) 4 scalar 160 PSLP Scalar 6 R(4) 4 2 91719 COM PT Scalar 5 R(4) 4 scalar COM 134 PTSL Scalar 7 R(4) 4 2 91719 COM PW3310 Dummy 1 R(4) 4 2 91719 ARG,INOUT 126,203 PWSUM Local 79 R(4) 4 scalar Q Scalar 5 R(4) 4 3 4127355 COM 149,203 QI Local 161 R(4) 4 scalar 161,164,169 QINT Local 162 R(4) 4 scalar 162,166,171 QM Local 79 R(4) 4 scalar 149,150,180,183,187 QS Local 79 R(4) 4 scalar 164,166,169,171,176,180,183,187 QSL Scalar 9 R(4) 4 2 91719 COM QW Local 160 R(4) 4 scalar 160,161,162,176 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 RH Local 180 R(4) 4 scalar 180,181,182,183,185,186,187,196,20 2,209 RH3310 Dummy 1 R(4) 4 2 91719 ARG,INOUT 125,202,225,227 RH3366 Dummy 1 R(4) 4 2 91719 ARG,INOUT 128,209,231,233 RH6610 Dummy 1 R(4) 4 2 91719 ARG,INOUT 127,196,219,221 RHOWAT Param 75 R(4) 4 scalar ROG Param 32 R(4) 4 scalar RTD Param 34 R(4) 4 scalar RUN Scalar 3 R(4) 4 scalar COM SATDEL Scalar 2 R(4) 4 scalar COM SBD Scalar 6 R(4) 4 scalar COM SIGMA Scalar 3 R(4) 4 scalar COM SLP Scalar 5 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 Page 10 Source Listing LFMFLD 2014-12-17 20:48 Symbol Table LFMFLD.f Name Object Declared Type Bytes Dimen Elements Attributes References SPVAL Scalar 2 R(4) 4 scalar COM 221,227,233 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 105,107,148 T500 Scalar 6 R(4) 4 2 91719 COM TFRZ Param 39 R(4) 4 scalar TLM0D Scalar 6 R(4) 4 scalar COM TM Local 79 R(4) 4 scalar 148,152,160 TMT0 Local 152 R(4) 4 scalar 152,153,156,161,163,165 TMT15 Local 153 R(4) 4 scalar 153,162 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 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 VRBLS Common 2 67138308 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 Z3310 Local 129 R(4) 4 scalar 129,201,224,225 Z3366 Local 131 R(4) 4 scalar 131,208,230,231 Z6610 Local 130 R(4) 4 scalar 130,195,218,219 ZINT Scalar 4 R(4) 4 3 4219074 COM 145 Page 11 Source Listing LFMFLD 2014-12-17 20:48 Subprograms/Common Blocks LFMFLD.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 2 17610408 CTLBLK Common 2 96 EXTRA Common 3 71506268 LFMFLD Subr 1 LOOPS Common 2 748952 MAPOT Common 2 1448 OPTIONS Common 2 24 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__ -D __SSE__ -D __MMX__ Page 12 Source Listing LFMFLD 2014-12-17 20:48 LFMFLD.f -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 : LFMFLD.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100