Changeset 9927

Timestamp:

2018-07-11T14:49:16+02:00 (5 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

Files:

• OCE/BDY/bdyice.F90 (modified) (1 diff)
• OCE/C1D/dyncor_c1d.F90 (modified) (1 diff)
• OCE/C1D/step_c1d.F90 (modified) (1 diff)
• OCE/DIA/diadct.F90 (modified) (1 diff)
• OCE/DIA/diahth.F90 (modified) (1 diff)
• OCE/FLO/floats.F90 (modified) (1 diff)
• OCE/SBC/sbcice_cice.F90 (modified) (1 diff)
• TOP/TRP/trcbbl.F90 (modified) (1 diff)
• TOP/TRP/trdmxl_trc_rst.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/BDY/bdyice.F90

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

NEMO/trunk/src/OCE/C1D/dyncor_c1d.F90

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

NEMO/trunk/src/OCE/C1D/step_c1d.F90

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

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

NEMO/trunk/src/OCE/FLO/floats.F90

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

NEMO/trunk/src/OCE/SBC/sbcice_cice.F90

@@ -1051 +1051 @@
 
    SUBROUTINE sbc_ice_cice ( kt, ksbc )     ! Dummy routine
+      IMPLICIT NONE
+      INTEGER, INTENT( in ) :: kt, ksbc
       WRITE(*,*) 'sbc_ice_cice: You should not have seen this print! error?', kt
    END SUBROUTINE sbc_ice_cice
 
    SUBROUTINE cice_sbc_init (ksbc)    ! Dummy routine
-      WRITE(*,*) 'cice_sbc_init: You should not have seen this print! error?'
+      IMPLICIT NONE
+      INTEGER, INTENT( in ) :: ksbc
+      WRITE(*,*) 'cice_sbc_init: You should not have seen this print! error?', ksbc
    END SUBROUTINE cice_sbc_init
 
    SUBROUTINE cice_sbc_final     ! Dummy routine
+      IMPLICIT NONE
       WRITE(*,*) 'cice_sbc_final: You should not have seen this print! error?'
    END SUBROUTINE cice_sbc_final

NEMO/trunk/src/TOP/TRP/trcbbl.F90

@@ -46 +46 @@
       !!----------------------------------------------------------------------  
       INTEGER, INTENT( in ) ::   kt   ! ocean time-step 
+      INTEGER :: jn                   ! loop index
       CHARACTER (len=22) :: charout
       REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) ::   ztrtrd

NEMO/trunk/src/TOP/TRP/trdmxl_trc_rst.F90

@@ -194 +194 @@
 CONTAINS
   SUBROUTINE trd_mxl_trc_rst_opn( kt )
+    IMPLICIT NONE
+    INTEGER, INTENT( in ) :: kt
     WRITE(*,*) 'trd_mxl_trc_rst_opn: You should not have seen this print! error?', kt
   END SUBROUTINE trd_mxl_trc_rst_opn
   SUBROUTINE trd_mxl_trc_rst_write( kt )           !  No ML diags ==> empty routine
+    IMPLICIT NONE
+    INTEGER, INTENT( in ) :: kt
     WRITE(*,*) 'trd_mxl_trc_rst_wri: You should not have seen this print! error?', kt
   END SUBROUTINE trd_mxl_trc_rst_write
   SUBROUTINE trd_mxl_trc_rst_read                  !  No ML Diags ==> empty routine
+    IMPLICIT NONE
   END SUBROUTINE trd_mxl_trc_rst_read
 #endif