Changeset 14053 for NEMO/trunk/src/OFF/dtadyn.F90

Timestamp:

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

Author:

techene

Message:

#2385 added to the trunk

File:

• NEMO/trunk/src/OFF/dtadyn.F90 (modified) (4 diffs)

NEMO/trunk/src/OFF/dtadyn.F90

@@ -23 +23 @@
    USE c1d             ! 1D configuration: lk_c1d
    USE dom_oce         ! ocean domain: variables
-#if ! defined key_qco 
-   USE domvvl          ! variable volume
+#if defined key_qco 
+   USE domqco          ! variable volume
 #else
-   USE domqco
+   USE domvvl
 #endif
    USE zdf_oce         ! ocean vertical physics: variables
@@ -97 +97 @@
    !! * Substitutions
 #  include "do_loop_substitute.h90"
+#  include "domzgr_substitute.h90"
+   
    !!----------------------------------------------------------------------
    !! NEMO/OFF 4.0 , NEMO Consortium (2018)
@@ -388 +390 @@
         gdepw(:,:,:,Kbb) = gdepw(:,:,:,Kmm)
         !
-      ENDIF
 #endif
+      ENDIF
       !
       IF( ln_dynrnf .AND. ln_dynrnf_depth ) THEN       ! read depht over which runoffs are distributed
@@ -412 +414 @@
             ENDIF
          END_2D
+         !
          DO_2D( 1, 1, 1, 1 )                           ! set the associated depth
             h_rnf(ji,jj) = 0._wp