Changeset 2230

Timestamp:

2010-10-12T16:43:11+02:00 (14 years ago)

Author:

rblod

Message:

Fix bug in obcini for locean branch

File:

• branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/OBC/obcini.F90 (modified) (2 diffs)

branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/OBC/obcini.F90

@@ -33 +33 @@
    !! NEMO/OPA 9.0 , LOCEAN-IPSL (2005) 
    !! $Id$ 
-   !! software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
+   !! software governed by the CeCILL licence  (NEMOGCM/License_CeCILL.txt)
    !!----------------------------------------------------------------------
 
@@ -437 +437 @@
          END DO
       END IF
+
+      IF( lp_obc_west ) THEN ! ... West open boundary lateral surface
+         DO ji = niw0, niw1
+            DO jj = 1, jpj 
+               obcsurftot = obcsurftot+hu(ji,jj)*e2u(ji,jj)*uwmsk(jj,1) * MAX(obctmsk(ji,jj),obctmsk(ji+1,jj) )
+            END DO
+         END DO
+      END IF
+
       IF( lp_obc_north ) THEN ! ... North open boundary lateral surface
          DO jj = njn0, njn1