Changeset 13642 for NEMO/releases/r4.0/r4.0-HEAD/src/ICE/ice1d.F90

Timestamp:

2020-10-20T00:58:34+02:00 (4 years ago)

Author:

clem

Message:

4.0-HEAD: use the transmitted solar for the ice budget. See #2545

File:

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

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

@@ -145 +145 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   sst_1d
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   sss_1d
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   frq_m_1d
 
    ! convergence check
@@ -225 +226 @@
       !
       ii = ii + 1
-      ALLOCATE( sst_1d(jpij) , sss_1d(jpij) , STAT=ierr(ii) )
+      ALLOCATE( sst_1d(jpij) , sss_1d(jpij) , frq_m_1d(jpij) , STAT=ierr(ii) )
       !
       ii = ii + 1