C Coriolis related variables
      REAL*8 ycor(0:NYM+1),f1v(0:NYM+1),f2v(0:NYM+1),f1u(0:NYM+1),
     &   f2u(0:NYM+1),avgU(NXM,NYM),avgV(NXM,NYM),y0,beta,fo
      common/coriolis/ycor,f1v,f2v,f1u,f2u,avgU,avgV,y0,beta,fo