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.
oce.F90 in trunk/NEMO/OPA_SRC – NEMO

source: trunk/NEMO/OPA_SRC/oce.F90 @ 915

Last change on this file since 915 was 915, checked in by rblod, 16 years ago

Correct the ldf_slp/trazdf_imp bug in a proper way, see ticket #118

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 3.7 KB
Line 
1MODULE oce
2   !!======================================================================
3   !!                      ***  MODULE  oce  ***
4   !! Ocean        :  dynamics and active tracers defined in memory
5   !!======================================================================
6   !! History :
7   !!   8.5  !  02-11  (G. Madec)  F90: Free form and module
8   !!   9.0  !  05-11  (V. Garnier) Surface pressure gradient organization
9   !!----------------------------------------------------------------------
10   !!  OPA 9.0 , LOCEAN-IPSL (2005)
11   !! $Header$
12   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
13   !!----------------------------------------------------------------------
14   !! * Modules used
15   USE par_oce      ! ocean parameters
16
17   IMPLICIT NONE
18   PRIVATE
19
20   !! Physics and algorithm flags
21   !! ---------------------------
22   LOGICAL, PUBLIC ::   l_traldf_rot    = .FALSE.  !: rotated laplacian operator for lateral diffusion
23   LOGICAL, PUBLIC ::   ln_dynhpg_imp   = .FALSE.  !: semi-implicite hpg flag
24   INTEGER, PUBLIC ::   nn_dynhpg_rst   = 0        !: add dynhpg implicit variables in restart ot not
25
26   !! dynamics and tracer fields
27   !! --------------------------
28   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &   !:
29      ! before !  now      !  after  !      ! the after trends becomes the fields
30      ! fields !  fields   !  trends !      ! only in dyn(tra)_zdf and dyn(tra)_nxt
31      ub       ,  un       ,  ua     ,   &  !: i-horizontal velocity (m/s)
32      vb       ,  vn       ,  va     ,   &  !: j-horizontal velocity (m/s)
33                  wn       ,             &  !: vertical velocity (m/s)
34      rotb     ,  rotn     ,             &  !: relative vorticity (1/s)
35      hdivb    ,  hdivn    ,             &  !: horizontal divergence (1/s)
36      tb       ,  tn       ,  ta     ,   &  !: potential temperature (celcius)
37      sb       ,  sn       ,  sa            !: salinity (psu)
38   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &   !:
39      rhd ,                              &  !: in situ density anomalie rhd=(rho-rau0)/rau0 (no units)
40      rhop,                              &  !: potential volumic mass (kg/m3)
41      rn2                                   !: brunt-vaisala frequency (1/s2)
42
43      !! advection scheme choice
44      !! -----------------------
45      CHARACTER(len=3), PUBLIC  ::   l_adv   !: 'ce2' centre scheme used
46         !                                   !: 'tvd' TVD scheme used
47         !                                   !: 'mus' MUSCL scheme used
48         !                                   !: 'mu2' MUSCL2 scheme used
49
50   !! surface pressure gradient
51   !! -------------------------
52   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &   !:
53      spgu, spgv             !: horizontal surface pressure gradient
54
55   !! interpolated gradient (only used in zps case)
56   !! ---------------------
57   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &   !:
58      gtu, gsu, gru,      &  !: t-, s- and rd horizontal gradient at u- and
59      gtv, gsv, grv          !: v-points at bottom ocean level
60
61   !! free surface
62   !! ------------
63   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &   !:
64      sshb , sshn ,        &  !: before, now sea surface height (meters)
65      sshu , sshv ,        &  !: sea surface height at u- and v- point
66      sshbb, ssha             !: before before sea surface height at t-point
67
68#if defined key_dynspg_rl   ||   defined key_esopa
69   !! rigid-lid formulation
70   !! ---------------------
71   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &   !:
72      bsfb, bsfn,         &  !: before, now barotropic streamfunction (m3/s)
73      bsfd                   !: now trend of barotropic streamfunction (m3/s2)
74#endif
75   !!----------------------------------------------------------------------
76END MODULE oce
Note: See TracBrowser for help on using the repository browser.