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

source: trunk/NEMO/OPA_SRC/LDF/ldfdyn_oce.F90 @ 1152

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

Convert cvs header to svn Id, step II
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.2 KB
Line 
1MODULE ldfdyn_oce
2   !!======================================================================
3   !!                  ***  MODULE  ldfdyn_oce  ***
4   !! Ocean physics:  lateral momentum mixing coefficient defined in memory
5   !!======================================================================
6   !!
7   !! ** Purpose :
8   !!       - Define in memory lateral momentum mixing coefficients
9   !!
10   !! History :
11   !!   8.5  !  02-11  (G. Madec)  F90: Free form and module
12   !!----------------------------------------------------------------------
13   !!  OPA 9.0 , LOCEAN-IPSL (2005)
14   !! $Id$
15   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
16   !!----------------------------------------------------------------------
17   !! * Modules used
18   USE par_oce      ! ocean parameters
19
20   IMPLICIT NONE
21   PUBLIC
22
23   !!----------------------------------------------------------------------
24   !! Lateral eddy viscosity coefficients (dynamics)
25   !!----------------------------------------------------------------------
26
27   LOGICAL  ::                      & !!! ** lateral mixing namelist (nam_dynldf) **
28      ln_dynldf_lap   = .TRUE.  ,   &  ! laplacian operator
29      ln_dynldf_bilap = .FALSE. ,   &  ! bilaplacian operator
30      ln_dynldf_level = .FALSE. ,   &  ! iso-level direction
31      ln_dynldf_hor   = .TRUE.  ,   &  ! horizontal (geopotential) direction
32      ln_dynldf_iso   = .FALSE.        ! iso-neutral direction
33
34   REAL(wp) ::                      & !!! ** lateral mixing namelist (nam_dynldf) **
35      ahm0  = 40000._wp ,   &  ! lateral eddy viscosity (m2/s)
36      ahmb0 =     0._wp        ! lateral background eddy viscosity (m2/s)
37
38#if defined key_dynldf_c3d
39   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   &  ! ** 3D coefficients **
40#elif defined key_dynldf_c2d
41   REAL(wp), DIMENSION(jpi,jpj)     ::   &  ! ** 2D coefficients **
42#elif defined key_dynldf_c1d
43   REAL(wp), DIMENSION(jpk)         ::   &  ! ** 2D coefficients **
44#else
45   REAL(wp)                         ::   &  ! ** 0D coefficients **
46#endif
47      ahm1, ahm2, ahm3, ahm4                ! ????
48
49   !!----------------------------------------------------------------------
50END MODULE ldfdyn_oce
Note: See TracBrowser for help on using the repository browser.