igsm/src/wr_rstrt_nem.F

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

C  unit 877 is last_clm file (really nem pickup)

        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

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

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