Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
chem1prn | Module: | File: TRCHEM_calc.f |
Author : Drew Shindell (modelEifications by Greg Faluvegi)
Version:
Declaration:
subroutine chem1prn(kdnr, numel, n_rr, nn, npdnrs, rrate, index, multip, igas, total, maxl, i, j, jay)
- write_parallel : used from domain_decomp_atm
- ay : used from trchem_shindell_com
- lprn : used from trchem_shindell_com
- nfam : used from trchem_shindell_com
- nc : used from trchem_shindell_com
- numfam : used from trchem_shindell_com
- y : used from trchem_shindell_com
- p_1 : used from trchem_shindell_com
- kdnr :
integer, dimension(nc)
- kdnr,kpnr,kds, or kps from chemstep
- numel :
integer, intent(in)
- first index of nn array
- nn :
integer, dimension(numel, n_rr)
- nn,nnr,ks, or kss from chemstep
- npdnrs :
integer, dimension(p_1*n_rr)
- ndnr,npnr,nds, or nps from chemstep
- rrate :
real*8, dimension(n_rr, maxl)
- rrate or photrate from chemstep
- index :
integer, intent(in)
- passed index to know which call this is... {1,2,3,4}
- multip :
integer, intent(in)
- 1 for production, -1 for destruction
- igas :
integer, intent(in)
- passed index for gas number
- total :
real*8
- dummy summation
- maxl :
integer, intent(in)
- highest chemistry level
- j :
integer, intent(in)
- passed horizontal spatial indicies
- i :
integer, intent(in)
- passed horizontal spatial indicies
- label :
character*17
- character string for printing
- irec :
- dummy loop variables
- per :
real*8
- dummy temp variable
- n_rr :
integer, intent(in)
- ireac :
integer
- out_line :
character(len=300)
- jay :
logical