MODULE agrif_oce !!====================================================================== !! *** MODULE agrif_oce *** !! AGRIF : define in memory AGRIF variables !!---------------------------------------------------------------------- !! History : 2.0 ! 2007-12 (R. Benshila) Original code !!---------------------------------------------------------------------- #if defined key_agrif !!---------------------------------------------------------------------- !! 'key_agrif' AGRIF zoom !!---------------------------------------------------------------------- USE par_oce ! ocean parameters USE dom_oce ! domain parameters IMPLICIT NONE PUBLIC ! !!* Namelist namagrif: AGRIF parameters LOGICAL , PUBLIC :: ln_spc_dyn = .FALSE. !: INTEGER , PUBLIC :: nn_cln_update = 3 !: update frequency REAL(wp), PUBLIC :: rn_sponge_tra = rdt !: sponge coeff. for tracers REAL(wp), PUBLIC :: rn_sponge_dyn = rdt !: sponge coeff. for dynamics ! !!! OLD namelist names INTEGER , PUBLIC :: nbclineupdate !: update frequency REAL(wp), PUBLIC :: visc_tra !: sponge coeff. for tracers REAL(wp), PUBLIC :: visc_dyn !: sponge coeff. for dynamics LOGICAL , PUBLIC :: spongedoneT = .FALSE. !: tracer sponge layer indicator LOGICAL , PUBLIC :: spongedoneU = .FALSE. !: dynamics sponge layer indicator REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: spe1ur, spe2vr ,spbtr2, spe1ur2, spe2vr2, spbtr3 !: ??? #endif !!---------------------------------------------------------------------- !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009) !! $Id$ !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) !!====================================================================== END MODULE agrif_oce