Changeset 9583 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90

Timestamp:

2018-05-15T11:50:19+02:00 (6 years ago)

Author:

frrh

Message:

Commit Stephen Haddad's
https://forge.ipsl.jussieu.fr/nemo/browser/branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix
revisions 9549:9582

Met Office GMED ticket 390 refers.

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90

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