igsm/src/wr_rstrt_nem.F

C $Header$
C $Name$ 

#include "ctrparam.h"
        subroutine wr_rstrt_nem
#include "BD2G04.COM"
#include "TEM.h"

C  unit 877 is last_clm file (really nem pickup)

       if (1.eq.0) then
        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
        endif

C  unit 876 is last_nep file (older code, unit 367)
        write(876),adupt,temco2
     &          ,temch4,temn2o
        rewind 876

        return
        end
1	jscott	1.4	C $Header$
2			C $Name$
3
4	jscott	1.1	#include "ctrparam.h"
5			subroutine wr_rstrt_nem
6			#include "BD2G04.COM"
7	jscott	1.2	#include "TEM.h"
8	jscott	1.3
9			C unit 877 is last_clm file (really nem pickup)
10
11	jscott	1.4	if (1.eq.0) then
12	jscott	1.1	write(877),co24tem,
13			& o34tem,
14			& temp4tem,
15			& dtem4tem,
16			& sws4tem,
17			& pre4tem,
18			& strmdur,
19			& qstrm,
20			& aet,
21			& sh2o1m,
22			& sh2o2m,
23			& swe,sfr,drn,
24			& daytsoil,
25			& daysho,
26			& rsh2o
27			c & istorms,
28			c & istrmdry
29			cprint *,'AET for J=23'
30			c print *,(aet(nc,23),nc=1,ncoh)
31			rewind 877
32	jscott	1.4	endif
33	jscott	1.3
34			C unit 876 is last_nep file (older code, unit 367)
35			write(876),adupt,temco2
36	jscott	1.4	& ,temch4,temn2o
37	jscott	1.3	rewind 876
38
39	jscott	1.1	return
40			end