igsm/src/wr_rstrt_nem.F

#include "ctrparam.h"
        subroutine wr_rstrt_nem
#include "BD2G04.COM"
#include "TEM.h"
        write(877),co24tem,
     &            o34tem,
     &            temp4tem,
     &            dtem4tem,
     &            sws4tem,
     &            pre4tem,
     &            strmdur,
     &            qstrm,
     &            aet,
     &            sh2o1m,
     &            sh2o2m,
     &            swe,sfr,drn,
     &            daytsoil,
     &            daysho,
     &            rsh2o
c    &            istorms,
c    &            istrmdry
cprint *,'AET for J=23'
c       print *,(aet(nc,23),nc=1,ncoh)
        rewind 877
        return
        end
1	jscott	1.1	#include "ctrparam.h"
2			subroutine wr_rstrt_nem
3			#include "BD2G04.COM"
4	jscott	1.2	#include "TEM.h"
5	jscott	1.1	write(877),co24tem,
6			& o34tem,
7			& temp4tem,
8			& dtem4tem,
9			& sws4tem,
10			& pre4tem,
11			& strmdur,
12			& qstrm,
13			& aet,
14			& sh2o1m,
15			& sh2o2m,
16			& swe,sfr,drn,
17			& daytsoil,
18			& daysho,
19			& rsh2o
20			c & istorms,
21			c & istrmdry
22			cprint *,'AET for J=23'
23			c print *,(aet(nc,23),nc=1,ncoh)
24			rewind 877
25			return
26			end