Changeset 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90

Timestamp:

2013-05-03T14:35:21+02:00 (11 years ago)

Author:

clevy

Message:

Configuration Setting/Step2, see ticket:#1074

File:

• branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90 (modified) (1 diff)

branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90

@@ -49 +49 @@
 
    !! * Namelist namdyn_nept variables
-   LOGICAL, PUBLIC  ::  ln_neptsimp        = .FALSE.  ! yes/no simplified neptune
-
-   LOGICAL          ::  ln_smooth_neptvel  = .FALSE.  ! yes/no smooth zunep, zvnep
-   REAL(wp)         ::  rn_tslse           =  1.2e4   ! value of lengthscale L at the equator
-   REAL(wp)         ::  rn_tslsp           =  3.0e3   ! value of lengthscale L at the pole
+   LOGICAL, PUBLIC  ::  ln_neptsimp          ! yes/no simplified neptune
+
+   LOGICAL          ::  ln_smooth_neptvel    ! yes/no smooth zunep, zvnep
+   REAL(wp)         ::  rn_tslse             ! value of lengthscale L at the equator
+   REAL(wp)         ::  rn_tslsp             ! value of lengthscale L at the pole
 !! Specify whether to ramp down the Neptune velocity in shallow
 !! water, and the depth range controlling such ramping down
-   LOGICAL          ::  ln_neptramp        = .FALSE.  ! ramp down Neptune velocity in shallow water
-   REAL(wp)         ::  rn_htrmin          =  100.0   ! min. depth of transition range
-   REAL(wp)         ::  rn_htrmax          =  200.0   ! max. depth of transition range
+   LOGICAL          ::  ln_neptramp          ! ramp down Neptune velocity in shallow water
+   REAL(wp)         ::  rn_htrmin            ! min. depth of transition range
+   REAL(wp)         ::  rn_htrmax            ! max. depth of transition range
 
    !! * Module variables