Changeset 657 for trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90
- Timestamp:
- 2007-04-30T10:42:42+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r642 r657 487 487 WRITE(*,*) 'dyn_spg_flt: You should not have seen this print! error?', kt, kindic 488 488 END SUBROUTINE dyn_spg_flt 489 SUBROUTINE flt_rst ( kt, cdrw ) ! Empty routine 490 INTEGER , INTENT(in) :: kt ! ocean time-step 491 CHARACTER(len=*), INTENT(in) :: cdrw ! "READ"/"WRITE" flag 492 WRITE(*,*) 'flt_rst: You should not have seen this print! error?', kt, cdrw 493 END SUBROUTINE flt_rst 489 494 #endif 490 495
Note: See TracChangeset
for help on using the changeset viewer.