Changeset 4616 for branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/FLO/flo4rk.F90

Timestamp:

2014-04-06T17:28:25+02:00 (10 years ago)

Author:

gm

Message:

#1260 : see the associated wiki page for explanation

File:

• branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/FLO/flo4rk.F90 (modified) (2 diffs)

branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/FLO/flo4rk.F90

@@ -261 +261 @@
                      &   (  tcoef1(ki) * ub(iidu(jfl,jind1),ijdu(jfl,jind2),ikdu(jfl,jind3)) +   &
                      &      tcoef2(ki) * un(iidu(jfl,jind1),ijdu(jfl,jind2),ikdu(jfl,jind3)) )   &
-                     &      / e1u(iidu(jfl,jind1),ijdu(jfl,jind2)) 
+                     &      * r1_e1u(iidu(jfl,jind1),ijdu(jfl,jind2)) 
                END DO
             END DO
@@ -345 +345 @@
                      &   ( tcoef1(ki) * vb(iidv(jfl,jind1),ijdv(jfl,jind2),ikdv(jfl,jind3))  +   &
                      &     tcoef2(ki) * vn(iidv(jfl,jind1),ijdv(jfl,jind2),ikdv(jfl,jind3)) )    & 
-                     &     / e2v(iidv(jfl,jind1),ijdv(jfl,jind2))
+                     &     * r1_e2v(iidv(jfl,jind1),ijdv(jfl,jind2))
                END DO
             END DO