--- trunk/libf/dyn3d/startdyn.f90	2009/12/14 15:25:16	23
+++ trunk/libf/dyn3d/startdyn.f90	2010/03/03 13:23:49	24
@@ -196,8 +196,7 @@
           ay(:) = var_tmp3d(ii, ij, llm_dyn:1:-1)
           yder(:) = SPLINE(ax, ay)
           do il=1, lml
-             var3d(ii, ij, il) &
-                  = SPLINT(ax, ay, yder, pls_in(ii, ij, il))
+             var3d(ii, ij, il) = SPLINT(ax, ay, yder, pls_in(ii, ij, il))
           END do
        ENDDO
     ENDDO