- 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_rdgrft.F90
r9019 r9124 138 138 !!------------------------------------------------------------------- 139 139 ! controls 140 IF( nn_timing == 1) CALL timing_start('icedyn_rdgrft') ! timing141 IF( ln_icediachk 140 IF( ln_timing ) CALL timing_start('icedyn_rdgrft') ! timing 141 IF( ln_icediachk ) CALL ice_cons_hsm(0, 'icedyn_rdgrft', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 142 142 143 143 IF( kt == nit000 ) THEN … … 338 338 339 339 ! controls 340 IF( ln_icediachk 341 IF( ln_ctl 342 IF( nn_timing == 1) CALL timing_stop ('icedyn_rdgrft') ! timing340 IF( ln_icediachk ) CALL ice_cons_hsm(1, 'icedyn_rdgrft', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 341 IF( ln_ctl ) CALL ice_prt3D ('icedyn_rdgrft') ! prints 342 IF( ln_timing ) CALL timing_stop ('icedyn_rdgrft') ! timing 343 343 ! 344 344 END SUBROUTINE ice_dyn_rdgrft
Note: See TracChangeset
for help on using the changeset viewer.