Changeset 56 for trunk

Timestamp:

10/26/12 02:18:46 (12 years ago)

Author:

smasson

Message:

supress stops in obcini for channel configuration

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90 (modified) (1 diff)

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

@@ -541 +541 @@
       END IF
 
-      IF( icorner(1) == 2 ) THEN
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) ' South West ocean corner, two open boudaries'
-         IF(lwp) WRITE(numout,*) ' ========== '
-         IF(lwp) WRITE(numout,*)
-         IF( jpisd /= jpiwob.OR.jpjsob /= jpjwd ) &
-              &   CALL ctl_stop( ' Open boundaries do not fit, we stop' )
-
-      ELSE IF( icorner(1) == 1 ) THEN
-         CALL ctl_stop( ' Open boundaries do not fit at SW corner, we stop' )
-      END IF 
-
-      IF( icorner(2) == 2 ) THEN
-          IF(lwp) WRITE(numout,*)
-          IF(lwp) WRITE(numout,*) ' South East ocean corner, two open boudaries'
-          IF(lwp) WRITE(numout,*) ' ========== '
-          IF(lwp) WRITE(numout,*)
-          IF( jpisf /= jpieob+1.OR.jpjsob /= jpjed ) &
-               &   CALL ctl_stop( ' Open boundaries do not fit, we stop' )
-      ELSE IF( icorner(2) == 1 ) THEN
-         CALL ctl_stop( ' Open boundaries do not fit at SE corner, we stop' )
-      END IF 
-
-      IF( icorner(3) == 2 ) THEN
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) ' North East ocean corner, two open boudaries'
-         IF(lwp) WRITE(numout,*) ' ========== '
-         IF(lwp) WRITE(numout,*)
-         IF( jpinf /= jpieob+1 .OR. jpjnob+1 /= jpjef ) &
-              &   CALL ctl_stop( ' Open boundaries do not fit, we stop' )
-       ELSE IF( icorner(3) == 1 ) THEN
-          CALL ctl_stop( ' Open boundaries do not fit at NE corner, we stop' )
-       END IF 
-
-      IF( icorner(4) == 2 ) THEN
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) ' North West ocean corner, two open boudaries'
-         IF(lwp) WRITE(numout,*) ' ========== '
-         IF(lwp) WRITE(numout,*)
-         IF( jpind /= jpiwob.OR.jpjnob+1 /= jpjwf ) &
-              &   CALL ctl_stop( ' Open boundaries do not fit, we stop' )
-       ELSE IF( icorner(4) == 1 ) THEN
-          CALL ctl_stop( ' Open boundaries do not fit at NW corner, we stop' )
-       END IF 
+!!$      IF( icorner(1) == 2 ) THEN
+!!$         IF(lwp) WRITE(numout,*)
+!!$         IF(lwp) WRITE(numout,*) ' South West ocean corner, two open boudaries'
+!!$         IF(lwp) WRITE(numout,*) ' ========== '
+!!$         IF(lwp) WRITE(numout,*)
+!!$         IF( jpisd /= jpiwob.OR.jpjsob /= jpjwd ) &
+!!$              &   CALL ctl_stop( ' Open boundaries do not fit, we stop' )
+!!$
+!!$      ELSE IF( icorner(1) == 1 ) THEN
+!!$         CALL ctl_stop( ' Open boundaries do not fit at SW corner, we stop' )
+!!$      END IF 
+!!$
+!!$      IF( icorner(2) == 2 ) THEN
+!!$          IF(lwp) WRITE(numout,*)
+!!$          IF(lwp) WRITE(numout,*) ' South East ocean corner, two open boudaries'
+!!$          IF(lwp) WRITE(numout,*) ' ========== '
+!!$          IF(lwp) WRITE(numout,*)
+!!$          IF( jpisf /= jpieob+1.OR.jpjsob /= jpjed ) &
+!!$               &   CALL ctl_stop( ' Open boundaries do not fit, we stop' )
+!!$      ELSE IF( icorner(2) == 1 ) THEN
+!!$         CALL ctl_stop( ' Open boundaries do not fit at SE corner, we stop' )
+!!$      END IF 
+!!$
+!!$      IF( icorner(3) == 2 ) THEN
+!!$         IF(lwp) WRITE(numout,*)
+!!$         IF(lwp) WRITE(numout,*) ' North East ocean corner, two open boudaries'
+!!$         IF(lwp) WRITE(numout,*) ' ========== '
+!!$         IF(lwp) WRITE(numout,*)
+!!$         IF( jpinf /= jpieob+1 .OR. jpjnob+1 /= jpjef ) &
+!!$              &   CALL ctl_stop( ' Open boundaries do not fit, we stop' )
+!!$       ELSE IF( icorner(3) == 1 ) THEN
+!!$          CALL ctl_stop( ' Open boundaries do not fit at NE corner, we stop' )
+!!$       END IF 
+!!$
+!!$      IF( icorner(4) == 2 ) THEN
+!!$         IF(lwp) WRITE(numout,*)
+!!$         IF(lwp) WRITE(numout,*) ' North West ocean corner, two open boudaries'
+!!$         IF(lwp) WRITE(numout,*) ' ========== '
+!!$         IF(lwp) WRITE(numout,*)
+!!$         IF( jpind /= jpiwob.OR.jpjnob+1 /= jpjwf ) &
+!!$              &   CALL ctl_stop( ' Open boundaries do not fit, we stop' )
+!!$       ELSE IF( icorner(4) == 1 ) THEN
+!!$          CALL ctl_stop( ' Open boundaries do not fit at NW corner, we stop' )
+!!$       END IF 
 
       ! 6. Initialization of open boundary variables (u, v, t, s)