Changeset 9578 for branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

Timestamp:

2018-05-14T15:49:14+02:00 (6 years ago)

Author:

stephenhaddad

Message:

Added implicit none statements to branch.

File:

• branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

@@ -1231 +1231 @@
 CONTAINS
    SUBROUTINE zdf_gls_init           ! Empty routine
+   IMPLICIT NONE
       WRITE(*,*) 'zdf_gls_init: You should not have seen this print! error?'
    END SUBROUTINE zdf_gls_init
+   
    SUBROUTINE zdf_gls( kt )          ! Empty routine
+   IMPLICIT NONE
       INTEGER, INTENT(in) ::   kt ! ocean time step   
       WRITE(*,*) 'zdf_gls: You should not have seen this print! error?', kt
    END SUBROUTINE zdf_gls
+   
    SUBROUTINE gls_rst( kt, cdrw )          ! Empty routine
+   IMPLICIT NONE
       INTEGER         , INTENT(in) ::   kt         ! ocean time-step
       CHARACTER(len=*), INTENT(in) ::   cdrw       ! "READ"/"WRITE" flag