source: trunk/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor_oce.F90 @ 2715

Last change on this file since 2715 was 2715, checked in by rblod, 10 years ago

First attempt to put dynamic allocation on the trunk

  • Property svn:keywords set to Id
File size: 2.1 KB
Line 
1MODULE trdvor_oce
2   !!======================================================================
3   !!                   ***  MODULE trdvor_oce  ***
4   !! Ocean trends :   set vorticity trend variables
5   !!======================================================================
6   !! History :  9.0  !  04-2006  (L. Brunier, A-M. Treguier) Original code
7   !!----------------------------------------------------------------------
8
9   !!----------------------------------------------------------------------
10   USE par_oce      ! ocean parameters
11
12   IMPLICIT NONE
13   PRIVATE
14
15#if defined key_trdvor
16   LOGICAL, PUBLIC, PARAMETER ::   lk_trdvor = .TRUE.    !: momentum trend flag
17#else
18   LOGICAL, PUBLIC, PARAMETER ::   lk_trdvor = .FALSE.   !: momentum trend flag
19#endif
20   !                                               !!* vorticity trends index
21   INTEGER, PUBLIC, PARAMETER ::   jpltot_vor = 11  !: Number of vorticity trend terms
22   !
23   INTEGER, PUBLIC, PARAMETER ::   jpvor_prg =  1   !: Pressure Gradient Trend
24   INTEGER, PUBLIC, PARAMETER ::   jpvor_keg =  2   !: KE Gradient Trend
25   INTEGER, PUBLIC, PARAMETER ::   jpvor_rvo =  3   !: Relative Vorticity Trend
26   INTEGER, PUBLIC, PARAMETER ::   jpvor_pvo =  4   !: Planetary Vorticity Term Trend
27   INTEGER, PUBLIC, PARAMETER ::   jpvor_ldf =  5   !: Horizontal Diffusion Trend
28   INTEGER, PUBLIC, PARAMETER ::   jpvor_zad =  6   !: Vertical Advection Trend
29   INTEGER, PUBLIC, PARAMETER ::   jpvor_zdf =  7   !: Vertical Diffusion Trend
30   INTEGER, PUBLIC, PARAMETER ::   jpvor_spg =  8   !: Surface Pressure Grad. Trend
31   INTEGER, PUBLIC, PARAMETER ::   jpvor_bev =  9   !: Beta V
32   INTEGER, PUBLIC, PARAMETER ::   jpvor_swf = 10   !: wind stress forcing term
33   INTEGER, PUBLIC, PARAMETER ::   jpvor_bfr = 11   !: bottom friction term
34
35   !!----------------------------------------------------------------------
36   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
37   !! $Id$
38   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
39   !!======================================================================
40END MODULE trdvor_oce
Note: See TracBrowser for help on using the repository browser.