- 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/icethd.F90
r9076 r9124 98 98 !!------------------------------------------------------------------- 99 99 ! controls 100 IF( nn_timing == 1) CALL timing_start('icethd') ! timing101 IF( ln_icediachk 100 IF( ln_timing ) CALL timing_start('icethd') ! timing 101 IF( ln_icediachk ) CALL ice_cons_hsm(0, 'icethd', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 102 102 103 103 IF( kt == nit000 .AND. lwp ) THEN … … 271 271 ! ! & make sure at_i=SUM(a_i) & ato_i=1 where at_i=0 272 272 ! 273 IF( jpl > 1 )CALL ice_itd_rem( kt ) ! --- Transport ice between thickness categories --- !274 ! 275 IF( ln_icedO )CALL ice_thd_do ! --- frazil ice growing in leads --- !273 IF( jpl > 1 ) CALL ice_itd_rem( kt ) ! --- Transport ice between thickness categories --- ! 274 ! 275 IF( ln_icedO ) CALL ice_thd_do ! --- frazil ice growing in leads --- ! 276 276 ! 277 277 ! controls 278 IF( ln_icectl 279 IF( ln_ctl 280 IF( nn_timing == 1) CALL timing_stop('icethd') ! timing278 IF( ln_icectl ) CALL ice_prt (kt, iiceprt, jiceprt, 1, ' - ice thermodyn. - ') ! prints 279 IF( ln_ctl ) CALL ice_prt3D ('icethd') ! prints 280 IF( ln_timing ) CALL timing_stop('icethd') ! timing 281 281 ! 282 282 END SUBROUTINE ice_thd … … 568 568 REWIND( numnam_ice_cfg ) ! Namelist namthd in configuration namelist : Ice thermodynamics 569 569 READ ( numnam_ice_cfg, namthd, IOSTAT = ios, ERR = 902 ) 570 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namthd in configuration namelist', lwp )570 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd in configuration namelist', lwp ) 571 571 IF(lwm) WRITE ( numoni, namthd ) 572 572 !
Note: See TracChangeset
for help on using the changeset viewer.