anchor.diff:      DEALLOCATE(dummy_temp)
       DEALLOCATE(dummy_gaspr)
       DEALLOCATE(dummy_h2opr)
  +    DEALLOCATE(dummy_gaspr_sd)
   
     END SUBROUTINE omi_read_climatology
   
  
positive.code:   ! ---------------------------------------
    REAL(KIND=r8), DIMENSION(:),     ALLOCATABLE :: latvals, lonvals
    REAL(KIND=r8), DIMENSION(:,:),   ALLOCATABLE :: Psurface
    REAL(KIND=r8), DIMENSION(:,:,:), ALLOCATABLE :: Temperature, Gas_profiles, H2O_profiles
  
    ! ---------------------------------------
    ! Data obtained from Vlidort lookup table
  
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
  