Page 1 Source Listing CALTAU 2014-12-17 20:47 CALTAU.f 1 SUBROUTINE CALTAU(TAUX,TAUY) 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: CALTAU COMPUTE U AND V WIND STRESSES 5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 93-09-01 6 C 7 C ABSTRACT: THIS ROUTINE COMPUTES SURFACE LAYER U AND V 8 C WIND COMPONENT STRESSES USING K THEORY AS PRESENTED 9 C IN SECTION 8.4 OF "NUMBERICAL PREDICTION AND DYNAMIC 10 C METEOROLOGY" BY HALTINER AND WILLIAMS (1980, JOHN WILEY 11 C & SONS). 12 C . 13 C 14 C PROGRAM HISTORY LOG: 15 C 93-09-01 RUSS TREADON 16 C 98-06-11 T BLACK - CONVERSION FROM 1-D TO 2-D 17 C 00-01-04 JIM TUCCILLO - MPI VERSION 18 C 19 C USAGE: CALL CALTAU(TAUX,TAUY) 20 C INPUT ARGUMENT LIST: 21 C NONE 22 C 23 C OUTPUT ARGUMENT LIST: 24 C TAUX - SUFACE LAYER U COMPONENT WIND STRESS. 25 C TAUY - SUFACE LAYER V COMPONENT WIND STRESS. 26 C 27 C OUTPUT FILES: 28 C NONE 29 C 30 C SUBPROGRAMS CALLED: 31 C UTILITIES: 32 C CLMAX 33 C MIXLEN 34 C H2V 35 C 36 C LIBRARY: 37 C COMMON - EXTRA 38 C LOOPS 39 C VRBLS 40 C PVRBLS 41 C MAPOT 42 C OPTIONS 43 C INDX 44 C 45 C ATTRIBUTES: 46 C LANGUAGE: FORTRAN 47 C MACHINE : CRAY C-90 48 C$$$ 49 C 50 C 51 C INCLUDE/SET PARAMETERS. 52 C 53 INCLUDE "parmeta" 71 INCLUDE "parmout" 75 INCLUDE "params" 76 C 77 C DECLARE VARIABLES. Page 2 Source Listing CALTAU 2014-12-17 20:47 CALTAU.f 119 INTEGER KK(4) 120 REAL TAUX(IM,JM),TAUY(IM,JM) 121 REAL EL0(IM,JM),EL(IM,JM,LM) 122 REAL EGRIDU(IM,JM),EGRIDV(IM,JM),EGRID4(IM,JM),EGRID5(IM,JM) 123 C 124 C INCLUDE COMMON BLOCKS. 125 C 126 INCLUDE "EXTRA.comm" 138 INCLUDE "LOOPS.comm" 146 INCLUDE "VRBLS.comm" 153 INCLUDE "PVRBLS.comm" 165 INCLUDE "MAPOT.comm" 178 INCLUDE "MASKS.comm" 186 INCLUDE "OPTIONS.comm" 190 INCLUDE "INDX.comm" 196 INCLUDE "CTLBLK.comm" 197 C 198 C 199 C******************************************************************** 200 C START CALTAU HERE. 201 C 202 C COMPUTE MASTER LENGTH SCALE. 203 C 218 CALL CLMAX(DETA,PDSL,HTM,Q2,ZINT,SM,ZINT(1,1,LP1), 219 1 LMH,IM,JM,LM,LP1, 220 2 EL0,EGRIDU,EGRIDV,EGRID4,EGRID5) 221 CALL MIXLEN(ZINT,T,PDSL,AETA,PT,Q2,ZINT(1,1,LP1),HTM 222 1, EL0,LM,LM1,LP1,IM,JM,EL) 223 C 224 C INITIALIZE OUTPUT AND WORK ARRAY TO ZERO. 225 C 226 DO J=JSTA,JEND 227 DO I=1,IM 228 EGRIDU(I,J) = D00 229 EGRIDV(I,J) = D00 230 TAUX(I,J) = SPVAL 231 TAUY(I,J) = SPVAL 232 ENDDO 233 ENDDO 234 C 235 CALL EXCH(UZ0) 236 CALL EXCH(VZ0) 237 C 238 C COMPUTE SURFACE LAYER U AND V WIND STRESSES. 239 C 240 C ASSUME THAT U AND V HAVE UPDATED HALOS 241 C 242 DO 30 J=JSTA_M,JEND_M 243 DO 30 I=2,IM-1 244 C 245 LMHK = LMH(I,J) 246 C 247 C COMPUTE THICKNESS OF LAYER AT MASS POINT. 248 C 249 DZ = D50*(ZINT(I,J,LMHK)-ZINT(I,J,LMHK+1)) 250 DZ = DZ-Z0(I,J) 251 RDZ = 1./DZ Page 3 Source Listing CALTAU 2014-12-17 20:47 CALTAU.f 252 C 253 C COMPUTE REPRESENTATIVE AIR DENSITY. 254 C 255 PSFC = PD(I,J)+PT 256 TV = (H1+D608*Q(I,J,LMHK))*T(I,J,LMHK) 257 RHO = PSFC/(RD*TV) 258 C 259 C COMPUTE A MEAN MASS POINT WIND IN THE 260 C FIRST ATMOSPHERIC ETA LAYER. 261 C 262 LMHK = LMH(I,J) 263 IE=I+IHE(J) 264 IW=I+IHW(J) 265 SUMU=U(IE,J,LMV(IE,J))+U(IW,J,LMV(IW,J))+U(I,J-1,LMV(I,J-1)) 266 1 +U(I,J+1,LMV(I,J+1)) 267 SUMV=V(IE,J,LMV(IE,J))+V(IW,J,LMV(IW,J))+V(I,J-1,LMV(I,J-1)) 268 1 +V(I,J+1,LMV(I,J+1)) 269 ULMH = D25*SUMU 270 VLMH = D25*SUMV 271 C 272 C COMPUTE A MEAN MASS POINT WIND AT HEIGHT Z0. 273 C 274 UZ0H = D25*(UZ0(I,J-1)+UZ0(IW,J)+UZ0(IE,J)+UZ0(I,J+1)) 275 VZ0H = D25*(VZ0(I,J-1)+VZ0(IW,J)+VZ0(IE,J)+VZ0(I,J+1)) 276 C 277 C COMPUTE WIND SHEAR COMPONENTS ACROSS LAYER. 278 C 279 DELUDZ = (ULMH-UZ0H)*RDZ 280 DELVDZ = (VLMH-VZ0H)*RDZ 281 C 282 C COMPUTE U (EGRIDU) AND V (EGRIDV) WIND STRESSES. 283 C 284 ELSQR = EL(I,J,LMHK)*EL(I,J,LMHK) 285 EGRIDU(I,J) = RHO*ELSQR*DELUDZ*DELUDZ 286 EGRIDV(I,J) = RHO*ELSQR*DELVDZ*DELVDZ 287 288 CX WRITE(80,1000) K,LMHK,DZ,RDZ,PSFC,TV 289 CX WRITE(80,1000) K,LMHK,ULMH,VLMH,UZ0H,VZ0H 290 CX WRITE(80,1000) K,LMHK,RHO,DELUDZ,DELVDZ,EL(I,J,LMHK) 291 CX WRITE(80,*)' ' 292 CX 1000 FORMAT(I5,1X,I2,4(G12.6,1X)) 293 294 C 295 30 CONTINUE 296 C 297 C INTERPOLATE U-V STRESS FROM MASS TO VELOCITY POINTS. 298 C 299 CALL H2V(EGRIDU,EGRIDV,TAUX,TAUY) 300 C 301 C END OF ROUTINE. 302 C 303 RETURN 304 END Page 4 Source Listing CALTAU 2014-12-17 20:47 Entry Points CALTAU.f ENTRY POINTS Name caltau_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 30 Label 158 105,106 A2 Param 41 R(4) 4 scalar A3 Param 41 R(4) 4 scalar A4 Param 41 R(4) 4 scalar ACCLIQ Scalar 7 R(4) 4 2 91719 COM ACPREC Scalar 7 R(4) 4 2 91719 COM AD05 Param 33 R(4) 4 scalar AETA Scalar 8 R(4) 4 1 45 COM 84 AKHS Scalar 3 R(4) 4 2 91719 COM AKMS Scalar 3 R(4) 4 2 91719 COM ALPINT Scalar 4 R(4) 4 3 4219074 COM ALSL Scalar 7 R(4) 4 1 39 COM BETA Param 37 R(4) 4 scalar 37 BTG Param 37 R(4) 4 scalar CALTAU Subr 1 CAPA Param 28 R(4) 4 scalar 35 CFT0 Param 33 R(4) 4 scalar CLDEFI Scalar 6 R(4) 4 2 91719 COM CLMAX Subr 81 81 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 CUPREC Scalar 7 R(4) 4 2 91719 COM D00 Param 25 R(4) 4 scalar 91,92 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 132,133,137,138 D50 Param 25 R(4) 4 scalar 112 D608 Param 29 R(4) 4 scalar 119 DELUDZ Local 142 R(4) 4 scalar 142,148 DELVDZ Local 143 R(4) 4 scalar 143,149 DETA Scalar 8 R(4) 4 1 45 COM 81 DISLP Scalar 7 R(4) 4 scalar COM DLMD Scalar 6 R(4) 4 scalar COM Page 5 Source Listing CALTAU 2014-12-17 20:47 Symbol Table CALTAU.f Name Object Declared Type Bytes Dimen Elements Attributes References 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 112 R(4) 4 scalar 112,113,114 EGRID4 Local 61 R(4) 4 2 91719 83 EGRID5 Local 61 R(4) 4 2 91719 83 EGRIDU Local 61 R(4) 4 2 91719 83,91,148,162 EGRIDV Local 61 R(4) 4 2 91719 83,92,149,162 EL Local 60 R(4) 4 3 4127355 85,147 EL0 Local 60 R(4) 4 2 91719 83,85 ELDR Param 36 R(4) 4 scalar ELSQR Local 147 R(4) 4 scalar 147,148,149 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 98 98,99 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,119 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 H2V Subr 162 162 H4 Param 26 R(4) 4 scalar H999 Param 25 R(4) 4 scalar H99999 Param 26 R(4) 4 scalar HBM2 Scalar 3 R(4) 4 2 91719 COM HTM Scalar 5 R(4) 4 3 4127355 COM 81,84 I Local 90 I(4) 4 scalar 90,91,92,93,94,106,108,112,113,118 ,119,125,126,127,128,129,130,131,1 37,138,147,148,149 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 Page 6 Source Listing CALTAU 2014-12-17 20:47 Symbol Table CALTAU.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 IE Local 126 I(4) 4 scalar 126,128,130,137,138 IFLAG Scalar 2 I(4) 4 scalar COM IGSTL Param 9 I(4) 4 scalar 14 IGSTR Param 9 I(4) 4 scalar 14 IHE Scalar 3 I(4) 4 1 387 COM 126 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 IHW Scalar 3 I(4) 4 1 387 COM 127 IM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,11,14,59,60,61,82, 85,90,106 IM1 Param 6 I(4) 4 scalar IMJM Param 2 I(4) 4 scalar 5 IMT Param 4 I(4) 4 scalar IMX Param 3 I(4) 4 scalar INDX Common 2 6192 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 IVE Scalar 3 I(4) 4 1 387 COM IVHA Scalar 3 I(4) 4 1 760 COM IVLA Scalar 3 I(4) 4 1 760 COM IVW Scalar 3 I(4) 4 1 387 COM IW Local 127 I(4) 4 scalar 127,128,130,137,138 IXM Scalar 3 I(4) 4 scalar COM IYM Scalar 3 I(4) 4 scalar COM J Local 89 I(4) 4 scalar 89,91,92,93,94,105,108,112,113,118 ,119,125,126,127,128,129,130,131,1 37,138,147,148,149 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 89 JEND_2U Scalar 8 I(4) 4 scalar COM JEND_M Scalar 7 I(4) 4 scalar COM 105 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,59,60,61,82, 85 JM2 Param 6 I(4) 4 scalar JMT Param 4 I(4) 4 scalar JMX Param 3 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 89 JSTA_2L Scalar 8 I(4) 4 scalar COM JSTA_M Scalar 7 I(4) 4 scalar COM 105 JSTA_M2 Scalar 7 I(4) 4 scalar COM Page 7 Source Listing CALTAU 2014-12-17 20:47 Symbol Table CALTAU.f Name Object Declared Type Bytes Dimen Elements Attributes References JTAIL Param 12 I(4) 4 scalar KK Local 58 I(4) 4 1 4 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 LB Param 9 I(4) 4 scalar LHEAT Param 40 I(4) 4 scalar 40 LHTOCP Param 40 I(4) 4 scalar LIST Scalar 3 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 3,5,8,9,19,60,82,85 LM1 Param 8 I(4) 4 scalar 85 LMH Scalar 5 I(4) 4 2 91719 COM 82,108,125 LMHK Local 108 I(4) 4 scalar 108,112,119,125,147 LMV Scalar 5 I(4) 4 2 91719 COM 128,129,130,131 LOOPS Common 2 748952 LP1 Param 8 I(4) 4 scalar 4,8,81,82,84,85 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 MIXLEN Subr 84 84 MUNIT Scalar 10 I(4) 4 scalar COM MXFLD Param 3 I(4) 4 scalar MXLVL Param 3 I(4) 4 scalar 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 Page 8 Source Listing CALTAU 2014-12-17 20:47 Symbol Table CALTAU.f Name Object Declared Type Bytes Dimen Elements Attributes References 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 P1000 Param 35 R(4) 4 scalar PARALLEL Common 9 8240 PD Scalar 3 R(4) 4 2 91719 COM 118 PDSL Scalar 6 R(4) 4 2 91719 COM 81,84 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 PQ0 Param 41 R(4) 4 scalar PREC Scalar 7 R(4) 4 2 91719 COM PSFC Local 118 R(4) 4 scalar 118,120 PSLP Scalar 6 R(4) 4 2 91719 COM PT Scalar 5 R(4) 4 scalar COM 84,118 PTSL Scalar 7 R(4) 4 2 91719 COM PVRBLS Common 2 23480064 Q Scalar 5 R(4) 4 3 4127355 COM 119 Q2 Scalar 9 R(4) 4 3 4127355 COM 81,84 QS Scalar 3 R(4) 4 2 91719 COM QSL Scalar 9 R(4) 4 2 91719 COM QWBS Scalar 5 R(4) 4 2 91719 COM QZ0 Scalar 4 R(4) 4 2 91719 COM 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,120 RDOCP Param 40 R(4) 4 scalar RDZ Local 114 R(4) 4 scalar 114,142,143 RES Scalar 3 R(4) 4 2 91719 COM RESTRT Scalar 3 R(4) 4 scalar COM RF Scalar 5 R(4) 4 2 91719 COM RG Param 36 R(4) 4 scalar RHO Local 120 R(4) 4 scalar 120,148,149 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 SI Scalar 6 R(4) 4 2 91719 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 81 SMTHA Param 15 R(4) 4 scalar SMTHB Param 15 R(4) 4 scalar SNO Scalar 6 R(4) 4 2 91719 COM SPHI0 Scalar 9 R(4) 4 scalar COM SPL Scalar 7 R(4) 4 1 39 COM SPVAL Scalar 2 R(4) 4 scalar COM 93,94 STDRD Scalar 10 R(4) 4 scalar COM SUMU Local 128 R(4) 4 scalar 128,132 SUMV Local 130 R(4) 4 scalar 130,133 Page 9 Source Listing CALTAU 2014-12-17 20:47 Symbol Table CALTAU.f Name Object Declared Type Bytes Dimen Elements Attributes References T Scalar 5 R(4) 4 3 4127355 COM 84,119 T500 Scalar 6 R(4) 4 2 91719 COM TAUX Dummy 1 R(4) 4 2 91719 ARG,INOUT 93,162 TAUY Dummy 1 R(4) 4 2 91719 ARG,INOUT 94,162 TFRZ Param 39 R(4) 4 scalar THS Scalar 3 R(4) 4 2 91719 COM THZ0 Scalar 4 R(4) 4 2 91719 COM TLM0D Scalar 6 R(4) 4 scalar COM 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 TV Local 119 R(4) 4 scalar 119,120 TWBS Scalar 5 R(4) 4 2 91719 COM U Scalar 5 R(4) 4 3 4127355 COM 128,129 ULMH Local 132 R(4) 4 scalar 132,142 UZ0 Scalar 4 R(4) 4 2 91719 COM 98,137 UZ0H Local 137 R(4) 4 scalar 137,142 V Scalar 5 R(4) 4 3 4127355 COM 130,131 VBM2 Scalar 3 R(4) 4 2 91719 COM VBM3 Scalar 3 R(4) 4 2 91719 COM VLMH Local 133 R(4) 4 scalar 133,143 VRBLS Common 2 67138308 VTM Scalar 5 R(4) 4 3 4127355 COM VZ0 Scalar 4 R(4) 4 2 91719 COM 99,138 VZ0H Local 138 R(4) 4 scalar 138,143 WBD Scalar 6 R(4) 4 scalar COM X1P Scalar 6 R(4) 4 scalar COM Y1P Scalar 6 R(4) 4 scalar COM Z0 Scalar 3 R(4) 4 2 91719 COM 113 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 81,84,112 Page 10 Source Listing CALTAU 2014-12-17 20:47 Subprograms/Common Blocks CALTAU.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CALTAU Subr 1 CTLBLK Common 2 96 EXTRA Common 3 71506268 INDX Common 2 6192 LOOPS Common 2 748952 MAPOT Common 2 1448 MASKS Common 2 34853220 OPTIONS Common 2 24 PARALLEL Common 9 8240 PVRBLS Common 2 23480064 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__ Page 11 Source Listing CALTAU 2014-12-17 20:47 CALTAU.f -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 -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 : CALTAU.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100