Page 1 Source Listing WETBULB 2014-12-17 20:48 WETBULB.f 1 SUBROUTINE WETBULB(T,Q,PDSL,HTM,KARR,TWET) 2 C 3 C FILE: WETBULB.f 4 C WRITTEN: 10 SEPTEMBER 1993, MICHAEL BALDWIN 5 C REVISIONS: 6 C CONVERSION TO 2-D: 12 JUNE 1998 (T BLACK) 7 C MPI VERSION: 04 Jan 2000 ( JIM TUCCILLO ) 8 C 9 C----------------------------------------------------------------------- 10 C ROUTINE TO COMPUTE WET BULB TEMPERATURES USING THE LOOK UP TABLE 11 C APPROACH THAT IS USED IN CUCNVC 12 C 13 C FOR A GIVEN POINT K AND LAYER L: 14 C THETA E IS COMPUTED FROM THETA AND Q BY LIFTING THE PARCEL TO 15 C ITS SATURATION POINT. 16 C THEN THE WET BULB TEMPERATURE IS FOUND BY FOLLOWING THE THETA E 17 C DOWN TO THE ORIGINAL PRESSURE LEVEL (USING SUBROUTINE TTBLEX). 18 C 19 C 20 C 21 LOGICAL UNIS,UNIL,OCT90 22 INCLUDE "parmeta" 40 INCLUDE "parm.tbl" 42 PARAMETER(IMJM=IM*JM-JM/2,LP1=LM+1) 43 INCLUDE "cuparm" 132 INCLUDE "PHYS.comm" 153 INCLUDE "CTLBLK.comm" 154 C----------------------------------------------------------------------- 155 C LIST OF VARIABLES NEEDED 156 C PARAMETERS: 157 C INCLUDED IN "cuparm" AND "parm.tbl" 158 C INPUT: 159 C T,Q,HTM (3-D),PDSL,KARR (2-D),KNUM 160 C OUTPUT: 161 C TWET (3-D) 162 C INTERNAL: 163 C THESP,KLRES,KHRES,QQ,PP,IPTB,ITHTB 164 C PLUS SOME INCLUDED IN COMMON BLOCK "PHYS" 165 C SUBROUTINES CALLED: 166 C TTBLEX 167 C 182 DIMENSION THESP(IM,JM),TWET(IM,JM,LM),T(IM,JM,LM),Q(IM,JM,LM) 183 DIMENSION PDSL(IM,JM),HTM(IM,JM,LM),KARR(IM,JM) 184 D I M E N S I O N 185 1 KLRES(IM,JM),KHRES(IM,JM) 186 2,QQ(IM,JM),PP(IM,JM) 187 3,IPTB(IM,JM),ITHTB(IM,JM) 188 C 189 C--------------COMPUTE WET BULB TEMPERATURES---------------------------- 190 !$omp parallel do 191 !$omp& private(apebtk,apespk,bqk,bqs00k,bqs10k,iq,iqtbk,it,ittb1,ittbk, 192 !$omp& karr,khres,klres,knumh,knuml,p00k,p01k,p10k,p11k,ppk, 193 !$omp& presk,qbtk,qqk,sqk,sqs00k,sqs10k,tbtk,thesp,tpspk, 194 !$omp& tqk,tthbtk,tthk) 195 C----------------------------------------------------------------------- 196 DO 300 L=1,LM 197 DO 125 J=JSTA,JEND Page 2 Source Listing WETBULB 2014-12-17 20:48 WETBULB.f 198 DO 125 I=1,IM 199 IF(KARR(I,J).GT.0)THEN 200 IF (HTM(I,J,L).LT.1.0) THEN 201 THESP(I,J)=273.15 202 GOTO 125 203 ENDIF 204 TBTK =T(I,J,L) 205 QBTK =Q(I,J,L) 206 PRESK=PDSL(I,J)*AETA(L)+PT 207 APEBTK=(H10E5/PRESK)**CAPA 208 IF(QBTK.LT.EPSQ) QBTK=HTM(I,J,L)*EPSQ 209 C--------------SCALING POTENTIAL TEMPERATURE & TABLE INDEX-------------- 210 TTHBTK =TBTK*APEBTK 211 TTHK =(TTHBTK-THL)*RDTH 212 QQK =TTHK-AINT(TTHK) 213 ITTB1 =INT(TTHK)+1 214 C--------------KEEPING INDICES WITHIN THE TABLE------------------------- 215 IF(ITTB1.LT.1) THEN 216 ITTB1 =1 217 QQK =D00 218 ENDIF 219 C 220 IF(ITTB1.GE.JTB) THEN 221 ITTB1 =JTB-1 222 QQK =D00 223 ENDIF 224 C--------------BASE AND SCALING FACTOR FOR SPEC. HUMIDITY--------------- 225 ITTBK=ITTB1 226 BQS00K=QS0(ITTBK) 227 SQS00K=SQS(ITTBK) 228 BQS10K=QS0(ITTBK+1) 229 SQS10K=SQS(ITTBK+1) 230 C--------------SCALING SPEC. HUMIDITY & TABLE INDEX--------------------- 231 BQK=(BQS10K-BQS00K)*QQK+BQS00K 232 SQK=(SQS10K-SQS00K)*QQK+SQS00K 233 TQK=(QBTK-BQK)/SQK*RDQ 234 PPK=TQK-AINT(TQK) 235 IQTBK=INT(TQK)+1 236 C--------------KEEPING INDICES WITHIN THE TABLE------------------------- 237 IF(IQTBK.LT.1) THEN 238 IQTBK =1 239 PPK =D00 240 ENDIF 241 C 242 IF(IQTBK.GE.ITB) THEN 243 IQTBK=ITB-1 244 PPK =D00 245 ENDIF 246 C--------------SATURATION PRESSURE AT FOUR SURROUNDING TABLE PTS.------- 247 IQ=IQTBK 248 IT=ITTB1 249 P00K=PTBL(IQ ,IT ) 250 P10K=PTBL(IQ+1,IT ) 251 P01K=PTBL(IQ ,IT+1) 252 P11K=PTBL(IQ+1,IT+1) 253 C--------------SATURATION POINT VARIABLES AT THE BOTTOM----------------- 254 TPSPK=P00K+(P10K-P00K)*PPK+(P01K-P00K)*QQK Page 3 Source Listing WETBULB 2014-12-17 20:48 WETBULB.f 255 1 +(P00K-P10K-P01K+P11K)*PPK*QQK 256 APESPK=(H10E5/TPSPK)**CAPA 257 THESP(I,J)=TTHBTK*EXP(ELOCP*QBTK*APESPK/TTHBTK) 258 ENDIF 259 125 CONTINUE 260 C--------------SCALING PRESSURE & TT TABLE INDEX------------------------ 261 KNUML=0 262 KNUMH=0 263 C 264 DO 280 J=JSTA,JEND 265 DO 280 I=1,IM 266 KLRES(I,J)=0 267 KHRES(I,J)=0 268 C 269 IF(KARR(I,J).GT.0)THEN 270 PRESK=PDSL(I,J)*AETA(L)+PT 271 C 272 IF(PRESK.LT.PLQ)THEN 273 KNUML=KNUML+1 274 KLRES(I,J)=1 275 ELSE 276 KNUMH=KNUMH+1 277 KHRES(I,J)=1 278 ENDIF 279 ENDIF 280 280 CONTINUE 281 C*** 282 C*** COMPUTE PARCEL TEMPERATURE ALONG MOIST ADIABAT FOR PRESSUREPL 291 C** 292 IF(KNUMH.GT.0)THEN 293 CALL TTBLEX(TWET(1,1,L),TTBLQ,ITBQ,JTBQ,KHRES,PDSL,AETA(L) 294 1, HTM(1,1,L),PT,PLQ,QQ,PP,RDPQ,THE0Q,STHEQ,RDTHEQ 295 2, THESP,IPTB,ITHTB) 296 ENDIF 297 C----------------------------------------------------------------------- 298 C----------------------------------------------------------------------- 299 300 CONTINUE 300 RETURN 301 END Page 4 Source Listing WETBULB 2014-12-17 20:48 Entry Points WETBULB.f ENTRY POINTS Name wetbulb_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 125 Label 119 57,58,62 280 Label 140 124,125 300 Label 159 56 A2 Param 6 R(4) 4 scalar 87 A23M4L Param 87 R(4) 4 scalar A3 Param 6 R(4) 4 scalar 87 A4 Param 6 R(4) 4 scalar 87 AETA Scalar 7 R(4) 4 1 45 COM 66,130,145,153 AINT Func 72 scalar 72,94 ALBASE Scalar 14 R(4) 4 2 91719 COM ALBEDO Scalar 15 R(4) 4 2 91719 COM APEBTK Local 67 R(4) 4 scalar 67,70 APESPK Local 116 R(4) 4 scalar 116,117 AVGEFI Param 74 R(4) 4 scalar BQK Local 91 R(4) 4 scalar 91,93 BQS00K Local 86 R(4) 4 scalar 86,91 BQS10K Local 88 R(4) 4 scalar 88,91 CAPA Param 4 R(4) 4 scalar 67,116 CI Scalar 4 R(4) 4 scalar COM CP Param 4 R(4) 4 scalar 88 CPRLG Param 88 R(4) 4 scalar CS Scalar 4 R(4) 4 scalar COM CTLBLK Common 2 96 CZEN Scalar 12 R(4) 4 2 91719 COM CZMEAN Scalar 16 R(4) 4 2 91719 COM D00 Param 3 R(4) 4 scalar 77,82,99,104 D125 Param 3 R(4) 4 scalar D50 Param 3 R(4) 4 scalar D608 Param 3 R(4) 4 scalar DETA Scalar 7 R(4) 4 1 45 COM DFRLG Scalar 7 R(4) 4 1 46 COM DI Scalar 4 R(4) 4 scalar COM DS Scalar 4 R(4) 4 scalar COM DSP0FL Param 55 R(4) 4 scalar 60,80 DSP0FS Param 59 R(4) 4 scalar 61,83 DSP0SL Param 60 R(4) 4 scalar 80 DSP0SS Param 61 R(4) 4 scalar 83 DSPBFL Param 55 R(4) 4 scalar 60,79 DSPBFS Param 59 R(4) 4 scalar 61,82 DSPBSL Param 60 R(4) 4 scalar 79 DSPBSS Param 61 R(4) 4 scalar 82 DSPC Param 74 R(4) 4 scalar DSPTFL Param 55 R(4) 4 scalar 60,81 DSPTFS Param 59 R(4) 4 scalar 61,84 Page 5 Source Listing WETBULB 2014-12-17 20:48 Symbol Table WETBULB.f Name Object Declared Type Bytes Dimen Elements Attributes References DSPTSL Param 60 R(4) 4 scalar 81 DSPTSS Param 61 R(4) 4 scalar 84 DT Scalar 4 R(4) 4 scalar COM DTD Scalar 3 R(4) 4 scalar COM DTQ2 Scalar 3 R(4) 4 scalar COM DTTOP Param 8 R(4) 4 scalar EFIFC Param 73 R(4) 4 scalar EFIMN Param 45 R(4) 4 scalar 74,79,80,81,82,83,84,85 EFMNT Param 45 R(4) 4 scalar 85 ELIVW Param 5 R(4) 4 scalar 88 ELOCP Param 88 R(4) 4 scalar 117 ELWDWN Scalar 13 R(4) 4 2 91719 COM ELWV Param 5 R(4) 4 scalar 87,88 EPSDN Param 10 R(4) 4 scalar EPSNTP Param 73 R(4) 4 scalar EPSP Param 74 R(4) 4 scalar EPSQ Param 5 R(4) 4 scalar 68 EPSR Scalar 11 R(4) 4 2 91719 COM EPSTH Param 10 R(4) 4 scalar EPSUP Param 10 R(4) 4 scalar EXP Func 117 scalar 117 FCC Param 45 R(4) 4 scalar 45 FCP Param 45 R(4) 4 scalar FIRST Scalar 3 R(4) 4 scalar COM FSL Param 55 R(4) 4 scalar 60 FSS Param 45 R(4) 4 scalar 61 G Param 4 R(4) 4 scalar 88 GFFC Scalar 14 R(4) 4 2 91719 COM GLAT Scalar 12 R(4) 4 2 91719 COM GLON Scalar 12 R(4) 4 2 91719 COM H1 Param 2 R(4) 4 scalar 45,79,80,81,82,83,84,85,88 H10E5 Param 2 R(4) 4 scalar 67,116 H1D5 Param 2 R(4) 4 scalar H2D5 Param 2 R(4) 4 scalar H3000 Param 2 R(4) 4 scalar HBOT Scalar 13 R(4) 4 2 91719 COM HDAC Scalar 16 R(4) 4 2 91719 COM HDACV Scalar 16 R(4) 4 2 91719 COM HTM Dummy 1 R(4) 4 3 4127355 ARG,INOUT 60,68,146,154 HTOP Scalar 13 R(4) 4 2 91719 COM I Local 58 I(4) 4 scalar 58,59,60,61,64,65,66,68,117,125,12 6,127,129,130,134,137 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 IGSTL Param 9 I(4) 4 scalar 14 IGSTR Param 9 I(4) 4 scalar 14 IHRST Scalar 3 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 11,12,13,14,15,16,24,42,43,45,46,4 7,58,125 IMJM Param 24 I(4) 4 scalar Page 6 Source Listing WETBULB 2014-12-17 20:48 Symbol Table WETBULB.f Name Object Declared Type Bytes Dimen Elements Attributes References INPES Param 6 I(4) 4 scalar 11,14 INT Func 73 scalar 73,95 IOUT Scalar 3 I(4) 4 scalar COM IPTB Local 47 I(4) 4 2 91719 147,155 IQ Local 107 I(4) 4 scalar 107,109,110,111,112 IQTBK Local 95 I(4) 4 scalar 95,97,98,102,103,107 IT Local 108 I(4) 4 scalar 108,109,110,111,112 ITAIL Param 11 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 8,18,102,103,145 ITBQ Param 1 I(4) 4 scalar 9,18,153 ITHTB Local 47 I(4) 4 2 91719 147,155 ITTB1 Local 73 I(4) 4 scalar 73,75,76,80,81,85,108 ITTBK Local 85 I(4) 4 scalar 85,86,87,88,89 IUP Scalar 7 I(4) 4 scalar COM J Local 57 I(4) 4 scalar 57,59,60,61,64,65,66,68,117,124,12 6,127,129,130,134,137 JDIM1 Param 15 I(4) 4 scalar JDIM2 Param 15 I(4) 4 scalar JEND Scalar 6 I(4) 4 scalar COM 57,124 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 11,12,13,14,15,16,24,42,43,45,46,4 7 JNPES Param 6 I(4) 4 scalar 12,15 JSTA Scalar 6 I(4) 4 scalar COM 57,124 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 JTB Param 1 I(4) 4 scalar 8,18,80,81,145 JTBQ Param 1 I(4) 4 scalar 18,153 KARR Dummy 1 I(4) 4 2 91719 ARG,INOUT 59,129 KHRES Local 45 I(4) 4 2 91719 127,137,153 KLRES Local 45 I(4) 4 2 91719 126,134,145 KNUMH Local 122 I(4) 4 scalar 122,136,152 KNUML Local 121 I(4) 4 scalar 121,133,144 KTM Scalar 3 I(4) 4 scalar COM L Local 56 I(4) 4 scalar 56,60,64,65,66,68,130,145,146,153, 154 LIST Scalar 3 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 7,24,42,43,56 LP1 Param 24 I(4) 4 scalar 7 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 Page 7 Source Listing WETBULB 2014-12-17 20:48 Symbol Table WETBULB.f Name Object Declared Type Bytes Dimen Elements Attributes References 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 NUM_PROCS Scalar 6 I(4) 4 scalar COM OCT90 Param 21 L(4) 4 scalar P00K Local 109 R(4) 4 scalar 109,114,115 P01K Local 111 R(4) 4 scalar 111,114,115 P10K Local 110 R(4) 4 scalar 110,114,115 P11K Local 112 R(4) 4 scalar 112,115 PARALLEL Common 9 8240 PBM Param 11 R(4) 4 scalar PDSL Dummy 1 R(4) 4 2 91719 ARG,INOUT 66,130,145,153 PFRZ Param 12 R(4) 4 scalar PHYS Common 2 7690036 PL Scalar 5 R(4) 4 scalar COM 146 PLQ Scalar 6 R(4) 4 scalar COM 132,154 PNO Param 11 R(4) 4 scalar PONE Param 11 R(4) 4 scalar PP Local 46 R(4) 4 2 91719 146,154 PPK Local 94 R(4) 4 scalar 94,99,104,114,115 PQ0 Param 7 R(4) 4 scalar PQM Param 11 R(4) 4 scalar PRESK Local 66 R(4) 4 scalar 66,67,130,132 PSHU Param 12 R(4) 4 scalar PT Scalar 3 R(4) 4 scalar COM 66,130,146,154 PTBL Scalar 18 R(4) 4 2 10184 COM 109,110,111,112 Q Dummy 1 R(4) 4 3 4127355 ARG,INOUT 65 QBTK Local 65 R(4) 4 scalar 65,68,93,117 QQ Local 46 R(4) 4 2 91719 146,154 QQK Local 72 R(4) 4 scalar 72,77,82,91,92,114,115 QS0 Scalar 8 R(4) 4 1 134 COM 86,88 RADIN Scalar 11 R(4) 4 2 91719 COM RADOT Scalar 11 R(4) 4 2 91719 COM RCP Param 88 R(4) 4 scalar RDP Scalar 5 R(4) 4 scalar COM 146 RDPQ Scalar 6 R(4) 4 scalar COM 154 RDQ Scalar 5 R(4) 4 scalar COM 93 RDTH Scalar 5 R(4) 4 scalar COM 71 RDTHE Scalar 5 R(4) 4 scalar COM 146 RDTHEQ Scalar 6 R(4) 4 scalar COM 154 RESTRT Scalar 3 R(4) 4 scalar COM RHF Param 10 R(4) 4 scalar RMXSNAL Scalar 11 R(4) 4 2 91719 COM ROG Param 4 R(4) 4 scalar ROI Scalar 4 R(4) 4 scalar COM ROS Scalar 4 R(4) 4 scalar COM ROW Param 5 R(4) 4 scalar 88 RUN Scalar 3 R(4) 4 scalar COM SIGMA Scalar 3 R(4) 4 scalar COM SIGT4 Scalar 16 R(4) 4 2 91719 COM SLOP0L Param 80 R(4) 4 scalar SLOP0S Param 83 R(4) 4 scalar SLOPBL Param 79 R(4) 4 scalar SLOPBS Param 82 R(4) 4 scalar Page 8 Source Listing WETBULB 2014-12-17 20:48 Symbol Table WETBULB.f Name Object Declared Type Bytes Dimen Elements Attributes References SLOPE Param 85 R(4) 4 scalar SLOPTL Param 81 R(4) 4 scalar SLOPTS Param 84 R(4) 4 scalar SQK Local 92 R(4) 4 scalar 92,93 SQS Scalar 8 R(4) 4 1 134 COM 87,89 SQS00K Local 87 R(4) 4 scalar 87,92 SQS10K Local 89 R(4) 4 scalar 89,92 SST Scalar 14 R(4) 4 2 91719 COM STABD Param 8 R(4) 4 scalar STABFC Param 8 R(4) 4 scalar STABS Param 8 R(4) 4 scalar STEFI Param 75 R(4) 4 scalar STHE Scalar 8 R(4) 4 1 76 COM 146 STHEQ Scalar 9 R(4) 4 1 152 COM 154 STRESH Param 7 R(4) 4 scalar SWNET Scalar 12 R(4) 4 2 91719 COM T Dummy 1 R(4) 4 3 4127355 ARG,INOUT 64 T0 Param 7 R(4) 4 scalar T1 Param 7 R(4) 4 scalar TBTK Local 64 R(4) 4 scalar 64,70 TDTD Scalar 3 R(4) 4 scalar COM TDTQ2 Scalar 3 R(4) 4 scalar COM TG Scalar 14 R(4) 4 2 91719 COM THE0 Scalar 8 R(4) 4 1 76 COM 146 THE0Q Scalar 9 R(4) 4 1 152 COM 154 THESP Local 42 R(4) 4 2 91719 61,117,146,155 THL Scalar 5 R(4) 4 scalar COM 71 TPSPK Local 114 R(4) 4 scalar 114,116 TQK Local 93 R(4) 4 scalar 93,94,95 TREL Param 73 R(4) 4 scalar TTBL Scalar 18 R(4) 4 2 10184 COM 145 TTBLEX Subr 145 145,153 TTBLQ Scalar 18 R(4) 4 2 66880 COM 153 TTHBTK Local 70 R(4) 4 scalar 70,71,117 TTHK Local 71 R(4) 4 scalar 71,72,73 TWET Dummy 1 R(4) 4 3 4127355 ARG,INOUT 145,153 UNIL Param 21 L(4) 4 scalar UNIS Param 21 L(4) 4 scalar WETBULB Subr 1 ZSH Param 11 R(4) 4 scalar Page 9 Source Listing WETBULB 2014-12-17 20:48 Subprograms/Common Blocks WETBULB.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 2 96 PARALLEL Common 9 8240 PHYS Common 2 7690036 WETBULB Subr 1 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 Page 10 Source Listing WETBULB 2014-12-17 20:48 WETBULB.f -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 : WETBULB.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100