Changeset 1119 for trunk/NEMO/TOP_SRC/trc.F90

Timestamp:

2008-06-20T17:17:41+02:00 (16 years ago)

Author:

cetlod

Message:

style of all top namelist has been modified ; update modules to take it into account, see ticket:196

File:

• trunk/NEMO/TOP_SRC/trc.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/trc.F90

@@ -46 +46 @@
    REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk,jptra) ::   trb   !: traceur concentration for before time step
 
-
-   !! numerical parameter (NAMELIST)
-   !! --------------------------------------------------
-   REAL(wp), PUBLIC ::   rsc    !: tuning coefficient for anti-diffusion
-   REAL(wp), PUBLIC ::   rtrn   !: value for truncation
-
-   !! namelist parameters
-   !! --------------------------------------------------
-   INTEGER , PUBLIC ::   ncortrc     !: number of corrective phases
-   INTEGER , PUBLIC ::   ndttrc      !: frequency of step on passive tracers
-   INTEGER , PUBLIC ::   nittrc000   !: first time step of passive tracers model  
-   LOGICAL , PUBLIC ::   crosster    !: logical if true computes crossterms
-
-
-   !! isopycnal scheme for passive tracers
-   !! ------------------------------------  
-   REAL(wp), PUBLIC ::   ahtrb0     !: background diffusivity coefficient for passive tracer (m2/s)
-   REAL(wp), PUBLIC ::   trcrat     !: ratio between passive and active tracer coeff for diffusion
-   REAL(wp), PUBLIC ::   ahtrc0     !: horizontal eddy diffusivity for passive tracers (m2/s)
-   REAL(wp), PUBLIC ::   aeivtr0    !: eddy induced velocity coefficient (m2/s)
-   
    
    !! passive tracers restart (input and output)
    !! ------------------------------------------  
+   INTEGER , PUBLIC ::   ndttrc     !: frequency of step on passive tracers
+   INTEGER , PUBLIC ::   nittrc000  !: first time step of passive tracers model
    LOGICAL , PUBLIC ::   lrsttr     !: boolean term for restart i/o for passive tracers (namelist)
    INTEGER , PUBLIC ::   nutwrs     !: output FILE for passive tracers restart
    INTEGER , PUBLIC ::   nutrst     !: logical unit for restart FILE for passive tracers
    INTEGER , PUBLIC ::   nrsttr     !: control of the time step ( 0 or 1 ) for pass. tr.
-   
-   
-   !! interpolated gradient
-   !!--------------------------------------------------  
-   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jptra) ::   gtru   !: horizontal gradient at u-points at bottom ocean level
-   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jptra) ::   gtrv   !: horizontal gradient at v-points at bottom ocean level
-
-   
-# if defined key_trcldf_eiv && defined key_diaeiv
-   !! The three component of the eddy induced velocity
-   !! --------------------------------------------------
-   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk) ::   u_trc_eiv   !: u-eiv (m/s)
-   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk) ::   v_trc_eiv   !: v-eiv (m/s)
-   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk) ::   w_trc_eiv   !: w-eiv (m/s)
-# endif
    
    
@@ -114 +80 @@
    INTEGER , PUBLIC ::   nwritedia     !: frequency of additional arrays outputs(namelist)
 # endif
-   
-# if defined key_trc_diatrd
-   
-   !!  non conservative trends (biological, ...)
-   !! --------------------------------------------------
-   LOGICAL, PUBLIC, DIMENSION (jptra) ::   luttrd   !: large trends diagnostic to write or not (namelist)
-   
-   !!  Advection-diffusion trends
-   !! --------------------------------------------------
-   REAL(wp), PUBLIC, DIMENSION(:,:,:,:,:), ALLOCATABLE ::   trtrd   !: trends of the tracer equations
-   
-   INTEGER, PUBLIC, DIMENSION(jptra) :: ikeep ! indice of tracer for which dyn trends are stored
-   INTEGER, PUBLIC                   :: nkeep ! number of tracers for which dyn trends are stored 
-   !                                          ! (used to allocate trtrd buffer)
-
-   !! netcdf files and index common
-   !! --------------------------------------------------
-   INTEGER , PUBLIC ::   nwritetrd   !: frequency of additional arrays outputs(namelist)
-   
-# endif 
 
 # if defined key_trc_diabio