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.
trdicp_oce.F90 in branches/dev_001_GM/NEMO/OPA_SRC/TRD – NEMO

source: branches/dev_001_GM/NEMO/OPA_SRC/TRD/trdicp_oce.F90 @ 951

Last change on this file since 951 was 790, checked in by gm, 16 years ago

dev_001_GM - complete theprevious comit with omitted routines

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.9 KB
Line 
1MODULE trdicp_oce
2   !!======================================================================
3   !!                   ***  MODULE trdicp_oce  ***
4   !! Ocean trends :   set tracer and momentum trend variables
5   !!======================================================================
6
7   !!----------------------------------------------------------------------
8   !!   'key_trdtra'   or                         tracer trends diagnostics
9   !!   'key_trddyn'                            momentum trends diagnostics
10   !!----------------------------------------------------------------------
11   USE par_oce                 ! ocean parameters
12
13   IMPLICIT NONE
14   PUBLIC
15
16   !! Momentum trends diagnostics parameters
17   !!---------------------------------------------------------------------
18   INTEGER, PARAMETER ::   &  !: => dynamic trends indexes <=
19        jpicpd_hpg =  1,   &  !: hydrostatic pressure gradient
20        jpicpd_keg =  2,   &  !: kinetic energy gradient
21        jpicpd_rvo =  3,   &  !: relative vorticity
22        jpicpd_pvo =  4,   &  !: planetary vorticity
23        jpicpd_ldf =  5,   &  !: lateral diffusion
24        jpicpd_zad =  6,   &  !: vertical advection
25        jpicpd_zdf =  7,   &  !: vertical diffusion
26        jpicpd_spg =  8,   &  !: surface pressure gradient
27        jpicpd_dat =  9,   &  !: damping term
28        jpicpd_swf = 10,   &  !: surface wind forcing
29        jpicpd_bfr = 11       !: bottom friction
30
31   INTEGER, PARAMETER ::   &  !: => Total dynamic trends indexes <=
32        jptot_dyn = 11        !: change it when adding/removing one indice above
33   
34   !!----------------------------------------------------------------------
35   !!  OPA 9.0 , LOCEAN-IPSL (2005)
36   !! $Header$
37   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
38   !!======================================================================
39END MODULE trdicp_oce
Note: See TracBrowser for help on using the repository browser.