Changeset 9927 for NEMO/trunk/src/OCE/C1D/dyncor_c1d.F90
- Timestamp:
- 2018-07-11T14:49:16+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/C1D/dyncor_c1d.F90
r9598 r9927 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.