Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.2 by edhill, Fri Aug 6 04:37:18 2004 UTC | revision 1.3 by edhill, Thu Aug 12 15:50:38 2004 UTC | |
|---|---|---|
| # | Line 109 for il = 1:nlay | Line 109 for il = 1:nlay |
| 109 | bcube(:,:,icf) = eh3densjmd95( squeeze(scube(:,:,icf)), ... | bcube(:,:,icf) = eh3densjmd95( squeeze(scube(:,:,icf)), ... |
| 110 | squeeze(tcube(:,:,icf)), p ); | squeeze(tcube(:,:,icf)), p ); |
| 111 | if il > 1 | if il > 1 |
| 112 | p = -9.998*10^2 * 9.81 * R(il-1) * 0.0001; | p = 9.998*10^2 * 9.81 * R(il-1) * 0.0001; |
| 113 | bcubem1(:,:,icf) = eh3densjmd95( scube(:,:,icf), ... | bcubem1(:,:,icf) = eh3densjmd95( scube(:,:,icf), ... |
| 114 | tcube(:,:,icf), p ); | tcube(:,:,icf), p ); |
| 115 | end | end |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |