Changeset 9583 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DIA

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.

Location:

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DIA

Files:

• diadct.F90 (modified) (1 diff)
• diahth.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

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

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DIA/diahth.F90

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