Changeset 2128 for branches/devukmo2010/NEMO/OPA_SRC/DYN/dynspg_flt.F90

Timestamp:

2010-09-28T14:29:51+02:00 (14 years ago)

Author:

rfurner

Message:

merged branches OBS, ASM, Rivers, BDY & mixed_dynldf ready for vn3.3 merge

File:

• branches/devukmo2010/NEMO/OPA_SRC/DYN/dynspg_flt.F90 (modified) (1 diff)

branches/devukmo2010/NEMO/OPA_SRC/DYN/dynspg_flt.F90

@@ -85 +85 @@
       !!         where (spgu,spgv) are given by:
       !!            spgu = vertical sum[ e3u (ub+ 2 rdt ua ) ]
-      !!                 - grav 2 rdt hu /e1u di[sshn + emp]
+      !!                 - grav 2 rdt hu /e1u di[sshn + (emp-rnf)]
       !!            spgv = vertical sum[ e3v (vb+ 2 rdt va) ]
-      !!                 - grav 2 rdt hv /e2v dj[sshn + emp]
+      !!                 - grav 2 rdt hv /e2v dj[sshn + (emp-rnf)]
       !!         and define the first guess from previous computation :
       !!            zbtd = btda