Ignore:
Timestamp:
2019-01-25T09:55:09+01:00 (19 months ago)
Author:
clem
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icectl.F90

    r10538 r10576  
    198198 
    199199      ! heat flux 
    200       zhfx  = glob_sum( 'icectl', ( qt_atm_oi - qt_oce_ai - diag_heat ) * e1e2t ) * zconv 
     200      ! clem: not the good formulation 
     201      !!zhfx  = glob_sum( 'icectl', ( qt_atm_oi - qt_oce_ai - diag_heat ) * e1e2t ) * zconv 
    201202 
    202203      ! set threshold values and calculate the ice area (+epsi10 to set a threshold > 0 when there is no ice)  
     
    209210         IF( ABS( zvfx ) > zv_sill )   WRITE(numout,*) 'violation vfx  [Mt/day]       (',cd_routine,') = ',zvfx 
    210211         IF( ABS( zsfx ) > zs_sill )   WRITE(numout,*) 'violation sfx  [psu*Mt/day]   (',cd_routine,') = ',zsfx 
    211          IF( ABS( zhfx ) > zt_sill )   WRITE(numout,*) 'violation hfx  [GW]           (',cd_routine,') = ',zhfx 
     212         !!IF( ABS( zhfx ) > zt_sill )   WRITE(numout,*) 'violation hfx  [GW]           (',cd_routine,') = ',zhfx 
    212213      ENDIF 
    213214      ! 
Note: See TracChangeset for help on using the changeset viewer.