Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.3 by jscott, Thu Oct 18 16:48:58 2007 UTC | revision 1.4 by jscott, Thu Sep 17 15:48:38 2009 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| 1 | C $Header$ | |
| 2 | C $Name$ | |
| 3 | ||
| 4 | #include "ctrparam.h" | #include "ctrparam.h" |
| 5 | subroutine wr_rstrt_nem | subroutine wr_rstrt_nem |
| 6 | #include "BD2G04.COM" | #include "BD2G04.COM" |
| # | Line 5 | Line 8 |
| 8 | ||
| 9 | C unit 877 is last_clm file (really nem pickup) | C unit 877 is last_clm file (really nem pickup) |
| 10 | ||
| 11 | if (1.eq.0) then | |
| 12 | write(877),co24tem, | write(877),co24tem, |
| 13 | & o34tem, | & o34tem, |
| 14 | & temp4tem, | & temp4tem, |
| # | Line 25 c & istrmdry | Line 29 c & istrmdry |
| 29 | cprint *,'AET for J=23' | cprint *,'AET for J=23' |
| 30 | c print *,(aet(nc,23),nc=1,ncoh) | c print *,(aet(nc,23),nc=1,ncoh) |
| 31 | rewind 877 | rewind 877 |
| 32 | endif | |
| 33 | ||
| 34 | C unit 876 is last_nep file (older code, unit 367) | C unit 876 is last_nep file (older code, unit 367) |
| 35 | write(876),adupt,temco2 | write(876),adupt,temco2 |
| 36 | & ,temch4,temn2o | |
| 37 | rewind 876 | rewind 876 |
| 38 | ||
| 39 | return | return |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |