Changeset 1120


Ignore:
Timestamp:
2008-06-20T17:21:25+02:00 (12 years ago)
Author:
cetlod
Message:

update trc_trp.F90 module, see ticket 144

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/TRP/trp_trc.F90

    r1118 r1120  
    1414   !!   'key_top'                                                TOP models 
    1515   !!---------------------------------------------------------------------- 
    16  
    17    !! passive tracers number 
    18    USE par_trc, ONLY :   jptra    =>   jptra    !: number of passive tracers 
     16   USE par_oce 
     17   USE par_trc 
    1918 
    2019   !! passive tracers fields  
     
    2625   !! time step 
    2726   USE trc    , ONLY :   ndttrc   =>   ndttrc   !: frequency of step on passive tracers (NAMELIST) 
     27   USE trc    , ONLY :   ctrcnm   =>   ctrcnm   !:  
     28   USE trc    , ONLY :   numnat   =>   numnat   !: namelist 
     29   USE trc    , ONLY :   nittrc000 =>  nittrc000 
    2830 
    29    !! non-centered advection scheme (smolarkiewicz) 
    30    USE trc    , ONLY :   rtrn     =>   rtrn     !: value for truncation (NAMELIST) 
    31    USE trc    , ONLY :   ctrcnm   =>   ctrcnm   !: value for truncation (NAMELIST) 
     31   !! isopycnal scheme for passive tracers 
     32   !! ------------------------------------   
     33   REAL(wp), PUBLIC ::   ahtrb0     !: background diffusivity coefficient for passive tracer (m2/s) 
     34   REAL(wp), PUBLIC ::   trcrat     !: ratio between passive and active tracer coeff for diffusion 
     35   REAL(wp), PUBLIC ::   ahtrc0     !: horizontal eddy diffusivity for passive tracers (m2/s) 
     36   REAL(wp), PUBLIC ::   aeivtr0    !: eddy induced velocity coefficient (m2/s) 
    3237 
    33 # if defined key_trc_diaadd 
    34    USE par_trc, ONLY :   jpdia2d  =>  jpdia2d   !: number of 2D passive tracers diag 
    35    USE par_trc, ONLY :   jpdia3d  =>  jpdia3d   !: number of 3D passive tracers diag 
    36    USE trc    , ONLY :   trc2d    =>   trc2d    !: additional 2D variable for ouputs 
    37    USE trc    , ONLY :   trc3d    =>   trc3d    !: additional 3D variable for ouputs 
     38   !! interpolated gradient 
     39   !!--------------------------------------------------   
     40   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jptra) ::   gtru   !: horizontal gradient at u-points at bottom ocean level 
     41   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jptra) ::   gtrv   !: horizontal gradient at v-points at bottom ocean level 
     42 
     43    
     44# if defined key_trcldf_eiv && defined key_diaeiv 
     45   !! The three component of the eddy induced velocity 
     46   !! -------------------------------------------------- 
     47   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk) ::   u_trc_eiv   !: u-eiv (m/s) 
     48   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk) ::   v_trc_eiv   !: v-eiv (m/s) 
     49   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk) ::   w_trc_eiv   !: w-eiv (m/s) 
    3850# endif 
     51 
     52# if defined key_trc_diatrd 
     53    
     54   !!  non conservative trends (biological, ...) 
     55   !! -------------------------------------------------- 
     56   LOGICAL, PUBLIC, DIMENSION (jptra) ::   luttrd   !: large trends diagnostic to write or not (namelist) 
     57    
     58   !!  Advection-diffusion trends 
     59   REAL(wp), PUBLIC, DIMENSION(:,:,:,:,:), ALLOCATABLE ::   trtrd   !: trends of the tracer equations 
     60    
     61   INTEGER, PUBLIC, DIMENSION(jptra) :: ikeep ! indice of tracer for which dyn trends are stored 
     62   INTEGER, PUBLIC                   :: nkeep ! number of tracers for which dyn trends are stored  
     63   !                                          ! (used to allocate trtrd buffer) 
     64 
     65   !! netcdf files and index common 
     66   !! -------------------------------------------------- 
     67   INTEGER , PUBLIC ::   nwritetrd   !: frequency of additional arrays outputs(namelist) 
     68    
     69# endif  
    3970 
    4071#else 
Note: See TracChangeset for help on using the changeset viewer.