Changeset 10403 for branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

Timestamp:

2018-12-17T18:06:43+01:00 (5 years ago)

Author:

cmao

Message:

Add IMPLICIT NONE statements to branch following changeset 9578 for branch dev_55518_GO6_package_rigorous_compile_fix

File:

• branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90 (modified) (1 diff)

branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

@@ -1576 +1576 @@
 CONTAINS
    SUBROUTINE zdf_kpp_init           ! Dummy routine
+   IMPLICIT NONE
       WRITE(*,*) 'zdf_kpp_init: You should not have seen this print! error?'
    END SUBROUTINE zdf_kpp_init
    SUBROUTINE zdf_kpp( kt )          ! Dummy routine
+   IMPLICIT NONE
+      INTEGER, INTENT( in  ) ::   kt   ! ocean time step
       WRITE(*,*) 'zdf_kpp: You should not have seen this print! error?', kt
    END SUBROUTINE zdf_kpp
    SUBROUTINE tra_kpp( kt )          ! Dummy routine
+   IMPLICIT NONE
+      INTEGER, INTENT( in  ) ::   kt   ! ocean time step
       WRITE(*,*) 'tra_kpp: You should not have seen this print! error?', kt
    END SUBROUTINE tra_kpp
    SUBROUTINE trc_kpp( kt )          ! Dummy routine
+   IMPLICIT NONE
+      INTEGER, INTENT( in  ) ::   kt   ! ocean time step
       WRITE(*,*) 'trc_kpp: You should not have seen this print! error?', kt
    END SUBROUTINE trc_kpp