* store the windspeed that calculated in radin real wind10(ln2,lat) real sice(ln2,lat) common /gas/ wind10,sice