--- trunk/Sources/dyn3d/extrapol.f	2016/09/01 10:30:53	207
+++ trunk/Sources/dyn3d/extrapol.f	2016/12/07 16:44:53	208
@@ -156,7 +156,7 @@
           DO k = ideb, ifin
             ilon = ix(k)
             jlat = jy(k)
-            pwork(i, j) = pwork(i, j) + pfild(ilon, jlat)*zmask(k)/float( &
+            pwork(i, j) = pwork(i, j) + pfild(ilon, jlat)*zmask(k)/real( &
               inbor)
           END DO
         END IF