- 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/icedyn_adv.F90
r9019 r9124 70 70 !!--------------------------------------------------------------------- 71 71 ! 72 IF( nn_timing == 1 )CALL timing_start('icedyn_adv')72 IF( ln_timing ) CALL timing_start('icedyn_adv') 73 73 ! 74 74 IF( kt == nit000 .AND. lwp ) THEN … … 112 112 113 113 ! controls 114 IF( ln_icediachk 115 IF( ln_icectl 116 IF( nn_timing == 1) CALL timing_stop ('icedyn_adv') ! timing114 IF( ln_icediachk ) CALL ice_cons_hsm(1, 'icedyn_adv', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 115 IF( ln_icectl ) CALL ice_prt (kt, iiceprt, jiceprt,-1, ' - ice dyn & trp - ') ! prints 116 IF( ln_timing ) CALL timing_stop ('icedyn_adv') ! timing 117 117 ! 118 118 END SUBROUTINE ice_dyn_adv
Note: See TracChangeset
for help on using the changeset viewer.