Changeset 9927 for NEMO/trunk/src/OCE/DIA

Timestamp:

2018-07-11T14:49:16+02:00 (6 years ago)

Author:

mathiot

Message:

add missing IMPLICIT NONE and variable declaration in dummy routine to be able to compile with Cray debug option

Location:

NEMO/trunk/src/OCE/DIA

Files:

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

NEMO/trunk/src/OCE/DIA/diadct.F90

@@ -1249 +1249 @@
 
    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

NEMO/trunk/src/OCE/DIA/diahth.F90

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