- Timestamp:
- 2020-05-12T19:25:04+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/icethd.F90
r12734 r12915 35 35 ! 36 36 USE in_out_manager ! I/O manager 37 USE iom ! I/O manager library 37 38 USE lib_mpp ! MPP library 38 39 USE lib_fortran ! fortran utilities (glob_sum + no signed zero) … … 254 255 ! 255 256 ! controls 257 IF( ln_zdf_chkcvg .AND. iom_use('tice_cvg') ) CALL iom_put( 'tice_cvg', tice_cvg ) ! convergence of zdf scheme 256 258 IF( ln_icectl ) CALL ice_prt (kt, iiceprt, jiceprt, 1, ' - ice thermodyn. - ') ! prints 257 259 IF( ln_ctl ) CALL ice_prt3D ('icethd') ! prints … … 519 521 CALL tab_1d_2d( npti, nptidx(1:npti), v_il_1d(1:npti), v_il(:,:,kl) ) 520 522 CALL tab_1d_2d( npti, nptidx(1:npti), oa_i_1d(1:npti), oa_i(:,:,kl) ) 523 ! check convergence of heat diffusion scheme 524 IF( ln_zdf_chkcvg ) THEN 525 CALL tab_1d_2d( npti, nptidx(1:npti), tice_cvg_1d(1:npti), tice_cvg(:,:,kl) ) 526 ENDIF 521 527 ! 522 528 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.