- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90
r9019 r9124 89 89 !!---------------------------------------------------------------------- 90 90 ! 91 IF( nn_timing == 1 )CALL timing_start('trc_dmp')91 IF( ln_timing ) CALL timing_start('trc_dmp') 92 92 ! 93 93 IF( l_trdtrc ) CALL wrk_alloc( jpi, jpj, jpk, ztrtrd ) ! temporary save of trends … … 161 161 ENDIF 162 162 ! 163 IF( nn_timing == 1 )CALL timing_stop('trc_dmp')163 IF( ln_timing ) CALL timing_stop('trc_dmp') 164 164 ! 165 165 END SUBROUTINE trc_dmp … … 179 179 NAMELIST/namtrc_dmp/ nn_zdmp_tr , cn_resto_tr 180 180 !!---------------------------------------------------------------------- 181 !182 IF( nn_timing == 1 ) CALL timing_start('trc_dmp_ini')183 181 ! 184 182 REWIND( numnat_ref ) ! Namelist namtrc_dmp in reference namelist : Passive tracers newtonian damping … … 222 220 ! 223 221 ENDIF 224 IF( nn_timing == 1 ) CALL timing_stop('trc_dmp_ini')225 222 ! 226 223 END SUBROUTINE trc_dmp_ini
Note: See TracChangeset
for help on using the changeset viewer.