Changeset 6862 for branches/2016/dev_r6522_SIMPLIF_3/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

Timestamp:

2016-08-12T15:16:24+02:00 (8 years ago)

Author:

lovato

Message:

#1729 - trunk: removed key_bdy from the code and set usage of ln_bdy. Tested with SETTE.

File:

• branches/2016/dev_r6522_SIMPLIF_3/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90 (modified) (3 diffs)

branches/2016/dev_r6522_SIMPLIF_3/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -11 +11 @@
    !!            3.5  !  2013-07  (J. Chanut) Compliant with time splitting changes
    !!----------------------------------------------------------------------
-#if defined key_bdy
-   !!----------------------------------------------------------------------
-   !!   'key_bdy'     Open Boundary Condition
-   !!----------------------------------------------------------------------
    !!   bdytide_init  : read of namelist and initialisation of tidal harmonics data
    !!   tide_update   : calculation of tidal forcing at each timestep
@@ -21 +17 @@
    USE dom_oce        ! ocean space and time domain
    USE phycst         ! physical constants
-   USE bdy_par        ! Unstructured boundary parameters
    USE bdy_oce        ! ocean open boundary conditions
    USE tideini        ! 
@@ -598 +593 @@
   END SUBROUTINE tide_init_velocities
 
-#else
-   !!----------------------------------------------------------------------
-   !!   Dummy module         NO Unstruct Open Boundary Conditions for tides
-   !!----------------------------------------------------------------------
-CONTAINS
-   SUBROUTINE bdytide_init             ! Empty routine
-      WRITE(*,*) 'bdytide_init: You should not have seen this print! error?'
-   END SUBROUTINE bdytide_init
-   SUBROUTINE bdytide_update( kt, jit )   ! Empty routine
-      WRITE(*,*) 'bdytide_update: You should not have seen this print! error?', kt, jit
-   END SUBROUTINE bdytide_update
-   SUBROUTINE bdy_dta_tides( kt, kit, time_offset )     ! Empty routine
-      INTEGER, INTENT( in )            ::   kt          ! Dummy argument empty routine      
-      INTEGER, INTENT( in ),OPTIONAL   ::   kit         ! Dummy argument empty routine
-      INTEGER, INTENT( in ),OPTIONAL   ::   time_offset ! Dummy argument empty routine
-      WRITE(*,*) 'bdy_dta_tides: You should not have seen this print! error?', kt, jit
-   END SUBROUTINE bdy_dta_tides
-#endif
-
    !!======================================================================
 END MODULE bdytides