/[lmdze]/trunk/dyn3d/extrapol.f90
ViewVC logotype

Diff of /trunk/dyn3d/extrapol.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 134 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
Legend:
Removed from v.134  
changed lines
  Added in v.208
  ViewVC Help
Powered by ViewVC 1.1.21