Context Navigation

Changeset 9578 for branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY

Timestamp:

2018-05-14T15:49:14+02:00 (6 years ago)

Author:

stephenhaddad

Message:

Added implicit none statements to branch.

Location:

Files:

r9563	r9578
150	150	CONTAINS
151	151	SUBROUTINE bdy_dyn( kt ) ! Empty routine
	152	IMPLICIT NONE
152	153	INTEGER, INTENT( in ) :: kt ! Main time step counter
153	154	WRITE(,) 'bdy_dyn: You should not have seen this print! error?', kt

r9563	r9578
309	309	CONTAINS
310	310	SUBROUTINE bdy_dyn3d( kt ) ! Empty routine
	311	IMPLICIT NONE
311	312	INTEGER, INTENT( in ) :: kt ! Main time step counter
312	313	WRITE(,) 'bdy_dyn3d: You should not have seen this print! error?', kt

-                      r9563
+                      r9578
 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)
 …
    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

-                      r9563
+                      r9578
 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
 …
    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

r9563	r9578
178	178	CONTAINS
179	179	SUBROUTINE bdy_vol( kt ) ! Empty routine
	180	IMPLICIT NONE
180	181	INTEGER, INTENT( in ) :: kt ! ocean time-step index
181	182	WRITE(,) 'bdy_vol: You should not have seen this print! error?', kt

Note: See TracChangeset for help on using the changeset viewer.