Ignore:
Timestamp:
2017-12-19T09:26:25+01:00 (4 years ago)
Author:
gm
Message:

dev_merge_2017: ln_timing instead of nn_timing + restricted timing to nemo_init and routine called by step in OPA_SRC

Location:
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES
Files:
10 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/LOCK_EXCHANGE/MY_SRC/usrdef_hgr.F90

    r6960 r9124  
    2020   USE in_out_manager  ! I/O manager 
    2121   USE lib_mpp         ! MPP library 
    22    USE timing          ! Timing 
    2322    
    2423   IMPLICIT NONE 
     
    6766      !!------------------------------------------------------------------------------- 
    6867      ! 
    69       IF( nn_timing == 1 )  CALL timing_start('usr_def_hgr') 
    70       ! 
    7168      IF(lwp) WRITE(numout,*) 
    7269      IF(lwp) WRITE(numout,*) 'usr_def_hgr : LOCK_EXCHANGE configuration bassin' 
     
    107104      pff_t(:,:) = 0._wp 
    108105      ! 
    109       IF( nn_timing == 1 )  CALL timing_stop('usr_def_hgr') 
    110       ! 
    111106   END SUBROUTINE usr_def_hgr 
    112107 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/OVERFLOW/MY_SRC/usrdef_hgr.F90

    r6960 r9124  
    2020   USE in_out_manager  ! I/O manager 
    2121   USE lib_mpp         ! MPP library 
    22    USE timing          ! Timing 
    2322    
    2423   IMPLICIT NONE 
     
    6766      !!------------------------------------------------------------------------------- 
    6867      ! 
    69       IF( nn_timing == 1 )  CALL timing_start('usr_def_hgr') 
    70       ! 
    7168      IF(lwp) WRITE(numout,*) 
    7269      IF(lwp) WRITE(numout,*) 'usr_def_hgr : OVERFLOW configuration bassin' 
     
    107104      pff_t(:,:) = 0._wp 
    108105      ! 
    109       IF( nn_timing == 1 )  CALL timing_stop('usr_def_hgr') 
    110       ! 
    111106   END SUBROUTINE usr_def_hgr 
    112107 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/SAS_BIPER/MY_SRC/usrdef_hgr.F90

    r7819 r9124  
    2020   USE in_out_manager  ! I/O manager 
    2121   USE lib_mpp         ! MPP library 
    22    USE timing          ! Timing 
    2322    
    2423   IMPLICIT NONE 
     
    2928   !!---------------------------------------------------------------------- 
    3029   !! NEMO/OPA 4.0 , NEMO Consortium (2016) 
    31    !! $Id$  
     30   !! $Id:$  
    3231   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3332   !!---------------------------------------------------------------------- 
     
    6867      REAL(wp) ::   ztj, zuj, zvj, zfj   !   -      - 
    6968      !!------------------------------------------------------------------------------- 
    70       ! 
    71       IF( nn_timing == 1 )  CALL timing_start('usr_def_hgr') 
    7269      ! 
    7370      IF(lwp) WRITE(numout,*) 
     
    152149      pff_t(:,:) = 0._wp 
    153150      ! 
    154       IF( nn_timing == 1 )  CALL timing_stop('usr_def_hgr') 
    155       ! 
    156       END SUBROUTINE usr_def_hgr 
     151   END SUBROUTINE usr_def_hgr 
    157152 
    158153   !!====================================================================== 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/SAS_BIPER/MY_SRC/usrdef_zgr.F90

    r9019 r9124  
    2020   USE lbclnk         ! ocean lateral boundary conditions (or mpp link) 
    2121   USE lib_mpp        ! distributed memory computing library 
    22    USE wrk_nemo       ! Memory allocation 
    23    USE timing         ! Timing 
    2422 
    2523   IMPLICIT NONE 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/VORTEX/MY_SRC/usrdef_hgr.F90

    r9113 r9124  
    2020   USE in_out_manager  ! I/O manager 
    2121   USE lib_mpp         ! MPP library 
    22    USE timing          ! Timing 
    2322    
    2423   IMPLICIT NONE 
     
    6665      REAL(wp) ::   zti, zui, ztj, zvj   ! local scalars 
    6766      !!------------------------------------------------------------------------------- 
    68       ! 
    69       IF( nn_timing == 1 )  CALL timing_start('usr_def_hgr') 
    7067      ! 
    7168      IF(lwp) WRITE(numout,*) 
     
    129126      pff_t(:,:) = zf0 + zbeta * pphit(:,:) * 1.e+3 
    130127      ! 
    131       IF( nn_timing == 1 )  CALL timing_stop('usr_def_hgr') 
    132       ! 
    133       END SUBROUTINE usr_def_hgr 
     128   END SUBROUTINE usr_def_hgr 
    134129 
    135130   !!====================================================================== 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/VORTEX/MY_SRC/usrdef_zgr.F90

    r8703 r9124  
    2424   USE lib_mpp        ! distributed memory computing library 
    2525   USE wrk_nemo       ! Memory allocation 
    26    USE timing         ! Timing 
    2726 
    2827   IMPLICIT NONE 
     
    131130      !!---------------------------------------------------------------------- 
    132131      ! 
    133       IF( nn_timing == 1 )  CALL timing_start('zgr_z') 
    134       ! 
    135132      zd = 5000._wp/FLOAT(jpkm1) 
    136133      ! 
     
    168165      ENDIF 
    169166      ! 
    170       IF( nn_timing == 1 )  CALL timing_stop('zgr_z') 
    171       ! 
    172167   END SUBROUTINE zgr_z 
    173168 
     
    226221      INTEGER  ::   jk 
    227222      !!---------------------------------------------------------------------- 
    228       ! 
    229       IF( nn_timing == 1 )  CALL timing_start('zgr_zco') 
    230223      ! 
    231224      DO jk = 1, jpk 
     
    241234      END DO 
    242235      ! 
    243       IF( nn_timing == 1 )  CALL timing_stop('zgr_zco') 
    244       ! 
    245236   END SUBROUTINE zgr_zco 
    246237 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/bdyini.F90

    r9019 r9124  
    3030   USE iom            ! I/O 
    3131   USE wrk_nemo       ! Memory Allocation 
    32    USE timing         ! Timing 
    3332 
    3433   IMPLICIT NONE 
     
    4645   INTEGER, DIMENSION(jp_nseg) ::   jpjnob, jpindt, jpinft, npckgn   ! 
    4746   INTEGER, DIMENSION(jp_nseg) ::   jpjsob, jpisdt, jpisft, npckgs   ! 
     47 
    4848   !!---------------------------------------------------------------------- 
    4949   !! NEMO/OPA 3.7 , NEMO Consortium (2015) 
     
    7575      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    7676      !!---------------------------------------------------------------------- 
    77       ! 
    78       IF( nn_timing == 1 )   CALL timing_start('bdy_init') 
    7977 
    8078      ! ------------------------ 
     
    114112      ENDIF 
    115113      ! 
    116       IF( nn_timing == 1 )   CALL timing_stop('bdy_init') 
    117       ! 
    118114   END SUBROUTINE bdy_init 
     115 
    119116    
    120117   SUBROUTINE bdy_segs 
     
    159156      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    160157      !!---------------------------------------------------------------------- 
    161       ! 
    162       IF( nn_timing == 1 )   CALL timing_start('bdy_segs') 
    163158      ! 
    164159      cgrid = (/'t','u','v'/) 
     
    13251320      CALL wrk_dealloc(jpi,jpj,   zfmask )  
    13261321      ! 
    1327       IF( nn_timing == 1 )   CALL timing_stop('bdy_segs') 
    1328       ! 
    13291322   END SUBROUTINE bdy_segs 
     1323 
    13301324 
    13311325   SUBROUTINE bdy_ctl_seg 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/domain.F90

    r9024 r9124  
    4646   USE lib_mpp        ! distributed memory computing library 
    4747   USE wrk_nemo       ! Memory Allocation 
    48    USE timing         ! Timing 
    4948 
    5049   IMPLICIT NONE 
     
    8281      REAL(wp), DIMENSION(jpi,jpj) ::   z1_hu_0, z1_hv_0 
    8382      !!---------------------------------------------------------------------- 
    84       ! 
    85       IF( nn_timing == 1 )   CALL timing_start('dom_init') 
    8683      ! 
    8784      IF(lwp) THEN         ! Ocean domain Parameters (control print) 
     
    198195      ! 
    199196      IF( ln_write_cfg )   CALL cfg_write         ! create the configuration file 
    200       ! 
    201       IF( nn_timing == 1 )   CALL timing_stop('dom_init') 
    202197      ! 
    203198   END SUBROUTINE dom_init 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/usrdef_hgr.F90

    r7467 r9124  
    2020   USE in_out_manager  ! I/O manager 
    2121   USE lib_mpp         ! MPP library 
    22    USE timing          ! Timing 
    2322    
    2423   IMPLICIT NONE 
     
    6766      !!------------------------------------------------------------------------------- 
    6867      ! 
    69       IF( nn_timing == 1 )  CALL timing_start('usr_def_hgr') 
    70       ! 
    7168      IF(lwp) WRITE(numout,*) 
    7269      IF(lwp) WRITE(numout,*) 'usr_def_hgr : WAD_TEST_CASES configuration basin' 
     
    107104      pff_t(:,:) = 0._wp 
    108105      ! 
    109       IF( nn_timing == 1 )  CALL timing_stop('usr_def_hgr') 
    110       ! 
    111106   END SUBROUTINE usr_def_hgr 
    112107 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/usrdef_zgr.F90

    r9024 r9124  
    2525   USE lib_mpp        ! distributed memory computing library 
    2626   USE wrk_nemo       ! Memory allocation 
    27    USE timing         ! Timing 
    2827 
    2928   IMPLICIT NONE 
Note: See TracChangeset for help on using the changeset viewer.