nonscience_parameters.f90

Go to the documentation of this file.

! In this module important paramters that address program control
! and messaging are set
 
module nonscience_parameters
 
  implicit none
 
  integer :: success, warning, error, failure  
 
 
  parameter(success = 0, warning = 1, error = 2, failure = 3)
 
  real,parameter :: fillvalue_real = -999.
#ifdef AIRBORNE
  integer*2, parameter :: fillvalue_int2 = -999
#else
  integer*2, parameter :: fillvalue_int2 = -9999
#endif
 
  real,parameter ::  max_tau_rtrieved = 150.0  
  real,parameter ::  max_cost_function = 2.0  !not in percent
 
  integer, parameter :: max_scan_per_granule = 250
 
  integer, parameter :: max_sds_name_len      = 64, &
                        max_file_name_len     = 1000 
 
  integer :: mpi_nprocs
  integer :: mpi_rank
 
end module nonscience_parameters