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