Changeset 14581

Timestamp:

2021-03-04T10:50:10+01:00 (3 years ago)

Author:

clem

Message:

trunk: solve ticket #2635

Location:

NEMO/trunk

Files:

• cfgs/SHARED/field_def_nemo-ice.xml (modified) (1 diff)
• src/ICE/iceupdate.F90 (modified) (1 diff)

NEMO/trunk/cfgs/SHARED/field_def_nemo-ice.xml

@@ -178 +178 @@
       <field id="hfxcndtop"    long_name="Net conductive heat flux at the ice surface (neg = ice cooling)"  standard_name="conductive_heat_flux_at_sea_ice_surface"    unit="W/m2" />
       <field id="hfxcndbot"    long_name="Net conductive heat flux at the ice bottom (neg = ice cooling)"   standard_name="conductive_heat_flux_at_sea_ice_bottom"     unit="W/m2" />
+      <!-- clem: uncomment when uncommented in iceupdate.F90 -->
+      <!--
+      <field id="hfxmelt"      long_name="Melt heat flux at the ice surface"       unit="W/m2" />
+      <field id="hfxldmelt"    long_name="Heat flux in the lead for ice melting"   unit="W/m2" />
+      <field id="hfxldgrow"    long_name="Heat flux in the lead for ice growth"    unit="W/m2" />
+      -->
 
       <!-- diags -->

NEMO/trunk/src/ICE/iceupdate.F90

@@ -275 +275 @@
 
       ! other heat fluxes
-      IF( iom_use('hfxsensib'  ) )   CALL iom_put( 'hfxsensib'  ,     -qsb_ice_bot * at_i_b         )   ! Sensible oceanic heat flux
+      IF( iom_use('hfxsensib'  ) )   CALL iom_put( 'hfxsensib'  ,      qsb_ice_bot * at_i_b         )   ! Sensible oceanic heat flux
       IF( iom_use('hfxcndbot'  ) )   CALL iom_put( 'hfxcndbot'  , SUM( qcn_ice_bot * a_i_b, dim=3 ) )   ! Bottom conduction flux
       IF( iom_use('hfxcndtop'  ) )   CALL iom_put( 'hfxcndtop'  , SUM( qcn_ice_top * a_i_b, dim=3 ) )   ! Surface conduction flux
+!!    IF( iom_use('hfxmelt'    ) )   CALL iom_put( 'hfxmelt'    , SUM( qml_ice     * a_i_b, dim=3 ) )   ! Surface melt flux
+!!    IF( iom_use('hfxldmelt'  ) )   CALL iom_put( 'hfxldmelt'  ,      fhld        * at_i_b         )   ! Heat in lead for ice melting 
+!!    IF( iom_use('hfxldgrow'  ) )   CALL iom_put( 'hfxldgrow'  ,      qlead       * r1_Dt_ice      )   ! Heat in lead for ice growth
 
       ! controls