Parent Directory | Revision Log | Patch
trunk/dyn3d/extrapol.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC | trunk/dyn3d/extrapol.f revision 254 by guez, Mon Feb 5 10:39:38 2018 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 |