Changeset 2176 for branches/DEV_r1924_visbeck/NEMO/OPA_SRC/LDF/ldftra_oce.F90

Timestamp:

2010-10-07T09:39:02+02:00 (14 years ago)

Author:

sga

Message:

NEMO branch DEV_r1924_visbeck.

Add code to be cut from branch DEV_r1924_nocs_latphys at revision 2163

File:

• branches/DEV_r1924_visbeck/NEMO/OPA_SRC/LDF/ldftra_oce.F90 (modified) (2 diffs)

branches/DEV_r1924_visbeck/NEMO/OPA_SRC/LDF/ldftra_oce.F90

@@ -20 +20 @@
    LOGICAL , PUBLIC ::   ln_traldf_hor   = .FALSE.   !: horizontal (geopotential) direction
    LOGICAL , PUBLIC ::   ln_traldf_iso   = .TRUE.    !: iso-neutral direction
+   LOGICAL , PUBLIC ::   ln_traldf_vis   = .FALSE.   !: visbeck eddy velocity coefficients
    REAL(wp), PUBLIC ::   rn_aht_0        = 2000._wp  !: lateral eddy diffusivity (m2/s)
    REAL(wp), PUBLIC ::   rn_ahtb_0       =    0._wp  !: lateral background eddy diffusivity (m2/s)
@@ -41 +42 @@
    !!   'key_traldf_eiv'                              eddy induced velocity
    !!----------------------------------------------------------------------
-   LOGICAL, PUBLIC, PARAMETER ::   lk_traldf_eiv   = .TRUE.   !: eddy induced velocity flag
+   LOGICAL, PUBLIC, PARAMETER               ::   lk_traldf_eiv   = .TRUE.   !: eddy induced velocity flag
       
 # if defined key_traldf_c3d