Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
get_ch4_ic | Module: | File: TRACERS_SPECIAL_Shindell.f |
Author : Greg Faluvegi/Drew Shindell
Version:
Declaration:
subroutine get_ch4_ic(icall)
- ls1 : used from resolution
- Initial Value
= >ls1_nominal
- im : used from resolution
- jm : used from resolution
- lm : used from resolution
- dtsrc : used from model_com
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_atm
- write_parallel : used from domain_decomp_atm
- am_i_root : used from domain_decomp_atm
- axyp : used from geom
- lat2d_dg : used from geom
- ma : used from atm_com
- mair : used from constant
- vol2mass : used from oldtracer_mod
- trm : used from tracer_com
- n_ch4 : used from tracer_com
- noverwrite : used from tracer_com
- tr3dsource : used from fluxes
- ch4altt : used from trchem_shindell_com
- ch4altx : used from trchem_shindell_com
- ch4_init_sh : used from trchem_shindell_com
- ch4_init_nh : used from trchem_shindell_com
- fix_ch4_chemistry : used from trchem_shindell_com
- ch4init :
real*8
- temp variable for ch4 initial conditions
- l :
integer
- dummy loop variables
- j :
integer
- dummy loop variables
- i :
integer
- dummy loop variables
- bymair :
real*8, parameter
- 1/molecular wt. of air = 1/mair
Initial Value= 1.d0/mair
- icall :
integer, intent(in)
- =1 (during run) =0 (first time)
- bydtsrc :
real*8
- j_0 :
integer
- j_1 :
integer
- i_0 :
integer
- i_1 :
integer