Changeset 8993 for branches/2017/dev_METO_MERCATOR_2017/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90

Timestamp:

2017-12-12T16:42:29+01:00 (7 years ago)

Author:

timgraham

Message:

Merged Mercator branch in

File:

• branches/2017/dev_METO_MERCATOR_2017/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90 (modified) (3 diffs)

branches/2017/dev_METO_MERCATOR_2017/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90

@@ -20 +20 @@
    !                                              !!* Namelist namagrif: AGRIF parameters
    LOGICAL , PUBLIC ::   ln_spc_dyn    = .FALSE.   !:
-   INTEGER , PUBLIC ::   nn_cln_update = 3         !: update frequency 
    INTEGER , PUBLIC, PARAMETER ::   nn_sponge_len = 2  !: Sponge width (in number of parent grid points)
    REAL(wp), PUBLIC ::   rn_sponge_tra = 2800.     !: sponge coeff. for tracers
    REAL(wp), PUBLIC ::   rn_sponge_dyn = 2800.     !: sponge coeff. for dynamics
    LOGICAL , PUBLIC ::   ln_chk_bathy  = .FALSE.   !: check of parent bathymetry 
+   LOGICAL , PUBLIC ::   lk_agrif_clp  = .FALSE.   !: Flag to retrieve clamped open boundaries
 
    !                                              !!! OLD namelist names
-   INTEGER , PUBLIC ::   nbcline = 0               !: update counter
-   INTEGER , PUBLIC ::   nbclineupdate             !: update frequency 
    REAL(wp), PUBLIC ::   visc_tra                  !: sponge coeff. for tracers
    REAL(wp), PUBLIC ::   visc_dyn                  !: sponge coeff. for dynamics
@@ -35 +33 @@
    LOGICAL , PUBLIC :: spongedoneU = .FALSE.       !: dynamics sponge layer indicator
    LOGICAL , PUBLIC :: lk_agrif_fstep = .TRUE.     !: if true: first step
-   LOGICAL , PUBLIC :: lk_agrif_doupd = .TRUE.     !: if true: send update from current grid
    LOGICAL , PUBLIC :: lk_agrif_debug = .FALSE.    !: if true: print debugging info
 
@@ -65 +62 @@
    INTEGER :: e3t_id, e1u_id, e2v_id, sshn_id
    INTEGER :: scales_t_id
-# if defined key_zdftke
+# if defined key_zdftke || defined key_zdfgls
    INTEGER :: avt_id, avm_id, en_id
 # endif