anchor.diff:         ! ----------------------------
          ! Deallocate Vlidort variables
          ! ----------------------------
  -       CALL vlidort_allocate ("d", vl_nozo, vl_ncld, vl_nsza, vl_nvza, vl_nwav, vl_nalt, errstat)
  +       CALL vlidort_allocate ("d", INT(toz_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(1)),INT(alt_lev_dim(1)),errstat)
   
          ! -----------------------------------------------------------------
          ! Work out the AMF using the scattering weights and the climatology
  
positive.code:     RETURN
    END SUBROUTINE climatology_allocate
  
    SUBROUTINE vlidort_allocate ( ad, anozo, ancld, ansza, anvza, anwav, analt, errstat )
  
      USE OMSAO_casestring_module, ONLY: lower_case
      IMPLICIT NONE
  
negative.code: 
      RETURN
    END SUBROUTINE compute_geometric_amf
  
    SUBROUTINE amf_read_omiclouds ( nt, nx, yn_szoom, l2cfr, l2ctp, errstat )
  
  