Changeset 78 for trunk/NEMO/OPA_SRC/OBC/obcvol.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/obcvol.F90 (modified) (8 diffs)

trunk/NEMO/OPA_SRC/OBC/obcvol.F90

@@ -110 +110 @@
 
       ! ... West open boundary
-      IF( lpwestobc ) THEN                      ! ... Total transport through the West OBC
+      IF( lp_obc_west ) THEN                      ! ... Total transport through the West OBC
          DO ji = fs_niw0, fs_niw1 ! Vector opt.
             DO jk = 1, jpkm1
@@ -121 +121 @@
 
       ! ... East open boundary
-      IF( lpeastobc ) THEN                      ! ... Total transport through the East OBC
+      IF( lp_obc_east ) THEN                      ! ... Total transport through the East OBC
          DO ji = fs_nie0, fs_nie1 ! Vector opt.
             DO jk = 1, jpkm1
@@ -132 +132 @@
 
       ! ... North open boundary
-      IF( lpnorthobc ) THEN                     ! ... Total transport through the North OBC
+      IF( lp_obc_north ) THEN                     ! ... Total transport through the North OBC
          DO jj = fs_njn0, fs_njn1 ! Vector opt.
             DO jk = 1, jpkm1
@@ -143 +143 @@
 
       ! ... South open boundary
-      IF( lpsouthobc ) THEN                     ! ... Total transport through the South OBC
+      IF( lp_obc_south ) THEN                     ! ... Total transport through the South OBC
          DO jj = fs_njs0, fs_njs1 ! Vector opt.
             DO jk = 1, jpkm1
@@ -182 +182 @@
       ztranst = 0.e0
 
-      IF( lpwestobc ) THEN
+      IF( lp_obc_west ) THEN
 
          ! ... correction of the west velocity
@@ -202 +202 @@
       END IF 
 
-      IF( lpeastobc ) THEN
+      IF( lp_obc_east ) THEN
 
          ! ... correction of the east velocity
@@ -222 +222 @@
       END IF 
 
-      IF( lpnorthobc ) THEN
+      IF( lp_obc_north ) THEN
 
          ! ... correction of the north velocity
@@ -241 +241 @@
       END IF 
 
-      IF( lpsouthobc ) THEN
+      IF( lp_obc_south ) THEN
 
          ! ... correction of the south velocity