Parent Directory | Revision Log | Patch
revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC | revision 11 by guez, Thu Jun 5 12:43:08 2008 UTC | |
---|---|---|
# | Line 144 contains | Line 144 contains |
144 | forall (k = 1: llm) | forall (k = 1: llm) |
145 | where (abs(rlat) <= 45.) r_het_interm(:, k) = 0. | where (abs(rlat) <= 45.) r_het_interm(:, k) = 0. |
146 | end forall | end forall |
147 | where (r_het_interm /= 0.) r_het_interm = r_het_interm * (Clx / 3.8e-9)**2 | r_het_interm = r_het_interm * (Clx / 3.8e-9)**2 |
148 | ||
149 | deallocate(plev) ! pointer | deallocate(plev) ! pointer |
150 | call nf95_close(ncid) | call nf95_close(ncid) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |