_RL     exf_inscal_lwdown

     &                      exf_inscal_lwdown,

     I     exf_inscal_lwdown,

     I     lwdownperiod, exf_inscal_lwdown, lwdownconst,

     &  exf_inscal_swdown,  exf_inscal_lwdown,

      exf_inscal_lwdown    =  1. _d 0