Changeset 78 for trunk/NEMO/OPA_SRC/DYN/dynspg_rl.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/DYN/dynspg_rl.F90 (modified) (10 diffs)

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