anchor.diff:    INTEGER(HSIZE_T), DIMENSION(2) :: Sb_clr_dim, Sb_clr_maxdim, &
          alt_lev_dim, alt_lev_maxdim, &
          alt_lay_dim, alt_lay_maxdim, &
  -       alt_lev_cld_dim, alt_lev_cld_maxdim, &
          alt_lay_cld_dim, alt_lay_cld_maxdim, Sb_cld_dim, Sb_cld_maxdim
     INTEGER(HSIZE_T), DIMENSION(4) :: I0_clr_dim,  I0_clr_maxdim, I0_cld_dim, I0_cld_maxdim
     INTEGER(HSIZE_T), DIMENSION(5) :: dI0_cld_dim, dI0_cld_maxdim
  
positive.code:        lut_vza, lut_wavelength, lut_srf
    CHARACTER(LEN=5), DIMENSION(:),           ALLOCATABLE :: lut_toms
    REAL(KIND=r4),    DIMENSION(:,:),         ALLOCATABLE :: lut_alt_lay, lut_pre_lay, &
         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, &
         lut_I0_cld, lut_I1_cld, lut_I2_cld, lut_Ir_cld
  
negative.code:        
         ALLOCATE (lut_alt_lay(1:ansrf,1:anlay),   STAT=estat)
         ALLOCATE (lut_pre_lay(1:ansrf,1:anlay),   STAT=estat)
         ALLOCATE (lut_pre_lay_cld(1:ancld,1:anlay),   STAT=estat)
  
         ALLOCATE (lut_I0_clr(1:anozo,1:ansrf,1:anvza,1:ansza), STAT=estat)
  