Index | Rundeck: E6TomaF40 | Created: Sat May 18 03:30:40 EDT 2024 |
tijlh_defs | Module: | File: TRACERS.f |
Author :
Version:
Declaration:
subroutine tijlh_defs(arr, nmax, decl_count)
- dtsrc : used from model_com
- nday : used from model_com
- info_type : used from subdd_mod
- sched_rad : used from subdd_mod
- info_type_ : used from subdd_mod
- ntm : used from tracer_com
- trname : used from oldtracer_mod
- nraero_aod : used from radpar
- Initial Value
= >NTRACE
- ntrix_aod : used from rad_com
- to_volume_mixrat : used from trdiag_com
- save_dry_aod : used from trdiag_com
- nmax :
integer
- decl_count :
integer
- n :
integer
- isub_ntrix :
integer
- unitstring :
character*80
- arr :
type(info_type), dimension(nmax)
- ssky :
character(len=10), dimension(3)
- Initial Value
= (/'as ','cs ','dry'/)
- lsky :
character(len=10), dimension(3)
- Initial Value
= (/'All-sky ','Clear-sky', 'Dry aeros'/)
- sabs :
character(len=10), dimension(2)
- Initial Value
= (/' ','a'/)
- labs :
character(len=10), dimension(2)
- Initial Value
= (/' ','absorption'/)
- lcoef :
character(len=10), dimension(2)
- Initial Value
= (/'extinction','absorption'/)
- spcname :
character(len=10)
- s :
integer
- a :
integer