Page 1 Source Listing CALTAU 2025-03-12 18:23 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 2025-03-12 18:23 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 2025-03-12 18:23 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 2025-03-12 18:23 Entry Points CALTAU.f ENTRY POINTS Name caltau_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 30 Label 295 242,243 A2 Param 118 R(4) 4 scalar A3 Param 118 R(4) 4 scalar A4 Param 118 R(4) 4 scalar AD05 Param 110 R(4) 4 scalar BETA Param 114 R(4) 4 scalar 114 BTG Param 114 R(4) 4 scalar CALTAU Subr 1 CAPA Param 105 R(4) 4 scalar 112 CFT0 Param 110 R(4) 4 scalar CLMAX Subr 218 218 CM1 Param 100 R(4) 4 scalar CM2 Param 100 R(4) 4 scalar CM3 Param 100 R(4) 4 scalar CP Param 111 R(4) 4 scalar 113,117 CPDR Param 113 R(4) 4 scalar CTLBLK Common 205 96 SAVE D00 Param 102 R(4) 4 scalar 228,229 D001 Param 102 R(4) 4 scalar D0065 Param 106 R(4) 4 scalar D01 Param 102 R(4) 4 scalar D05 Param 106 R(4) 4 scalar 110 D1 Param 102 R(4) 4 scalar D115 Param 106 R(4) 4 scalar D125 Param 104 R(4) 4 scalar D25 Param 104 R(4) 4 scalar 269,270,274,275 D50 Param 102 R(4) 4 scalar 249 D608 Param 106 R(4) 4 scalar 256 DELUDZ Local 279 R(4) 4 scalar 279,285 DELVDZ Local 280 R(4) 4 scalar 280,286 DP10M Param 112 R(4) 4 scalar DTR Param 111 R(4) 4 scalar 111 DZ Local 249 R(4) 4 scalar 249,250,251 EGRID4 Local 122 R(4) 4 2 91719 220 EGRID5 Local 122 R(4) 4 2 91719 220 EGRIDU Local 122 R(4) 4 2 91719 220,228,285,299 EGRIDV Local 122 R(4) 4 2 91719 220,229,286,299 EL Local 121 R(4) 4 3 4127355 222,284 EL0 Local 121 R(4) 4 2 91719 220,222 ELDR Param 113 R(4) 4 scalar ELSQR Local 284 R(4) 4 scalar 284,285,286 ELWV Param 113 R(4) 4 scalar 113 EPS Param 116 R(4) 4 scalar 116 EPSQ2 Param 117 R(4) 4 scalar Page 5 Source Listing CALTAU 2025-03-12 18:23 Symbol Table CALTAU.f Name Object Declared Type Bytes Dimen Elements Attributes References ERAD Param 111 R(4) 4 scalar EXCH Subr 235 235,236 EXTRA Common 129 71506268 SAVE FMD Param 116 R(4) 4 scalar 116 FMW Param 116 R(4) 4 scalar 116 G Param 109 R(4) 4 scalar 109 GI Param 109 R(4) 4 scalar 113 H1 Param 103 R(4) 4 scalar 110,256 H100 Param 104 R(4) 4 scalar H1000 Param 104 R(4) 4 scalar H10000 Param 105 R(4) 4 scalar H10E5 Param 105 R(4) 4 scalar H1E2 Param 107 R(4) 4 scalar H1E4 Param 107 R(4) 4 scalar H1M12 Param 103 R(4) 4 scalar H1M2 Param 107 R(4) 4 scalar H1M5 Param 104 R(4) 4 scalar H2 Param 103 R(4) 4 scalar H2V Subr 299 299 H4 Param 103 R(4) 4 scalar H999 Param 102 R(4) 4 scalar H99999 Param 103 R(4) 4 scalar I Local 227 I(4) 4 scalar 227,228,229,230,231,243,245,249,25 0,255,256,262,263,264,265,266,267, 268,274,275,284,285,286 IDIM1 Param 67 I(4) 4 scalar IDIM2 Param 67 I(4) 4 scalar IE Local 263 I(4) 4 scalar 263,265,267,274,275 IGSTL Param 62 I(4) 4 scalar 67 IGSTR Param 62 I(4) 4 scalar 67 IM Param 56 I(4) 4 scalar 64,67,74,81,83,84,86,120,121,122,1 28,130,131,132,133,134,135,143,149 ,151,156,157,158,159,160,162,181,1 83,219,222,227,243 IM1 Param 83 I(4) 4 scalar IMJM Param 128 I(4) 4 scalar 131 IMT Param 81 I(4) 4 scalar IMX Param 74 I(4) 4 scalar INDX Common 192 6192 SAVE INPES Param 59 I(4) 4 scalar 64,67 ITAIL Param 64 I(4) 4 scalar IW Local 264 I(4) 4 scalar 264,265,267,274,275 J Local 226 I(4) 4 scalar 226,228,229,230,231,242,245,249,25 0,255,256,262,263,264,265,266,267, 268,274,275,284,285,286 JAM Param 83 I(4) 4 scalar 141 JDIM1 Param 68 I(4) 4 scalar JDIM2 Param 68 I(4) 4 scalar JGSTL Param 63 I(4) 4 scalar 68 JGSTR Param 63 I(4) 4 scalar 68 JM Param 56 I(4) 4 scalar 65,68,74,81,83,86,120,121,122,128, 130,131,132,133,134,135,143,149,15 1,156,157,158,159,160,162,181,183, 193,219,222 JM2 Param 83 I(4) 4 scalar Page 6 Source Listing CALTAU 2025-03-12 18:23 Symbol Table CALTAU.f Name Object Declared Type Bytes Dimen Elements Attributes References JMT Param 81 I(4) 4 scalar JMX Param 74 I(4) 4 scalar JNPES Param 59 I(4) 4 scalar 65,68 JTAIL Param 65 I(4) 4 scalar KK Local 119 I(4) 4 1 4 KSAV Param 91 I(4) 4 scalar KSFI Param 90 I(4) 4 scalar KSLI Param 91 I(4) 4 scalar KSLP Param 91 I(4) 4 scalar KSLPD Param 90 I(4) 4 scalar KSMUD Param 90 I(4) 4 scalar KSRH Param 91 I(4) 4 scalar KSSLP Param 90 I(4) 4 scalar KST Param 90 I(4) 4 scalar KSUV Param 91 I(4) 4 scalar LB Param 86 I(4) 4 scalar LHEAT Param 117 I(4) 4 scalar 117 LHTOCP Param 117 I(4) 4 scalar LM Param 56 I(4) 4 scalar 74,85,96,121,131,151,162,173,183,2 19,222 LM1 Param 85 I(4) 4 scalar 222 LMHK Local 245 I(4) 4 scalar 245,249,256,262,284 LOOPS Common 140 748952 SAVE LP1 Param 85 I(4) 4 scalar 130,173,218,219,221,222 LSM Param 56 I(4) 4 scalar 172 MAPOT Common 167 1448 SAVE MASKS Common 180 34853220 SAVE MIXLEN Subr 221 221 MXFLD Param 74 I(4) 4 scalar MXLVL Param 74 I(4) 4 scalar NINC Param 84 I(4) 4 scalar NSTAT Param 96 I(4) 4 scalar NSUMD Param 92 I(4) 4 scalar NWORD Param 96 I(4) 4 scalar 96 NWORD3 Param 96 I(4) 4 scalar NWORD6 Param 96 I(4) 4 scalar ONEPS Param 116 R(4) 4 scalar OPTIONS Common 188 24 SAVE OVERRC Param 110 R(4) 4 scalar 110 P1000 Param 112 R(4) 4 scalar PARALLEL Common 212 8240 PQ0 Param 118 R(4) 4 scalar PSFC Local 255 R(4) 4 scalar 255,257 PVRBLS Common 155 23480064 SAVE RCAPA Param 112 R(4) 4 scalar RD Param 109 R(4) 4 scalar 109,113,117,257 RDOCP Param 117 R(4) 4 scalar RDZ Local 251 R(4) 4 scalar 251,279,280 RG Param 113 R(4) 4 scalar RHO Local 257 R(4) 4 scalar 257,285,286 ROG Param 109 R(4) 4 scalar RTD Param 111 R(4) 4 scalar SMTHA Param 92 R(4) 4 scalar SMTHB Param 92 R(4) 4 scalar SUMU Local 265 R(4) 4 scalar 265,269 Page 7 Source Listing CALTAU 2025-03-12 18:23 Symbol Table CALTAU.f Name Object Declared Type Bytes Dimen Elements Attributes References SUMV Local 267 R(4) 4 scalar 267,270 TAUX Dummy 1 R(4) 4 2 91719 ARG,INOUT 230,299 TAUY Dummy 1 R(4) 4 2 91719 ARG,INOUT 231,299 TFRZ Param 116 R(4) 4 scalar TV Local 256 R(4) 4 scalar 256,257 ULMH Local 269 R(4) 4 scalar 269,279 UZ0H Local 274 R(4) 4 scalar 274,279 VLMH Local 270 R(4) 4 scalar 270,280 VRBLS Common 148 67138308 VZ0H Local 275 R(4) 4 scalar 275,280 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 6236892 2 91719 COM ACPREC R(4) 4 5870016 2 91719 COM AETA R(4) 4 808 1 45 COM 221 AKHS R(4) 4 733752 2 91719 COM AKMS R(4) 4 366876 2 91719 COM ALPINT R(4) 4 16876296 3 4219074 COM ALSL R(4) 4 472 1 39 COM CLDEFI R(4) 4 5136264 2 91719 COM CMLD R(4) 4 292 scalar COM CPHI0 R(4) 4 1420 scalar COM CUPREC R(4) 4 6603768 2 91719 COM DETA R(4) 4 628 1 45 COM 218 DISLP R(4) 4 308 scalar COM DLMD R(4) 4 284 scalar COM DP30 R(4) 4 296 scalar COM DPHD R(4) 4 288 scalar COM DT R(4) 4 48 scalar COM ERLAM0 R(4) 4 1416 scalar COM ETA R(4) 4 988 1 46 COM FIRST R(4) 4 24 scalar COM FIS R(4) 4 733752 2 91719 COM FSL R(4) 4 70405632 2 91719 COM HBM2 R(4) 4 0 2 91719 COM HTM R(4) 4 1834380 3 4127355 COM 218,221 IBESSL I(4) 4 4 scalar COM ICNT I(4) 4 40 1 1024 COM IDAT I(4) 4 8 1 3 COM IDN I(4) 4 36 scalar COM IDSP I(4) 4 4136 1 1024 COM IDTAD I(4) 4 68 scalar COM IFLAG I(4) 4 16 scalar COM IHE I(4) 4 0 1 387 COM 263 IHHA I(4) 4 3040 1 760 COM IHLA I(4) 4 0 1 760 COM IHRST I(4) 4 20 scalar COM IHW I(4) 4 1548 1 387 COM 264 IOFFS I(4) 4 12 scalar COM IOUT I(4) 4 44 scalar COM ISHDE I(4) 4 12 1 61 COM Page 8 Source Listing CALTAU 2025-03-12 18:23 Symbol Table CALTAU.f Name Type Bytes Offset Dimen Elements Attributes References IUNIT I(4) 4 1440 scalar COM IUP I(4) 4 32 scalar COM IVE I(4) 4 3096 1 387 COM IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM IVW I(4) 4 4644 1 387 COM IXM I(4) 4 4 scalar COM IYM I(4) 4 8 scalar COM JEND I(4) 4 12 scalar COM 226 JEND_2U I(4) 4 8236 scalar COM JEND_M I(4) 4 20 scalar COM 242 JEND_M2 I(4) 4 28 scalar COM JRA I(4) 4 12160 1 760 COM JSTA I(4) 4 8 scalar COM 226 JSTA_2L I(4) 4 8232 scalar COM JSTA_M I(4) 4 16 scalar COM 242 JSTA_M2 I(4) 4 24 scalar COM KMNT I(4) 4 50629068 2 4118670 COM KMNTM I(4) 4 50628888 1 45 COM KSB I(4) 4 8 scalar COM KUNIT I(4) 4 1428 scalar COM LIST I(4) 4 40 scalar COM LMH I(4) 4 15200 2 91719 COM 219,245,262 LMV I(4) 4 382076 2 91719 COM 265,266,267,268 LSL I(4) 4 0 scalar COM LUNIT I(4) 4 1432 scalar COM ME I(4) 4 4 scalar COM MUNIT I(4) 4 1436 scalar COM NBC I(4) 4 36 scalar COM NBOCO I(4) 4 72 scalar COM NCP I(4) 4 80 scalar COM NDDAMP I(4) 4 60 scalar COM NFCST I(4) 4 32 scalar COM NPHS I(4) 4 84 scalar COM NPREC I(4) 4 64 scalar COM NRADL I(4) 4 92 scalar COM NRADS I(4) 4 88 scalar COM NSHDE I(4) 4 76 scalar COM NTSD I(4) 4 52 scalar COM NTSTM I(4) 4 56 scalar COM NUM_PROCS I(4) 4 0 scalar COM NUNIT I(4) 4 1444 scalar COM OLDRD R(4) 4 71506260 scalar COM PD R(4) 4 0 2 91719 COM 255 PDSL R(4) 4 67837500 2 91719 COM 218,221 PDVP1 R(4) 4 68204376 2 91719 COM PFSL R(4) 4 69305004 2 91719 COM PINT R(4) 4 0 3 4219074 COM PREC R(4) 4 5503140 2 91719 COM PSLP R(4) 4 68571252 2 91719 COM PT R(4) 4 260 scalar COM 221,255 PTSL R(4) 4 68938128 2 91719 COM Q R(4) 4 50628888 3 4127355 COM 256 Q2 R(4) 4 6970644 3 4127355 COM 218,221 QS R(4) 4 1467504 2 91719 COM Page 9 Source Listing CALTAU 2025-03-12 18:23 Symbol Table CALTAU.f Name Type Bytes Offset Dimen Elements Attributes References QSL R(4) 4 70772508 2 91719 COM QWBS R(4) 4 4035636 2 91719 COM QZ0 R(4) 4 2935008 2 91719 COM R R(4) 4 256 scalar COM RES R(4) 4 366876 2 91719 COM RESTRT R(4) 4 28 scalar COM RF R(4) 4 3301884 2 91719 COM RUN R(4) 4 4 scalar COM SATDEL R(4) 4 20 scalar COM SBD R(4) 4 272 scalar COM SI R(4) 4 4769388 2 91719 COM SICE R(4) 4 1467504 2 91719 COM SIGMA R(4) 4 0 scalar COM SLP R(4) 4 67103748 2 91719 COM SM R(4) 4 1100628 2 91719 COM 218 SNO R(4) 4 4402512 2 91719 COM SPHI0 R(4) 4 1424 scalar COM SPL R(4) 4 316 1 39 COM SPVAL R(4) 4 0 scalar COM 230,231 STDRD R(4) 4 71506264 scalar COM T R(4) 4 34119468 3 4127355 COM 221,256 T500 R(4) 4 67470624 2 91719 COM THS R(4) 4 1100628 2 91719 COM THZ0 R(4) 4 2568132 2 91719 COM TLM0D R(4) 4 276 scalar COM TPH0D R(4) 4 280 scalar COM TSHDE R(4) 4 1172 1 61 COM TSL R(4) 4 69671880 2 91719 COM TSPH R(4) 4 264 scalar COM TTV R(4) 4 70038756 2 91719 COM TWBS R(4) 4 3668760 2 91719 COM U R(4) 4 1100628 3 4127355 COM 265,266 UZ0 R(4) 4 1834380 2 91719 COM 235,274 V R(4) 4 17610048 3 4127355 COM 267,268 VBM2 R(4) 4 366876 2 91719 COM VBM3 R(4) 4 733752 2 91719 COM VTM R(4) 4 18343800 3 4127355 COM VZ0 R(4) 4 2201256 2 91719 COM 236,275 WBD R(4) 4 268 scalar COM X1P R(4) 4 300 scalar COM Y1P R(4) 4 304 scalar COM Z0 R(4) 4 0 2 91719 COM 250 Z0SLP R(4) 4 312 scalar COM Z1000 R(4) 4 71139384 2 91719 COM ZINT R(4) 4 33752592 3 4219074 COM 218,221,249 Page 10 Source Listing CALTAU 2025-03-12 18:23 Subprograms/Common Blocks CALTAU.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CALTAU Subr 1 CTLBLK Common 205 96 SAVE EXTRA Common 129 71506268 SAVE INDX Common 192 6192 SAVE LOOPS Common 140 748952 SAVE MAPOT Common 167 1448 SAVE MASKS Common 180 34853220 SAVE OPTIONS Common 188 24 SAVE PARALLEL Common 212 8240 PVRBLS Common 155 23480064 SAVE VRBLS Common 148 67138308 COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat Page 11 Source Listing CALTAU 2025-03-12 18:23 CALTAU.f -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -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 -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms Page 12 Source Listing CALTAU 2025-03-12 18:23 CALTAU.f -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : CALTAU.lst no -o COMPILER: Intel(R) Fortran 19.1-1655