Changeset 14053 for NEMO/trunk/src/OCE/SBC/sbcice_cice.F90

Timestamp:

2020-12-03T14:48:38+01:00 (3 years ago)

Author:

techene

Message:

#2385 added to the trunk

File:

• NEMO/trunk/src/OCE/SBC/sbcice_cice.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/SBC/sbcice_cice.F90

@@ -12 +12 @@
    USE oce             ! ocean dynamics and tracers
    USE dom_oce         ! ocean space and time domain
-# if ! defined key_qco
-   USE domvvl
+# if defined key_qco
+   USE domqco         ! Variable volume
 # else
-   USE domqco
+   USE domvvl         ! Variable volume
 # endif
    USE phycst, only : rcp, rho0, r1_rho0, rhos, rhoi
@@ -238 +238 @@
 !!gm especially here it is assumed zstar coordinate, but it can be ztilde....
 #if defined key_qco
-            IF( .NOT.ln_linssh )   CALL dom_qco_zgr( Kbb, Kmm, Kaa )   ! interpolation scale factor, depth and water column
+            IF( .NOT.ln_linssh )   CALL dom_qco_zgr( Kbb, Kmm )   ! interpolation scale factor, depth and water column
 #else
             IF( .NOT.ln_linssh ) THEN