igsm/src/wr_ocean4atmrst.F


#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
1
2	#include "ctrparam.h"
3	subroutine wr_ocean4atmrst
4	#include "BD2G04.COM"
5	#include "AGRID.h"
6
7	rewind 505
8	write (505),ODATA,GDATA
9	write (505),mmco2flux
10	rewind 505
11	print *,'Write ocean data for atmospheric restart'
12	return
13	end