Changeset 2528 for trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90

Timestamp:

2010-12-27T18:33:53+01:00 (13 years ago)

Author:

rblod

Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90 (modified) (2 diffs, 1 prop)

trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90

@@ -31 +31 @@
 #  include "obc_vectopt_loop_substitute.h90"
    !!----------------------------------------------------------------------
-   !! NEMO/OPA 9.0 , LOCEAN-IPSL (2005) 
+   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
    !! $Id$ 
-   !! software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_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