Changeset 4263 for branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

Timestamp:

2013-11-19T17:57:17+01:00 (10 years ago)

Author:

acc

Message:

Branch 2013/dev_r3858_NOC_ZTC, #863. Fixes to allow successful compilation of ORCA2_LIM with key_dynspg_ts

File:

• branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90 (modified) (1 diff)

branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -599 +599 @@
       WRITE(*,*) 'bdytide_update: You should not have seen this print! error?', kt, jit
    END SUBROUTINE bdytide_update
-   SUBROUTINE bdy_dta_tides( kt, jit )   ! Empty routine
+   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