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	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