Page 1 Source Listing WMFINL 2014-09-16 16:49 wmfinlmd.f90 1 !/ ------------------------------------------------------------------- / 2 MODULE WMFINLMD 3 !/ 4 !/ +-----------------------------------+ 5 !/ | WAVEWATCH III NOAA/NCEP | 6 !/ | H. L. Tolman | 7 !/ | FORTRAN 90 | 8 !/ | Last update : 03-Sep-2012 | 9 !/ +-----------------------------------+ 10 !/ 11 !/ 06-May-2005 : Origination. ( version 3.07 ) 12 !/ 29-May-2009 : Preparing distribution version. ( version 3.14 ) 13 !/ 03-Sep-2012 : Output of initilization time. ( version 4.10 ) 14 !/ 15 !/ Copyright 2009-2012 National Weather Service (NWS), 16 !/ National Oceanic and Atmospheric Administration. All rights 17 !/ reserved. WAVEWATCH III is a trademark of the NWS. 18 !/ No unauthorized use without permission. 19 !/ 20 ! 1. Purpose : 21 ! 22 ! Finalization of the multi-grid wave model. 23 ! 24 ! 2. Variables and types : 25 ! 26 ! Name Type Scope Description 27 ! ---------------------------------------------------------------- 28 ! ---------------------------------------------------------------- 29 ! 30 ! 3. Subroutines and functions : 31 ! 32 ! Name Type Scope Description 33 ! ---------------------------------------------------------------- 34 ! WMFINL Subr. Public Wave model initialization. 35 ! ---------------------------------------------------------------- 36 ! 37 ! 4. Subroutines and functions used : 38 ! 39 ! See subroutine documentation. 40 ! 41 ! 5. Remarks : 42 ! 43 ! 6. Switches : 44 ! 45 ! See subroutine documentation. 46 ! 47 ! 7. Source code : 48 ! 49 !/ ------------------------------------------------------------------- / 50 PUBLIC 51 !/ 52 CONTAINS 53 !/ ------------------------------------------------------------------- / 54 SUBROUTINE WMFINL 55 !/ 56 !/ +-----------------------------------+ 57 !/ | WAVEWATCH III NOAA/NCEP | Page 2 Source Listing WMFINL 2014-09-16 16:49 wmfinlmd.f90 58 !/ | H. L. Tolman | 59 !/ | FORTRAN 90 | 60 !/ | Last update : 06-May-2005 | 61 !/ +-----------------------------------+ 62 !/ 63 !/ 06-May-2005 : Origination. ( version 3.07 ) 64 !/ 03-Sep-2012 : Output of initilization time. ( version 4.10 ) 65 !/ 66 ! 1. Purpose : 67 ! 68 ! Initialize multi-grid version of WAVEWATCH III. 69 ! 70 ! 2. Method : 71 ! 72 ! 3. Parameters : 73 ! 74 ! Parameter list 75 ! ---------------------------------------------------------------- 76 ! ---------------------------------------------------------------- 77 ! 78 ! 4. Subroutines used : 79 ! 80 ! Name Type Module Description 81 ! ---------------------------------------------------------------- 82 ! PRTIME Subr. W3SERVMD Profiling routine ( !/MPRF ) 83 ! MPI_BARRIER 84 ! Subr. Standard MPI routines. 85 ! ---------------------------------------------------------------- 86 ! 87 ! 5. Called by : 88 ! 89 ! Name Type Module Description 90 ! ---------------------------------------------------------------- 91 ! WW3_MULTI Prog. N/A Multi-grid model driver. 92 ! .... Any coupled model. 93 ! ---------------------------------------------------------------- 94 ! 95 ! 6. Error messages : 96 ! 97 ! 7. Remarks : 98 ! 99 ! 8. Structure : 100 ! 101 ! See source code. 102 ! 103 ! 9. Switches : 104 ! 105 ! !/MPI MPI routines. 106 ! 107 ! !/O10 Enable output identifying start and end of routine 108 ! 109 ! !/F90 FORTRAN 90 specific extensions. 110 ! 111 ! !/S Enable subroutine tracing. 112 ! !/T Enable test output 113 ! !/MPRF Profiling. 114 ! Page 3 Source Listing WMFINL 2014-09-16 16:49 wmfinlmd.f90 115 ! 10. Source code : 116 ! 117 !/ ------------------------------------------------------------------- / 118 USE WMMDATMD, ONLY: MDSS, MDSO, NMPSCR, NMPLOG, IMPROC 119 USE WMMDATMD, ONLY: CLKT0, CLKTN, CLKINC, CLKMAX, CLKFIN 120 USE WMMDATMD, ONLY: MPI_COMM_MWAVE 121 !/ 122 !/ 123 IMPLICIT NONE 124 ! 125 INCLUDE "mpif.h" 126 !/ 127 !/ ------------------------------------------------------------------- / 128 !/ Parameter list 129 !/ 130 !/ 131 !/ ------------------------------------------------------------------- / 132 !/ Local parameters 133 !/ 672 INTEGER :: CLKDT 673 INTEGER :: IERR_MPI 674 !/ 675 !/ ------------------------------------------------------------------- / 676 ! 1. Identification at start 677 ! 678 !/ ------------------------------------------------------------------- / 679 ! 2. Finalization 680 ! 681 CALL MPI_BARRIER ( MPI_COMM_MWAVE, IERR_MPI ) 682 ! 683 IF ( CLKMAX .NE. 0 ) THEN 684 IF ( MDSS.NE.MDSO .AND. NMPSCR.EQ.IMPROC ) & 685 WRITE (MDSS,920) CLKFIN 686 IF ( NMPLOG.EQ.IMPROC ) WRITE (MDSO,920) CLKFIN 687 END IF 688 ! 689 CALL SYSTEM_CLOCK ( CLKTN, CLKINC ) 690 ! 691 IF ( CLKMAX .NE. 0 ) THEN 692 IF ( CLKTN-CLKT0 .GE. 0 ) THEN 693 CLKDT = CLKTN-CLKT0 694 ELSE 695 CLKDT = CLKTN-CLKT0 + CLKMAX 696 END IF 697 CLKFIN = REAL(CLKDT)/REAL(CLKINC) 698 IF ( MDSS.NE.MDSO .AND. NMPSCR.EQ.IMPROC ) & 699 WRITE (MDSS,921) CLKFIN 700 IF ( NMPLOG.EQ.IMPROC ) WRITE (MDSO,921) CLKFIN 701 END IF 702 ! 703 !/ ------------------------------------------------------------------- / 704 ! 3. Identification at end 705 ! 706 RETURN 707 ! 708 ! Formats 709 ! Page 4 Source Listing WMFINL 2014-09-16 16:49 wmfinlmd.f90 710 900 FORMAT ( ' ========== STARTING MWW3 FINALIZATION (WMFINL) ===', & 711 '============================' ) 712 920 FORMAT (/' Initialization time :',F10.2,' s') 713 921 FORMAT ( ' Elapsed time :',F10.2,' s') 714 715 ! 716 999 FORMAT (/' ========== END OF MWW3 INITIALIZATION (WMFINL) ===', & 717 '============================'/) 718 !/ 719 !/ End of WMFINL ----------------------------------------------------- / 720 !/ 721 END SUBROUTINE WMFINL ENTRY POINTS Name wmfinlmd_mp_wmfinl_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 900 Label 172 920 Label 174 147,148 921 Label 175 161,162 999 Label 178 CLKDT Local 134 I(4) 4 scalar 155,157,159 CLKFIN Local 119 R(4) 4 scalar 119,147,148,159,161,162 CLKINC Local 119 I(4) 4 scalar 119,151,159 CLKMAX Local 119 I(4) 4 scalar 119,145,153,157 CLKT0 Local 119 I(4) 4 scalar 119,154,155,157 CLKTN Local 119 I(4) 4 scalar 119,151,154,155,157 IERR_MPI Local 135 I(4) 4 scalar 143 IMPROC Local 118 I(4) 4 scalar 118,146,148,160,162 MDSO Local 118 I(4) 4 scalar 118,146,148,160,162 MDSS Local 118 I(4) 4 scalar 118,146,147,160,161 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_BARRIER Subr 143 143 MPI_BOR Param 221 I(4) 4 scalar Page 5 Source Listing WMFINL 2014-09-16 16:49 Symbol Table wmfinlmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References 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 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_MWAVE Local 120 I(4) 4 scalar 120,143 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 Page 6 Source Listing WMFINL 2014-09-16 16:49 Symbol Table wmfinlmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 Page 7 Source Listing WMFINL 2014-09-16 16:49 Symbol Table wmfinlmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 Page 8 Source Listing WMFINL 2014-09-16 16:49 Symbol Table wmfinlmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 Page 9 Source Listing WMFINL 2014-09-16 16:49 Symbol Table wmfinlmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References 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 NMPLOG Local 118 I(4) 4 scalar 118,148,162 NMPSCR Local 118 I(4) 4 scalar 118,146,160 PMPI_WTICK Func 520 R(8) 8 scalar PMPI_WTIME Func 520 R(8) 8 scalar REAL Func 159 scalar 159 SYSTEM_CLOCK Intrin 151 151 WMFINL Subr 54 WMMDATMD Module 118 118,119,120 Page 10 Source Listing WMFINL 2014-09-16 16:49 wmfinlmd.f90 722 !/ 723 !/ End of module WMFINLMD -------------------------------------------- / 724 !/ 725 END MODULE WMFINLMD SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References WMFINLMD Module 2 Page 11 Source Listing WMFINL 2014-09-16 16:49 Subprograms/Common Blocks wmfinlmd.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 WMFINL Subr 54 WMFINLMD 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 12 Source Listing WMFINL 2014-09-16 16:49 wmfinlmd.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 : wmfinlmd.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100