Changeset 10288 for NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/C1D/dyncor_c1d.F90

Timestamp:

2018-11-07T18:25:49+01:00 (5 years ago)

Author:

francesca

Message:

reduce global communications, see #2010

File:

• NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/C1D/dyncor_c1d.F90 (modified) (2 diffs)

NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/C1D/dyncor_c1d.F90

@@ -33 +33 @@
 #  include "vectopt_loop_substitute.h90"
    !!----------------------------------------------------------------------
-   !! NEMO/C1D 3.7 , NEMO Consortium (2018)
+   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
    !! $Id$ 
-   !! Software governed by the CeCILL licence     (./LICENSE)
+   !! Software governed by the CeCILL license (see ./LICENSE)
    !!----------------------------------------------------------------------
 CONTAINS
@@ -106 +106 @@
 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
       WRITE(*,*) 'dyn_cor_c1d: You should not have seen this print! error?', kt
    END SUBROUTINE dyn_cor_c1d