Changeset 1125 for trunk/NEMO/OPA_SRC/DYN

Timestamp:

2008-06-23T11:05:02+02:00 (16 years ago)

Author:

ctlod

Message:

trunk: BDY package code review (coding rules), see ticket: #214

Location:

trunk/NEMO/OPA_SRC/DYN

Files:

• divcur.F90 (modified) (2 diffs)
• dynnxt.F90 (modified) (1 diff)
• wzvmod.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DYN/divcur.F90

@@ -136 +136 @@
 #endif
 #endif         
-#if defined key_bdy || defined key_bdy_tides
+#if defined key_bdy
          ! unstructured open boundaries (div must be zero behind the open boundary)
          DO jj = 1, jpj
@@ -354 +354 @@
 #endif
 #endif         
-#if defined key_bdy || defined key_bdy_tides
+#if defined key_bdy
          ! unstructured open boundaries (div must be zero behind the open boundary)
          DO jj = 1, jpj

trunk/NEMO/OPA_SRC/DYN/dynnxt.F90

@@ -238 +238 @@
       DO jk = 1, jpkm1                                 ! Horizontal slab
          !                                             ! ===============
-# elif defined key_bdy || key_bdy_tides
+# elif defined key_bdy 
          !                                             ! ===============
       END DO                                           !   End of slab

trunk/NEMO/OPA_SRC/DYN/wzvmod.F90

@@ -61 +61 @@
       REAL(wp) ::   z2dt, zraur          ! temporary scalar
       REAL(wp), DIMENSION (jpi,jpj) ::   zssha, zun, zvn, zhdiv
-#if defined key_bdy || defined key_bdy_tides
+#if defined key_bdy
       INTEGER  ::     jgrd, jb           ! temporary scalars
 #endif
@@ -113 +113 @@
 #endif
 
-#if defined key_bdy || defined key_bdy_tides
+#if defined key_bdy
          jgrd=1 !: tracer grid.
          DO jb = 1, nblenrim(jgrd)