Page 1 Source Listing W3WDAS 2014-09-16 16:49 w3wdasmd.f90 1 !/ ------------------------------------------------------------------- / 2 MODULE W3WDASMD 3 !/ 4 !/ +-----------------------------------+ 5 !/ | WAVEWATCH III NOAA/NCEP | 6 !/ | H. L. Tolman | 7 !/ | FORTRAN 90 | 8 !/ | Last update : 06-Dec-2010 | 9 !/ +-----------------------------------+ 10 !/ 11 !/ 25-Jan-2002 : Origination. ( version 2.17 ) 12 !/ 27-Dec-2004 : Multiple grid version. ( version 3.06 ) 13 !/ 29-May-2009 : Preparing distribution version. ( version 3.14 ) 14 !/ 06-Dec-2010 : Change from GLOBAL (logical) to ICLOSE (integer) to 15 !/ specify index closure for a grid. ( version 3.14 ) 16 !/ (T. J. Campbell, NRL) 17 !/ 18 !/ Copyright 2009 National Weather Service (NWS), 19 !/ National Oceanic and Atmospheric Administration. All rights 20 !/ reserved. WAVEWATCH III is a trademark of the NWS. 21 !/ No unauthorized use without permission. 22 !/ 23 ! 1. Purpose : 24 ! 25 ! This module is intended as the interface for externally supplied 26 ! data assimlation software to be used with WAVEWATCH III. The 27 ! main subroutine W3WDAS is incorporated in the generic WAVEWATCH 28 ! III shell ww3_shel, and thus provides integrated time management 29 ! and running of the wave model and data assimilation side by side. 30 ! 31 ! Present wave conditions (including dynamically changing wave 32 ! grids), as well as wave data are passed to the routine through 33 ! the dynamic data structrure, as introduced in model version 3.06 34 ! 35 ! A three tier data structure is used with three separate data 36 ! sets. Tentatively, they are intended for mean wave parameters, 37 ! 1-D and 2-D spectral data. This separation is made only for 38 ! economy in file and menory usage. All three data sets are defined 39 ! here onlt by a record length and a number of records. All data are 40 ! treated as real numbers, but the meaing of all record components 41 ! is completely at the discretion of the author of the data 42 ! assimilation scheme. 43 ! 44 ! To promote portability, it is suggested to use this module only 45 ! as an interface to your own assimilation routine(s). 46 ! 47 ! 2. Variables and types : 48 ! 49 ! Name Type Scope Description 50 ! ---------------------------------------------------------------- 51 ! ---------------------------------------------------------------- 52 ! 53 ! 3. Subroutines and functions : 54 ! 55 ! Name Type Scope Description 56 ! ---------------------------------------------------------------- 57 ! W3WDAS Subr. Public Actual wave model. Page 2 Source Listing W3WDAS 2014-09-16 16:49 w3wdasmd.f90 58 ! ---------------------------------------------------------------- 59 ! 60 ! 4. Subroutines and functions used : 61 ! 62 ! Name Type Module Description 63 ! ---------------------------------------------------------------- 64 ! .... Subr. W3SERVMD Service routines. 65 ! ---------------------------------------------------------------- 66 ! 67 ! 5. Remarks : 68 ! 69 ! - This module still requires an OpenMP or MPI setup to be made 70 ! compatible with WAVEWATCH III inside the user supplied 71 ! routines. 72 ! 73 ! 6. Switches : 74 ! 75 ! !/S Enable subroutine tracing. 76 ! !/T Test output. 77 ! 78 ! 7. Source code : 79 ! 80 !/ ------------------------------------------------------------------- / 81 PUBLIC 82 !/ 83 CONTAINS 84 !/ ------------------------------------------------------------------- / 85 SUBROUTINE W3WDAS ( FLAGS, RECL, NDAT, DATA0, DATA1, DATA2 ) 86 !/ 87 !/ +-----------------------------------+ 88 !/ | WAVEWATCH III NOAA/NCEP | 89 !/ | H. L. Tolman | 90 !/ | FORTRAN 90 | 91 !/ | Last update : 06-Dec-2010 | 92 !/ +-----------------------------------+ 93 !/ 94 !/ 25-Jan-2002 : Origination. ( version 2.17 ) 95 !/ 27-Dec-2004 : Multiple grid version. ( version 3.06 ) 96 !/ 06-Dec-2010 : Change from GLOBAL (logical) to ICLOSE (integer) to 97 !/ specify index closure for a grid. ( version 3.14 ) 98 !/ (T. J. Campbell, NRL) 99 !/ 100 ! 1. Purpose : 101 ! 102 ! WAVEWATCH III data assimilation interface routine. 103 ! 104 ! 3. Parameters : 105 ! 106 ! Parameter list 107 ! ---------------------------------------------------------------- 108 ! FLAGS L.A. I FLags for three data sets. 109 ! RECLD I.A. I Record lengths for three data sets. 110 ! ND I.A. I Number of data for three data sets. 111 ! DATAn R.A. I Observations. 112 ! ---------------------------------------------------------------- 113 ! 114 ! Local parameters : Page 3 Source Listing W3WDAS 2014-09-16 16:49 w3wdasmd.f90 115 ! ---------------------------------------------------------------- 116 ! ---------------------------------------------------------------- 117 ! 118 ! 4. Subroutines used : 119 ! 120 ! Name Type Module Description 121 ! ---------------------------------------------------------------- 122 ! STRACE Subr. W3SERVMD Subroutine tracing. 123 ! EXTCDE Subr. W3SERVMD Program abort. 124 ! ---------------------------------------------------------------- 125 ! 126 ! 5. Called by : 127 ! 128 ! Any program shell or integrated model after initialization of 129 ! WAVEWATCH III (to assure availability of data in used modules). 130 ! 131 ! 6. Error messages : 132 ! 133 ! 7. Remarks : 134 ! 135 ! 8. Structure : 136 ! 137 ! See source code. 138 ! 139 ! 9. Switches : 140 ! 141 ! !/S Enable subroutine tracing. 142 ! !/T Enable test output. 143 ! 144 ! 10. Source code : 145 ! 146 !/ ------------------------------------------------------------------- / 147 USE W3GDATMD 148 USE W3WDATMD 149 USE W3ADATMD 150 USE W3ODATMD, ONLY: NDSO, NDSE, NDST, SCREEN, NAPROC, IAPROC, & 151 NAPLOG, NAPOUT, NAPERR 152 ! 153 IMPLICIT NONE 154 ! 155 INCLUDE "mpif.h" 156 !/ 157 !/ ------------------------------------------------------------------- / 158 !/ Parameter list 159 !/ 698 INTEGER, INTENT(IN) :: RECL(3), NDAT(3) 699 REAL, INTENT(IN) :: DATA0(RECL(1),NDAT(1)) 700 REAL, INTENT(IN) :: DATA1(RECL(2),NDAT(2)) 701 REAL, INTENT(IN) :: DATA2(RECL(3),NDAT(3)) 702 LOGICAL, INTENT(IN) :: FLAGS(3) 703 !/ 704 !/ ------------------------------------------------------------------- / 705 !/ Local parameters : 706 !/ 707 INTEGER :: J 708 !/ 709 !/ ------------------------------------------------------------------- / Page 4 Source Listing W3WDAS 2014-09-16 16:49 w3wdasmd.f90 710 ! 1. Initializations and test output 711 ! 1.a Subroutine tracing 712 ! 713 ! 1.b Echo part of parameter list (test output only). 714 ! 715 ! 1.c Test grid info from W3GDATMD 716 ! 717 ! 2. Actual data assimilation routine ------------------------------- / 718 ! 719 ! User-defined data assimilation routines to be plugged in here. 720 ! All that could be needed is avainalble in this subroutine, 721 ! including the grid definition from W3GDATMD. All 722 ! can thus be included in the parameter list, and no explcit links 723 ! to other WAVEWATCH III routines will be needed within the 724 ! data assimilation routines ( with the possible exception of the 725 ! CONSTANTS module ), If there is a reason to terminate the code, 726 ! pass an error code out of the routine and use EXTCDE to stop 727 ! the WAVEWATCH III run altogether. Check the system documentation 728 ! on how to ad your routines to the compile and link system. 729 ! 730 ! CALL ..... 731 ! 732 ! IF ( ..... ) CALL EXTCDE ( 99 ) 733 ! 734 RETURN 735 ! 736 ! Formats 737 ! 738 !1000 FORMAT (/' *** WAVEWATCH III ERROR IN W3WDAS :'/ & 739 ! ' ILLIGAL GRID SIZES INPUT : ',4I8/ & 740 ! ' GRID : ',4I8/) 741 ! 742 !/ 743 !/ End of W3WDAS ----------------------------------------------------- / 744 !/ 745 END SUBROUTINE W3WDAS Page 5 Source Listing W3WDAS 2014-09-16 16:49 Entry Points w3wdasmd.f90 ENTRY POINTS Name w3wdasmd_mp_w3wdas_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA0 Dummy 85 R(4) 4 2 0 ARG,IN DATA1 Dummy 85 R(4) 4 2 0 ARG,IN DATA2 Dummy 85 R(4) 4 2 0 ARG,IN FLAGS Dummy 85 L(4) 4 1 3 ARG,IN IAPROC Local 150 I(4) 4 scalar PTR 150 J Local 169 I(4) 4 scalar MPIPRIV1 Common 532 28 MPIPRIV2 Common 534 24 MPIPRIVC Common 537 2 MPI_2COMPLEX Param 332 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 338 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 334 I(4) 4 scalar MPI_2INT Param 415 I(4) 4 scalar MPI_2INTEGER Param 330 I(4) 4 scalar MPI_2REAL Param 336 I(4) 4 scalar MPI_ADDRESS_KIND Param 372 I(4) 4 scalar MPI_ANY_SOURCE Param 300 I(4) 4 scalar MPI_ANY_TAG Param 302 I(4) 4 scalar MPI_APPNUM Param 269 I(4) 4 scalar MPI_ARGVS_NULL Scalar 83 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 84 CHAR 1 1 1 COM MPI_BAND Param 217 I(4) 4 scalar MPI_BOR Param 221 I(4) 4 scalar MPI_BOTTOM Scalar 517 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 296 I(4) 4 scalar MPI_BXOR Param 225 I(4) 4 scalar MPI_BYTE Param 342 I(4) 4 scalar MPI_CART Param 308 I(4) 4 scalar MPI_CHAR Param 375 I(4) 4 scalar MPI_CHARACTER Param 340 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 423 I(4) 4 scalar MPI_COMBINER_DARRAY Param 445 I(4) 4 scalar MPI_COMBINER_DUP Param 421 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 449 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 451 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 447 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 435 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 433 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 429 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 427 I(4) 4 scalar MPI_COMBINER_INDEXED Param 431 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 437 I(4) 4 scalar Page 6 Source Listing W3WDAS 2014-09-16 16:49 Symbol Table w3wdasmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_NAMED Param 419 I(4) 4 scalar MPI_COMBINER_RESIZED Param 453 I(4) 4 scalar MPI_COMBINER_STRUCT Param 441 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 439 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 443 I(4) 4 scalar MPI_COMBINER_VECTOR Param 425 I(4) 4 scalar MPI_COMM_DUP_FN Subr 521 scalar MPI_COMM_NULL Param 239 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 522 scalar MPI_COMM_NULL_DELETE_FN Subr 521 scalar MPI_COMM_SELF Param 235 I(4) 4 scalar MPI_COMM_WORLD Param 233 I(4) 4 scalar MPI_COMPLEX Param 318 I(4) 4 scalar MPI_COMPLEX16 Param 368 I(4) 4 scalar MPI_COMPLEX32 Param 370 I(4) 4 scalar MPI_COMPLEX8 Param 366 I(4) 4 scalar MPI_CONGRUENT Param 201 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 527 scalar MPI_DATATYPE_NULL Param 249 I(4) 4 scalar 359 MPI_DISPLACEMENT_CURRENT Param 515 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 507 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 509 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 513 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 511 I(4) 4 scalar MPI_DOUBLE Param 397 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 320 I(4) 4 scalar MPI_DOUBLE_INT Param 409 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 326 I(4) 4 scalar MPI_DUP_FN Subr 518 scalar MPI_ERRCODES_IGNORE Scalar 82 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 253 I(4) 4 scalar MPI_ERROR Param 76 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 195 I(4) 4 scalar MPI_ERRORS_RETURN Param 197 I(4) 4 scalar MPI_ERR_ACCESS Param 189 I(4) 4 scalar MPI_ERR_AMODE Param 173 I(4) 4 scalar MPI_ERR_ARG Param 109 I(4) 4 scalar MPI_ERR_ASSERT Param 131 I(4) 4 scalar MPI_ERR_BAD_FILE Param 163 I(4) 4 scalar MPI_ERR_BASE Param 97 I(4) 4 scalar MPI_ERR_BUFFER Param 115 I(4) 4 scalar MPI_ERR_COMM Param 137 I(4) 4 scalar MPI_ERR_CONVERSION Param 193 I(4) 4 scalar MPI_ERR_COUNT Param 93 I(4) 4 scalar MPI_ERR_DIMS Param 179 I(4) 4 scalar MPI_ERR_DISP Param 125 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 117 I(4) 4 scalar MPI_ERR_FILE Param 91 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 133 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 165 I(4) 4 scalar MPI_ERR_GROUP Param 145 I(4) 4 scalar MPI_ERR_INFO Param 159 I(4) 4 scalar MPI_ERR_INFO_KEY Param 103 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 129 I(4) 4 scalar Page 7 Source Listing W3WDAS 2014-09-16 16:49 Symbol Table w3wdasmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_INFO_VALUE Param 153 I(4) 4 scalar MPI_ERR_INTERN Param 185 I(4) 4 scalar MPI_ERR_IN_STATUS Param 101 I(4) 4 scalar MPI_ERR_IO Param 187 I(4) 4 scalar MPI_ERR_KEYVAL Param 139 I(4) 4 scalar MPI_ERR_LASTCODE Param 121 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 105 I(4) 4 scalar MPI_ERR_NAME Param 141 I(4) 4 scalar MPI_ERR_NOT_SAME Param 155 I(4) 4 scalar MPI_ERR_NO_MEM Param 161 I(4) 4 scalar MPI_ERR_NO_SPACE Param 191 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 181 I(4) 4 scalar MPI_ERR_OP Param 107 I(4) 4 scalar MPI_ERR_OTHER Param 87 I(4) 4 scalar MPI_ERR_PENDING Param 135 I(4) 4 scalar MPI_ERR_PORT Param 127 I(4) 4 scalar MPI_ERR_QUOTA Param 171 I(4) 4 scalar MPI_ERR_RANK Param 177 I(4) 4 scalar MPI_ERR_READ_ONLY Param 111 I(4) 4 scalar MPI_ERR_REQUEST Param 143 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 99 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 157 I(4) 4 scalar MPI_ERR_ROOT Param 175 I(4) 4 scalar MPI_ERR_SERVICE Param 183 I(4) 4 scalar MPI_ERR_SIZE Param 113 I(4) 4 scalar MPI_ERR_SPAWN Param 95 I(4) 4 scalar MPI_ERR_TAG Param 151 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 147 I(4) 4 scalar MPI_ERR_TRUNCATE Param 123 I(4) 4 scalar MPI_ERR_TYPE Param 149 I(4) 4 scalar MPI_ERR_UNKNOWN Param 167 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 119 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 169 I(4) 4 scalar MPI_ERR_WIN Param 89 I(4) 4 scalar MPI_FILE_NULL Param 243 I(4) 4 scalar MPI_FLOAT Param 395 I(4) 4 scalar MPI_FLOAT_INT Param 407 I(4) 4 scalar MPI_GRAPH Param 306 I(4) 4 scalar MPI_GROUP_EMPTY Param 237 I(4) 4 scalar MPI_GROUP_NULL Param 245 I(4) 4 scalar MPI_HOST Param 259 I(4) 4 scalar MPI_IDENT Param 199 I(4) 4 scalar MPI_INFO_NULL Param 255 I(4) 4 scalar MPI_INT Param 387 I(4) 4 scalar MPI_INTEGER Param 328 I(4) 4 scalar MPI_INTEGER1 Param 350 I(4) 4 scalar MPI_INTEGER16 Param 358 I(4) 4 scalar MPI_INTEGER2 Param 352 I(4) 4 scalar MPI_INTEGER4 Param 354 I(4) 4 scalar MPI_INTEGER8 Param 356 I(4) 4 scalar MPI_IN_PLACE Scalar 517 I(4) 4 scalar COM MPI_IO Param 261 I(4) 4 scalar MPI_KEYVAL_INVALID Param 294 I(4) 4 scalar Page 8 Source Listing W3WDAS 2014-09-16 16:49 Symbol Table w3wdasmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LAND Param 215 I(4) 4 scalar MPI_LASTUSEDCODE Param 267 I(4) 4 scalar MPI_LB Param 346 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 314 I(4) 4 scalar MPI_LOCK_SHARED Param 316 I(4) 4 scalar MPI_LOGICAL Param 322 I(4) 4 scalar MPI_LONG Param 391 I(4) 4 scalar MPI_LONG_DOUBLE Param 399 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 417 I(4) 4 scalar MPI_LONG_INT Param 411 I(4) 4 scalar MPI_LONG_LONG Param 405 I(4) 4 scalar MPI_LONG_LONG_INT Param 401 I(4) 4 scalar MPI_LOR Param 219 I(4) 4 scalar MPI_LXOR Param 223 I(4) 4 scalar MPI_MAX Param 207 I(4) 4 scalar MPI_MAXLOC Param 229 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 289 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 277 I(4) 4 scalar MPI_MAX_INFO_KEY Param 283 I(4) 4 scalar MPI_MAX_INFO_VAL Param 285 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 281 I(4) 4 scalar MPI_MAX_PORT_NAME Param 279 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 287 I(4) 4 scalar MPI_MIN Param 209 I(4) 4 scalar MPI_MINLOC Param 227 I(4) 4 scalar MPI_MODE_APPEND Param 493 I(4) 4 scalar MPI_MODE_CREATE Param 489 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 485 I(4) 4 scalar MPI_MODE_EXCL Param 491 I(4) 4 scalar MPI_MODE_NOCHECK Param 461 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 467 I(4) 4 scalar MPI_MODE_NOPUT Param 465 I(4) 4 scalar MPI_MODE_NOSTORE Param 463 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 469 I(4) 4 scalar MPI_MODE_RDONLY Param 479 I(4) 4 scalar MPI_MODE_RDWR Param 481 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 495 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 487 I(4) 4 scalar MPI_MODE_WRONLY Param 483 I(4) 4 scalar MPI_NULL_COPY_FN Subr 518 scalar MPI_NULL_DELETE_FN Subr 518 scalar MPI_OFFSET_KIND Param 372 I(4) 4 scalar MPI_OP_NULL Param 247 I(4) 4 scalar MPI_ORDER_C Param 503 I(4) 4 scalar MPI_ORDER_FORTRAN Param 505 I(4) 4 scalar MPI_PACKED Param 348 I(4) 4 scalar MPI_PROC_NULL Param 298 I(4) 4 scalar MPI_PROD Param 213 I(4) 4 scalar MPI_REAL Param 324 I(4) 4 scalar MPI_REAL16 Param 364 I(4) 4 scalar MPI_REAL4 Param 360 I(4) 4 scalar MPI_REAL8 Param 362 I(4) 4 scalar MPI_REPLACE Param 231 I(4) 4 scalar MPI_REQUEST_NULL Param 251 I(4) 4 scalar MPI_ROOT Param 304 I(4) 4 scalar Page 9 Source Listing W3WDAS 2014-09-16 16:49 Symbol Table w3wdasmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SEEK_CUR Param 499 I(4) 4 scalar MPI_SEEK_END Param 501 I(4) 4 scalar MPI_SEEK_SET Param 497 I(4) 4 scalar MPI_SHORT Param 383 I(4) 4 scalar MPI_SHORT_INT Param 413 I(4) 4 scalar MPI_SIGNED_CHAR Param 377 I(4) 4 scalar MPI_SIMILAR Param 203 I(4) 4 scalar MPI_SOURCE Param 76 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 81 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 80 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 78 I(4) 4 scalar 80,81 MPI_SUBVERSION Param 312 I(4) 4 scalar MPI_SUCCESS Param 85 I(4) 4 scalar MPI_SUM Param 211 I(4) 4 scalar MPI_TAG Param 76 I(4) 4 scalar MPI_TAG_UB Param 257 I(4) 4 scalar MPI_THREAD_FUNNELED Param 473 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 477 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 475 I(4) 4 scalar MPI_THREAD_SINGLE Param 471 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 459 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 457 I(4) 4 scalar MPI_TYPECLASS_REAL Param 455 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 525 scalar MPI_TYPE_NULL_COPY_FN Subr 526 scalar MPI_TYPE_NULL_DELETE_FN Subr 525 scalar MPI_UB Param 344 I(4) 4 scalar MPI_UNDEFINED Param 291 I(4) 4 scalar MPI_UNDEFINED_RANK Param 291 I(4) 4 scalar MPI_UNEQUAL Param 205 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 265 I(4) 4 scalar MPI_UNSIGNED Param 389 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 379 I(4) 4 scalar MPI_UNSIGNED_LONG Param 393 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 403 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 385 I(4) 4 scalar MPI_VERSION Param 310 I(4) 4 scalar MPI_WCHAR Param 381 I(4) 4 scalar MPI_WIN_BASE Param 271 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 275 I(4) 4 scalar MPI_WIN_DUP_FN Subr 523 scalar MPI_WIN_NULL Param 241 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 524 scalar MPI_WIN_NULL_DELETE_FN Subr 523 scalar MPI_WIN_SIZE Param 273 I(4) 4 scalar MPI_WTICK Func 519 R(8) 8 scalar MPI_WTIME Func 519 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 263 I(4) 4 scalar NAPERR Local 151 I(4) 4 scalar PTR 151 NAPLOG Local 151 I(4) 4 scalar PTR 151 NAPOUT Local 151 I(4) 4 scalar PTR 151 NAPROC Local 150 I(4) 4 scalar PTR 150 NDAT Dummy 85 I(4) 4 1 3 ARG,IN 161,162,163 NDSE Local 150 I(4) 4 scalar PTR 150 NDSO Local 150 I(4) 4 scalar PTR 150 Page 10 Source Listing W3WDAS 2014-09-16 16:49 Symbol Table w3wdasmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References NDST Local 150 I(4) 4 scalar PTR 150 PMPI_WTICK Func 520 R(8) 8 scalar PMPI_WTIME Func 520 R(8) 8 scalar RECL Dummy 85 I(4) 4 1 3 ARG,IN 161,162,163 SCREEN Local 150 I(4) 4 scalar PTR 150 W3ADATMD Module 149 149 W3GDATMD Module 147 147 W3ODATMD Module 150 150 W3WDAS Subr 85 W3WDATMD Module 148 148 Page 11 Source Listing W3WDAS 2014-09-16 16:49 w3wdasmd.f90 746 !/ 747 !/ End of module W3WDASMD -------------------------------------------- / 748 !/ 749 END MODULE W3WDASMD SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References W3WDASMD Module 2 Page 12 Source Listing W3WDAS 2014-09-16 16:49 Subprograms/Common Blocks w3wdasmd.f90 SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References MPIPRIV1 Common 532 28 MPIPRIV2 Common 534 24 MPIPRIVC Common 537 2 W3WDAS Subr 85 W3WDASMD 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 cc_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 _OPENMP=201107 -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 Page 13 Source Listing W3WDAS 2014-09-16 16:49 w3wdasmd.f90 no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -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 -openmp -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded 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 : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/usrx/local/intel/impi/4.0.3.008/intel64/include/, /usrx/local/intel/impi/4.0.3.008/intel64/include/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/gp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/gp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : w3wdasmd.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100