Changeset 10403 for branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.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/SBC/sbcice_lim.F90 (modified) (1 diff)

branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -650 +650 @@
 CONTAINS
    SUBROUTINE sbc_ice_lim ( kt, kblk )     ! Dummy routine
-      INTEGER, INTENT(in) ::   kt, kblk
+   IMPLICIT NONE
+      INTEGER, INTENT(in) ::   kt      ! ocean time step
+      INTEGER, INTENT(in) ::   kblk    ! type of bulk (=3 CLIO, =4 CORE, =5 COUPLED)
       WRITE(*,*) 'sbc_ice_lim: You should not have seen this print! error?', kt, kblk
    END SUBROUTINE sbc_ice_lim
    SUBROUTINE sbc_lim_init                 ! Dummy routine
+   IMPLICIT NONE
    END SUBROUTINE sbc_lim_init
 #endif