Changeset 11180 for NEMO/branches/UKMO/NEMO_4.0_surge/src/OCE/nemogcm.F90

Timestamp:

2019-06-25T18:50:27+02:00 (5 years ago)

Author:

clne

Message:

Initial commit of code for 2d (surge) work in NEMO4.
This is aiming to replicate the 3.6 version in branches/UKMO/dev_r5518_Surge_Modelling

File:

• NEMO/branches/UKMO/NEMO_4.0_surge/src/OCE/nemogcm.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0_surge/src/OCE/nemogcm.F90

@@ -75 +75 @@
    USE sbc_oce , ONLY : lk_oasis
    USE wet_dry        ! Wetting and drying setting   (wad_init routine)
+   USE dom_oce , ONLY : ln_2d 
 #if defined key_top
    USE trcini         ! passive tracer initialisation
@@ -446 +447 @@
                                      
       !                                         ! Lateral physics
-                           CALL ldf_tra_init      ! Lateral ocean tracer physics
+      IF (.NOT. ln_2d)     CALL ldf_tra_init      ! Lateral ocean tracer physics
                            CALL ldf_eiv_init      ! eddy induced velocity param.
                            CALL ldf_dyn_init      ! Lateral ocean momentum physics
 
       !                                      ! Active tracers
-      IF( ln_traqsr    )   CALL tra_qsr_init      ! penetrative solar radiation qsr
-                           CALL tra_bbc_init      ! bottom heat flux
-                           CALL tra_bbl_init      ! advective (and/or diffusive) bottom boundary layer scheme
-                           CALL tra_dmp_init      ! internal tracer damping
-                           CALL tra_adv_init      ! horizontal & vertical advection
-                           CALL tra_ldf_init      ! lateral mixing
+      IF (.NOT. ln_2d) THEN  ! No tracers in 2D mode 
+          IF( ln_traqsr    )   CALL tra_qsr_init      ! penetrative solar radiation qsr
+                               CALL tra_bbc_init      ! bottom heat flux
+                               CALL tra_bbl_init      ! advective (and/or diffusive) bottom boundary layer scheme
+                               CALL tra_dmp_init      ! internal tracer damping
+                               CALL tra_adv_init      ! horizontal & vertical advection
+                               CALL tra_ldf_init      ! lateral mixing
+      ENDIF
 
       !                                      ! Dynamics