Changeset 15755

Timestamp:

2022-03-17T17:46:56+01:00 (2 years ago)

Author:

jpalmier

Message:

Add sea ice fields in output.abord to help debug too cold values at ice formation

File:

• NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/ICE/icewri.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/ICE/icewri.F90

@@ -262 +262 @@
       CALL iom_rstput( 0, 0, kid, 'sisalcat', s_i        )   ! Ice salinity
       CALL iom_rstput( 0, 0, kid, 'snthicat', h_s        )   ! Snw thickness
+      !! Jpalm -- debug ice growth with huge SST decrease
+      CALL iom_rstput( 0, 0, kid, 'dmiopw', - wfx_opw    )   ! open water formation
+      CALL iom_rstput( 0, 0, kid, 'dmibog', - wfx_bog    )   ! basal growth
+      CALL iom_rstput( 0, 0, kid, 'hfxcndtop'  , SUM( qcn_ice_top * a_i_b, dim=3 )  )   ! Surface conduction flux
+      CALL iom_rstput( 0, 0, kid, 'hfxcndbot'  , SUM( qcn_ice_bot * a_i_b, dim=3 )  )   ! Bottom conduction flux
+      CALL iom_rstput( 0, 0, kid, 'hfxsensib'  , -qsb_ice_bot * at_i_b  )   ! Sensible oceanic heat flux
+      CALL iom_rstput( 0, 0, kid, 'sfxice', sfx * 1.e-03 )   ! salt flux from total ice growth/melt
+      CALL iom_rstput( 0, 0, kid, 'vfxice' , wfx_ice     )   ! mass flux from total ice growth/melt
+      CALL iom_rstput( 0, 0, kid, 'vfxsnw' , wfx_snw     )   ! mass flux from total snow growth/melt
+      CALL iom_rstput( 0, 0, kid, 'qtr_ice_top', SUM( qtr_ice_top * a_i_b, dim=3 )                          )   !     solar flux transmitted thru ice surface
+      CALL iom_rstput( 0, 0, kid, 'qtr_ice_bot', SUM( qtr_ice_bot * a_i_b, dim=3 )                          )   !     solar flux transmitted thru ice
+
+
+
+
+      
 
     END SUBROUTINE ice_wri_state