New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
trp_trc.F90 in tags/nemo_v3_2/nemo_v3_2/NEMO/TOP_SRC/TRP – NEMO

source: tags/nemo_v3_2/nemo_v3_2/NEMO/TOP_SRC/TRP/trp_trc.F90 @ 1878

Last change on this file since 1878 was 1878, checked in by flavoni, 14 years ago

initial test for nemogcm

File size: 3.8 KB
Line 
1MODULE trp_trc
2   !!======================================================================
3   !!                         ***  MODULE trp_trc  ***
4   !! TOP :   TOP parameters used in TRP
5   !!======================================================================
6   !! History :   1.0  !  2004-03 (C. Ethe) original code
7   !!----------------------------------------------------------------------
8   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)
9   !! $Id: trp_trc.F90 1258 2009-01-13 10:36:53Z cetlod $
10   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
11   !!----------------------------------------------------------------------
12#if defined key_top
13   !!----------------------------------------------------------------------
14   !!   'key_top'                                                TOP models
15   !!----------------------------------------------------------------------
16   USE par_oce
17   USE par_trc
18
19   !! passive tracers fields
20   USE trc, ONLY :   trai      =>   trai     !: initial total tracer
21   USE trc, ONLY :   trb       =>   trb      !: tracer field (before)
22   USE trc, ONLY :   tra       =>   tra      !: tracer field (now)
23   USE trc, ONLY :   trn       =>   trn      !: tracer field (after)
24
25   !! Ocean volume
26   USE trc, ONLY :   cvol      =>   cvol     !: masked grid volume
27
28   !! time step
29   USE trc, ONLY :   ndttrc    =>   ndttrc   !: frequency of step on passive tracers (NAMELIST)
30   USE trc, ONLY :   ctrcnm    =>   ctrcnm   !:
31   USE trc, ONLY :   numnat    =>   numnat   !: namelist
32   USE trc, ONLY :   nittrc000 =>   nittrc000
33   USE trc, ONLY :   lrst_trc  =>   lrst_trc  !: logical to control the trc restart write
34
35   !! isopycnal scheme for passive tracers
36   !! ------------------------------------ 
37   REAL(wp), PUBLIC ::   ahtrb0     !: background diffusivity coefficient for passive tracer (m2/s)
38   REAL(wp), PUBLIC ::   trcrat     !: ratio between passive and active tracer coeff for diffusion
39   REAL(wp), PUBLIC ::   ahtrc0     !: horizontal eddy diffusivity for passive tracers (m2/s)
40   REAL(wp), PUBLIC ::   aeivtr0    !: eddy induced velocity coefficient (m2/s)
41
42   !! interpolated gradient
43   !!-------------------------------------------------- 
44   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jptra) ::   gtru   !: horizontal gradient at u-points at bottom ocean level
45   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jptra) ::   gtrv   !: horizontal gradient at v-points at bottom ocean level
46
47   
48# if defined key_trcldf_eiv && defined key_diaeiv
49   !! The three component of the eddy induced velocity
50   !! --------------------------------------------------
51   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk) ::   u_trc_eiv   !: u-eiv (m/s)
52   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk) ::   v_trc_eiv   !: v-eiv (m/s)
53   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk) ::   w_trc_eiv   !: w-eiv (m/s)
54# endif
55
56# if defined key_trc_diatrd
57
58   !!  non conservative trends (biological, ...)
59   !! --------------------------------------------------
60   !!  Advection-diffusion trends
61   REAL(wp), PUBLIC, DIMENSION(:,:,:,:,:), ALLOCATABLE ::   trtrd   !: trends of the tracer equations
62
63   INTEGER, PUBLIC, DIMENSION(jptra) :: ikeep ! indice of tracer for which dyn trends are stored
64   INTEGER, PUBLIC                   :: nkeep ! number of tracers for which dyn trends are stored
65   !                                          ! (used to allocate trtrd buffer)
66
67   INTEGER , PUBLIC ::   nwritetrd   !: frequency of additional arrays outputs(namelist)
68# endif
69#else
70   !!----------------------------------------------------------------------
71   !!  Empty module :                                     No passive tracer
72   !!----------------------------------------------------------------------
73#endif
74
75   !!======================================================================
76END MODULE trp_trc
Note: See TracBrowser for help on using the repository browser.