names.f90

Go to the documentation of this file.

 module names
 
#if !CRTM_CT & !ACAERO 
  use mod06_run_settings
#endif 
 
  implicit none
  
  integer :: myyear, myday, mytime, mymonth, mydate, mymsg
  real ::  frac_time
  character(len = 2) :: mymission
 
  character(len = 1000) :: &
#if crtm_ct | acaero
  alevel1b_name, &
#else
  alevel1b_name(set_number_of_bands),   &
#endif
                           acloudmask_name,             &
                           amod06_name,            &
                           acth_name, &
                           ageolocation_name,           &
                           agdas_name,                  &
                           agdas_name2,                  &
                           aozone_name, &
                           ancepice_name,               &
                           anise_name, ashis_name, aangle_name, alst_name               
    character(len = 1000) :: awater_library,              &
                           aice_library, adem_name, amod06source_name
! GEOS-5 FP-IT product names
    character(len = 1000) :: ageos2d_name1, ageos2d_name2, & 
                            ageos3d_name1, ageos3d_name2, &
                            ageos_ocn_name, ageos_lnd_name                     
                           
    character(len =1000) :: alibnames_ice(3), alibnames_ice_sdev(3)                    
    character(len =1000) :: alibnames_water(3), alibnames_water_sdev(3)                    
    character(len = 1000) :: aphase_library,                &
                           atransmittance_library,      &
                           aecosystem_data_name,        &
                           asnowicealbedo_data_name
    character(len=1000) :: a138_library,            &
                           a138_slope_library,      &
                           a138_slope_stdev_library
    character(len=500) :: act_lib_path, aemissivity_name, acsrbias_name, atmp_dirname
 
    character(len=500) :: my_text_file
    integer, parameter :: my_unit_lun = 20
 
! MOD_PRCRTMCT names    
    character(len=500) :: aforward_uncertainty_name, agas_name, acrtm_path, aice_path, aliquid_path, acrtm_output_name
 
! ACAERO names
    character(len=300) :: name_model, name_out
    character(len=3) :: product, ancillary_time
                                                            
 end module names