source: branches/2013/dev_r3858_CNRS3_Ediag/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor_oce.F90 @ 3876

Last change on this file since 3876 was 3876, checked in by gm, 8 years ago

dev_r3858_CNRS3_Ediag: #927 phasing with 2011/dev_r3309_LOCEAN12_Ediag branche + mxl diag update

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