Page 1 Source Listing W3NDAT 2014-09-16 16:54 w3wdatmd.f90 1 !/ ------------------------------------------------------------------- / 2 MODULE W3WDATMD 3 !/ 4 !/ +-----------------------------------+ 5 !/ | WAVEWATCH III NOAA/NCEP | 6 !/ | H. L. Tolman | 7 !/ | FORTRAN 90 | 8 !/ | Last update : 14-Nov-2013 | 9 !/ +-----------------------------------+ 10 !/ 11 !/ 22-Oct-2004 : Origination. ( version 3.06 ) 12 !/ 13-Jun-2006 : Allocate VA consistent with MPI ( version 3.09 ) 13 !/ data types and initialize as needed. 14 !/ 05-Jul-2006 : Consolidate stress vector. ( version 3.09 ) 15 !/ 04-Oct-2006 : Add filter to array pointers. ( version 3.10 ) 16 !/ 29-May-2009 : Preparing distribution version. ( version 3.14 ) 17 !/ 16-May-2010 : Add iceberg damping ( version 3.14.4 ) 18 !/ 14-Nov-2013 : Initialize UST and USTDIR. ( version 4.13 ) 19 !/ 20 !/ Copyright 2009-2013 National Weather Service (NWS), 21 !/ National Oceanic and Atmospheric Administration. All rights 22 !/ reserved. WAVEWATCH III is a trademark of the NWS. 23 !/ No unauthorized use without permission. 24 !/ 25 ! 1. Purpose : 26 ! 27 ! Define data structures to set up wave model dynamic data for 28 ! several models simultaneously. 29 ! 30 ! 2. Variables and types : 31 ! 32 ! Name Type Scope Description 33 ! ---------------------------------------------------------------- 34 ! NWDATA Int. Public Number of models in array dim. 35 ! IWDATA Int. Public Selected model for output, init. at -1. 36 ! WDATA TYPE Public Basic data structure. 37 ! WDATAS WDATA Public Array of data structures. 38 ! ---------------------------------------------------------------- 39 ! 40 ! All elements of WDATA are aliased to pointers with the same 41 ! name. These pointers are defined as : 42 ! 43 ! Name Type Scope Description 44 ! ---------------------------------------------------------------- 45 ! TIME I.A. Public Valid time for spectra. 46 ! TLEV I.A. Public Valid time for water levels. 47 ! TICE I.A. Public Valid time for ice. 48 ! VA R.A. Public Storage array for spectra. 49 ! WLV R.A. Public Water levels. 50 ! ICE R.A. Public Ice coverage. 51 ! BERG R.A. Public Iceberg damping. 52 ! UST R.A. Public Friction velocity (absolute). 53 ! USTDIR R.A. Public Friction velocity direction. 54 ! ASF R.A. Public Stability correction factor. 55 ! FPIS R.A. Public Input peak frequencies. 56 ! DINIT Log. Public Flag for array initialization. 57 ! FL_ALL Log. Public Flag for initializing all arrays, Page 2 Source Listing W3NDAT 2014-09-16 16:54 w3wdatmd.f90 58 ! otherwise VA is skipped. 59 ! ---------------------------------------------------------------- 60 ! 61 ! 3. Subroutines and functions : 62 ! 63 ! Name Type Scope Description 64 ! ---------------------------------------------------------------- 65 ! W3NDAT Subr. Public Set number of grids/models. 66 ! W3DIMW Subr. Public Set dimensions of arrays. 67 ! W3SETW Subr. Public Point to selected grid / model. 68 ! ---------------------------------------------------------------- 69 ! 70 ! 4. Subroutines and functions used : 71 ! 72 ! Name Type Module Description 73 ! ---------------------------------------------------------------- 74 ! W3SETG Subr. W3GDATMD Point to proper model grid. 75 ! STRACE Subr. W3SERVMD Subroutine tracing. 76 ! EXTCDE Subr. W3SERVMD Abort program with exit code. 77 ! ---------------------------------------------------------------- 78 ! 79 ! 5. Remarks : 80 ! 81 ! - The number of grids is taken from W3GDATMD, and needs to be 82 ! set first with W3DIMG. 83 ! 84 ! 6. Switches : 85 ! 86 ! !/S Enable subroutine tracing. 87 ! !/T Enable test output 88 ! 89 ! 7. Source code : 90 ! 91 !/ ------------------------------------------------------------------- / 92 PUBLIC 93 !/ 94 !/ Conventional declarations 95 !/ 96 INTEGER :: NWDATA = -1, IWDATA = -1 97 !/ 98 !/ Data structures 99 !/ 100 TYPE WDATA 101 INTEGER :: TIME(2), TLEV(2), TICE(2) 102 REAL, POINTER :: VA(:,:), WLV(:), ICE(:), UST(:), & 103 USTDIR(:), ASF(:), FPIS(:), BERG(:) 104 LOGICAL :: DINIT, FL_ALL 105 END TYPE WDATA 106 ! 107 !/ 108 !/ Data storage 109 !/ 110 TYPE(WDATA), TARGET, ALLOCATABLE :: WDATAS(:) 111 !/ 112 !/ Data aliasses for structure WDATA(S) 113 !/ 114 INTEGER, POINTER :: TIME(:), TLEV(:), TICE(:) Page 3 Source Listing W3NDAT 2014-09-16 16:54 w3wdatmd.f90 115 REAL, POINTER :: VA(:,:), WLV(:), ICE(:), UST(:), & 116 USTDIR(:), ASF(:), FPIS(:), BERG(:) 117 LOGICAL, POINTER :: DINIT, FL_ALL 118 !/ 119 CONTAINS 120 !/ ------------------------------------------------------------------- / 121 SUBROUTINE W3NDAT ( NDSE, NDST ) 122 !/ 123 !/ +-----------------------------------+ 124 !/ | WAVEWATCH III NOAA/NCEP | 125 !/ | H. L. Tolman | 126 !/ | FORTRAN 90 | 127 !/ | Last update : 31-Mar-2004 ! 128 !/ +-----------------------------------+ 129 !/ 130 !/ 31-Mar-2004 : Origination. ( version 3.06 ) 131 !/ 132 ! 1. Purpose : 133 ! 134 ! Set up the number of grids to be used. 135 ! 136 ! 2. Method : 137 ! 138 ! Use data stored in NGRIDS in W3GDATMD. 139 ! 140 ! 3. Parameters : 141 ! 142 ! Parameter list 143 ! ---------------------------------------------------------------- 144 ! NDSE Int. I Error output unit number. 145 ! NDST Int. I Test output unit number. 146 ! ---------------------------------------------------------------- 147 ! 148 ! 4. Subroutines used : 149 ! 150 ! See module documentation. 151 ! 152 ! 5. Called by : 153 ! 154 ! Any program that uses this grid structure. 155 ! 156 ! 6. Error messages : 157 ! 158 ! - Error checks on previous setting of variable NGRIDS. 159 ! 160 ! 7. Remarks : 161 ! 162 ! 8. Structure : 163 ! 164 ! 9. Switches : 165 ! 166 ! !/S Enable subroutine tracing. 167 ! !/T Enable test output 168 ! 169 ! 10. Source code : 170 ! 171 !/ ------------------------------------------------------------------- / Page 4 Source Listing W3NDAT 2014-09-16 16:54 w3wdatmd.f90 172 USE W3GDATMD, ONLY: NGRIDS 173 USE W3SERVMD, ONLY: EXTCDE 174 ! 175 IMPLICIT NONE 176 !/ 177 !/ ------------------------------------------------------------------- / 178 !/ Parameter list 179 !/ 180 INTEGER, INTENT(IN) :: NDSE, NDST 181 !/ 182 !/ ------------------------------------------------------------------- / 183 !/ Local parameters 184 !/ 185 INTEGER :: I 186 !/ 187 ! 188 ! -------------------------------------------------------------------- / 189 ! 1. Test input and module status 190 ! 191 IF ( NGRIDS .EQ. -1 ) THEN 192 WRITE (NDSE,1001) NGRIDS 193 CALL EXTCDE (1) 194 END IF 195 ! 196 ! -------------------------------------------------------------------- / 197 ! 2. Set variable and allocate arrays 198 ! 199 ALLOCATE ( WDATAS(0:NGRIDS) ) 200 NWDATA = NGRIDS 201 ! 202 ! -------------------------------------------------------------------- / 203 ! 3. Initialize parameters 204 ! 205 DO I=0, NGRIDS 206 WDATAS(I)%DINIT = .FALSE. 207 WDATAS(I)%FL_ALL = .FALSE. 208 END DO 209 ! 210 RETURN 211 ! 212 ! Formats 213 ! 214 1001 FORMAT (/' *** ERROR W3NDAT : NGRIDS NOT YET SET *** '/ & 215 ' NGRIDS = ',I10/ & 216 ' RUN W3NMOD FIRST'/) 217 ! 218 !/ 219 !/ End of W3NDAT ----------------------------------------------------- / 220 !/ 221 END SUBROUTINE W3NDAT Page 5 Source Listing W3NDAT 2014-09-16 16:54 Entry Points w3wdatmd.f90 ENTRY POINTS Name w3wdatmd_mp_w3ndat_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1001 Label 214 192 DINIT Local 206 L(4) 4 scalar TGT 206,332,362,486 EXTCDE Subr 173 173,193 FL_ALL Local 207 L(4) 4 scalar TGT 207,487 I Local 185 I(4) 4 scalar 205,206,207 NDSE Dummy 121 I(4) 4 scalar ARG,IN 192 NDST Dummy 121 I(4) 4 scalar ARG,IN NGRIDS Local 172 I(4) 4 scalar 172,191,192,199,200,205 NWDATA Local 200 I(4) 4 scalar 96,200,327,328,465,470,471 W3GDATMD Module 172 172 W3NDAT Subr 121 W3SERVMD Module 173 173 WDATAS Local 199 RECORD 632 1 1 ALC,TGT 199,206,207,332,347,348,351,352,35 3,354,355,356,357,359,360,361,362, 483,484,485,486,487,490,491,492,49 3,494,495,496,497 Page 6 Source Listing W3NDAT 2014-09-16 16:54 w3wdatmd.f90 222 !/ ------------------------------------------------------------------- / 223 SUBROUTINE W3DIMW ( IMOD, NDSE, NDST, F_ONLY ) 224 !/ 225 !/ +-----------------------------------+ 226 !/ | WAVEWATCH III NOAA/NCEP | 227 !/ | H. L. Tolman | 228 !/ | FORTRAN 90 | 229 !/ | Last update : 14-Nov-2013 ! 230 !/ +-----------------------------------+ 231 !/ 232 !/ 22-Oct-2004 : Origination. ( version 3.06 ) 233 !/ 13-Jun-2006 : Allocate VA consistent with MPI ( version 3.09 ) 234 !/ data types and initialize as needed. 235 !/ 05-Jul-2006 : Consolidate stress vector. ( version 3.09 ) 236 !/ 04-Oct-2006 : Add filter to array pointers. ( version 3.10 ) 237 !/ 14-Nov-2013 : Initialize UST and USTDIR. ( version 4.13 ) 238 !/ 239 ! 1. Purpose : 240 ! 241 ! Initialize an individual data grid at the proper dimensions. 242 ! 243 ! 2. Method : 244 ! 245 ! Allocate directly into the structure array. Note that 246 ! this cannot be done through the pointer alias! 247 ! 248 ! 3. Parameters : 249 ! 250 ! Parameter list 251 ! ---------------------------------------------------------------- 252 ! IMOD Int. I Model number to point to. 253 ! NDSE Int. I Error output unit number. 254 ! NDST Int. I Test output unit number. 255 ! F_ONLY L.O. I FLag for initializing field arrays only. 256 ! ---------------------------------------------------------------- 257 ! 258 ! 4. Subroutines used : 259 ! 260 ! See module documentation. 261 ! 262 ! 5. Called by : 263 ! 264 ! Name Type Module Description 265 ! ---------------------------------------------------------------- 266 ! W3IOGO Subr. W3IOGOMD Grid output IO routine. 267 ! W3IORS Subr. W3IORSMD Restart file IO routine. 268 ! WW3_SHEL Prog. N/A Main wave model driver. 269 ! WW3_STRT Prog. N/A Initial conditions program. 270 ! ---------------------------------------------------------------- 271 ! 272 ! 6. Error messages : 273 ! 274 ! - Check on input parameters. 275 ! - Check on previous allocation. 276 ! 277 ! 7. Remarks : 278 ! Page 7 Source Listing W3DIMW 2014-09-16 16:54 w3wdatmd.f90 279 ! - W3SETW needs to be called after allocation to point to 280 ! proper allocated arrays. 281 ! 282 ! 8. Structure : 283 ! 284 ! See source code. 285 ! 286 ! 9. Switches : 287 ! 288 ! !/S Enable subroutine tracing. 289 ! !/T Enable test output 290 ! 291 ! 10. Source code : 292 ! 293 !/ ------------------------------------------------------------------- / 294 USE W3GDATMD, ONLY: NGRIDS, IGRID, W3SETG, NSPEC, NSEA, NSEAL 295 USE W3ODATMD, ONLY: NAPROC 296 USE W3SERVMD, ONLY: EXTCDE 297 ! 298 IMPLICIT NONE 299 ! 300 !/ 301 !/ ------------------------------------------------------------------- / 302 !/ Parameter list 303 !/ 304 INTEGER, INTENT(IN) :: IMOD, NDSE, NDST 305 LOGICAL, INTENT(IN), OPTIONAL :: F_ONLY 306 !/ 307 !/ ------------------------------------------------------------------- / 308 !/ Local parameters 309 !/ 310 INTEGER :: JGRID, NSEALM, NSEATM 311 !/ 312 ! 313 ! -------------------------------------------------------------------- / 314 ! 1. Test input and module status 315 ! 316 IF ( PRESENT(F_ONLY) ) THEN 317 FL_ALL = .NOT. F_ONLY 318 ELSE 319 FL_ALL = .TRUE. 320 END IF 321 ! 322 IF ( NGRIDS .EQ. -1 ) THEN 323 WRITE (NDSE,1001) 324 CALL EXTCDE (1) 325 END IF 326 ! 327 IF ( IMOD.LT.1 .OR. IMOD.GT.NWDATA ) THEN 328 WRITE (NDSE,1002) IMOD, NWDATA 329 CALL EXTCDE (2) 330 END IF 331 ! 332 IF ( WDATAS(IMOD)%DINIT ) THEN 333 WRITE (NDSE,1003) 334 CALL EXTCDE (3) 335 END IF Page 8 Source Listing W3DIMW 2014-09-16 16:54 w3wdatmd.f90 336 ! 337 JGRID = IGRID 338 IF ( JGRID .NE. IMOD ) CALL W3SETG ( IMOD, NDSE, NDST ) 339 ! 340 ! -------------------------------------------------------------------- / 341 ! 2. Allocate arrays 342 ! 343 NSEALM = 1 + (NSEA-1)/NAPROC 344 NSEATM = NSEALM * NAPROC 345 ! 346 IF ( FL_ALL ) THEN 347 ALLOCATE ( WDATAS(IMOD)%VA(NSPEC,0:NSEALM) ) 348 IF ( NSEAL .NE. NSEALM ) WDATAS(IMOD)%VA(:,NSEALM) = 0. 349 END IF 350 ! 351 ALLOCATE ( WDATAS(IMOD)%WLV(NSEA), & 352 WDATAS(IMOD)%ICE(NSEA), & 353 WDATAS(IMOD)%BERG(NSEA), & 354 WDATAS(IMOD)%UST(0:NSEATM), & 355 WDATAS(IMOD)%USTDIR(0:NSEATM), & 356 WDATAS(IMOD)%ASF(NSEATM), & 357 WDATAS(IMOD)%FPIS(NSEATM) ) 358 ! 359 WDATAS(IMOD)%UST (:) = 1.E-5 360 WDATAS(IMOD)%USTDIR(:) = 0. 361 WDATAS(IMOD)%BERG (:) = 0. 362 WDATAS(IMOD)%DINIT = .TRUE. 363 CALL W3SETW ( IMOD, NDSE, NDST ) 364 ! 365 ! -------------------------------------------------------------------- / 366 ! 5. Restore previous grid setting if necessary 367 ! 368 IF ( JGRID .NE. IMOD ) CALL W3SETG ( JGRID, NDSE, NDST ) 369 ! 370 RETURN 371 ! 372 ! Formats 373 ! 374 1001 FORMAT (/' *** ERROR W3DIMW : GRIDS NOT INITIALIZED *** '/ & 375 ' RUN W3NMOD FIRST '/) 376 1002 FORMAT (/' *** ERROR W3DIMW : ILLEGAL MODEL NUMBER *** '/ & 377 ' IMOD = ',I10/ & 378 ' NWDATA = ',I10/) 379 1003 FORMAT (/' *** ERROR W3DIMW : ARRAY(S) ALREADY ALLOCATED *** ') 380 ! 381 ! -------------------------------------------------------------------- / 382 ! 3. Point to allocated arrays 383 ! 384 CALL W3SETW ( IMOD, NDSE, NDST ) 385 ! 386 ! -------------------------------------------------------------------- / 387 ! 4. Update counters in grid 388 !/ 389 !/ End of W3DIMW ----------------------------------------------------- / 390 !/ 391 END SUBROUTINE W3DIMW Page 9 Source Listing W3DIMW 2014-09-16 16:54 Entry Points w3wdatmd.f90 ENTRY POINTS Name w3wdatmd_mp_w3dimw_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1001 Label 374 323 1002 Label 376 328 1003 Label 379 333 ASF Local 356 R(4) 4 1 1 PTR 356,496 BERG Local 353 R(4) 4 1 1 PTR 353,361,493 EXTCDE Subr 296 296,324,329,334 FL_ALL Local 317 L(4) 4 scalar PTR 317,319,346,487,490 FPIS Local 357 R(4) 4 1 1 PTR 357,497 F_ONLY Dummy 223 L(4) 4 scalar ARG,IN 316,317 ICE Local 352 R(4) 4 1 1 PTR 352,492 IGRID Local 294 I(4) 4 scalar 294,337 IMOD Dummy 223 I(4) 4 scalar ARG,IN 327,328,332,338,347,348,351,352,35 3,354,355,356,357,359,360,361,362, 363,368,384 JGRID Local 310 I(4) 4 scalar 337,338,368 NAPROC Local 295 I(4) 4 scalar PTR 295,343,344 NDSE Dummy 223 I(4) 4 scalar ARG,IN 323,328,333,338,363,368,384 NDST Dummy 223 I(4) 4 scalar ARG,IN 338,363,368,384 NGRIDS Local 294 I(4) 4 scalar 294,322 NSEA Local 294 I(4) 4 scalar PTR 294,343,351,352,353 NSEAL Local 294 I(4) 4 scalar PTR 294,348 NSEALM Local 310 I(4) 4 scalar 343,344,347,348 NSEATM Local 310 I(4) 4 scalar 344,354,355,356,357 NSPEC Local 294 I(4) 4 scalar PTR 294,347 PRESENT Func 316 scalar 316 UST Local 354 R(4) 4 1 1 PTR 354,359,494 USTDIR Local 355 R(4) 4 1 1 PTR 355,360,495 VA Local 347 R(4) 4 2 1 PTR 347,348,490 W3DIMW Subr 223 W3GDATMD Module 294 294 W3ODATMD Module 295 295 W3SERVMD Module 296 296 W3SETG Subr 294 294,338,368 WLV Local 351 R(4) 4 1 1 PTR 351,491 Page 10 Source Listing W3DIMW 2014-09-16 16:54 w3wdatmd.f90 392 !/ ------------------------------------------------------------------- / 393 SUBROUTINE W3SETW ( IMOD, NDSE, NDST ) 394 !/ 395 !/ +-----------------------------------+ 396 !/ | WAVEWATCH III NOAA/NCEP | 397 !/ | H. L. Tolman | 398 !/ | FORTRAN 90 | 399 !/ | Last update : 04-Oct-2006 ! 400 !/ +-----------------------------------+ 401 !/ 402 !/ 31-Mar-2004 : Origination. ( version 3.06 ) 403 !/ 05-Jul-2006 : Consolidate stress vector. ( version 3.09 ) 404 !/ 04-Oct-2006 : Add filter to array pointers. ( version 3.10 ) 405 !/ 406 ! 1. Purpose : 407 ! 408 ! Select one of the WAVEWATCH III grids / models. 409 ! 410 ! 2. Method : 411 ! 412 ! Point pointers to the proper variables in the proper element of 413 ! the GRIDS array. 414 ! 415 ! 3. Parameters : 416 ! 417 ! Parameter list 418 ! ---------------------------------------------------------------- 419 ! IMOD Int. I Model number to point to. 420 ! NDSE Int. I Error output unit number. 421 ! NDST Int. I Test output unit number. 422 ! ---------------------------------------------------------------- 423 ! 424 ! 4. Subroutines used : 425 ! 426 ! See module documentation. 427 ! 428 ! 5. Called by : 429 ! 430 ! Many subroutines in the WAVEWATCH system. 431 ! 432 ! 6. Error messages : 433 ! 434 ! Checks on parameter list IMOD. 435 ! 436 ! 7. Remarks : 437 ! 438 ! 8. Structure : 439 ! 440 ! 9. Switches : 441 ! 442 ! !/S Enable subroutine tracing. 443 ! !/T Enable test output 444 ! 445 ! 10. Source code : 446 ! 447 !/ ------------------------------------------------------------------- / 448 USE W3SERVMD, ONLY: EXTCDE Page 11 Source Listing W3SETW 2014-09-16 16:54 w3wdatmd.f90 449 ! 450 IMPLICIT NONE 451 !/ 452 !/ ------------------------------------------------------------------- / 453 !/ Parameter list 454 !/ 455 INTEGER, INTENT(IN) :: IMOD, NDSE, NDST 456 !/ 457 !/ ------------------------------------------------------------------- / 458 !/ Local parameters 459 !/ 460 !/ 461 ! 462 ! -------------------------------------------------------------------- / 463 ! 1. Test input and module status 464 ! 465 IF ( NWDATA .EQ. -1 ) THEN 466 WRITE (NDSE,1001) 467 CALL EXTCDE (1) 468 END IF 469 ! 470 IF ( IMOD.LT.0 .OR. IMOD.GT.NWDATA ) THEN 471 WRITE (NDSE,1002) IMOD, NWDATA 472 CALL EXTCDE (2) 473 END IF 474 ! 475 ! -------------------------------------------------------------------- / 476 ! 2. Set model numbers 477 ! 478 IWDATA = IMOD 479 ! 480 ! -------------------------------------------------------------------- / 481 ! 3. Set pointers 482 ! 483 TIME => WDATAS(IMOD)%TIME 484 TLEV => WDATAS(IMOD)%TLEV 485 TICE => WDATAS(IMOD)%TICE 486 DINIT => WDATAS(IMOD)%DINIT 487 FL_ALL => WDATAS(IMOD)%FL_ALL 488 ! 489 IF ( DINIT ) THEN 490 IF ( FL_ALL ) VA => WDATAS(IMOD)%VA 491 WLV => WDATAS(IMOD)%WLV 492 ICE => WDATAS(IMOD)%ICE 493 BERG => WDATAS(IMOD)%BERG 494 UST => WDATAS(IMOD)%UST 495 USTDIR => WDATAS(IMOD)%USTDIR 496 ASF => WDATAS(IMOD)%ASF 497 FPIS => WDATAS(IMOD)%FPIS 498 END IF 499 ! 500 RETURN 501 ! 502 ! Formats 503 ! 504 1001 FORMAT (/' *** ERROR W3SETW : GRIDS NOT INITIALIZED *** '/ & 505 ' RUN W3NMOD FIRST '/) Page 12 Source Listing W3SETW 2014-09-16 16:54 w3wdatmd.f90 506 1002 FORMAT (/' *** ERROR W3SETW : ILLEGAL MODEL NUMBER *** '/ & 507 ' IMOD = ',I10/ & 508 ' NWDATA = ',I10/) 509 ! 510 !/ 511 !/ End of W3SETW ----------------------------------------------------- / 512 !/ 513 END SUBROUTINE W3SETW ENTRY POINTS Name w3wdatmd_mp_w3setw_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1001 Label 504 466 1002 Label 506 471 ASF Local 496 R(4) 4 1 1 PTR 496 BERG Local 493 R(4) 4 1 1 PTR 493 DINIT Local 486 L(4) 4 scalar PTR 486,489 EXTCDE Subr 448 448,467,472 FPIS Local 497 R(4) 4 1 1 PTR 497 ICE Local 492 R(4) 4 1 1 PTR 492 IMOD Dummy 393 I(4) 4 scalar ARG,IN 470,471,478,483,484,485,486,487,49 0,491,492,493,494,495,496,497 IWDATA Local 478 I(4) 4 scalar 96,478 NDSE Dummy 393 I(4) 4 scalar ARG,IN 466,471 NDST Dummy 393 I(4) 4 scalar ARG,IN TICE Local 485 I(4) 4 1 1 PTR 485 TICE Local 485 I(4) 4 1 2 485 TIME Local 483 I(4) 4 1 1 PTR 483 TIME Local 483 I(4) 4 1 2 483 TLEV Local 484 I(4) 4 1 1 PTR 484 TLEV Local 484 I(4) 4 1 2 484 UST Local 494 R(4) 4 1 1 PTR 494 USTDIR Local 495 R(4) 4 1 1 PTR 495 VA Local 490 R(4) 4 2 1 PTR 490 W3SERVMD Module 448 448 W3SETW Subr 393 363,384 WLV Local 491 R(4) 4 1 1 PTR 491 Page 13 Source Listing W3SETW 2014-09-16 16:54 w3wdatmd.f90 514 !/ 515 !/ End of module W3WDATMD -------------------------------------------- / 516 !/ 517 END MODULE W3WDATMD SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References W3WDATMD Module 2 WDATA Type 100 632 scalar 105,110 Page 14 Source Listing W3SETW 2014-09-16 16:54 Subprograms/Common Blocks w3wdatmd.f90 SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References W3DIMW Subr 223 W3NDAT Subr 121 W3SETW Subr 393 363,384 W3WDATMD 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 Page 15 Source Listing W3SETW 2014-09-16 16:54 w3wdatmd.f90 -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals 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 -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 : w3wdatmd.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100