Changeset 1605 for trunk/NEMO/NST_SRC/agrif_oce.F90

Timestamp:

2009-08-11T14:33:40+02:00 (15 years ago)

Author:

ctlod

Message:

Doctor naming of OPA namelist variables, see ticket: #526

File:

• trunk/NEMO/NST_SRC/agrif_oce.F90 (modified) (2 diffs)

trunk/NEMO/NST_SRC/agrif_oce.F90

@@ -1 +1 @@
 MODULE agrif_oce
+   !!======================================================================
+   !!                       ***  MODULE agrif_oce  ***
+   !! AGRIF :   define in memory AGRIF variables
    !!----------------------------------------------------------------------
-   !!                       ***  MODULE agrif_oce  ***
-   !!
-   !! ** Purpose :   Define in memory agrif variables
+   !! History :  2.0  ! 2007-12  (R. Benshila)  Original code
    !!----------------------------------------------------------------------
-   !! History :
-   !!   9.0  !  07-12  (R. Benshila)  initial version
+#if defined key_agrif
    !!----------------------------------------------------------------------
-   !!  OPA 9.0 , LOCEAN-IPSL (2006)
-   !! $Id$
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
+   !!   'key_agrif'                                              AGRIF zoom
    !!----------------------------------------------------------------------
-   !! * Modules used
    USE par_oce      ! ocean parameters
    USE dom_oce      ! domain parameters
@@ -19 +16 @@
    PUBLIC 
 
-#if defined key_agrif
+   !                                              !!* 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
 
-   !! Namelist parameters (namagrif)
-   !! ------------------------------
-   LOGICAL, PUBLIC :: ln_spc_dyn  = .FALSE.
-   INTEGER, PUBLIC :: nbclineupdate = 3  !: update frequency 
-   REAL(wp), PUBLIC :: visc_tra = rdt  !: sponge coeff. for tracers
-   REAL(wp), PUBLIC :: visc_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
 
-   !! Use for sponge computation
-   !! --------------------------
-   LOGICAL, PUBLIC :: spongedoneT = .FALSE.  
-   LOGICAL, PUBLIC :: spongedoneU = .FALSE.
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &  
-      spe1ur, spe2vr ,spbtr2, spe1ur2, spe2vr2, spbtr3  
+   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