Changeset 2270

Timestamp:

2010-10-14T18:10:32+02:00 (14 years ago)

Author:

rblod

Message:

Correct a bug in obcfla, see ticket #736

File:

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

trunk/NEMO/OPA_SRC/OBC/obcfla.F90

@@ -87 +87 @@
                &            - sshfoe(jj) )  ) * uemsk(jj,1)
          END DO
-      END DO
-      DO ji = nie0p1, nie1p1
          DO jj = 1, jpj
             sshfoe_b(ji,jj) = sshfoe_b(ji,jj) + sqrt( grav*hur(ji,jj) )     &
@@ -156 +154 @@
                &                - sshfon(ji) ) ) * vnmsk(ji,1)
          END DO
-      END DO
-      DO jj = njn0p1, njn1p1
          DO ji = 1, jpi
             sshfon_b(ji,jj) = sshfon_b(ji,jj) + sqrt( grav * hvr(ji,jj) )  &