anchor.diff:         IF ( ALLOCATED ( lut_wavelength ) ) DEALLOCATE ( lut_wavelength )
          IF ( ALLOCATED ( lut_toms ) ) DEALLOCATE ( lut_toms )
          
  -       IF ( ALLOCATED ( lut_alt_lev ) ) DEALLOCATE ( lut_alt_lev )
          IF ( ALLOCATED ( lut_alt_lay ) ) DEALLOCATE ( lut_alt_lay )
          IF ( ALLOCATED ( lut_pre_lev ) ) DEALLOCATE ( lut_pre_lev )
          IF ( ALLOCATED ( lut_pre_lay ) ) DEALLOCATE ( lut_pre_lay )
  
positive.code:   REAL(KIND=r4),    DIMENSION(:),           ALLOCATABLE :: lut_alb, lut_clp, lut_sza, &
         lut_vza, lut_wavelength, lut_srf
    CHARACTER(LEN=5), DIMENSION(:),           ALLOCATABLE :: lut_toms
    REAL(KIND=r4),    DIMENSION(:,:),         ALLOCATABLE :: lut_alt_lay, lut_alt_lev, lut_pre_lay, lut_pre_lev, &
         lut_pre_lev_cld, lut_pre_lay_cld
    REAL(KIND=r4),    DIMENSION(:,:),         ALLOCATABLE :: lut_Sb_clr, lut_Sb_cld
    REAL(KIND=r4),    DIMENSION(:,:,:,:),     ALLOCATABLE :: lut_I0_clr, lut_I1_clr, lut_I2_clr, lut_Ir_clr, &
  
negative.code:        ALLOCATE (lut_toms(1:anozo),       STAT=estat)
         
         ALLOCATE (lut_alt_lay(1:ansrf,1:anlay),   STAT=estat)
         ALLOCATE (lut_pre_lay(1:ansrf,1:anlay),   STAT=estat)
         ALLOCATE (lut_pre_lev_cld(1:ancld,1:anlev),   STAT=estat)
         ALLOCATE (lut_pre_lay_cld(1:ancld,1:anlay),   STAT=estat)
  