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

branches/DEV_r1924_visbeck/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,                                     &
          &                 rn_aht_0       , rn_ahtb_0      , rn_aeiv_0
       !!----------------------------------------------------------------------
@@ -83 +84 @@
          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,*) '      lateral eddy diffusivity      rn_aht_0        = ', rn_aht_0
          WRITE(numout,*) '      background hor. diffusivity   rn_ahtb_0       = ', rn_ahtb_0