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/OPA_SRC/SBC/sbcblk_algo_ncar.F90 – 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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_algo_ncar.F90

    r9019 r9124  
    3535   USE lib_mpp         ! distribued memory computing library 
    3636   USE wrk_nemo        ! work arrays 
    37    USE timing          ! Timing 
    3837   USE in_out_manager  ! I/O manager 
    3938   USE prtctl          ! Print control 
     
    127126      !!---------------------------------------------------------------------------------- 
    128127      ! 
    129       IF( nn_timing == 1 )   CALL timing_start('turb_ncar') 
    130       ! 
    131128      CALL wrk_alloc( jpi,jpj,   Cx_n10, sqrt_Cd_n10, zeta_u, stab ) 
    132129      CALL wrk_alloc( jpi,jpj,   zpsi_h_u, ztmp0, ztmp1, ztmp2 ) 
     
    229226      CALL wrk_dealloc( jpi,jpj,   zpsi_h_u, ztmp0, ztmp1, ztmp2 ) 
    230227      ! 
    231       IF( nn_timing == 1 )   CALL timing_stop('turb_ncar') 
    232       ! 
    233228   END SUBROUTINE turb_ncar 
    234229 
Note: See TracChangeset for help on using the changeset viewer.