COMMON/callkeys/callrad,calldifv,calladj,callcond,callsoil,
     s   season,diurnal,lverbose,iradia,period_sort
      LOGICAL callrad,calldifv,calladj,callcond,callsoil,
     s   season,diurnal,lverbose
      INTEGER iradia
      real period_sort