Changeset 2292 for branches/DEV_r1879_FCM/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90

Timestamp:

2010-10-19T12:15:40+02:00 (14 years ago)

Author:

smasson

Message:

update DEV_r1879_FCM for additional tests...

File:

• branches/DEV_r1879_FCM/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90 (modified) (3 diffs)

branches/DEV_r1879_FCM/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90

@@ -70 +70 @@
 
       ! convert DOCTOR namelist name into the OLD names
-      nbobc    = 0
       nobc_dta = nn_obcdta
       cffile   = cn_obcdta
@@ -430 +429 @@
          END DO
       END IF
+
       IF( lp_obc_west ) THEN ! ... West open boundary lateral surface
          DO ji = niw0, niw1
@@ -437 +437 @@
          END DO
       END IF
+
       IF( lp_obc_north ) THEN ! ... North open boundary lateral surface
          DO jj = njn0, njn1