- 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/LIM_SRC_3/icedia.F90
r9019 r9124 72 72 REAL(wp) :: zdiff_vol, zdiff_sal, zdiff_tem 73 73 !!--------------------------------------------------------------------------- 74 IF( nn_timing == 1) CALL timing_start('ice_dia')74 IF( ln_timing ) CALL timing_start('ice_dia') 75 75 76 76 IF( kt == nit000 .AND. lwp ) THEN … … 156 156 IF( lrst_ice ) CALL ice_dia_rst( 'WRITE', kt_ice ) 157 157 ! 158 IF( nn_timing == 1) CALL timing_stop('ice_dia')158 IF( ln_timing ) CALL timing_stop('ice_dia') 159 159 ! 160 160 END SUBROUTINE ice_dia
Note: See TracChangeset
for help on using the changeset viewer.