Changeset 10302 for branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/OPA_SRC/C1D

Timestamp:

2018-11-13T18:21:16+01:00 (5 years ago)

Author:

dford

Message:

Merge in revisions 8447:10159 of dev_r5518_GO6_package.

Location:

branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/OPA_SRC/C1D

Files:

• dyncor_c1d.F90 (modified) (1 diff)
• step_c1d.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/OPA_SRC/C1D/dyncor_c1d.F90

@@ -116 +116 @@
 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   ! ocean time-step index   
       WRITE(*,*) 'dyn_cor_c1d: You should not have seen this print! error?', kt
    END SUBROUTINE dyn_cor_c1d

branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90

@@ -165 +165 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE stp_c1d ( kt )      ! dummy routine
-      WRITE(*,*) 'stp_c1d: You should not have seen this print! error?', kt
+   SUBROUTINE stp_c1d ( kstp )      ! dummy routine
+   IMPLICIT NONE
+   INTEGER, INTENT(in) ::   kstp   ! ocean time-step index
+      WRITE(*,*) 'stp_c1d: You should not have seen this print! error?', kstp
    END SUBROUTINE stp_c1d
 #endif