Changeset 902 for trunk/NEMO/OPA_SRC/TRA/traldf.F90

Timestamp:

2008-04-22T21:41:39+02:00 (16 years ago)

Author:

rblod

Message:

Correct a bug with key_ldf_slp and ln_traldf_iso = .FALSE., see ticket #118

File:

• trunk/NEMO/OPA_SRC/TRA/traldf.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/traldf.F90

@@ -33 +33 @@
    PUBLIC   tra_ldf    ! called by step.F90 
 
-   INTEGER ::   nldf = 0   ! type of lateral diffusion used defined from ln_traldf_... namlist logicals)
+   INTEGER, PUBLIC ::   nldf = 0   ! type of lateral diffusion used defined from ln_traldf_... namlist logicals)
+                                   ! (need to be public to be used in vertical diffusion routine)
 #if defined key_traldf_ano
    REAL, DIMENSION(jpi,jpj,jpk) ::   t0_ldf, s0_ldf   ! lateral diffusion trends of T & S
@@ -159 +160 @@
 
       ! defined the type of lateral diffusion from ln_traldf_... logicals
+      ! CAUTION : nldf = 1 is used in trazdf_imp, change it carefully
       ierr = 0
       IF( ln_traldf_lap ) THEN       ! laplacian operator