! This is for weather condition

      real awrrh0
      real ah0cng0(mnsub)
      real ah0cnp0(mnsub)

      common /w1clig0/ awrrh0, ah0cng0, ah0cnp0