Changeset 2177 for branches/DEV_r1924_nocs_latphys/NEMO/OPA_SRC/LDF/ldftra.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.F90 (modified) (2 diffs)

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

@@ -67 +67 @@
       NAMELIST/namtra_ldf/ ln_traldf_lap  , ln_traldf_bilap,                  &
          &                 ln_traldf_level, ln_traldf_hor  , ln_traldf_iso,   &
-         &                 ln_traldf_vis,   ln_traldf_grif ,                  &
+         &                 ln_traldf_grif ,                                   &
          &                 rn_aht_0       , rn_ahtb_0      , rn_aeiv_0,       &
          &                 rn_slpmax
@@ -85 +85 @@
          WRITE(numout,*) '      laplacian operator            ln_traldf_lap   = ', ln_traldf_lap
          WRITE(numout,*) '      bilaplacian operator          ln_traldf_bilap = ', ln_traldf_bilap
-         WRITE(numout,*) '      visbeck     operator          ln_traldf_vis   = ', ln_traldf_vis   
          WRITE(numout,*) '      griffies    operator          ln_traldf_grif  = ', ln_traldf_grif 
          WRITE(numout,*) '      lateral eddy diffusivity      rn_aht_0        = ', rn_aht_0