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

       rewind 505
       write (505),ODATA,GDATA
       write (505),mmco2flux
       rewind 505
       print *,'Write ocean data for atmospheric restart'
       return
       end