Parent Directory | Revision Log | Patch
revision 167 by guez, Wed Jul 29 14:32:55 2015 UTC | revision 168 by guez, Wed Sep 9 10:41:47 2015 UTC | |
---|---|---|
# | Line 186 contains | Line 186 contains |
186 | pcntrb(jl, jk+1, jk) = zglayu(jl) | pcntrb(jl, jk+1, jk) = zglayu(jl) |
187 | pcntrb(jl, jk, jk) = 0.0 | pcntrb(jl, jk, jk) = 0.0 |
188 | END DO | END DO |
189 | END DO | END DO |
190 | ||
191 | DO jk = 1, kflev | DO jk = 1, kflev |
# | Line 199 contains | Line 198 contains |
198 | END DO | END DO |
199 | END DO | END DO |
200 | ||
RETURN | ||
201 | END SUBROUTINE lwvn | END SUBROUTINE lwvn |
202 | ||
203 | end module lwvn_m | end module lwvn_m |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |