Page 1 Source Listing CALWXT 2014-12-17 20:47 CALWXT.f 1 SUBROUTINE CALWXT(T,Q,RES,PD,HTM,LMH,PREC,PT,AETA,ETA,IWX) 2 C 3 C FILE: CALWXT.f 4 C WRITTEN: 11 NOVEMBER 1993, MICHAEL BALDWIN 5 C REVISIONS: 6 C 30 SEPT 1994-SETUP NEW DECISION TREE (M BALDWIN) 7 C 12 JUNE 1998-CONVERSION TO 2-D (T BLACK) 8 C 9 C 10 C ROUTINE TO COMPUTE PRECIPITATION TYPE USING A DECISION TREE 11 C APPROACH THAT USES VARIABLES SUCH AS INTEGRATED WET BULB TEMP 12 C BELOW FREEZING AND LOWEST LAYER TEMPERATURE 13 C 14 C SEE BALDWIN AND CONTORNO PREPRINT FROM 13TH WEATHER ANALYSIS 15 C AND FORECASTING CONFERENCE FOR MORE DETAILS 16 C (OR BALDWIN ET AL, 10TH NWP CONFERENCE PREPRINT) 17 C 18 INCLUDE "parmeta" 19 C 37 PARAMETER (LP1=LM+1) 38 PARAMETER (H1M12=1.E-12) 39 PARAMETER (PTHRESH=0.000004) 40 C 41 C LIST OF VARIABLES NEEDED 42 C PARAMETERS: 43 C D608,ROG,H1,D00 44 PARAMETER(D608=0.608,ROG=287.04/9.8,H1=1.0,D00=0.0) 45 C 46 C INPUT: 47 C T,Q,RES,PD,HTM,LMH,PREC,PT,AETA,ETA 48 DIMENSION T(IM,JM,LM),Q(IM,JM,LM),RES(IM,JM),PD(IM,JM) 49 &, HTM(IM,JM,LM) 50 DIMENSION LMH(IM,JM),PREC(IM,JM),ETA(LP1),AETA(LM) 51 C OUTPUT: 52 C IWX - INSTANTANEOUS WEATHER TYPE. 53 C ACTS LIKE A 4 BIT BINARY 54 C 1111 = RAIN/FREEZING RAIN/ICE PELLETS/SNOW 55 C WHERE THE ONE'S DIGIT IS FOR SNOW 56 C THE TWO'S DIGIT IS FOR ICE PELLETS 57 C THE FOUR'S DIGIT IS FOR FREEZING RAIN 58 C AND THE EIGHT'S DIGIT IS FOR RAIN 59 DIMENSION IWX(IM,JM) 60 C INTERNAL: 61 C PDSL 62 C 63 DIMENSION TWET(IM,JM,LM),PDSL(IM,JM) 64 DIMENSION KARR(IM,JM) 65 DIMENSION LICEE(IM,JM),TCOLD(IM,JM),TWARM(IM,JM) 66 C SUBROUTINES CALLED: 67 C WETBULB 68 C 69 C 70 C INITIALIZE WEATHER TYPE ARRAY TO ZERO (IE, OFF). 71 C WE DO THIS SINCE WE WANT IWX TO REPRESENT THE 72 C INSTANTANEOUS WEATHER TYPE ON RETURN. 73 C 74 INCLUDE "CTLBLK.comm" Page 2 Source Listing CALWXT 2014-12-17 20:47 CALWXT.f 75 C 76 !$omp parallel do 91 DO J=JSTA,JEND 92 DO I=1,IM 93 IWX(I,J) = 0 94 PDSL(I,J)=RES(I,J)*PD(I,J) 95 ENDDO 96 ENDDO 97 C 98 !$omp parallel do 99 !$omp& private(a,lmhk,pkl,psfck,qkl,tdchk,tdkl,tdpre,tkl) 100 DO 800 J=JSTA,JEND 101 DO 800 I=1,IM 102 LMHK=LMH(I,J) 103 C 104 C SKIP THIS POINT IF NO PRECIP THIS TIME STEP 105 C 106 IF (PREC(I,J).LE.PTHRESH) GOTO 800 107 C 108 C FIND COLDEST AND WARMEST TEMPS IN SATURATED LAYER BETWEEN 109 C 70 MB ABOVE GROUND AND 500 MB 110 C ALSO FIND HIGHEST SATURATED LAYER IN THAT RANGE 111 C 112 PSFCK=PD(I,J)+PT 113 TDCHK=2.0 114 760 TCOLD(I,J)=T(I,J,LMHK) 115 TWARM(I,J)=T(I,J,LMHK) 116 LICEE(I,J)=LMHK 117 C 118 DO 775 L=1,LMHK 119 QKL=Q(I,J,L) 120 QKL=AMAX1(H1M12,QKL) 121 TKL=T(I,J,L) 122 PKL=PDSL(I,J)*AETA(L)+PT 123 C 124 C SKIP PAST THIS IF THE LAYER IS NOT BETWEEN 70 MB ABOVE GROUND 125 C AND 500 MB 126 C 127 IF (PKL.LT.50000.0.OR.PKL.GT.PSFCK-7000.0) GOTO 775 128 A=ALOG(QKL*PKL/(6.1078*(0.378*QKL+0.622))) 129 TDKL=(237.3*A)/(17.269-A)+273.15 130 TDPRE=TKL-TDKL 131 IF (TDPRE.LT.TDCHK.AND.TKL.LT.TCOLD(I,J)) TCOLD(I,J)=TKL 132 IF (TDPRE.LT.TDCHK.AND.TKL.GT.TWARM(I,J)) TWARM(I,J)=TKL 133 IF (TDPRE.LT.TDCHK.AND.L.LT.LICEE(I,J)) LICEE(I,J)=L 134 775 CONTINUE 135 C 136 C IF NO SAT LAYER AT DEW POINT DEP=TDCHK, INCREASE TDCHK 137 C AND START AGAIN (BUT DON'T MAKE TDCHK > 6) 138 C 139 IF (TCOLD(I,J).EQ.T(I,J,LMHK).AND.TDCHK.LT.6.0) THEN 140 TDCHK=TDCHK+2.0 141 GOTO 760 142 ENDIF 143 800 CONTINUE 144 C 145 C LOWEST LAYER T Page 3 Source Listing CALWXT 2014-12-17 20:47 CALWXT.f 146 C 147 DO 850 J=JSTA,JEND 148 DO 850 I=1,IM 149 KARR(I,J)=0 150 IF (PREC(I,J).LE.PTHRESH) GOTO 850 151 LMHK=LMH(I,J) 152 TLMHK=T(I,J,LMHK) 153 C 154 C DECISION TREE TIME 155 C 156 IF (TCOLD(I,J).GT.269.15) THEN 157 IF (TLMHK.LE.273.15) THEN 158 C TURN ON THE FLAG FOR 159 C FREEZING RAIN = 4 160 C IF ITS NOT ON ALREADY 161 C IZR=MOD(IWX(I,J),8)/4 162 C IF (IZR.LT.1) IWX(I,J)=IWX(I,J)+4 163 IWX(I,J)=IWX(I,J)+4 164 GOTO 850 165 ELSE 166 C TURN ON THE FLAG FOR 167 C RAIN = 8 168 C IF ITS NOT ON ALREADY 169 C IRAIN=IWX(I,J)/8 170 C IF (IRAIN.LT.1) IWX(I,J)=IWX(I,J)+8 171 IWX(I,J)=IWX(I,J)+8 172 GOTO 850 173 ENDIF 174 ENDIF 175 KARR(I,J)=1 176 850 CONTINUE 177 C 178 C COMPUTE WET BULB ONLY AT POINTS THAT NEED IT 179 C 180 CALL WETBULB(T,Q,PDSL,HTM,KARR,TWET) 181 C 182 !$omp parallel do 183 !$omp& private(area1,areap4,areas8,dzkl,ifrzl,iwrml,lice, 184 !$omp& lmhk,pintk1,pintk2,pm150,psfck,surfc,surfw, 185 !$omp& tlmhk,twrmk) 186 DO 1900 J=JSTA_M,JEND_M 187 DO 1900 I=2,IM-1 188 IF(KARR(I,J).GT.0)THEN 189 LMHK=LMH(I,J) 190 LICE=LICEE(I,J) 191 PSFCK=PD(I,J)+PT 192 TLMHK=T(I,J,LMHK) 193 TWRMK=TWARM(I,J) 194 C 195 C TWET AREA VARIABLES 196 C CALCULATE ONLY WHAT IS NEEDED 197 C FROM GROUND TO 150 MB ABOVE SURFACE 198 C FROM GROUND TO TCOLD LAYER 199 C AND FROM GROUND TO 1ST LAYER WHERE WET BULB T < 0.0 200 C 201 C PINTK1 IS THE PRESSURE AT THE BOTTOM OF THE LAYER 202 C PINTK2 IS THE PRESSURE AT THE TOP OF THE LAYER Page 4 Source Listing CALWXT 2014-12-17 20:47 CALWXT.f 203 C 204 C AREAP4 IS THE AREA OF TWET ABOVE -4 C BELOW HIGHEST SAT LYR 205 C 206 AREAS8=D00 207 AREAP4=D00 208 SURFW =D00 209 SURFC =D00 210 PINTK1=PSFCK 211 C 212 DO 1945 L=LMHK,LICE,-1 213 PINTK2=PDSL(I,J)*ETA(L)+PT 214 DZKL=T(I,J,L)*(Q(I,J,L)*D608+H1)*ROG* 215 1 ALOG(PINTK1/PINTK2) 216 AREA1=(TWET(I,J,L)-269.15)*DZKL 217 IF (TWET(I,J,L).GE.269.15) AREAP4=AREAP4+AREA1 218 PINTK1=PINTK2 219 1945 CONTINUE 220 C 221 IF (AREAP4.LT.3000.0) THEN 222 C TURN ON THE FLAG FOR 223 C SNOW = 1 224 C IF ITS NOT ON ALREADY 225 C ISNO=MOD(IWX(I,J),2) 226 C IF (ISNO.LT.1) IWX(I,J)=IWX(I,J)+1 227 IWX(I,J)=IWX(I,J)+1 228 GO TO 1900 229 ENDIF 230 C 231 C AREAS8 IS THE NET AREA OF TWET W.R.T. FREEZING IN LOWEST 150MB 232 C 233 PINTK1=PSFCK 234 PM150=PSFCK-15000. 235 C 236 DO 1955 L=LMHK,1,-1 237 PINTK2=PDSL(I,J)*ETA(L)+PT 238 IF(PINTK1.LT.PM150)GO TO 1950 239 DZKL=T(I,J,L)*(Q(I,J,L)*D608+H1)*ROG* 240 1 ALOG(PINTK1/PINTK2) 241 C 242 C SUM PARTIAL LAYER IF IN 150 MB AGL LAYER 243 C 244 IF(PINTK2.LT.PM150) 245 & DZKL=T(I,J,L)*(Q(I,J,L)*D608+H1)*ROG* 246 1 ALOG(PINTK1/PM150) 247 AREA1=(TWET(I,J,L)-273.15)*DZKL 248 AREAS8=AREAS8+AREA1 249 1950 PINTK1=PINTK2 250 1955 CONTINUE 251 C 252 C SURFW IS THE AREA OF TWET ABOVE FREEZING BETWEEN THE GROUND 253 C AND THE FIRST LAYER ABOVE GROUND BELOW FREEZING 254 C SURFC IS THE AREA OF TWET BELOW FREEZING BETWEEN THE GROUND 255 C AND THE WARMEST SAT LAYER 256 C 257 PINTK1=PSFCK 258 IFRZL=0 259 IWRML=0 Page 5 Source Listing CALWXT 2014-12-17 20:47 CALWXT.f 260 C 261 DO 2050 L=LMHK,1,-1 262 IF (IFRZL.EQ.0.AND.T(I,J,L).LT.273.15) IFRZL=1 263 IF (IWRML.EQ.0.AND.T(I,J,L).GE.TWRMK) IWRML=1 264 C 265 IF (IWRML.EQ.0.OR.IFRZL.EQ.0) THEN 266 PINTK2=PDSL(I,J)*ETA(L)+PT 267 DZKL=T(I,J,L)*(Q(I,J,L)*D608+H1)*ROG* 268 1 ALOG(PINTK1/PINTK2) 269 AREA1=(TWET(I,J,L)-273.15)*DZKL 270 PINTK1=PINTK2 271 IF(IFRZL.EQ.0.AND.TWET(I,J,L).GE.273.15)SURFW=SURFW+AREA1 272 IF(IWRML.EQ.0.AND.TWET(I,J,L).LE.273.15)SURFC=SURFC+AREA1 273 ENDIF 274 2050 CONTINUE 275 IF(SURFC.LT.-3000.0.OR. 276 & (AREAS8.LT.-3000.0.AND.SURFW.LT.50.0)) THEN 277 C TURN ON THE FLAG FOR 278 C ICE PELLETS = 2 279 C IF ITS NOT ON ALREADY 280 C IIP=MOD(IWX(I,J),4)/2 281 C IF (IIP.LT.1) IWX(I,J)=IWX(I,J)+2 282 IWX(I,J)=IWX(I,J)+2 283 GOTO 1900 284 ENDIF 285 C 286 IF(TLMHK.LT.273.15) THEN 287 C TURN ON THE FLAG FOR 288 C FREEZING RAIN = 4 289 C IF ITS NOT ON ALREADY 290 C IZR=MOD(IWX(K),8)/4 291 C IF (IZR.LT.1) IWX(K)=IWX(K)+4 292 IWX(I,J)=IWX(I,J)+4 293 ELSE 294 C TURN ON THE FLAG FOR 295 C RAIN = 8 296 C IF ITS NOT ON ALREADY 297 C IRAIN=IWX(K)/8 298 C IF (IRAIN.LT.1) IWX(K)=IWX(K)+8 299 IWX(I,J)=IWX(I,J)+8 300 ENDIF 301 ENDIF 302 1900 CONTINUE 303 C--------------------------------------------------------- 304 RETURN 305 END Page 6 Source Listing CALWXT 2014-12-17 20:47 Entry Points CALWXT.f ENTRY POINTS Name calwxt_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1900 Label 271 155,156,197,252 1945 Label 188 181 1950 Label 218 207 1955 Label 219 205 2050 Label 243 230 760 Label 83 110 775 Label 103 87,96 800 Label 112 69,70,75 850 Label 145 116,117,119,133,141 A Local 97 R(4) 4 scalar 97,98 AETA Dummy 1 R(4) 4 1 45 ARG,INOUT 91 ALOG Func 97 scalar 97,184,209,215,237 AMAX1 Func 89 scalar 89 AREA1 Local 185 R(4) 4 scalar 185,186,216,217,238,240,241 AREAP4 Local 176 R(4) 4 scalar 176,186,190 AREAS8 Local 175 R(4) 4 scalar 175,217,245 CALWXT Subr 1 CTLBLK Common 2 96 D00 Param 27 R(4) 4 scalar 175,176,177,178 D608 Param 27 R(4) 4 scalar 183,208,214,236 DT Scalar 4 R(4) 4 scalar COM DZKL Local 183 R(4) 4 scalar 183,185,208,214,216,236,238 ETA Dummy 1 R(4) 4 1 46 ARG,INOUT 182,206,235 FIRST Scalar 3 R(4) 4 scalar COM H1 Param 27 R(4) 4 scalar 183,208,214,236 H1M12 Param 21 R(4) 4 scalar 89 HTM Dummy 1 R(4) 4 3 4127355 ARG,INOUT 149 I Local 61 I(4) 4 scalar 61,62,63,70,71,75,81,83,84,85,88,9 0,91,100,101,102,108,117,118,119,1 20,121,125,132,140,144,156,157,158 ,159,160,161,162,182,183,185,186,1 96,206,208,214,216,231,232,235,236 ,238,240,241,251,261,268 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 IFRZL Local 227 I(4) 4 scalar 227,231,234,240 IGSTL Param 9 I(4) 4 scalar 14 IGSTR Param 9 I(4) 4 scalar 14 IHRST Scalar 3 I(4) 4 scalar COM Page 7 Source Listing CALWXT 2014-12-17 20:47 Symbol Table CALWXT.f Name Object Declared Type Bytes Dimen Elements Attributes References IM Param 3 I(4) 4 scalar 11,14,31,32,33,42,46,47,48,61,70,1 17,156 INPES Param 6 I(4) 4 scalar 11,14 IOUT Scalar 3 I(4) 4 scalar COM ITAIL Param 11 I(4) 4 scalar IUP Scalar 7 I(4) 4 scalar COM IWRML Local 228 I(4) 4 scalar 228,232,234,241 IWX Dummy 1 I(4) 4 2 91719 ARG,INOUT 62,132,140,196,251,261,268 J Local 60 I(4) 4 scalar 60,62,63,69,71,75,81,83,84,85,88,9 0,91,100,101,102,108,116,118,119,1 20,121,125,132,140,144,155,157,158 ,159,160,161,162,182,183,185,186,1 96,206,208,214,216,231,232,235,236 ,238,240,241,251,261,268 JDIM1 Param 15 I(4) 4 scalar JDIM2 Param 15 I(4) 4 scalar JEND Scalar 6 I(4) 4 scalar COM 60,69,116 JEND_2U Scalar 8 I(4) 4 scalar COM JEND_M Scalar 7 I(4) 4 scalar COM 155 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 12,15,31,32,33,42,46,47,48 JNPES Param 6 I(4) 4 scalar 12,15 JSTA Scalar 6 I(4) 4 scalar COM 60,69,116 JSTA_2L Scalar 8 I(4) 4 scalar COM JSTA_M Scalar 7 I(4) 4 scalar COM 155 JSTA_M2 Scalar 7 I(4) 4 scalar COM JTAIL Param 12 I(4) 4 scalar KARR Local 47 I(4) 4 2 91719 118,144,149,157 L Local 87 I(4) 4 scalar 87,88,90,91,102,181,182,183,185,18 6,205,206,208,214,216,230,231,232, 235,236,238,240,241 LICE Local 159 I(4) 4 scalar 159,181 LICEE Local 48 I(4) 4 2 91719 85,102,159 LIST Scalar 3 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 20,31,32,33,46 LMH Dummy 1 I(4) 4 2 91719 ARG,INOUT 71,120,158 LMHK Local 71 I(4) 4 scalar 71,83,84,85,87,108,120,121,158,161 ,181,205,230 LP1 Param 20 I(4) 4 scalar 33 LSM Param 3 I(4) 4 scalar ME Scalar 6 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 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 NTSD Scalar 4 I(4) 4 scalar COM NTSTM Scalar 4 I(4) 4 scalar COM Page 8 Source Listing CALWXT 2014-12-17 20:47 Symbol Table CALWXT.f Name Object Declared Type Bytes Dimen Elements Attributes References NUM_PROCS Scalar 6 I(4) 4 scalar COM PARALLEL Common 9 8240 PD Dummy 1 R(4) 4 2 91719 ARG,INOUT 63,81,160 PDSL Local 46 R(4) 4 2 91719 63,91,149,182,206,235 PINTK1 Local 179 R(4) 4 scalar 179,184,187,202,207,209,215,218,22 6,237,239 PINTK2 Local 182 R(4) 4 scalar 182,184,187,206,209,213,218,235,23 7,239 PKL Local 91 R(4) 4 scalar 91,96,97 PM150 Local 203 R(4) 4 scalar 203,207,213,215 PREC Dummy 1 R(4) 4 2 91719 ARG,INOUT 75,119 PSFCK Local 81 R(4) 4 scalar 81,96,160,179,202,203,226 PT Dummy 1 R(4) 4 scalar ARG,INOUT 81,91,160,182,206,235 PTHRESH Param 22 R(4) 4 scalar 75,119 Q Dummy 1 R(4) 4 3 4127355 ARG,INOUT 88,149,183,208,214,236 QKL Local 88 R(4) 4 scalar 88,89,97 RES Dummy 1 R(4) 4 2 91719 ARG,INOUT 63 RESTRT Scalar 3 R(4) 4 scalar COM ROG Param 27 R(4) 4 scalar 183,208,214,236 RUN Scalar 3 R(4) 4 scalar COM SIGMA Scalar 3 R(4) 4 scalar COM SURFC Local 178 R(4) 4 scalar 178,241,244 SURFW Local 177 R(4) 4 scalar 177,240,245 T Dummy 1 R(4) 4 3 4127355 ARG,INOUT 83,84,90,108,121,149,161,183,208,2 14,231,232,236 TCOLD Local 48 R(4) 4 2 91719 83,100,108,125 TDCHK Local 82 R(4) 4 scalar 82,100,101,102,108,109 TDKL Local 98 R(4) 4 scalar 98,99 TDPRE Local 99 R(4) 4 scalar 99,100,101,102 TKL Local 90 R(4) 4 scalar 90,99,100,101 TLMHK Local 121 R(4) 4 scalar 121,126,161,255 TWARM Local 48 R(4) 4 2 91719 84,101,162 TWET Local 46 R(4) 4 3 4127355 149,185,186,216,238,240,241 TWRMK Local 162 R(4) 4 scalar 162,232 WETBULB Subr 149 149 Page 9 Source Listing CALWXT 2014-12-17 20:47 Subprograms/Common Blocks CALWXT.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CALWXT Subr 1 CTLBLK Common 2 96 PARALLEL Common 9 8240 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__ -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 Page 10 Source Listing CALWXT 2014-12-17 20:47 CALWXT.f -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 : CALWXT.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100