! windinit  declarations
mesgm(windinit macro has been called
REAL(angwind,velwind,const1,const2,t0,p0,d0)
real(uwind,vwind,factor,pi,coef,coef2,twonz)
pi=3.14159
boolean(solveu,solvev,solvew)
char(form)