Parent Directory | Revision Log | Patch
revision 207 by guez, Wed Apr 29 15:47:56 2015 UTC | revision 208 by guez, Wed Dec 7 16:44:53 2016 UTC | |
---|---|---|
# | Line 156 SUBROUTINE extrapol(pfild, kxlon, kylat, | Line 156 SUBROUTINE extrapol(pfild, kxlon, kylat, |
156 | DO k = ideb, ifin | DO k = ideb, ifin |
157 | ilon = ix(k) | ilon = ix(k) |
158 | jlat = jy(k) | jlat = jy(k) |
159 | pwork(i, j) = pwork(i, j) + pfild(ilon, jlat)*zmask(k)/float( & | pwork(i, j) = pwork(i, j) + pfild(ilon, jlat)*zmask(k)/real( & |
160 | inbor) | inbor) |
161 | END DO | END DO |
162 | END IF | END IF |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |