Changeset 10288 for NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/C1D
- Timestamp:
- 2018-11-07T18:25:49+01:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/C1D
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/C1D/c1d.F90
r9598 r10288 31 31 32 32 !!---------------------------------------------------------------------- 33 !! NEMO/ C1D 3.7, NEMO Consortium (2018)33 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 34 34 !! $Id$ 35 !! Software governed by the CeCILL licen ce (./LICENSE)35 !! Software governed by the CeCILL license (see ./LICENSE) 36 36 !!====================================================================== 37 37 CONTAINS -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/C1D/dtauvd.F90
r9598 r10288 34 34 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 35 35 !! $Id$ 36 !! Software governed by the CeCILL licen ce (./LICENSE)36 !! Software governed by the CeCILL license (see ./LICENSE) 37 37 !!---------------------------------------------------------------------- 38 38 CONTAINS -
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 -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/C1D/dyndmp.F90
r9598 r10288 47 47 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 48 48 !! $Id$ 49 !! Software governed by the CeCILL licen ce (./LICENSE)49 !! Software governed by the CeCILL license (see ./LICENSE) 50 50 !!---------------------------------------------------------------------- 51 51 CONTAINS -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/C1D/step_c1d.F90
r9656 r10288 28 28 29 29 !!---------------------------------------------------------------------- 30 !! NEMO/ C1D 3.7, NEMO Consortium (2018)30 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 31 31 !! $Id$ 32 !! Software governed by the CeCILL licen ce (./LICENSE)32 !! Software governed by the CeCILL license (see ./LICENSE) 33 33 !!---------------------------------------------------------------------- 34 34 CONTAINS … … 147 147 CONTAINS 148 148 SUBROUTINE stp_c1d ( kt ) ! dummy routine 149 IMPLICIT NONE 150 INTEGER, INTENT( in ) :: kt 149 151 WRITE(*,*) 'stp_c1d: You should not have seen this print! error?', kt 150 152 END SUBROUTINE stp_c1d
Note: See TracChangeset
for help on using the changeset viewer.