source: branches/UKMO/r6232_tracer_advection/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_oce.F90 @ 9295

Last change on this file since 9295 was 9295, checked in by jcastill, 3 years ago

Remove svn keywords

File size: 3.8 KB
Line 
1MODULE ldfdyn_oce
2   !!======================================================================
3   !!                  ***  MODULE  ldfdyn_oce  ***
4   !! Ocean physics:  lateral momentum mixing coefficient defined in memory
5   !!======================================================================
6   !! History :  1.0  ! 2002-11  (G. Madec)  F90: Free form and module
7   !!----------------------------------------------------------------------
8   USE par_oce        ! ocean parameters
9   USE in_out_manager ! I/O manager
10   USE lib_mpp         ! MPP library
11
12   IMPLICIT NONE
13   PUBLIC
14
15   !                                       !!* Namelist namdyn_ldf : lateral mixing *
16   LOGICAL , PUBLIC ::   ln_dynldf_lap      !: laplacian operator
17   LOGICAL , PUBLIC ::   ln_dynldf_bilap    !: bilaplacian operator
18   LOGICAL , PUBLIC ::   ln_dynldf_level    !: iso-level direction
19   LOGICAL , PUBLIC ::   ln_dynldf_hor      !: horizontal (geopotential) direction
20   LOGICAL , PUBLIC ::   ln_dynldf_iso      !: iso-neutral direction
21   REAL(wp), PUBLIC ::   rn_ahm_0_lap       !: lateral laplacian eddy viscosity (m2/s)
22   REAL(wp), PUBLIC ::   rn_ahmb_0          !: lateral laplacian background eddy viscosity (m2/s)
23   REAL(wp), PUBLIC ::   rn_ahm_0_blp       !: lateral bilaplacian eddy viscosity (m4/s)
24   REAL(wp), PUBLIC ::   ahm0, ahmb0, ahm0_blp         !: OLD namelist names
25   REAL(wp), PUBLIC ::   rn_cmsmag_1        !: constant in laplacian Smagorinsky viscosity
26   REAL(wp), PUBLIC ::   rn_cmsmag_2        !: constant in bilaplacian Smagorinsky viscosity
27   REAL(wp), PUBLIC ::   rn_cmsh            !: 1 or 0 , if 0 -use only shear for Smagorinsky viscosity
28   REAL(wp), PUBLIC ::   rn_ahm_m_blp       !: upper limit for bilap  abs(ahm) < min( dx^4/128rdt, rn_ahm_m_blp)
29   REAL(wp), PUBLIC ::   rn_ahm_m_lap       !: upper limit for lap  ahm < min(dx^2/16rdt, rn_ahm_m_lap)
30
31   INTEGER , PUBLIC ::   nkahm_smag      =  0          !:
32
33   !                                                                                  !!! eddy coeff. at U-,V-,W-pts [m2/s]
34#if defined key_dynldf_c3d
35   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   ahm1, ahm2, ahm3, ahm4   !: ** 3D coefficients **
36#elif defined key_dynldf_c2d
37   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   ahm1, ahm2, ahm3, ahm4   !: ** 2D coefficients **
38#elif defined key_dynldf_c1d
39   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)     ::   ahm1, ahm2, ahm3, ahm4   !: ** 2D coefficients **
40#else
41   REAL(wp), PUBLIC                                      ::   ahm1, ahm2, ahm3, ahm4   !: ** 0D coefficients **
42#endif
43
44   !!----------------------------------------------------------------------
45   !! NEMO/OPA 4.0 , NEMO Consortium (2011)
46   !! $Id$
47   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
48   !!----------------------------------------------------------------------
49CONTAINS
50
51   INTEGER FUNCTION ldfdyn_oce_alloc()
52      !!----------------------------------------------------------------------
53      !!                 ***  FUNCTION ldfdyn_oce_alloc  ***
54      !!----------------------------------------------------------------------
55      ldfdyn_oce_alloc = 0
56#if defined key_dynldf_c3d
57      ALLOCATE( ahm1(jpi,jpj,jpk) , ahm2(jpi,jpj,jpk) , ahm3(jpi,jpj,jpk) , ahm4(jpi,jpj,jpk) , STAT=ldfdyn_oce_alloc )
58#elif defined key_dynldf_c2d
59      ALLOCATE( ahm1(jpi,jpj    ) , ahm2(jpi,jpj    ) , ahm3(jpi,jpj    ) , ahm4(jpi,jpj    ) , STAT=ldfdyn_oce_alloc )
60#elif defined key_dynldf_c1d
61      ALLOCATE( ahm1(        jpk) , ahm2(        jpk) , ahm3(        jpk) , ahm4(        jpk) , STAT=ldfdyn_oce_alloc )
62#endif
63      IF( ldfdyn_oce_alloc /= 0 )   CALL ctl_warn('ldfdyn_oce_alloc: failed to allocate arrays')
64      !
65   END FUNCTION ldfdyn_oce_alloc
66
67   !!======================================================================
68END MODULE ldfdyn_oce
Note: See TracBrowser for help on using the repository browser.