anchor.diff:    ! ---------------------------------------
     REAL(KIND=r8), DIMENSION(:),     ALLOCATABLE :: latvals, lonvals
     REAL(KIND=r8), DIMENSION(:,:),   ALLOCATABLE :: Psurface
  -  REAL(KIND=r8), DIMENSION(:,:,:), ALLOCATABLE :: Temperature, Gas_profiles, H2O_profiles
  +  REAL(KIND=r8), DIMENSION(:,:,:), ALLOCATABLE :: Temperature, Gas_profiles, H2O_profiles, Gas_profiles_sd
   
     ! ---------------------------------------
     ! Data obtained from Vlidort lookup table
  
positive.code:                                    ismonth, ndatafields, h2o_cli_idx
      INTEGER   (KIND=i4), DIMENSION(10) :: datafield_rank, datafield_type
      INTEGER   (KIND=C_LONG)     :: nswathcl, Cmlatcl, Cmloncl, CmETAcl, CmEp1cl
      CHARACTER (LEN=   maxchlen) :: swath_file, locswathname, gasdatafieldname, datafield_name
      CHARACTER (LEN=10*maxchlen) :: swath_name
  
      CHARACTER (LEN= 9), PARAMETER :: cli_lat_field         = 'Latitudes'
  
negative.code: 
      REAL (KIND=r4), ALLOCATABLE, DIMENSION(:) :: dummy_lon, dummy_lat
      REAL (KIND=r4), ALLOCATABLE, DIMENSION(:,:) :: dummy_psurf
      REAL (KIND=r4), ALLOCATABLE, DIMENSION(:,:,:) :: dummy_temp, dummy_gaspr, dummy_h2opr, dummy_gaspr_sd
  
      REAL (KIND=r4) :: scale_lat, scale_lon, scale_gas, scale_Psurf, &
           scale_temperature, scale_H2O, scale_gas_sd
  
      ! ------------------------
      ! Error handling variables
  