program test
use var
use comm
use const
use physics



days = 360.
nld = days/30

write(*,*) nld
!write(*,*) u,v,days,dt,odz
call windglo(u,v,days,dt,odz)


endprogram