igsm/src/wr_ocean4atmrst.F


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

       rewind 505
       write (505),ODATA,GDATA
       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			#include "AGRID.COM"
6
7			rewind 505
8			write (505),ODATA,GDATA
9			rewind 505
10			print *,'Write ocean data for atmospheric restart'
11			return
12			end