igsm/src/rd_ocean4atmrst.F


#include "ctrparam.h"
        subroutine rd_ocean4atmrst
#include "BD2G04.COM"
#include "AGRID.COM"

       rewind 505
       read (505),ODATA,GDATA
       print *,' Ocean data for atmospheric model restart are read'
       rewind 505
       return
       end
1	jscott	1.1
2			#include "ctrparam.h"
3			subroutine rd_ocean4atmrst
4			#include "BD2G04.COM"
5			#include "AGRID.COM"
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