anchor.diff:  !***************************************************************************
   !
   !  Input atmospheric profile from GCM, and prepare it for use in RRTMG_SW.
  -!  Set other RRTMG_SW input parameters.  
  +!  Set other RRTMG_SW input parameters.
   !
   !***************************************************************************
   
  
positive.code:                                                       !    Dimensions: (ncol,nlay)
        real(kind=rb), intent(in) :: tauaer(:,:,:)      ! Aerosol optical depth (iaer=10 only)
                                                        !    Dimensions: (ncol,nlay,nbndsw)
                                                        ! (non-delta scaled)      
        real(kind=rb), intent(in) :: ssaaer(:,:,:)      ! Aerosol single scattering albedo (iaer=10 only)
                                                        !    Dimensions: (ncol,nlay,nbndsw)
                                                        ! (non-delta scaled)      
        real(kind=rb), intent(in) :: asmaer(:,:,:)      ! Aerosol asymmetry parameter (iaer=10 only)
                                                        !    Dimensions: (ncol,nlay,nbndsw)
                                                        ! (non-delta scaled)      
        real(kind=rb), intent(in) :: ecaer(:,:,:)       ! Aerosol optical depth at 0.55 micron (iaer=6 only)
                                                        !    Dimensions: (ncol,nlay,naerec)
                                                        ! (non-delta scaled)      
  
  ! ----- Output -----
  
  
negative.code: !     on the RRTMG quadrature point (ngptsw) dimension.
  !
  ! Two methods of cloud property input are possible:
  !     Cloud properties can be input in one of two ways (controlled by input
  !     flags inflag, iceflag and liqflag; see text file rrtmg_sw_instructions
  !     and subroutine rrtmg_sw_cldprmc.f90 for further details):
  !
  !    1) Input cloud fraction, cloud optical depth, single scattering albedo
  !       and asymmetry parameter directly (inflgsw = 0)
  !    2) Input cloud fraction and cloud physical properties: ice fracion,
  !       ice and liquid particle sizes (inflgsw = 1 or 2);
  !       cloud optical properties are calculated by cldprmc based
  !       on input settings of iceflgsw and liqflgsw
  !
  ! Two methods of aerosol property input are possible:
  !     Aerosol properties can be input in one of two ways (controlled by input
  !     flag iaer, see text file rrtmg_sw_instructions for further details):
  !
  !    1) Input aerosol optical depth, single scattering albedo and asymmetry
  