Parent Directory
| 
Revision Log
| 
Revision Graph
read from atm-ocean common block in atmosphere.F
| 1 | jscott | 1.3 | c source sokolov users 261 Jul 5 2004 rd_ocean4atmrst.F |
| 2 | jscott | 1.1 | #include "ctrparam.h" |
| 3 | subroutine rd_ocean4atmrst | ||
| 4 | #include "BD2G04.COM" | ||
| 5 | jscott | 1.2 | #include "AGRID.h" |
| 6 | jscott | 1.1 | |
| 7 | rewind 505 | ||
| 8 | read (505),ODATA,GDATA | ||
| 9 | print *,' Ocean data for atmospheric model restart are read' | ||
| 10 | rewind 505 | ||
| 11 | return | ||
| 12 | end |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |