- Timestamp:
- 2018-12-17T18:06:43+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC/C1D/dyncor_c1d.F90
r10207 r10403 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.