Changeset 68 for trunk


Ignore:
Timestamp:
01/04/13 21:34:53 (11 years ago)
Author:
smasson
Message:

minor change in step and finaize timing

Location:
trunk/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r67 r68  
    8484   CHARACTER(lc) ::   cform_aaa="( /, 'AAAAAAAA', / ) "     ! flag for output listing 
    8585 
     86#if defined key_mpp_mpi 
     87   INCLUDE 'mpif.h' 
     88#endif 
    8689   !!---------------------------------------------------------------------- 
    8790   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    … …  
    106109      !!---------------------------------------------------------------------- 
    107110      INTEGER ::   istp       ! time step index 
     111      REAL(kind=wp)  ::   t_start 
    108112      !!---------------------------------------------------------------------- 
    109113      ! 
    … …  
    161165#endif 
    162166 
     167#if defined key_mpp_mpi 
     168      t_start = MPI_Wtime() 
     169#endif 
    163170      IF( lk_diaobs ) CALL dia_obs_wri 
    164171        
    … …  
    193200      IF( lk_mpp )   CALL mppstop       ! end mpp communications 
    194201# endif 
     202#endif 
     203#if defined key_mpp_mpi 
     204      IF( lwp ) WRITE(*,'(a, i6, f10.5)') 'step finaize ', MPI_WTIME() - t_start 
    195205#endif 
    196206      ! 

  • trunk/NEMOGCM/NEMO/OPA_SRC/step.F90

    r65 r68  
    4040   PRIVATE 
    4141 
    42 #if defined key_mpp_mpi 
    43    INCLUDE 'mpif.h' 
    44 #endif 
    4542   PUBLIC   stp   ! called by opa.F90 
    4643 
    … …  
    4845#  include "domzgr_substitute.h90" 
    4946#  include "zdfddm_substitute.h90" 
     47#if defined key_mpp_mpi 
     48   INCLUDE 'mpif.h' 
     49#endif 
    5050   !!---------------------------------------------------------------------- 
    5151   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    … …  
    274274      IF( nn_timing == 1 .AND.  kstp == nit000  )   CALL timing_reset 
    275275      ! 
     276#if defined key_iomput 
     277      IF( kstp == nitend )   CALL xios_context_finalize() 
     278#endif 
     279      ! 
    276280#if defined key_mpp_mpi 
    277281      IF( lwp ) WRITE(numout,'(a, i6, f10.5)') 'step timing ', kstp, MPI_WTIME() - t_start 
    278282#endif 
    279283      ! 
    280 #if defined key_iomput 
    281       IF( kstp == nitend )   CALL xios_context_finalize() 
    282 #endif 
    283       ! 
    284284   END SUBROUTINE stp 
    285285 
Note: See TracChangeset for help on using the changeset viewer.