Changeset 15136 for NEMO/trunk/src/SWE/nemogcm.F90

Timestamp:

2021-07-23T12:07:28+02:00 (3 years ago)

Author:

smasson

Message:

trunk: SWE passes sette tests in debug

File:

• NEMO/trunk/src/SWE/nemogcm.F90 (modified) (4 diffs)

NEMO/trunk/src/SWE/nemogcm.F90

@@ -22 +22 @@
    USE bdyini         ! open boundary cond. setting       (bdy_init routine)
    USE istate         ! initial state setting          (istate_init routine)
+   USE wet_dry , ONLY : ln_wd_il, ln_wd_dl, ln_wd_dl_bc   ! switch off wetting and drying
+   USE isf_oce , ONLY : ln_isf           ! ice shelf
    USE trd_oce , ONLY : l_trddyn         ! dynamical trend logical
 #if defined key_RK3
@@ -297 +299 @@
       !
                            CALL     phy_cst         ! Physical constants
+                           ln_wd_il = .FALSE.   ;   ln_wd_dl = .FALSE.   ;   ln_wd_dl_bc = .FALSE.  ! No wetting and drying
       !
       !                                             ! SWE: Set rho0 and associated variables (eosbn2 not used)
@@ -317 +320 @@
 
       !                                      ! Ocean physics                                    
+      !                                         ! Vertical physics
+                           ln_zdfddm = .FALSE.   ;   ln_zad_Aimp = .FALSE.   ;   ln_zdfosm = .FALSE.   ! used in diawri
+                           avt(:,:,:) = 0._wp    ;   avm(:,:,:) = 0._wp                                ! used in diawri
       !                                         ! Lateral physics
                            CALL ldf_dyn_init      ! Lateral ocean momentum physics
@@ -324 +330 @@
                            CALL dyn_vor_init         ! vorticity term including Coriolis
                            CALL dyn_ldf_init         ! lateral mixing
+
+      !                                      ! Icebergs
+                           ln_icebergs = .false.
+      !                                      ! ice shelf
+                           ln_isf = .false.
 
       !                                      ! Diagnostics