Parent Directory | Revision Log | Patch
revision 19 by guez, Thu Aug 7 15:46:20 2008 UTC | revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC | |
---|---|---|
# | Line 89 contains | Line 89 contains |
89 | ||
90 | call nf95_close(ncid) | call nf95_close(ncid) |
91 | ||
92 | ! Regrid in pressure by averaging a step function of pressure. | ! Regrid in pressure by averaging a step function of pressure: |
93 | do j = 1, jjm + 1 | do j = 1, jjm + 1 |
94 | do i = 1, iim | do i = 1, iim |
95 | if (dyn_phy(i, j)) then | if (dyn_phy(i, j)) then |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |