*ID SOLVARDC
*/
*/  solvarLBB_right_dcall is a mod which allows dbl call diagnostics for
*/ SolvarLBB_dcall at VN4.5
*/ note if double call wanted then this mod must be added AFTER RFORC405
*DECLARE RAD_CTL1
*/
*I RAD_CTL1.74 
*/
      REAL SCS_ORIG !! Original (unscaled) solar constant.
*I GHM5F405.18
      SCS_ORIG=SCS !! keep the original value of SCS for 2nd SW call
*/ 2nd call uses retained version of scs
*D RFSWSO.1
     &        DAY_FRACTION(FIRST_POINT),LIST(START_POINT),SCS_orig,
! note scs_orig is used 
! (so we are using the original solar constant value here)
!! note use the original spectral files which have NOT been tweaked by 
!! solar constant changes.
