Page 1 Source Listing W3BULL 2014-09-16 17:02 w3bullmd.f90 1 !/ ------------------------------------------------------------------- / 2 MODULE W3BULLMD 3 !/ 4 !/ +-----------------------------------+ 5 !/ | WAVEWATCH-III NOAA/NCEP | 6 !/ | J. H. Alves | 7 !/ | H. L. Tolman | 8 !/ | FORTRAN 90 | 9 !/ | Last update : 26-Dec-2012 | 10 !/ +-----------------------------------+ 11 !/ 12 !/ 01-APR-2010 : Origination. ( version 3.14 ) 13 !/ 25-Jun-2011 : Temporary change of HSMIN ( version 4.05 ) 14 !/ 15-Aug-2011 : Changing HSMIN to BHSMIN bugfix ( version 4.05 ) 15 !/ 26-Dec-2012 : Modified obsolete declarations. ( version 4.11 ) 16 !/ 17 !/ ------------------------------------------------------------------- / 18 USE W3GDATMD, ONLY: GNAME, NK, NTH, NSPEC, FLAGLL 19 USE W3ODATMD, ONLY: NOPTS, PTLOC, PTNME 20 USE CONSTANTS, ONLY: PI, TPI 21 USE W3WDATMD, ONLY: TIME 22 USE W3TIMEMD, ONLY: DSEC21 23 PUBLIC 24 INTEGER, PARAMETER :: NPTAB = 6, NFLD = 50, NPMAX = 80 25 ! 26 REAL, PARAMETER :: BHSMIN = 0.15, BHSDROP = 0.05 27 REAL :: HST(NPTAB,2), TPT(NPTAB,2), & 28 DMT(NPTAB,2) 29 CHARACTER(LEN=129) :: ASCBLINE 30 CHARACTER(LEN=664) :: CSVBLINE 31 CHARACTER(LEN=67) :: CASCBLINE 32 LOGICAL :: IYY(NPMAX) 33 !/ 34 !/ Conventional declarations 35 !/ 36 !/ 37 !/ Private parameter statements (ID strings) 38 !/ 39 !/ 40 CONTAINS 41 !/ ------------------------------------------------------------------- / 42 SUBROUTINE W3BULL & 43 ( NPART, XPART, DIMXP, UABS, UD, IPNT, IOUT, TIMEV ) 44 !/ 45 !/ +-----------------------------------+ 46 !/ | WAVEWATCH-III NOAA/NCEP | 47 !/ | J. H. Alves | 48 !/ | H. L. Tolman | 49 !/ | FORTRAN 90 | 50 !/ | Last update : 26-Apr-2012 ! 51 !/ +-----------------------------------+ 52 !/ 53 !/ 01-Apr-2010 : Origination. ( version 3.14 ) 54 !/ 26-Dec-2012 : Modified obsolete declarations. ( version 4.11 ) 55 !/ 15-Aug-2011 : Adjustments to version 4.05 ( version 4.05 ) 56 !/ 11-Mar-2013 : Minor cleanup ( version 4.09 ) 57 !/ Page 2 Source Listing W3BULL 2014-09-16 17:02 w3bullmd.f90 58 ! 1. Purpose : 59 ! 60 ! Read a WAVEWATCH-III version 1.17 point output data file and 61 ! produces a table of mean parameters for all individual wave 62 ! systems. 63 ! 64 ! 2. Method : 65 ! 66 ! Partitioning is made using the built-in module w3partmd. Partitions 67 ! are ranked and organized into coherent sequences that are then 68 ! written as tables to output files. Input options for generating 69 ! tables are defined in ww3_outp.inp. This module sorts the table 70 ! data, output to file is controlled by WW3_OUTP. 71 ! 72 ! 3. Parameters : 73 ! 74 ! Parameter list 75 ! ---------------------------------------------------------------- 76 ! DHSMAX Real Max. change in Hs for system to be considered 77 ! related to previous time. 78 ! DTPMAX Real Id. Tp. 79 ! DDMMAX Real Id. Dm. 80 ! DDWMAX Real Maximum differences in wind and wave direction 81 ! for marking of system as under the influence 82 ! of the local wind, 83 ! AGEMIN Real Id. wave age. 84 ! ---------------------------------------------------------------- 85 ! 86 ! 4. Subroutines used : 87 ! 88 ! Name Type Module Description 89 ! ---------------------------------------------------------------- 90 ! STRACE Sur. W3SERVMD Subroutine tracing. 91 ! ---------------------------------------------------------------- 92 ! 93 ! 5. Called by : 94 ! 95 ! WW3_OUTP 96 ! 97 ! 6. Error messages : 98 ! 99 ! Error control made in WW3_OUTP. 100 ! 101 ! 7. Remarks : 102 ! 103 ! Current version does not allow generating tables for multiple 104 ! points. 105 ! 106 ! 8. Structure : 107 ! 108 ! 9. Switches : 109 ! 110 ! !/S Enable subroutine tracing. 111 ! !/T Enable test output 112 ! 113 ! 10. Source code : 114 ! Page 3 Source Listing W3BULL 2014-09-16 17:02 w3bullmd.f90 115 !/ ------------------------------------------------------------------- / 116 ! USE CONSTANTS 117 ! 118 IMPLICIT NONE 119 ! 120 !/ 121 !/ ------------------------------------------------------------------- / 122 !/ Parameter list 123 !/ 124 !/ 125 !/ ------------------------------------------------------------------- / 126 !/ Local parameters 127 !/ 128 !/ 129 ! 130 ! -------------------------------------------------------------------- / 131 ! 1. Initializations 132 ! 133 INTEGER, SAVE :: IENT = 0 134 REAL :: DHSMAX, DTPMAX, & 135 DDMMAX, DDWMAX, AGEMIN 136 PARAMETER ( DHSMAX = 1.50 ) 137 PARAMETER ( DTPMAX = 1.50 ) 138 PARAMETER ( DDMMAX = 15. ) 139 PARAMETER ( DDWMAX = 30. ) 140 PARAMETER ( AGEMIN = 0.8 ) 141 INTEGER, INTENT(IN) :: NPART, DIMXP, IOUT 142 INTEGER, INTENT(INOUT) :: TIMEV(2) 143 REAL, INTENT(IN) :: UABS, & 144 UD, XPART(6,0:DIMXP) 145 INTEGER :: IPG1,IPI(NPMAX), ILEN(NPMAX), IP, & 146 IPNOW, IFLD, INOTAB, IPNT, ITAB, & 147 DOUTP, FCSTI, NZERO 148 REAL :: AFR, AGE, DDMMAXR, DELDM, DELDMR, & 149 DELDW, DELHS, DELTP, DHSMAXR, & 150 DTPMAXR, HMAX, HSTOT, TP, UDIR, FACT 151 REAL :: HSP(NPMAX), TPP(NPMAX), & 152 DMP(NPMAX), WNP(NPMAX), HSD(NPMAX), & 153 TPD(NPMAX), WDD(NPMAX) 154 LOGICAL :: FLAG(NPMAX) 155 CHARACTER(LEN=129) :: BLANK, TAIL !, ASCBLINE 156 CHARACTER(LEN=67) :: CBLANK, CTAIL !, CASCBLINE 157 CHARACTER(LEN=15) :: PART 158 CHARACTER(LEN=9) :: CPART 159 CHARACTER(LEN=664) :: BLANK2 !,CSVBLINE 160 CHARACTER :: STIME*8,FORM*20,FORM1*2 161 CHARACTER(LEN=16) :: PART2 162 !/ 163 !/ ------------------------------------------------------------------- / 164 ! 165 ! 1.a Constants etc. 166 ! 167 ! Set FACT to proper scaling according to spherical or cartesian 168 IF ( FLAGLL ) THEN 169 FACT = 1. 170 ELSE 171 FACT = 1.E-3 Page 4 Source Listing W3BULL 2014-09-16 17:02 w3bullmd.f90 172 ENDIF 173 ! 174 ! Convert wind direction to azimuthal reference 175 UDIR = MOD( UD+180., 360. ) 176 ! 177 TAIL ( 1: 40) = '+-------+-----------+-----------------+-' 178 TAIL ( 41: 80) = '----------------+-----------------+-----' 179 TAIL ( 81:120) = '------------+-----------------+---------' 180 TAIL (120:129) = '---------+' 181 BLANK( 1: 40) = '| nn nn | nn | | ' 182 BLANK( 41: 80) = ' | | ' 183 BLANK( 81:120) = ' | | ' 184 BLANK(120:129) = ' |' 185 ASCBLINE = BLANK 186 CTAIL( 1:40) = '----------------------------------------' 187 CTAIL(41:67) = '---------------------------' 188 CBLANK( 1:40) = ' ' 189 CBLANK(41:67) = ' ' 190 CASCBLINE = CBLANK 191 ! 192 BLANK2( 1: 40)=' , , , , , , , , ' 193 BLANK2( 41: 88)=', , , , , , , , , ' 194 BLANK2( 89:136)=', , , , , , , , , ' 195 BLANK2(137:184)=', , , , , , , , , ' 196 BLANK2(185:232)=', , , , , , , , , ' 197 BLANK2(233:280)=', , , , , , , , , ' 198 BLANK2(281:328)=', , , , , , , , , ' 199 BLANK2(329:376)=', , , , , , , , , ' 200 BLANK2(377:424)=', , , , , , , , , ' 201 BLANK2(425:472)=', , , , , , , , , ' 202 BLANK2(473:520)=', , , , , , , , , ' 203 BLANK2(521:568)=', , , , , , , , , ' 204 BLANK2(569:616)=', , , , , , , , , ' 205 BLANK2(617:664)=', , , , , , , , , ' 206 ! 207 CSVBLINE = BLANK2 208 ! 209 IF (IOUT .EQ. 1) THEN 210 IPG1 = 0 211 DO IP=1, NPTAB 212 HST(IP,1) = -99.9 213 TPT(IP,1) = -99.9 214 DMT(IP,1) = -99.9 215 ENDDO 216 DO IP=1, NPMAX 217 IYY(IP) = .FALSE. 218 IPI(IP)=1 219 ILEN(IP)=0 220 ENDDO 221 ENDIF 222 ! 223 ! 3. Get overall wave height ---------------------------------------- * 224 ! 225 HSTOT = XPART(1,0) 226 TP = XPART(2,0) 227 HSP = XPART(1,1:NPART) 228 TPP = XPART(2,1:NPART) Page 5 Source Listing W3BULL 2014-09-16 17:02 w3bullmd.f90 229 WNP = TPI / XPART(3,1:NPART) 230 DMP = MOD( XPART(4,1:NPART) + 180., 360.) 231 232 NZERO = 0 233 NZERO = COUNT( HSP <= BHSMIN .AND. HSP /= 0. ) 234 ! 235 ! 4. Process all partial fields ------------------------------------- * 236 ! 237 DO IP=NPART+1, NPMAX 238 HSP(IP) = 0.00 239 TPP(IP) = -999.99 240 DMP(IP) = -999.99 241 ENDDO 242 243 DO IP=1, NPTAB 244 HST(IP,2) = HST(IP,1) 245 TPT(IP,2) = TPT(IP,1) 246 DMT(IP,2) = DMT(IP,1) 247 HST(IP,1) = -1. 248 TPT(IP,1) = -1. 249 DMT(IP,1) = -1. 250 ENDDO 251 ! 252 ! 5. Generate output table ------------------------------------------ * 253 ! 5.a Time and overall wave height to string 254 ! 255 ASCBLINE = BLANK 256 CSVBLINE = BLANK2 257 CASCBLINE = CBLANK 258 ! 259 ! Fill the variable forecast time with hrs relative to reference time 260 IF ( TIMEV(1) .LE. 0 ) TIMEV = TIME 261 FCSTI = DSEC21 (TIMEV, TIME) / 3600 262 WRITE(CSVBLINE(1:4),'(I4)')FCSTI 263 ! 264 DO IFLD=1,NPTAB 265 IYY(IFLD)=.FALSE. 266 ENDDO 267 ! 268 ! ... write the time labels for current table line 269 WRITE (CSVBLINE(6:9),'(I4)') INT(TIME(1)/10000) 270 WRITE (CSVBLINE(11:12),'(I2)') & 271 INT(TIME(1)/100)-100*INT(TIME(1)/10000) 272 WRITE (CSVBLINE(14:15),'(I2)') MOD(TIME(1),100) 273 WRITE (CSVBLINE(17:18),'(I2)') TIME(2)/10000 274 WRITE (CSVBLINE(20:24),'(F5.2)') UABS 275 WRITE (CSVBLINE(26:28),'(I3)') INT(UDIR) 276 IF ( HSTOT .GT. 0. ) WRITE (CSVBLINE(30:34),'(F5.2)') HSTOT 277 IF ( HSTOT .GT. 0. ) WRITE (CSVBLINE(36:40),'(F5.2)') TP 278 ! 279 WRITE (ASCBLINE(3:4),'(I2)') MOD(TIME(1),100) 280 WRITE (ASCBLINE(6:7),'(I2)') TIME(2)/10000 281 ! 282 IF ( HSTOT .GT. 0. ) WRITE (ASCBLINE(10:14),'(F5.2)') HSTOT 283 WRITE (ASCBLINE(16:17),'(I2)') NPART - NZERO 284 ! 285 WRITE (CASCBLINE(1:2),'(I2.2)') MOD(TIME(1),100) Page 6 Source Listing W3BULL 2014-09-16 17:02 w3bullmd.f90 286 WRITE (CASCBLINE(3:4),'(I2.2)') TIME(2)/10000 287 IF ( HSTOT .GT. 0. ) WRITE (CASCBLINE(6:7),'(I2)') NINT(HSTOT/0.3048) 288 ! 289 IF ( NPART.EQ.0 .OR. HSTOT.LT.0.1 ) GOTO 699 290 ! 291 ! 5.b Switch off peak with too low wave height 292 ! 293 DO IP=1, NPART 294 FLAG(IP) = HSP(IP) .GT. BHSMIN 295 ENDDO 296 ! 297 ! 5.c Find next highest wave height 298 ! 299 INOTAB = 0 300 ! 301 601 CONTINUE 302 ! 303 HMAX = 0. 304 IPNOW = 0 305 DO IP=1, NPART 306 IF ( HSP(IP).GT.HMAX .AND. FLAG(IP) ) THEN 307 IPNOW = IP 308 HMAX = HSP(IP) 309 ENDIF 310 ENDDO 311 ! 312 ! 5.d No more peaks, skip to output 313 ! 314 IF ( IPNOW .EQ. 0 ) GOTO 699 315 ! 316 ! 5.e Find matching field 317 ! 318 ITAB = 0 319 ! 320 DO IP=1, NPTAB 321 IF ( TPT(IP,2) .GT. 0. ) THEN 322 ! 323 DELHS = ABS ( HST(IP,2) - HSP(IPNOW) ) 324 DELTP = ABS ( TPT(IP,2) - TPP(IPNOW) ) 325 DELDM = ABS ( DMT(IP,2) - DMP(IPNOW) ) 326 IF ( DELDM .GT. 180. ) DELDM = 360. - DELDM 327 IF ( DELHS.LT.DHSMAX .AND. & 328 DELTP.LT.DTPMAX .AND. & 329 DELDM.LT.DDMMAX ) ITAB = IP 330 ! 331 ENDIF 332 ENDDO 333 ! 334 ! 5.f No matching field, find empty fields 335 ! 336 IF ( ITAB .EQ. 0 ) THEN 337 DO IP=NPTAB, 1, -1 338 IF ( TPT(IP,1).LT.0. .AND. TPT(IP,2).LT.0. ) & 339 ITAB = IP 340 ENDDO 341 ENDIF 342 ! Page 7 Source Listing W3BULL 2014-09-16 17:02 w3bullmd.f90 343 ! 5.g Slot in table found, write 344 ! 345 ! Remove clear windseas 346 ! 347 IF ( ITAB .NE. 0 ) THEN 348 ! 349 WRITE (PART,'(1X,F5.2,F5.1,I4)') & 350 HSP(IPNOW), TPP(IPNOW), NINT(DMP(IPNOW)) 351 WRITE (CPART,'(I2,1X,I2.2,1X,I3.3)') & 352 NINT(HSP(IPNOW)/0.3048), & 353 NINT(TPP(IPNOW)), & 354 NINT(MOD(DMP(IPNOW)+180.,360.)) 355 DELDW = MOD ( ABS ( UDIR - DMP(IPNOW) ) , 360. ) 356 IF ( DELDW .GT. 180. ) DELDW = 360. - DELDW 357 AFR = 2.*PI/TPP(IPNOW) 358 AGE = UABS * WNP(IPNOW) / AFR 359 IF ( DELDW.LT.DDWMAX .AND. AGE.GT.AGEMIN ) PART(1:1) = '*' 360 ! 361 ASCBLINE(5+ITAB*18:19+ITAB*18) = PART 362 CASCBLINE(ITAB*10-1:ITAB*10+7) = CPART 363 ! 364 DO IFLD=1,NPTAB 365 IF(ITAB.EQ.IFLD)THEN 366 IYY(IFLD)=.TRUE. 367 HSD(IFLD)=HSP(IPNOW) 368 TPD(IFLD)=TPP(IPNOW) 369 WDD(IFLD)=NINT(DMP(IPNOW)) 370 ENDIF 371 ENDDO 372 ! 373 HST(ITAB,1) = HSP(IPNOW) 374 TPT(ITAB,1) = TPP(IPNOW) 375 DMT(ITAB,1) = DMP(IPNOW) 376 377 ! 378 ! 5.h No slot in table found, write 379 ! 380 ELSE 381 ! 382 INOTAB = INOTAB + 1 383 WRITE (ASCBLINE(19:19),'(I1)') INOTAB 384 ! 385 ENDIF 386 ! 387 FLAG(IPNOW) = .FALSE. 388 GOTO 601 389 ! 390 ! 5.i End of processing, write line in table 391 ! 392 699 CONTINUE 393 ! 394 DO IFLD=1,NPTAB 395 IF(IYY(IFLD))THEN 396 ILEN(IFLD)=ILEN(IFLD)+1 397 IF (ILEN(IFLD).EQ.1)THEN 398 IPI(IFLD)=IPG1+1 399 IPG1=IPG1+1 Page 8 Source Listing W3BULL 2014-09-16 17:02 w3bullmd.f90 400 ENDIF 401 WRITE (PART2,'(",",F5.2,",",F5.2,",",I3)') & 402 HSD(IFLD), TPD(IFLD), NINT(WDD(IFLD)) 403 CSVBLINE(25+IPI(IFLD)*16:40+IPI(IFLD)*16) = PART2 404 ELSE 405 ILEN(IFLD)=0 406 ENDIF 407 ENDDO 408 ! 409 RETURN 410 !/ 411 !/ End of W3BULL ----------------------------------------------------- / 412 !/ 413 END SUBROUTINE W3BULL ENTRY POINTS Name w3bullmd_mp_w3bull_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 601 Label 301 388 699 Label 392 289,314 ABS Func 323 scalar 323,324,325,355 AFR Local 148 R(4) 4 scalar 357,358 AGE Local 148 R(4) 4 scalar 358,359 AGEMIN Param 135 R(4) 4 scalar 359 ASCBLINE Local 185 CHAR 129 scalar 185,255,279,280,282,283,361,383 BHSMIN Param 233 R(4) 4 scalar 233,294 BLANK Local 155 CHAR 129 scalar 181,182,183,184,185,255 BLANK2 Local 159 CHAR 664 scalar 192,193,194,195,196,197,198,199,20 0,201,202,203,204,205,207,256 CASCBLINE Local 190 CHAR 67 scalar 190,257,285,286,287,362 CBLANK Local 156 CHAR 67 scalar 188,189,190,257 COUNT Func 233 scalar 233 CPART Local 158 CHAR 9 scalar 351,362 CSVBLINE Local 207 CHAR 664 scalar 207,256,262,269,270,272,273,274,27 5,276,277,403 CTAIL Local 156 CHAR 67 scalar 186,187 DDMMAX Param 135 R(4) 4 scalar 329 DDMMAXR Local 148 R(4) 4 scalar DDWMAX Param 135 R(4) 4 scalar 359 DELDM Local 148 R(4) 4 scalar 325,326,329 DELDMR Local 148 R(4) 4 scalar DELDW Local 149 R(4) 4 scalar 355,356,359 DELHS Local 149 R(4) 4 scalar 323,327 DELTP Local 149 R(4) 4 scalar 324,328 DHSMAX Param 134 R(4) 4 scalar 327 DHSMAXR Local 149 R(4) 4 scalar DIMXP Dummy 43 I(4) 4 scalar ARG,IN 144 DMP Local 152 R(4) 4 1 80 230,240,325,350,354,355,369,375 Page 9 Source Listing W3BULL 2014-09-16 17:02 Symbol Table w3bullmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References DMT Local 214 R(4) 4 2 12 214,246,249,325,375 DOUTP Local 147 I(4) 4 scalar DSEC21 Func 261 R(4) 4 scalar 22,261 DTPMAX Param 134 R(4) 4 scalar 328 DTPMAXR Local 150 R(4) 4 scalar FACT Local 150 R(4) 4 scalar 169,171 FCSTI Local 147 I(4) 4 scalar 261,262 FLAG Local 154 L(4) 4 1 80 294,306,387 FLAGLL Local 168 L(4) 4 scalar 18,168 FORM Local 160 CHAR 20 scalar FORM1 Local 160 CHAR 2 scalar HMAX Local 150 R(4) 4 scalar 303,306,308 HSD Local 152 R(4) 4 1 80 367,402 HSP Local 151 R(4) 4 1 80 227,233,238,294,306,308,323,350,35 2,367,373 HST Local 212 R(4) 4 2 12 212,244,247,323,373 HSTOT Local 150 R(4) 4 scalar 225,276,277,282,287,289 IENT Local 133 I(4) 4 scalar 133 IFLD Local 146 I(4) 4 scalar 264,265,364,365,366,367,368,369,39 4,395,396,397,398,402,403,405 ILEN Local 145 I(4) 4 1 80 219,396,397,405 INOTAB Local 146 I(4) 4 scalar 299,382,383 INT Func 269 scalar 269,271,275 IOUT Dummy 43 I(4) 4 scalar ARG,IN 209 IP Local 145 I(4) 4 scalar 211,212,213,214,216,217,218,219,23 7,238,239,240,243,244,245,246,247, 248,249,293,294,305,306,307,308,32 0,321,323,324,325,329,337,338,339 IPG1 Local 145 I(4) 4 scalar 210,398,399 IPI Local 145 I(4) 4 1 80 218,398,403 IPNOW Local 146 I(4) 4 scalar 304,307,314,323,324,325,350,352,35 3,354,355,357,358,367,368,369,373, 374,375,387 IPNT Dummy 43 I(4) 4 scalar ARG,INOUT ITAB Local 146 I(4) 4 scalar 318,329,336,339,347,361,362,365,37 3,374,375 IYY Local 217 L(4) 4 1 80 217,265,366,395 MOD Func 175 scalar 175,230,272,279,285,354,355 NINT Func 287 scalar 287,350,352,353,354,369,402 NPART Dummy 43 I(4) 4 scalar ARG,IN 227,228,229,230,237,283,289,293,30 5 NPMAX Param 145 I(4) 4 scalar 32,145,151,152,153,154,216,237 NPTAB Param 211 I(4) 4 scalar 27,28,211,243,264,320,337,364,394 NZERO Local 147 I(4) 4 scalar 232,233,283 PART Local 157 CHAR 15 scalar 349,359,361 PART2 Local 161 CHAR 16 scalar 401,403 PI Param 357 R(4) 4 scalar 20,357 STIME Local 160 CHAR 8 scalar TAIL Local 155 CHAR 129 scalar 177,178,179,180 TIME Local 260 I(4) 4 1 1 PTR 21,260,261,269,271,272,273,279,280 ,285,286 TIMEV Dummy 43 I(4) 4 1 2 ARG,INOUT 260,261 TP Local 150 R(4) 4 scalar 226,277 TPD Local 153 R(4) 4 1 80 368,402 TPI Param 229 R(4) 4 scalar 20,229 Page 10 Source Listing W3BULL 2014-09-16 17:02 Symbol Table w3bullmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References TPP Local 151 R(4) 4 1 80 228,239,324,350,353,357,368,374 TPT Local 213 R(4) 4 2 12 213,245,248,321,324,338,374 UABS Dummy 43 R(4) 4 scalar ARG,IN 274,358 UD Dummy 43 R(4) 4 scalar ARG,IN 175 UDIR Local 150 R(4) 4 scalar 175,275,355 W3BULL Subr 42 WDD Local 153 R(4) 4 1 80 369,402 WNP Local 152 R(4) 4 1 80 229,358 XPART Dummy 43 R(4) 4 2 0 ARG,IN 225,226,227,228,229,230 Page 11 Source Listing W3BULL 2014-09-16 17:02 w3bullmd.f90 414 !/ 415 !/ End of module W3BULLMD -------------------------------------------- / 416 !/ 417 END MODULE W3BULLMD SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References BHSDROP Param 26 R(4) 4 scalar CONSTANTS Module 20 20 GNAME Local 18 CHAR 30 scalar PTR 18 NFLD Param 24 I(4) 4 scalar NK Local 18 I(4) 4 scalar PTR 18 NOPTS Local 19 I(4) 4 scalar PTR 19 NSPEC Local 18 I(4) 4 scalar PTR 18 NTH Local 18 I(4) 4 scalar PTR 18 PTLOC Local 19 R(4) 4 2 1 PTR 19 PTNME Local 19 CHAR 10 1 1 PTR 19 W3BULLMD Module 2 W3GDATMD Module 18 18 W3ODATMD Module 19 19 W3TIMEMD Module 22 22 W3WDATMD Module 21 21 Page 12 Source Listing W3BULL 2014-09-16 17:02 w3bullmd.f90 418 Page 13 Source Listing W3BULL 2014-09-16 17:02 Subprograms/Common Blocks w3bullmd.f90 SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References W3BULL Subr 42 W3BULLMD Module 2 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 -auto no -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 __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __SSE__ -D __MMX__ -D __AVX__ -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 no -fpconstant Page 14 Source Listing W3BULL 2014-09-16 17:02 w3bullmd.f90 -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 -free -g0 -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/gp1/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/gp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/.f, /gpfs/gp1/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 : w3bullmd.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100