Changeset 12545

Timestamp:

2020-03-13T10:25:23+01:00 (3 years ago)

Author:

smasson

Message:

release-4.0-HEAD: minor bugfix in ice control print, see #2409

File:

• NEMO/releases/release-4.0-HEAD/src/ICE/icectl.F90 (modified) (1 diff)

NEMO/releases/release-4.0-HEAD/src/ICE/icectl.F90

@@ -745 +745 @@
       
       CALL prt_ctl_info(' ')
-      CALL prt_ctl_info(' - Heat / FW fluxes : ')
-      CALL prt_ctl_info('   ~~~~~~~~~~~~~~~~~~ ')
-      CALL prt_ctl(tab2d_1=sst_m  , clinfo1= ' sst   : ', tab2d_2=sss_m     , clinfo2= ' sss       : ')
-      CALL prt_ctl(tab2d_1=qsr    , clinfo1= ' qsr   : ', tab2d_2=qns       , clinfo2= ' qns       : ')
-      CALL prt_ctl(tab2d_1=emp    , clinfo1= ' emp   : ', tab2d_2=sfx       , clinfo2= ' sfx       : ')
-      
-      CALL prt_ctl_info(' ')
       CALL prt_ctl_info(' - Stresses : ')
       CALL prt_ctl_info('   ~~~~~~~~~~ ')