Changeset 2177 for branches/DEV_r1924_nocs_latphys/NEMO/OPA_SRC/LDF/ldftra_oce.F90

Timestamp:

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

Author:

sga

Message:

NEMO branch DEV_r1924_nocs_latphys.

Remove code for optional calculation of eddy induced velocity coefficients by Visbeck method.
This code now in separate branch DEV_r1924_visbeck.

File:

• branches/DEV_r1924_nocs_latphys/NEMO/OPA_SRC/LDF/ldftra_oce.F90 (modified) (1 diff)

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

@@ -21 +21 @@
    LOGICAL , PUBLIC ::   ln_traldf_iso   = .TRUE.    !: iso-neutral direction
    LOGICAL , PUBLIC ::   ln_traldf_grif  = .TRUE.    !: griffies skew flux
-   LOGICAL , PUBLIC ::   ln_traldf_vis   = .FALSE.   !: griffies skew flux
    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)