Changeset 10576 for NEMO

Timestamp:

2019-01-25T09:55:09+01:00 (5 years ago)

Author:

clem

Message:

remove the test in icea heat fluxes since I am unsure of the formulation

File:

• NEMO/trunk/src/ICE/icectl.F90 (modified) (2 diffs)

NEMO/trunk/src/ICE/icectl.F90

@@ -198 +198 @@
 
       ! heat flux
-      zhfx  = glob_sum( 'icectl', ( qt_atm_oi - qt_oce_ai - diag_heat ) * e1e2t ) * zconv
+      ! clem: not the good formulation
+      !!zhfx  = glob_sum( 'icectl', ( qt_atm_oi - qt_oce_ai - diag_heat ) * e1e2t ) * zconv
 
       ! set threshold values and calculate the ice area (+epsi10 to set a threshold > 0 when there is no ice) 
@@ -209 +210 @@
          IF( ABS( zvfx ) > zv_sill )   WRITE(numout,*) 'violation vfx  [Mt/day]       (',cd_routine,') = ',zvfx
          IF( ABS( zsfx ) > zs_sill )   WRITE(numout,*) 'violation sfx  [psu*Mt/day]   (',cd_routine,') = ',zsfx
-         IF( ABS( zhfx ) > zt_sill )   WRITE(numout,*) 'violation hfx  [GW]           (',cd_routine,') = ',zhfx
+         !!IF( ABS( zhfx ) > zt_sill )   WRITE(numout,*) 'violation hfx  [GW]           (',cd_routine,') = ',zhfx
       ENDIF
       !