Parent Directory | Revision Log | Revision Graph | Patch
revision 1.18 by molod, Tue Sep 28 19:30:24 2004 UTC | revision 1.19 by molod, Thu Sep 30 16:25:58 2004 UTC | |
---|---|---|
# | Line 102 C Compute pressure profile to get methan | Line 102 C Compute pressure profile to get methan |
102 | do L = 2,Nrphys+1 | do L = 2,Nrphys+1 |
103 | pressure0(L)=pressure0(L-1)-dpphys0(1,1,L-1,1,1)/100. | pressure0(L)=pressure0(L-1)-dpphys0(1,1,L-1,1,1)/100. |
104 | enddo | enddo |
105 | C Now flip pressure to a top-down array to send to fizhi | C Now flip pressure to a top-down array to send to fizhi init chem |
106 | do L = 1,Nrphys+1 | do L = 1,Nrphys+1 |
107 | pressure(L)=pressure0(Nrphys+2-L) | pressure(L)=pressure0(Nrphys+2-L) |
108 | enddo | enddo |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |