Changeset 1388 for branches/dev_004_VVL/NEMO/OPA_SRC/LDF

Timestamp:

2009-04-07T17:10:46+02:00 (15 years ago)

Author:

rblod

Message:

Add bfore Brunt-Vaisala frequency for evd, see ticket #401

File:

• branches/dev_004_VVL/NEMO/OPA_SRC/LDF/ldfeiv.F90 (modified) (2 diffs)

branches/dev_004_VVL/NEMO/OPA_SRC/LDF/ldfeiv.F90

@@ -94 +94 @@
             ! of the square root of the resulting N^2 ( required to compute
             ! internal Rossby radius Ro = .5 * sum_jpk(N) / f
-            zn2 = MAX( rn2(ji,1,jk), 0.e0 )
+            zn2 = MAX( rn2b(ji,1,jk), 0.e0 )
             zn(ji,1) = zn(ji,1) + SQRT( zn2 ) * fse3w(ji,1,jk)
             ! Compute elements required for the inverse time scale of baroclinic
@@ -113 +113 @@
                ! of the square root of the resulting N^2 ( required to compute 
                ! internal Rossby radius Ro = .5 * sum_jpk(N) / f 
-               zn2 = MAX( rn2(ji,jj,jk), 0.e0 )
+               zn2 = MAX( rn2b(ji,jj,jk), 0.e0 )
                zn(ji,jj) = zn(ji,jj) + SQRT( zn2 ) * fse3w(ji,jj,jk)
                ! Compute elements required for the inverse time scale of baroclinic