Changeset 78 for trunk/NEMO/OPA_SRC/DYN

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

Location:

trunk/NEMO/OPA_SRC/DYN

Files:

• divcur.F90 (modified) (2 diffs)
• dynspg_rl.F90 (modified) (10 diffs)

trunk/NEMO/OPA_SRC/DYN/divcur.F90

@@ -123 +123 @@
          ! open boundaries (div must be zero behind the open boundary)
          !  mpp remark: The zeroing of hdivn can probably be extended to 1->jpi/jpj for the correct row/column
-         IF( lpeastobc  )   hdivn(nie0p1:nie1p1,nje0  :nje1  ,jk) = 0.e0      ! east
-         IF( lpwestobc  )   hdivn(niw0  :niw1  ,njw0  :njw1  ,jk) = 0.e0      ! west
-         IF( lpnorthobc )   hdivn(nin0  :nin1  ,njn0p1:njn1p1,jk) = 0.e0      ! north
-         IF( lpsouthobc )   hdivn(nis0  :nis1  ,njs0  :njs1  ,jk) = 0.e0      ! south
+         IF( lp_obc_east  )   hdivn(nie0p1:nie1p1,nje0  :nje1  ,jk) = 0.e0      ! east
+         IF( lp_obc_west  )   hdivn(niw0  :niw1  ,njw0  :njw1  ,jk) = 0.e0      ! west
+         IF( lp_obc_north )   hdivn(nin0  :nin1  ,njn0p1:njn1p1,jk) = 0.e0      ! north
+         IF( lp_obc_south )   hdivn(nis0  :nis1  ,njs0  :njs1  ,jk) = 0.e0      ! south
 #endif         
 
@@ -319 +319 @@
          ! open boundaries (div must be zero behind the open boundary)
          !  mpp remark: The zeroing of hdivn can probably be extended to 1->jpi/jpj for the correct row/column
-         IF( lpeastobc  )   hdivn(nie0p1:nie1p1,nje0  :nje1  ,jk) = 0.e0      ! east
-         IF( lpwestobc  )   hdivn(niw0  :niw1  ,njw0  :njw1  ,jk) = 0.e0      ! west
-         IF( lpnorthobc )   hdivn(nin0  :nin1  ,njn0p1:njn1p1,jk) = 0.e0      ! north
-         IF( lpsouthobc )   hdivn(nis0  :nis1  ,njs0  :njs1  ,jk) = 0.e0      ! south
+         IF( lp_obc_east  )   hdivn(nie0p1:nie1p1,nje0  :nje1  ,jk) = 0.e0      ! east
+         IF( lp_obc_west  )   hdivn(niw0  :niw1  ,njw0  :njw1  ,jk) = 0.e0      ! west
+         IF( lp_obc_north )   hdivn(nin0  :nin1  ,njn0p1:njn1p1,jk) = 0.e0      ! north
+         IF( lp_obc_south )   hdivn(nis0  :nis1  ,njs0  :njs1  ,jk) = 0.e0      ! south
 #endif         
          !                                             ! --------

trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90

@@ -69 +69 @@
       !!      gradient or a successive-over-relaxation method (depending
       !!      on nsolv, a namelist parameter).
-      !!         -3- add to bsfd the island trends if l_isl=T
+      !!         -3- add to bsfd the island trends if lk_isl=T
       !!         -4- compute the after streamfunction is for further diagnos-
       !!      tics using a leap-frog scheme.
@@ -247 +247 @@
       ! -----------------------------------
 
-      IF( l_isl )   CALL isl_dyn_spg         ! update bsfd
+      IF( lk_isl )   CALL isl_dyn_spg         ! update bsfd
 
 
@@ -253 +253 @@
       ! Compute bsf trend for OBC points (not masked)
 
-      IF( lpeastobc ) THEN
+      IF( lp_obc_east ) THEN
       ! compute bsf trend at the boundary from bsfeob, computed in obc_spg
       IF( neuler == 0 .AND. kt == nit000 ) THEN
@@ -268 +268 @@
       ENDIF
 
-      IF( lpwestobc ) THEN
+      IF( lp_obc_west ) THEN
       ! compute bsf trend at the boundary from bsfwob, computed in obc_spg
       IF( neuler == 0 .AND. kt == nit000 ) THEN
@@ -283 +283 @@
       ENDIF
 
-      IF( lpnorthobc ) THEN
+      IF( lp_obc_north ) THEN
       ! compute bsf trend at the boundary from bsfnob, computed in obc_spg
       IF( neuler == 0 .AND. kt == nit000 ) THEN
@@ -298 +298 @@
       ENDIF
 
-      IF( lpsouthobc ) THEN
+      IF( lp_obc_south ) THEN
       ! compute bsf trend at the boundary from bsfsob, computed in obc_spg
       IF( neuler == 0 .AND. kt == nit000 ) THEN
@@ -366 +366 @@
 # if defined key_obc
       ! Swap of boundary arrays
-      IF( lpeastobc ) THEN
+      IF( lp_obc_east ) THEN
       ! (jped,jpef),nieob
       IF( kt < nit000+3 .AND. .NOT.ln_rstart ) THEN
@@ -400 +400 @@
       ENDIF
 
-      IF( lpwestobc ) THEN
+      IF( lp_obc_west ) THEN
       ! (jpwd,jpwf),niwob
       IF( kt < nit000+3 .AND. .NOT.ln_rstart ) THEN
@@ -434 +434 @@
       ENDIF
 
-      IF( lpnorthobc ) THEN
+      IF( lp_obc_north ) THEN
    ! njnob,(jpnd,jpnf)
       IF( kt < nit000 + 3 .AND. .NOT.ln_rstart ) THEN
@@ -468 +468 @@
       ENDIF
 
-      IF( lpsouthobc ) THEN
+      IF( lp_obc_south ) THEN
          ! njsob,(jpsd,jpsf)
          IF( kt < nit000+3 .AND. .NOT.ln_rstart ) THEN