real::fadv,fadv2, fadt, rd,  f4d, ef4t, fkin
      real, dimension (lm) :: deta, rdeta, aeta, daeta,f4q2
      real, dimension (lp1) :: eta, dfl

      common/dynam/ fadv,fadv2,fadt,rd,f4d,f4q2,ef4t,fkin,deta,rdeta, &
                    eta,dfl,aeta,daeta


!!!!!!!!!!!copy from dynam_comm.h
!      real ::  fadv, fadv2,fadt, rd,  f4d, ef4t, fkin, fcp     
!      real, dimension (lm) :: deta, rdeta, aeta, daeta,f4q2
!      real, dimension (lp1) :: eta, dfl
!      real, dimension (0:im+1,0:jm+1,nm) :: wpdar, f11, f12, f21, f22, &
!                                    p11, p12, p21, p22, fdiv, fddmp,fvdiff &
!				    ,hbmsk,hsinp,hcosp
!      common /dynam/ fadv,fadv2, fadt, rd, f4d,f4q2, ef4t, fkin, &
!                    deta, rdeta, aeta, eta, dfl, daeta, &
!                    wpdar, f11, f12, f21, f22, &
!                    p11, p12, p21, p22, fcp, fdiv, fddmp,hsinp,hcosp,&
!                    fvdiff,hbmsk