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