Changeset 2185 for branches/devukmo2010/NEMO/OPA_SRC/BDY/bdytides.F90

Timestamp:

2010-10-07T17:17:57+02:00 (14 years ago)

Author:

rfurner

Message:

adding updates from bdy branch, revision 2100:2168

File:

• branches/devukmo2010/NEMO/OPA_SRC/BDY/bdytides.F90 (modified) (3 diffs)

branches/devukmo2010/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -41 +41 @@
    PUBLIC   tide_update   ! routine called in bdydyn
 
-   LOGICAL, PUBLIC            ::   ln_tide_date            !: =T correct tide phases and amplitude for model start date
-
-   INTEGER, PARAMETER,PUBLIC  ::   jptides_max = 15      !: Max number of tidal contituents
+   LOGICAL, PUBLIC            ::   ln_tide_date          !: =T correct tide phases and amplitude for model start date
+   INTEGER, PUBLIC, PARAMETER ::   jptides_max = 15      !: Max number of tidal contituents
    INTEGER, PUBLIC            ::   ntide                 !: Actual number of tidal constituents
 
@@ -49 +48 @@
    CHARACTER(len= 4), PUBLIC, DIMENSION(jptides_max) ::   tide_cpt   !: Names of tidal components used.
 
-   INTEGER , DIMENSION(jptides_max), PUBLIC ::   nindx        !: ???
-   REAL(wp), DIMENSION(jptides_max), PUBLIC ::   tide_speed   !: Phase speed of tidal constituent (deg/hr)
+   INTEGER , PUBLIC, DIMENSION(jptides_max) ::   nindx        !: ???
+   REAL(wp), PUBLIC, DIMENSION(jptides_max) ::   tide_speed   !: Phase speed of tidal constituent (deg/hr)
    
-   REAL(wp), DIMENSION(jpbdim,jptides_max)  ::   ssh1, ssh2   !: Tidal constituents : SSH
-   REAL(wp), DIMENSION(jpbdim,jptides_max)  ::   u1  , u2     !: Tidal constituents : U
-   REAL(wp), DIMENSION(jpbdim,jptides_max)  ::   v1  , v2     !: Tidal constituents : V
+   REAL(wp), DIMENSION(jpbdim,jptides_max)  ::   ssh1, ssh2   ! Tidal constituents : SSH
+   REAL(wp), DIMENSION(jpbdim,jptides_max)  ::   u1  , u2     ! Tidal constituents : U
+   REAL(wp), DIMENSION(jpbdim,jptides_max)  ::   v1  , v2     ! Tidal constituents : V
    
    !!----------------------------------------------------------------------
-   !! NEMO/OPA 3.0 , LOCEAN-IPSL (2008) 
+   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
    !! $Id$ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-
 CONTAINS
 
@@ -88 +86 @@
       READ  ( numnam, nambdy_tide )
       !                                               ! Count number of components specified
-      ntide=jptides_max
-      do itide = 1, jptides_max
-        if ( tide_cpt(itide) == '' ) then
+      ntide = jptides_max
+      DO itide = 1, jptides_max
+        IF( tide_cpt(itide) == '' ) THEN
            ntide = itide-1
            exit
-        endif
-      enddo
+        ENDIF
+      END DO
 
       !                                               ! find constituents in standard list