anchor.diff:      RETURN
     END SUBROUTINE climatology_allocate
   
  -  SUBROUTINE vlidort_allocate ( ad, anozo, ansrf, ancld, analb, ansza, anvza, anwav, anlay, anlev, errstat )
  +  SUBROUTINE vlidort_allocate ( ad, anozo, ansrf, ancld, analb, ansza, anvza, anwav, anlay, errstat )
   
       USE OMSAO_casestring_module, ONLY: lower_case
       IMPLICIT NONE
  
positive.code:     CALL h5dget_space_f(dI0_cld_did,dspace,hdferr)
      CALL h5sget_simple_extent_dims_f (dspace, dI0_cld_dim, dI0_cld_maxdim, hdferr)
  
      CALL h5dget_space_f(alt_lev_did,dspace,hdferr)
      CALL h5sget_simple_extent_dims_f (dspace, alt_lev_dim, alt_lev_maxdim, hdferr)
      CALL h5dget_space_f(alt_lay_did,dspace,hdferr)
      CALL h5sget_simple_extent_dims_f (dspace, alt_lay_dim, alt_lay_maxdim, hdferr)
  
  
negative.code:     ! ---------------------------------------------------------------
      CALL vlidort_allocate('a', INT(toz_dim(1)),INT(srf_dim(1)),INT(clp_dim(1)),INT(alb_dim(1)), &
           INT(sza_dim(1)),INT(vza_dim(1)),INT(wav_dim(1)), &
           INT(alt_lay_dim(2)),errstat)
      
      ! ----------------------------------------------------
      ! Read from the h5 file all these small size variables
  