Changeset 475

Timestamp:

2006-06-19T15:05:47+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_043 : CT : tangential velocities on the east and north boundaries must be computed over ghost cells instead of internal values

File:

• trunk/NEMO/OPA_SRC/OBC/obcfla.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/OBC/obcfla.F90

@@ -87 +87 @@
                   &            * ( ( sshn_e(ji,jj) + sshn_e(ji+1,jj) ) * 0.5  &
                   &            - sshfoe(jj) )  ) * uemsk(jj,jk)
-               va_e(ji,jj) = vbtfoe(jj) * uemsk(jj,jk)
             END DO
          END DO
@@ -98 +97 @@
             ssha_e(ji,jj) = ssha_e(ji,jj) * ( 1. - temsk(jj,1) ) &
                &            + temsk(jj,1) * sshfoe(jj)
+            va_e(ji,jj) = vbtfoe(jj) * uemsk(jj,jk)
          END DO
       END DO
@@ -160 +160 @@
                   &            * ( ( sshn_e(ji,jj) + sshn_e(ji,jj+1) ) * 0.5   &
                   &                - sshfon(ji) ) ) * vnmsk(ji,jk)
-               ua_e(ji,jj) = ubtfon(ji) * vnmsk(ji,jk)
             END DO
          END DO
@@ -171 +170 @@
             ssha_e(ji,jj) = ssha_e(ji,jj) * ( 1. - tnmsk(ji,1) ) &
                &            + sshfon(ji) * tnmsk(ji,1)
+            ua_e(ji,jj) = ubtfon(ji) * vnmsk(ji,jk)
          END DO
       END DO