- Timestamp:
- 2018-11-07T18:25:49+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/C1D/dyncor_c1d.F90
r9598 r10288 33 33 # include "vectopt_loop_substitute.h90" 34 34 !!---------------------------------------------------------------------- 35 !! NEMO/ C1D 3.7, NEMO Consortium (2018)35 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 36 36 !! $Id$ 37 !! Software governed by the CeCILL licen ce (./LICENSE)37 !! Software governed by the CeCILL license (see ./LICENSE) 38 38 !!---------------------------------------------------------------------- 39 39 CONTAINS … … 106 106 CONTAINS 107 107 SUBROUTINE cor_c1d ! Empty routine 108 IMPLICIT NONE 108 109 END SUBROUTINE cor_c1d 109 110 SUBROUTINE dyn_cor_c1d ( kt ) ! Empty routine 111 IMPLICIT NONE 112 INTEGER, INTENT( in ) :: kt 110 113 WRITE(*,*) 'dyn_cor_c1d: You should not have seen this print! error?', kt 111 114 END SUBROUTINE dyn_cor_c1d
Note: See TracChangeset
for help on using the changeset viewer.