c Note: SNWMID and SNWALB parameters modified to obtain improved albedo and radswg
c --------------------------------------------------------------------------------
      _RL snwmid(10)
      DATA SNWMID /100.,100.,100.,10.,100.,10.,10.,10.,1.e-16,10./