Changeset 581 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2006-11-14T11:12:40+01:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/cpl_oasis4.F90
r532 r581 1201 1201 CONTAINS 1202 1202 SUBROUTINE cpl_prism_init ! Dummy routine 1203 WRITE(*,*) 'cpl_prism_init: You should not see this print! error?', kt1204 1203 END SUBROUTINE cpl_prism_init 1205 SUBROUTINE cpl_prism_define ! Dummy routine 1206 WRITE(*,*) 'cpl_prism_define: You should not see this print! error?', kt 1204 SUBROUTINE cpl_prism_define ! Dummy routine 1207 1205 END SUBROUTINE cpl_prism_define 1208 SUBROUTINE cpl_prism_send( kt ) ! Dummy routine 1209 WRITE(*,*) 'cpl_prism_send: You should not see this print! error?', kt 1206 SUBROUTINE cpl_prism_send ! Dummy routine 1210 1207 END SUBROUTINE cpl_prism_send 1211 SUBROUTINE cpl_prism_recv( kt ) ! Dummy routine 1212 WRITE(*,*) 'cpl_prism_recv: You should not see this print! error?', kt 1208 SUBROUTINE cpl_prism_recv ! Dummy routine 1213 1209 END SUBROUTINE cpl_prism_recv 1214 SUBROUTINE cpl_prism_finalize( kt ) ! Dummy routine 1215 WRITE(*,*) 'cpl_prism_finalize: You should not see this print! error?', kt 1210 SUBROUTINE cpl_prism_finalize ! Dummy routine 1216 1211 END SUBROUTINE cpl_prism_finalize 1217 1212
Note: See TracChangeset
for help on using the changeset viewer.