- 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_rhg.F90
r9019 r9124 62 62 !!-------------------------------------------------------------------- 63 63 ! controls 64 IF( nn_timing == 1) CALL timing_start('icedyn_rhg') ! timing65 IF( ln_icediachk 64 IF( ln_timing ) CALL timing_start('icedyn_rhg') ! timing 65 IF( ln_icediachk ) CALL ice_cons_hsm(0, 'icedyn_rhg', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 66 66 ! 67 67 IF( kt == nit000 .AND. lwp ) THEN … … 87 87 ! 88 88 ! controls 89 IF( ln_icediachk 90 IF( ln_ctl 91 IF( nn_timing == 1) CALL timing_stop ('icedyn_rhg') ! timing89 IF( ln_icediachk ) CALL ice_cons_hsm(1, 'icedyn_rhg', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 90 IF( ln_ctl ) CALL ice_prt3D ('icedyn_rhg') ! prints 91 IF( ln_timing ) CALL timing_stop ('icedyn_rhg') ! timing 92 92 ! 93 93 END SUBROUTINE ice_dyn_rhg 94 94 95 95 96 SUBROUTINE ice_dyn_rhg_init … … 116 117 REWIND( numnam_ice_cfg ) ! Namelist namdyn_rhg in configuration namelist : Ice dynamics 117 118 READ ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 ) 118 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist', lwp )119 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist', lwp ) 119 120 IF(lwm) WRITE ( numoni, namdyn_rhg ) 120 121 !
Note: See TracChangeset
for help on using the changeset viewer.