New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OFF_SRC – NEMO

Ignore:
Timestamp:
2017-12-19T09:26:25+01:00 (6 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/NEMO/OFF_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

    r9019 r9124  
    105105      !!             - interpolates data if needed 
    106106      !!---------------------------------------------------------------------- 
    107       ! 
    108107      USE oce, ONLY:  zhdivtr => ua 
    109108      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
    110109      INTEGER             ::   ji, jj, jk 
    111110      REAL(wp), POINTER, DIMENSION(:,:)   :: zemp 
    112       ! 
    113       !!---------------------------------------------------------------------- 
    114        
    115       ! 
    116       IF( nn_timing == 1 )  CALL timing_start( 'dta_dyn') 
     111      !!---------------------------------------------------------------------- 
     112      ! 
     113      IF( ln_timing )   CALL timing_start( 'dta_dyn') 
    117114      ! 
    118115      nsecdyn = nsec_year + nsec1jan000   ! number of seconds between Jan. 1st 00h of nit000 year and the middle of time step 
     
    195192      ENDIF 
    196193      ! 
    197       IF( nn_timing == 1 )  CALL timing_stop( 'dta_dyn') 
     194      IF( ln_timing )   CALL timing_stop( 'dta_dyn') 
    198195      ! 
    199196   END SUBROUTINE dta_dyn 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r9019 r9124  
    130130      ENDIF 
    131131      ! 
    132       IF( nn_timing == 1 )   CALL timing_finalize 
     132      IF( ln_timing )   CALL timing_finalize 
    133133      ! 
    134134      CALL nemo_closefile 
     
    380380      isplt     = nn_isplt 
    381381      jsplt     = nn_jsplt 
    382 !!gm to be remove at the end of the 2017 merge party 
    383       if( ln_timing ) then  ;  nn_timing = 1 
    384       else                  ;  nn_timing = 0 
    385       endif 
    386 !!gm end 
    387  
    388382 
    389383      IF(lwp) THEN                  ! control print 
Note: See TracChangeset for help on using the changeset viewer.