anchor.diff:         taua(:,:) = 0.0_rb
          ssaa(:,:) = 1.0_rb
          asma(:,:) = 0.0_rb
  - 
  +
   ! Set flux adjustment for current Earth/Sun distance (two options).
   ! 1) Use Earth/Sun distance flux adjustment provided by GCM (input as adjes);
          adjflx = adjes
   !
   ! 2) Calculate Earth/Sun distance from DYOFYR, the cumulative day of the year.
  -!    (Set adjflx to 1. to use constant Earth/Sun distance of 1 AU). 
  +!    (Set adjflx to 1. to use constant Earth/Sun distance of 1 AU).
         if (dyofyr .gt. 0) then
            adjflx = earth_sun(dyofyr)
         endif
  -       
  +
   ! Set incoming solar flux adjustment to include adjustment for
   ! current Earth/Sun distance (ADJFLX) and scaling of default internal
  -! solar constant (rrsw_scon = 1368.22 Wm-2) by band (SOLVAR).  SOLVAR can be set 
  -! to a single scaling factor as needed, or to a different value in each 
  -! band, which may be necessary for paleoclimate simulations. 
  -! 
  +! solar constant (rrsw_scon = 1368.22 Wm-2) by band (SOLVAR).  SOLVAR can be set
  +! to a single scaling factor as needed, or to a different value in each
  +! band, which may be necessary for paleoclimate simulations.
  +!
         do ib = jpb1,jpb2
   !         solvar(ib) = 1._rb
  -         solvar(ib) = scon / rrsw_scon 
  +         solvar(ib) = scon / rrsw_scon
            adjflux(ib) = adjflx * solvar(ib)
         enddo
   
  
positive.code: !-- Additional modifications for GCM application
  !     Aug 2003: M. J. Iacono, AER Inc.
  !-- Total number of g-points reduced from 224 to 112.  Original
  !   set of 224 can be restored by exchanging code in module parrrsw.f90 
  !   and in file rrtmg_sw_init.f90.
  !     Apr 2004: M. J. Iacono, AER, Inc.
  !-- Modifications to include output for direct and diffuse 
  !   downward fluxes.  There are output as "true" fluxes without
  !   any delta scaling applied.  Code can be commented to exclude
  !   this calculation in source file rrtmg_sw_spcvrt.f90.
  
negative.code: ! iaer = 0, no aerosols
  ! iaer = 6, use six ECMWF aerosol types
  !           input aerosol optical depth at 0.55 microns for each aerosol type (ecaer)
  ! iaer = 10, input total aerosol optical depth, single scattering albedo
  !            and asymmetry parameter (tauaer, ssaaer, asmaer) directly
        iaer = 10
  
  