- Timestamp:
- 2018-05-15T11:50:19+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/C1D/dyncor_c1d.F90
r6486 r9583 116 116 CONTAINS 117 117 SUBROUTINE cor_c1d ! Empty routine 118 IMPLICIT NONE 118 119 END SUBROUTINE cor_c1d 120 119 121 SUBROUTINE dyn_cor_c1d ( kt ) ! Empty routine 122 IMPLICIT NONE 123 INTEGER, INTENT( in ) :: kt ! ocean time-step index 120 124 WRITE(*,*) 'dyn_cor_c1d: You should not have seen this print! error?', kt 121 125 END SUBROUTINE dyn_cor_c1d
Note: See TracChangeset
for help on using the changeset viewer.