igsm/src/rd_ocean4atmrst.F

c source sokolov users    261 Jul  5  2004 rd_ocean4atmrst.F
#include "ctrparam.h"
        subroutine rd_ocean4atmrst
#include "BD2G04.COM"
#include "AGRID.h"

       rewind 505
       read (505),ODATA,GDATA
       print *,' Ocean data for atmospheric model restart are read'
       rewind 505
       return
       end
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