Changeset 9120 for branches/UKMO/dev_r8814_surge_modelling_Nemo4/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2017-12-18T18:29:02+01:00 (6 years ago)

Author:

clne

Message:

Initial work on 2D surge configuration. Works for tide-only, no SBC yet

File:

• branches/UKMO/dev_r8814_surge_modelling_Nemo4/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (5 diffs)

branches/UKMO/dev_r8814_surge_modelling_Nemo4/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -78 +78 @@
    USE dia25h         ! 25h mean output
    USE sbc_oce , ONLY : lk_oasis
+   USE dom_oce , ONLY : ln_2d
    USE wet_dry        ! Wetting and drying setting   (wad_init routine)
 #if defined key_top
@@ -456 +457 @@
       !                                      ! Ocean physics
       !                                         ! Vertical physics
-                            CALL     zdf_init      ! namelist read
+      IF (.NOT. ln_2d)      CALL     zdf_init      ! namelist read
                             CALL zdf_bfr_init      ! bottom friction
       IF( lk_zdfric     )   CALL zdf_ric_init      ! Richardson number dependent Kz
@@ -465 +466 @@
          
       !                                         ! 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
 
+      IF (.NOT. ln_2d) THEN  ! No tracers in 2D mode
       !                                         ! Active tracers
                             CALL tra_qsr_init      ! penetrative solar radiation qsr
@@ -477 +479 @@
                             CALL tra_ldf_init      ! lateral mixing
                             CALL tra_zdf_init      ! vertical mixing and after tracer fields
-
+      ENDIF
+      
       !                                         ! Dynamics
       IF( lk_c1d        )   CALL dyn_dmp_init      ! internal momentum damping
@@ -484 +487 @@
                             CALL dyn_ldf_init      ! lateral mixing
                             CALL dyn_hpg_init      ! horizontal gradient of Hydrostatic pressure
-                            CALL dyn_zdf_init      ! vertical diffusion
+      IF (.NOT. ln_2d)      CALL dyn_zdf_init      ! vertical diffusion
                             CALL dyn_spg_init      ! surface pressure gradient