Parent Directory
|
Revision Log
|
Revision Graph
do pov_nep write here rather than forward_step_atm2d to avoid endian problem
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.3 | |
6 | C unit 877 is last_clm file (really nem pickup) | ||
7 | |||
8 | jscott | 1.1 | 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 | jscott | 1.3 | |
29 | C unit 876 is last_nep file (older code, unit 367) | ||
30 | write(876),adupt,temco2 | ||
31 | rewind 876 | ||
32 | |||
33 | jscott | 1.1 | return |
34 | end |
ViewVC Help | |
Powered by ViewVC 1.1.22 |