- 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/iceforcing.F90
r9076 r9124 62 62 !!------------------------------------------------------------------- 63 63 64 IF( nn_timing == 1) CALL timing_start('ice_forcing')64 IF( ln_timing ) CALL timing_start('ice_forcing') 65 65 66 66 IF( kt == nit000 .AND. lwp ) THEN … … 87 87 ENDIF 88 88 89 IF( nn_timing == 1) CALL timing_stop('ice_forcing')89 IF( ln_timing ) CALL timing_stop('ice_forcing') 90 90 ! 91 91 END SUBROUTINE ice_forcing_tau … … 120 120 !!-------------------------------------------------------------------- 121 121 ! 122 IF( nn_timing == 1) CALL timing_start('ice_forcing_flx')122 IF( ln_timing ) CALL timing_start('ice_forcing_flx') 123 123 124 124 IF( kt == nit000 .AND. lwp ) THEN … … 165 165 ENDIF 166 166 ! 167 IF( nn_timing == 1) CALL timing_stop('ice_forcing_flx')167 IF( ln_timing ) CALL timing_stop('ice_forcing_flx') 168 168 ! 169 169 END SUBROUTINE ice_forcing_flx
Note: See TracChangeset
for help on using the changeset viewer.