Changeset 10047 for branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/OPA_SRC/BDY

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

Location:

branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/OPA_SRC/BDY

Files:

• bdydyn.F90 (modified) (1 diff)
• bdydyn3d.F90 (modified) (1 diff)
• bdytides.F90 (modified) (1 diff)
• bdytra.F90 (modified) (1 diff)
• bdyvol.F90 (modified) (1 diff)

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

@@ -150 +150 @@
 CONTAINS
    SUBROUTINE bdy_dyn( kt )      ! Empty routine
+   IMPLICIT NONE
+      INTEGER, INTENT( in )           :: kt               ! Main time step counter
       WRITE(*,*) 'bdy_dyn: You should not have seen this print! error?', kt
    END SUBROUTINE bdy_dyn

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

@@ -309 +309 @@
 CONTAINS
    SUBROUTINE bdy_dyn3d( kt )      ! Empty routine
-      WRITE(*,*) 'bdy_dyn3d: You should not have seen this print! error?', kt
+   IMPLICIT NONE
+    INTEGER, INTENT( in ) :: kt     ! Main time step counter
+    WRITE(*,*) 'bdy_dyn3d: You should not have seen this print! error?', kt
    END SUBROUTINE bdy_dyn3d
 
    SUBROUTINE bdy_dyn3d_dmp( kt )      ! Empty routine
-      WRITE(*,*) 'bdy_dyn3d_dmp: You should not have seen this print! error?', kt
+   IMPLICIT NONE
+    INTEGER, INTENT( in ) :: kt     ! Main time step counter
+    WRITE(*,*) 'bdy_dyn3d_dmp: You should not have seen this print! error?', kt
    END SUBROUTINE bdy_dyn3d_dmp
 

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

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

@@ -319 +319 @@
 CONTAINS
    SUBROUTINE bdy_tra(kt)      ! Empty routine
+   IMPLICIT NONE
+      INTEGER, INTENT( in ) :: kt     ! Main time step counter   
       WRITE(*,*) 'bdy_tra: You should not have seen this print! error?', kt
    END SUBROUTINE bdy_tra
 
    SUBROUTINE bdy_tra_dmp(kt)      ! Empty routine
+   IMPLICIT NONE
+      INTEGER, INTENT( in ) :: kt     ! Main time step counter   
       WRITE(*,*) 'bdy_tra_dmp: You should not have seen this print! error?', kt
    END SUBROUTINE bdy_tra_dmp

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

@@ -178 +178 @@
 CONTAINS
    SUBROUTINE bdy_vol( kt )        ! Empty routine
+   IMPLICIT NONE
+      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index
       WRITE(*,*) 'bdy_vol: You should not have seen this print! error?', kt
    END SUBROUTINE bdy_vol