Parent Directory
|
Revision Log
|
Patch
trunk/dyn3d/extrapol.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC | trunk/Sources/dyn3d/extrapol.f 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 |