Changeset 292 for trunk/NEMO/OPA_SRC/OBC

Timestamp:

2005-09-22T12:48:12+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_009 : CT : the obcsurftot variable must be initialized to zero before its computation

File:

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

trunk/NEMO/OPA_SRC/OBC/obcini.F90

@@ -499 +499 @@
       ! ------------------------------------------------
 
-      ! ... West open boundary surface
-      IF( lp_obc_west ) THEN
+      obcsurftot = 0.e0
+      
+      IF( lp_obc_west ) THEN    ! ... West open boundary vertical surface
          DO ji = niw0, niw1
             DO jj = 1, jpj 
@@ -508 +509 @@
        END IF
 
-      ! ... East open boundary surface
-      IF( lp_obc_east ) THEN
+      IF( lp_obc_east ) THEN    ! ... East open boundary vertical surface
          DO ji = nie0, nie1
             DO jj = 1, jpj 
@@ -517 +517 @@
       END IF
 
-      ! ... North open boundary vertical surface
-      IF( lp_obc_north ) THEN
+      IF( lp_obc_north ) THEN   ! ... North open boundary vertical surface
          DO jj = njn0, njn1
             DO ji = 1, jpi
@@ -526 +525 @@
       END IF
 
-      ! ... South open boundary vertical surface
-      IF( lp_obc_south ) THEN
+      IF( lp_obc_south ) THEN   ! ... South open boundary vertical surface
          DO jj = njs0, njs1
             DO ji = 1, jpi