Changeset 15010 for NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/nemogcm.F90

Timestamp:

2021-06-17T14:14:52+02:00 (3 years ago)

Author:

gsamson

Message:

remove cpp key 'key_c1d' and replace 'lk_c1d' by 'ln_c1d' in &namdom (#2680)

File:

• NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/nemogcm.F90 (modified) (2 diffs)

NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/nemogcm.F90

@@ -407 +407 @@
                            CALL     phy_cst         ! Physical constants
                            CALL     eos_init        ! Equation of state
-      IF( lk_c1d       )   CALL     c1d_init        ! 1D column configuration
                            CALL     wad_init        ! Wetting and drying options
 
@@ -459 +458 @@
 
       !                                      ! Dynamics
-      IF( lk_c1d       )   CALL dyn_dmp_init         ! internal momentum damping
+      IF( ln_c1d       )   CALL dyn_dmp_init         ! internal momentum damping
                            CALL dyn_adv_init         ! advection (vector or flux form)
                            CALL dyn_vor_init         ! vorticity term including Coriolis