Due to the lapse in federal government funding, NASA is not updating this website. We sincerely regret this inconvenience.
NASA Logo
Ocean Color Science Software

ocssw V2022
names.f90
Go to the documentation of this file.
1  module names
2 
3 #if !CRTM_CT & !ACAERO
5 #endif
6 
7  implicit none
8 
10  real :: frac_time
11  character(len = 2) :: mymission
12 
13  character(len = 1000) :: &
14 #if crtm_ct | acaero
15  alevel1b_name, &
16 #else
17  alevel1b_name(set_number_of_bands), &
18 #endif
19  acloudmask_name, &
20  amod06_name, &
21  acth_name, &
22  ageolocation_name, &
23  agdas_name, &
24  agdas_name2, &
25  aozone_name, &
26  ancepice_name, &
27  anise_name, ashis_name, aangle_name, alst_name
28  character(len = 1000) :: awater_library, &
30 ! GEOS-5 FP-IT product names
31  character(len = 1000) :: ageos2d_name1, ageos2d_name2, &
34 
35  character(len =1000) :: alibnames_ice(3), alibnames_ice_sdev(3)
36  character(len =1000) :: alibnames_water(3), alibnames_water_sdev(3)
37  character(len = 1000) :: aphase_library, &
41  character(len=1000) :: a138_library, &
45 
46  character(len=500) :: my_text_file
47  integer, parameter :: my_unit_lun = 20
48 
49 ! MOD_PRCRTMCT names
51 
52 ! ACAERO names
53  character(len=300) :: name_model, name_out
54  character(len=3) :: product, ancillary_time
55 
56  end module names
57 
58 
character(len=500) acrtm_path
Definition: names.f90:50
character(len=2) mymission
Definition: names.f90:11
character(len=1000) adem_name
Definition: names.f90:28
character(len=500) aice_path
Definition: names.f90:50
character(len=1000) a138_library
Definition: names.f90:41
character(len=500) agas_name
Definition: names.f90:50
character(len=1000), dimension(3) alibnames_water_sdev
Definition: names.f90:36
character(len=1000) crtm_ct
Definition: names.f90:13
character(len=1000) aphase_library
Definition: names.f90:37
character(len=500) acrtm_output_name
Definition: names.f90:50
character(len=500) act_lib_path
Definition: names.f90:44
character(len=500) atmp_dirname
Definition: names.f90:44
character(len=300) name_model
Definition: names.f90:53
character(len=1000) ageos2d_name1
Definition: names.f90:31
character(len=1000), dimension(3) alibnames_ice
Definition: names.f90:35
character(len=1000) if
Definition: names.f90:13
character(len=1000), dimension(3) alibnames_ice_sdev
Definition: names.f90:35
character(len=1000) asnowicealbedo_data_name
Definition: names.f90:37
character(len=1000) ageos_lnd_name
Definition: names.f90:31
character(len=1000) aice_library
Definition: names.f90:28
character(len=3) ancillary_time
Definition: names.f90:54
character(len=1000) ageos_ocn_name
Definition: names.f90:31
character(len=1000) a138_slope_library
Definition: names.f90:41
character(len=500) my_text_file
Definition: names.f90:46
integer mytime
Definition: names.f90:9
character(len=1000) ageos2d_name2
Definition: names.f90:31
integer mydate
Definition: names.f90:9
integer mymsg
Definition: names.f90:9
character(len=1000) ageos3d_name2
Definition: names.f90:31
integer myyear
Definition: names.f90:9
integer myday
Definition: names.f90:9
character(len=1000) atransmittance_library
Definition: names.f90:37
integer, parameter my_unit_lun
Definition: names.f90:47
integer mymonth
Definition: names.f90:9
character(len=1000) a138_slope_stdev_library
Definition: names.f90:41
Definition: names.f90:1
character(len=1000) acaero
Definition: names.f90:13
character(len=500) acsrbias_name
Definition: names.f90:44
character(len=300) name_out
Definition: names.f90:53
integer, parameter set_number_of_bands
character(len=1000) ageos3d_name1
Definition: names.f90:31
character(len=500) aliquid_path
Definition: names.f90:50
character(len=500) aemissivity_name
Definition: names.f90:44
character(len=1000), dimension(3) alibnames_water
Definition: names.f90:36
real frac_time
Definition: names.f90:10
character(len=1000) aecosystem_data_name
Definition: names.f90:37
character(len=1000) amod06source_name
Definition: names.f90:28
character(len=500) aforward_uncertainty_name
Definition: names.f90:50
character(len=1000) awater_library
Definition: names.f90:28