Changeset 14140

Timestamp:

2020-12-09T16:42:10+01:00 (3 years ago)

Author:

techene

Message:

bug fix in domvvl restart with ln_1st_euler=T

File:

• NEMO/trunk/src/OCE/DOM/domvvl.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/DOM/domvvl.F90

@@ -50 +50 @@
    REAL(wp)        , ALLOCATABLE, SAVE, DIMENSION(:,:)   :: frq_rst_hdv                 ! retoring period for low freq. divergence
 
-#if defined key_qco
+#if defined key_qco   ||   defined key_linssh
    !!----------------------------------------------------------------------
-   !!   'key_qco'      EMPTY MODULE      Quasi-Eulerian vertical coordonate
+   !!   'key_qco'                        Quasi-Eulerian vertical coordinate
+   !!       OR         EMPTY MODULE
+   !!   'key_linssh'                        Fix in time vertical coordinate
    !!----------------------------------------------------------------------
 #else
@@ -812 +814 @@
             IF( l_1st_euler ) THEN                       ! euler
                IF(lwp) WRITE(numout,*) '          Euler first time step : e3t(Kbb) = e3t(Kmm)'
-               e3t(:,:,:,Kmm) = e3t(:,:,:,Kbb)
+               e3t(:,:,:,Kbb) = e3t(:,:,:,Kmm)
             ELSE                                         ! leap frog
                IF(lwp) WRITE(numout,*) '          Kbb scale factor read in the restart file'