Changeset 10786 for NEMO/trunk/src/ICE/icewri.F90

Timestamp:

2019-03-20T19:59:24+01:00 (5 years ago)

Author:

clem

Message:

fix tickets #2256 and #2257

File:

• NEMO/trunk/src/ICE/icewri.F90 (modified) (1 diff)

NEMO/trunk/src/ICE/icewri.F90

@@ -100 +100 @@
       IF( iom_use('snwthic'  ) )   CALL iom_put( "snwthic", hm_s  * zmsk00        )   ! snw thickness
       IF( iom_use('icebrv'   ) )   CALL iom_put( "icebrv" , bvm_i * zmsk00 * 100. )   ! brine volume
-      IF( iom_use('iceage'   ) )   CALL iom_put( "iceage" , om_i  * zmsk00 / rday )   ! ice age
+      IF( iom_use('iceage'   ) )   CALL iom_put( "iceage" , om_i  * zmsk15 / rday )   ! ice age
       IF( iom_use('icehnew'  ) )   CALL iom_put( "icehnew", ht_i_new              )   ! new ice thickness formed in the leads
       IF( iom_use('snwvolu'  ) )   CALL iom_put( "snwvolu", vt_s  * zmsksn        )   ! snow volume