Parent Directory
|
Revision Log
|
Revision Graph
read from atm-ocean common block in atmosphere.F
1 | c source sokolov users 261 Jul 5 2004 rd_ocean4atmrst.F |
2 | #include "ctrparam.h" |
3 | subroutine rd_ocean4atmrst |
4 | #include "BD2G04.COM" |
5 | #include "AGRID.h" |
6 | |
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 |