Changeset 9927


Ignore:
Timestamp:
2018-07-11T14:49:16+02:00 (2 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:
9 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/BDY/bdyice.F90

    r9905 r9927  
    360360CONTAINS 
    361361   SUBROUTINE bdy_ice( kt )      ! Empty routine 
     362      IMPLICIT NONE 
     363      INTEGER, INTENT( in ) :: kt 
    362364      WRITE(*,*) 'bdy_ice: You should not have seen this print! error?', kt 
    363365   END SUBROUTINE bdy_ice 
  • NEMO/trunk/src/OCE/C1D/dyncor_c1d.F90

    r9598 r9927  
    106106CONTAINS 
    107107   SUBROUTINE cor_c1d              ! Empty routine 
     108       IMPLICIT NONE 
    108109   END SUBROUTINE cor_c1d    
    109110   SUBROUTINE dyn_cor_c1d ( kt )      ! Empty routine 
     111      IMPLICIT NONE 
     112      INTEGER, INTENT( in ) :: kt 
    110113      WRITE(*,*) 'dyn_cor_c1d: You should not have seen this print! error?', kt 
    111114   END SUBROUTINE dyn_cor_c1d 
  • NEMO/trunk/src/OCE/C1D/step_c1d.F90

    r9656 r9927  
    147147CONTAINS 
    148148   SUBROUTINE stp_c1d ( kt )      ! dummy routine 
     149      IMPLICIT NONE 
     150      INTEGER, INTENT( in ) :: kt 
    149151      WRITE(*,*) 'stp_c1d: You should not have seen this print! error?', kt 
    150152   END SUBROUTINE stp_c1d 
  • NEMO/trunk/src/OCE/DIA/diadct.F90

    r9598 r9927  
    12491249 
    12501250   SUBROUTINE dia_dct_init          ! Dummy routine 
    1251       WRITE(*,*) 'dia_dct_init: You should not have seen this print! error?', kt 
     1251      IMPLICIT NONE 
     1252      WRITE(*,*) 'dia_dct_init: You should not have seen this print! error?' 
    12521253   END SUBROUTINE dia_dct_init 
    12531254 
    12541255   SUBROUTINE dia_dct( kt )         ! Dummy routine 
     1256      IMPLICIT NONE 
    12551257      INTEGER, INTENT( in ) :: kt   ! ocean time-step index 
    12561258      WRITE(*,*) 'dia_dct: You should not have seen this print! error?', kt 
  • NEMO/trunk/src/OCE/DIA/diahth.F90

    r9598 r9927  
    343343CONTAINS 
    344344   SUBROUTINE dia_hth( kt )         ! Empty routine 
     345      IMPLICIT NONE 
     346      INTEGER, INTENT( in ) :: kt 
    345347      WRITE(*,*) 'dia_hth: You should not have seen this print! error?', kt 
    346348   END SUBROUTINE dia_hth 
  • NEMO/trunk/src/OCE/FLO/floats.F90

    r9598 r9927  
    142142CONTAINS 
    143143   SUBROUTINE flo_stp( kt )          ! Empty routine 
     144      IMPLICIT NONE 
     145      INTEGER, INTENT( in ) :: kt 
    144146      WRITE(*,*) 'flo_stp: You should not have seen this print! error?', kt 
    145147   END SUBROUTINE flo_stp 
    146148   SUBROUTINE flo_init          ! Empty routine 
     149      IMPLICIT NONE 
    147150   END SUBROUTINE flo_init 
    148151#endif 
  • NEMO/trunk/src/OCE/SBC/sbcice_cice.F90

    r9598 r9927  
    10511051 
    10521052   SUBROUTINE sbc_ice_cice ( kt, ksbc )     ! Dummy routine 
     1053      IMPLICIT NONE 
     1054      INTEGER, INTENT( in ) :: kt, ksbc 
    10531055      WRITE(*,*) 'sbc_ice_cice: You should not have seen this print! error?', kt 
    10541056   END SUBROUTINE sbc_ice_cice 
    10551057 
    10561058   SUBROUTINE cice_sbc_init (ksbc)    ! Dummy routine 
    1057       WRITE(*,*) 'cice_sbc_init: You should not have seen this print! error?' 
     1059      IMPLICIT NONE 
     1060      INTEGER, INTENT( in ) :: ksbc 
     1061      WRITE(*,*) 'cice_sbc_init: You should not have seen this print! error?', ksbc 
    10581062   END SUBROUTINE cice_sbc_init 
    10591063 
    10601064   SUBROUTINE cice_sbc_final     ! Dummy routine 
     1065      IMPLICIT NONE 
    10611066      WRITE(*,*) 'cice_sbc_final: You should not have seen this print! error?' 
    10621067   END SUBROUTINE cice_sbc_final 
  • NEMO/trunk/src/TOP/TRP/trcbbl.F90

    r9598 r9927  
    4646      !!----------------------------------------------------------------------   
    4747      INTEGER, INTENT( in ) ::   kt   ! ocean time-step  
     48      INTEGER :: jn                   ! loop index 
    4849      CHARACTER (len=22) :: charout 
    4950      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) ::   ztrtrd 
  • NEMO/trunk/src/TOP/TRP/trdmxl_trc_rst.F90

    r9598 r9927  
    194194CONTAINS 
    195195  SUBROUTINE trd_mxl_trc_rst_opn( kt ) 
     196    IMPLICIT NONE 
     197    INTEGER, INTENT( in ) :: kt 
    196198    WRITE(*,*) 'trd_mxl_trc_rst_opn: You should not have seen this print! error?', kt 
    197199  END SUBROUTINE trd_mxl_trc_rst_opn 
    198200  SUBROUTINE trd_mxl_trc_rst_write( kt )           !  No ML diags ==> empty routine 
     201    IMPLICIT NONE 
     202    INTEGER, INTENT( in ) :: kt 
    199203    WRITE(*,*) 'trd_mxl_trc_rst_wri: You should not have seen this print! error?', kt 
    200204  END SUBROUTINE trd_mxl_trc_rst_write 
    201205  SUBROUTINE trd_mxl_trc_rst_read                  !  No ML Diags ==> empty routine 
     206    IMPLICIT NONE 
    202207  END SUBROUTINE trd_mxl_trc_rst_read 
    203208#endif 
Note: See TracChangeset for help on using the changeset viewer.