Changeset 78 for trunk/NEMO/OPA_SRC/OBC/obcdta.F90

Timestamp:

2004-04-22T14:54:25+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE052 : change logical lpXXXobc to lp_obc_XXX for Open Boundaries case

File:

• trunk/NEMO/OPA_SRC/OBC/obcdta.F90 (modified) (14 diffs)

trunk/NEMO/OPA_SRC/OBC/obcdta.F90

@@ -110 +110 @@
          ! 1.1  Tangential velocities set to zero
          ! --------------------------------------
-         IF( lpeastobc ) THEN
-            DO jk=1, jpkm1
-               vfoe(:,jk)=0.00
-            END DO
-         END IF
-
-         IF( lpwestobc ) THEN
-            DO jk=1, jpkm1
-               vfow(:,jk)=0.00
-            END DO
-         END IF
-
-         IF( lpsouthobc ) THEN
-            DO jk=1, jpkm1
-                ufos(:,jk)=0.00
-            END DO
-         END IF
-
-         IF( lpnorthobc ) THEN
-            DO jk=1, jpkm1
-               ufon(:,jk)=0.00
-            END DO
-         END IF       
+         IF( lp_obc_east  )   vfoe(:,1:jpkm1) = 0.e0
+         IF( lp_obc_west  )   vfow(:,1:jpkm1) = 0.e0
+         IF( lp_obc_south )   ufos(:,1:jpkm1) = 0.e0
+         IF( lp_obc_north )   ufon(:,1:jpkm1) = 0.e0
 
          ! 1.2 Set the Normal velocity and tracers data for the EAST OBC
          ! -------------------------------------------------------------
 
-         IF( lpeastobc ) THEN
+         IF( lp_obc_east ) THEN
 
             ! initialisation to zero
@@ -234 +215 @@
          ! -------------------------------------------------------------
 
-         IF( lpwestobc) THEN
+         IF( lp_obc_west ) THEN
 
             ! initialisation to zero
@@ -328 +309 @@
          ! ---------------------------------------------------------------
 
-         IF( lpnorthobc) THEN
+         IF( lp_obc_north ) THEN
 
             ! initialisation to zero
@@ -400 +381 @@
          ! ---------------------------------------------------------------
 
-         IF( lpsouthobc) THEN
+         IF( lp_obc_south ) THEN
 
             ! initialisation to zero
@@ -476 +457 @@
       ! ----------------------------------------------------------------------
 
-      IF( lpeastobc) THEN
+      IF( lp_obc_east ) THEN
          DO jk = 1, jpkm1
             DO jj = 1, jpj
@@ -487 +468 @@
       END IF
 
-      IF( lpwestobc) THEN
+      IF( lp_obc_west ) THEN
          DO jk = 1, jpkm1
             DO jj = 1, jpj
@@ -498 +479 @@
       END IF
 
-      IF( lpnorthobc) THEN 
+      IF( lp_obc_north ) THEN 
          DO jk = 1, jpkm1
             DO ji = 1, jpi
@@ -509 +490 @@
       END IF
 
-      IF( lpsouthobc) THEN 
+      IF( lp_obc_south ) THEN 
          DO jk = 1, jpkm1
             DO ji = 1, jpi
@@ -585 +566 @@
          zcoef = float(kt)/float(kbsfstart)
       ELSE
-         zcoef = 1.
+         zcoef = 1.e0
       END IF
       bsfic(1) = zsver1*zcoef
@@ -612 +593 @@
       IF( nbobc > 1 ) THEN
          DO jnic = 1,nbobc - 1
-            gcbic(jnic) = 0.
+            gcbic(jnic) = 0.e0
             ip=mnic(0,jnic)
             DO jip = 1,ip
@@ -632 +613 @@
       ! ----------------------------------------------------------------
 
-      IF( lpeastobc ) THEN
+      IF( lp_obc_east ) THEN
 
          IF( kt == nit000 .OR. kt <= kbsfstart ) THEN
@@ -650 +631 @@
       END IF
 
-      IF( lpwestobc) THEN
+      IF( lp_obc_west ) THEN
 
          IF( kt == nit000 .OR. kt <= kbsfstart ) then
@@ -663 +644 @@
          END IF
          DO jj=jpjwd, jpjwfm1
-            bfow(jj)=bfow(jj)*zcoef
-         END DO
-
-      END IF
-
-      IF( lpsouthobc) THEN
-
-         IF( kt == nit000.OR.kt <= kbsfstart ) THEN
+            bfow(jj) = bfow(jj) * zcoef
+         END DO
+
+      END IF
+
+      IF( lp_obc_south ) THEN
+
+         IF( kt == nit000 .OR. kt <= kbsfstart ) THEN
             OPEN(inum,file='obcsouthbsf.dta')
             READ(inum,*)
@@ -686 +667 @@
       END IF
 
-      IF( lpnorthobc) THEN
-         IF( kt == nit000.OR.kt <= kbsfstart ) THEN
+      IF( lp_obc_north ) THEN
+         IF( kt == nit000 .OR. kt <= kbsfstart ) THEN
             OPEN(inum,file='obcnorthbsf.dta')
             READ(inum,*)