Changeset 9563 for branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

Timestamp:

2018-05-08T15:48:00+02:00 (6 years ago)

Author:

stephenhaddad

Message:

MOCI #310: Update GO6 package branch to build with rigorous optimisation level compiler option.

File:

• branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -614 +614 @@
    END SUBROUTINE bdytide_init
    SUBROUTINE bdytide_update( kt, jit )   ! Empty routine
+      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
@@ -620 +622 @@
       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