Changeset 10047 for branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

Timestamp:

2018-08-08T17:12:35+02:00 (6 years ago)

Author:

jpalmier

Message:

merge with GO6_package_branch 9385-10020 ; plus debug OMIP_DIC

File:

• branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90 (modified) (1 diff)

branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -611 +611 @@
 CONTAINS
    SUBROUTINE bdytide_init             ! Empty routine
+   IMPLICIT NONE
       WRITE(*,*) 'bdytide_init: You should not have seen this print! error?'
    END SUBROUTINE bdytide_init
    SUBROUTINE bdytide_update( kt, jit )   ! Empty routine
+   IMPLICIT NONE
+      INTEGER, INTENT( in )            ::   kt          ! Main timestep counter
+      INTEGER,INTENT(in),OPTIONAL      ::   jit         ! Barotropic timestep counter (for timesplitting option)
       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
+   IMPLICIT NONE
       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
+      WRITE(*,*) 'bdy_dta_tides: You should not have seen this print! error?', kt, kit
    END SUBROUTINE bdy_dta_tides
 #endif