Changeset 1601 for trunk/NEMO/OPA_SRC/ZDF/zdftmx.F90

Timestamp:

2009-08-11T12:09:19+02:00 (15 years ago)

Author:

ctlod

Message:

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

File:

• trunk/NEMO/OPA_SRC/ZDF/zdftmx.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdftmx.F90

@@ -31 +31 @@
    LOGICAL, PUBLIC, PARAMETER ::   lk_zdftmx = .TRUE.    !: tidal mixing flag
 
-   !                                  !!* Namelist  namtmx : tidal mixing *
+   !                                  !!* Namelist  namzdf_tmx : tidal mixing *
    REAL(wp) ::  rn_htmx    = 500.      ! vertical decay scale for turbulence (meters)
    REAL(wp) ::  rn_n2min   = 1.e-8     ! threshold of the Brunt-Vaisala frequency (s-1)
@@ -88 +88 @@
       !!              Koch-Larrouy et al. 2007, GRL.
       !!----------------------------------------------------------------------
-      USE oce,   zav_tide  =>   ua   ! use ua as workspace
+      USE oce, zav_tide  =>   ua    ! use ua as workspace
       !!
       INTEGER, INTENT(in) ::   kt   ! ocean time-step 
@@ -329 +329 @@
       REAL(wp), DIMENSION(jpi,jpj,jpk) ::  zpc      ! power consumption
       !!
-      NAMELIST/nam_tmx/ rn_htmx, rn_n2min, rn_tfe, rn_me, ln_tmx_itf, rn_tfe_itf
-      !!----------------------------------------------------------------------
-
-      REWIND ( numnam )              ! Read Namelist namtmx : Tidal Mixing
-      READ   ( numnam, nam_tmx )
+      NAMELIST/namzdf_tmx/ rn_htmx, rn_n2min, rn_tfe, rn_me, ln_tmx_itf, rn_tfe_itf
+      !!----------------------------------------------------------------------
+
+      REWIND( numnam )               ! Read Namelist namtmx : Tidal Mixing
+      READ  ( numnam, namzdf_tmx )
 
       IF(lwp) THEN                   ! Control print
@@ -339 +339 @@
          WRITE(numout,*) 'zdf_tmx_init : tidal mixing'
          WRITE(numout,*) '~~~~~~~~~~~~'
-         WRITE(numout,*) '   Namelist namtmx : set tidal mixing parameters'
+         WRITE(numout,*) '   Namelist namzdf_tmx : set tidal mixing parameters'
          WRITE(numout,*) '      Vertical decay scale for turbulence   = ', rn_htmx 
          WRITE(numout,*) '      Brunt-Vaisala frequency threshold     = ', rn_n2min