Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
tijh_defs | Module: | File: TRACERS.f |
Author :
Version:
Declaration:
subroutine tijh_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
- reduc_max : used from subdd_mod
- trname : used from oldtracer_mod
- nwater : used from oldtracer_mod
- tr_wd_type : used from oldtracer_mod
- ntm : used from tracer_com
- to_volume_mixrat : used from trdiag_com
- save_dry_aod : used from trdiag_com
- nraero_aod : used from radpar
- Initial Value
= >NTRACE
- ntrix_aod : used from rad_com
- nraero_rf : used from rad_com
- ntrix_rf : used from rad_com
- diag_fc : used from rad_com
- tracers_amp : used from runtimecontrols_mod
- tracers_tomas : used from runtimecontrols_mod
- info_type_ : used from subdd_mod
- nmax :
integer
- decl_count :
integer
- isub_ntrix :
integer
- 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'/)
- sfrc :
character(len=10), dimension(2)
- Initial Value
= (/'swf','lwf'/)
- lfrc :
character(len=10), dimension(2)
- Initial Value
= (/'shortwave','longwave '/)
- spcname :
character(len=10)
- ssiz :
character(len=20), dimension(2)
- Initial Value
= (/'2p5','10 '/)
- lsiz :
character(len=20), dimension(2)
- Initial Value
= (/'PM2.5','PM10 '/)
- sloc :
character(len=20), dimension(2)
- Initial Value
= (/'l1','s '/)
- lloc :
character(len=20), dimension(2)
- Initial Value
= (/'L=1 ','Surface'/)
- sunt :
character(len=20), dimension(2)
- Initial Value
= (/'m','c'/)
- lunt :
character(len=20), dimension(2)
- Initial Value
= (/'Mass Mixing Ratio','Concentration '/)
- uunt :
character(len=20), dimension(2)
- Initial Value
= (/'kg species / kg air','kg m-3 '/)
- unitstring :
character*80
- unitstring2 :
character*80
- s :
integer
- a :
integer
- n :
integer
- f :
integer
- u :
integer
- l :
integer
- p :
integer