Changeset 11916 for NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/ice.F90

Timestamp:

2019-11-15T16:44:47+01:00 (5 years ago)

Author:

dancopsey

Message:

Merged in all the changes in NEMO4.0_fix_cpl_oce_only (up to revison 11832)

File:

• NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/ice.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/ICE/ice.F90

@@ -295 +295 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   h_i       !: Ice thickness                           (m)
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   a_i       !: Ice fractional areas (concentration)
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   a_i_last_couple    !: Ice fractional area at last coupling time
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   v_i       !: Ice volume per unit area                (m)
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   v_s       !: Snow volume per unit area               (m)
@@ -435 +436 @@
 
       ii = ii + 1
+      ALLOCATE( a_i_last_couple(jpi,jpj,jpl) , STAT=ierr(ii) )
+
+      ii = ii + 1
       ALLOCATE( u_ice(jpi,jpj) , v_ice(jpi,jpj) ,                                   &
          &      vt_i (jpi,jpj) , vt_s (jpi,jpj) , st_i(jpi,jpj) , at_i(jpi,jpj) , ato_i(jpi,jpj) ,  &