Changeset 1125 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

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

Author:

ctlod

Message:

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

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -53 +53 @@
    USE bdy_par         ! unstructured open boundary cond. parameters
    USE bdyini          ! unstructured open boundary cond. initialization (bdy_init routine)
-   USE bdytides        ! tides at open boundaries initialization (lk_bdy_tides)
    USE istate          ! initial state setting          (istate_init routine)
    USE eosbn2          ! equation of state            (eos bn2 routine)
@@ -272 +271 @@
       IF( lk_obc    )   CALL obc_init       ! Open boundaries 
 
-      IF( lk_bdy .OR. lk_bdy_tides )   &
-         &              CALL bdy_init       ! Unstructured open boundaries
+      IF( lk_bdy    )   CALL bdy_init       ! Unstructured open boundaries
 
       CALL istate_init                      ! ocean initial state (Dynamics and tracers)