anchor.diff:  
       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
  +    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_temperature, scale_H2O, scale_gas_sd
   
       ! ------------------------
       ! Error handling variables
  
positive.code:     he5stat = HE5_SWrdlattr ( swath_id, TRIM(ADJUSTL(gasdatafieldname)),&
                "ScaleFactor", scale_gas       )
  
      ! -------------------------------------------------------------------
      ! Finding out the data field for water vapor (to compute air density)
      ! -------------------------------------------------------------------
  
negative.code:     ALLOCATE(dummy_temp(1:Cmlon,1:Cmlat,1:CmETA))
      ALLOCATE(dummy_gaspr(1:Cmlon,1:Cmlat,1:CmETA))
      ALLOCATE(dummy_h2opr(1:Cmlon,1:Cmlat,1:CmETA))
      ALLOCATE(dummy_gaspr_sd(1:Cmlon,1:Cmlat,1:CmETA))
  
      ! -----------------------------------------------
      ! Read the tables: Psurface, Heights, Temperature
  