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/LIM_SRC_3/icecor.F90 – NEMO

Ignore:
Timestamp:
2017-12-19T09:26:25+01:00 (5 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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icecor.F90

    r9019 r9124  
    5757      !!---------------------------------------------------------------------- 
    5858      ! controls 
    59       IF( nn_timing == 1 )   CALL timing_start('icecor')                                                             ! timing 
    60       IF( ln_icediachk   )   CALL ice_cons_hsm(0, 'icecor', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
     59      IF( ln_timing    )   CALL timing_start('icecor')                                                             ! timing 
     60      IF( ln_icediachk )   CALL ice_cons_hsm(0, 'icecor', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
    6161      ! 
    6262      IF( kt == nit000 .AND. lwp .AND. kn == 2 ) THEN 
     
    178178      IF( ln_ctl         )   CALL ice_prt3D   ('icecor')                                                             ! prints 
    179179      IF( ln_icectl .AND. kn == 2 )   CALL ice_prt( kt, iiceprt, jiceprt, 2, ' - Final state - ' )                   ! prints 
    180       IF( nn_timing == 1 )   CALL timing_stop ('icecor')                                                             ! timing 
     180      IF( ln_timing      )   CALL timing_stop ('icecor')                                                             ! timing 
    181181      ! 
    182182   END SUBROUTINE ice_cor 
Note: See TracChangeset for help on using the changeset viewer.