Changeset 6862 for branches/2016/dev_r6522_SIMPLIF_3/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.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/bdydta.F90 (modified) (2 diffs)

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

@@ -12 +12 @@
    !!            3.4  !  2011     (D. Storkey) rewrite in preparation for OBC-BDY merge
    !!            3.6  !  2012-01  (C. Rousset) add ice boundary conditions for lim3
-   !!----------------------------------------------------------------------
-#if defined key_bdy
-   !!----------------------------------------------------------------------
-   !!   'key_bdy'                     Open Boundary Conditions
    !!----------------------------------------------------------------------
    !!    bdy_dta        : read external data along open boundaries from file
@@ -899 +895 @@
    END SUBROUTINE bdy_dta_init
 
-#else
-   !!----------------------------------------------------------------------
-   !!   Dummy module                   NO Open Boundary Conditions
-   !!----------------------------------------------------------------------
-CONTAINS
-   SUBROUTINE bdy_dta( kt, jit, time_offset ) ! Empty routine
-      INTEGER, INTENT( in )           ::   kt    
-      INTEGER, INTENT( in ), OPTIONAL ::   jit   
-      INTEGER, INTENT( in ), OPTIONAL ::   time_offset
-      WRITE(*,*) 'bdy_dta: You should not have seen this print! error?', kt
-   END SUBROUTINE bdy_dta
-   SUBROUTINE bdy_dta_init()                  ! Empty routine
-      WRITE(*,*) 'bdy_dta_init: You should not have seen this print! error?'
-   END SUBROUTINE bdy_dta_init
-#endif
-
    !!==============================================================================
 END MODULE bdydta