Changeset 1975 for branches/DEV_r1837_MLF/NEMO/OPA_SRC/DYN/dynnxt.F90

Timestamp:

2010-06-28T19:22:14+02:00 (14 years ago)

Author:

mlelod

Message:

ticket: #663 MLF: first part

File:

• branches/DEV_r1837_MLF/NEMO/OPA_SRC/DYN/dynnxt.F90 (modified) (1 diff)

branches/DEV_r1837_MLF/NEMO/OPA_SRC/DYN/dynnxt.F90

@@ -244 +244 @@
                      zve3b = vb(ji,jj,jk) * ze3v_b
                      !
-                     zuf  = ( atfp  * ( zue3b  + zue3a  ) + atfp1 * zue3n  )   &
-                        & / ( atfp  * ( ze3u_b + ze3u_a ) + atfp1 * ze3u_n ) * umask(ji,jj,jk)
-                     zvf  = ( atfp  * ( zve3b  + zve3a  ) + atfp1 * zve3n  )   &
-                        & / ( atfp  * ( ze3v_b + ze3v_a ) + atfp1 * ze3v_n ) * vmask(ji,jj,jk)
+                     zuf  = ( atfp * ( zue3b  + zue3a  ) + atfp1 * zue3n  )   &
+                        & / ( atfp * ( ze3u_b + ze3u_a ) + atfp1 * ze3u_n ) * umask(ji,jj,jk)
+                     zvf  = ( atfp * ( zve3b  + zve3a  ) + atfp1 * zve3n  )   &
+                        & / ( atfp * ( ze3v_b + ze3v_a ) + atfp1 * ze3v_n ) * vmask(ji,jj,jk)
                      !
                      ub(ji,jj,jk) = zuf                      ! ub <-- filtered velocity