--- trunk/Sources/dyn3d/extrapol.f	2015/04/29 15:47:56	134
+++ 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