Changeset 14143 for NEMO/trunk/src/ICE

Timestamp:

2020-12-09T22:26:04+01:00 (3 years ago)

Author:

techene

Message:

#2385 add key_linssh equivalent to ln_linssh using domzr_substitute

File:

• NEMO/trunk/src/ICE/iceistate.F90 (modified) (2 diffs)

NEMO/trunk/src/ICE/iceistate.F90

@@ -22 +22 @@
    USE eosbn2         ! equation of state
 # if defined key_qco
-   USE domqco         ! Variable volume
+   USE domqco         ! Quasi-Eulerian coord.
+# elif defined key_linssh
+   !                  ! Fix in time coord.
 # else
    USE domvvl         ! Variable volume
@@ -424 +426 @@
          !
 #if defined key_qco
-         IF( .NOT.ln_linssh )   CALL dom_qco_zgr( Kbb, Kmm )        ! interpolation scale factor, depth and water column
+         IF( .NOT.ln_linssh )   CALL dom_qco_zgr( Kbb, Kmm )        ! upadte of r3=ssh/h0 ratios
+#elif defined key_linssh
+         !                                                          ! fix in time coord. : no update of vertical coord.
 #else
          IF( .NOT.ln_linssh )   CALL dom_vvl_zgr( Kbb, Kmm, Kaa )   ! interpolation scale factor, depth and water column