include file: SWSC 7
      REAL SC                           !  Solar constant                  SWSC.2      
      PARAMETER ( SC = 1365. )                                             SWSC.3