Changeset 14588 for NEMO/releases/r4.0/r4.0-HEAD/src/ICE

Timestamp:

2021-03-05T08:42:07+01:00 (3 years ago)

Author:

clem

Message:

solve ticket #2562

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icewri.F90 (modified) (2 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icewri.F90

@@ -253 +253 @@
       CALL iom_rstput( 0, 0, kid, 'sisali', sm_i         )   ! Ice salinity
       CALL iom_rstput( 0, 0, kid, 'sivolu', vt_i         )   ! Ice volume
-      CALL iom_rstput( 0, 0, kid, 'sidive', divu_i*1.0e8 )   ! Ice divergence
       CALL iom_rstput( 0, 0, kid, 'si_amp', at_ip        )   ! Melt pond fraction
       CALL iom_rstput( 0, 0, kid, 'si_vmp', vt_ip        )   ! Melt pond volume
@@ -260 +259 @@
       CALL iom_rstput( 0, 0, kid, 'sisalcat', s_i        )   ! Ice salinity
       CALL iom_rstput( 0, 0, kid, 'snthicat', h_s        )   ! Snw thickness
+      IF( ln_icedyn ) THEN
+         CALL iom_rstput( 0, 0, kid, 'sidive', divu_i*1.e8 ) ! Ice divergence
+      ENDIF
 
     END SUBROUTINE ice_wri_state