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.
trdvor_oce.F90 in NEMO/branches/UKMO/dev_r10037_vorticity_trends/src/OCE/TRD – NEMO

source: NEMO/branches/UKMO/dev_r10037_vorticity_trends/src/OCE/TRD/trdvor_oce.F90 @ 10810

Last change on this file since 10810 was 10810, checked in by davestorkey, 5 years ago

UKMO/dev_r10037_vorticity_trends branch: commit code changes.

File size: 2.0 KB
Line 
1MODULE trdvor_oce
2   !!======================================================================
3   !!                   ***  MODULE trdvor_oce  ***
4   !! Ocean trends :   set vorticity trend variables
5   !!======================================================================
6   !! History :  1.0  !  04-2006  (L. Brunier, A-M. Treguier) Original code
7   !!----------------------------------------------------------------------
8   
9   USE par_oce      ! ocean parameters
10
11   IMPLICIT NONE
12   PRIVATE
13
14   !                                               !!* vorticity trends index
15   INTEGER, PUBLIC, PARAMETER ::   jpltot_vor = 10  !: Number of vorticity trend terms
16   INTEGER, PUBLIC, PARAMETER ::   jpltype_vor = 2  !: Number of of types of vorticity trend
17   !
18   INTEGER, PUBLIC, PARAMETER ::   jptype_vor_avg =  1   !: curl(vertical average)
19   INTEGER, PUBLIC, PARAMETER ::   jptype_vor_int =  2   !: curl(vertical integral)/H
20   !
21   INTEGER, PUBLIC, PARAMETER ::   jpvor_prg =  1   !: Pressure Gradient Trend
22   INTEGER, PUBLIC, PARAMETER ::   jpvor_keg =  2   !: KE Gradient Trend
23   INTEGER, PUBLIC, PARAMETER ::   jpvor_rvo =  3   !: Relative Vorticity Trend
24   INTEGER, PUBLIC, PARAMETER ::   jpvor_pvo =  4   !: Planetary Vorticity Term Trend
25   INTEGER, PUBLIC, PARAMETER ::   jpvor_ldf =  5   !: Horizontal Diffusion Trend
26   INTEGER, PUBLIC, PARAMETER ::   jpvor_zad =  6   !: Vertical Advection Trend
27   INTEGER, PUBLIC, PARAMETER ::   jpvor_zdf =  7   !: Vertical Diffusion Trend
28   INTEGER, PUBLIC, PARAMETER ::   jpvor_spg =  8   !: Surface Pressure Grad. Trend
29   INTEGER, PUBLIC, PARAMETER ::   jpvor_swf =  9   !: wind stress forcing term
30   INTEGER, PUBLIC, PARAMETER ::   jpvor_bfr = 10   !: bottom friction term
31   !
32   !!----------------------------------------------------------------------
33   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
34   !! $Id$
35   !! Software governed by the CeCILL licence     (./LICENSE)
36   !!======================================================================
37END MODULE trdvor_oce
Note: See TracBrowser for help on using the repository browser.