Parent Directory
|
Revision Log
|
Revision Graph
new routine for reading in eppa emissions
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 |
ViewVC Help | |
Powered by ViewVC 1.1.22 |