-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathModMars.matrices.asc
39 lines (37 loc) · 2.05 KB
/
ModMars.matrices.asc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! These are Modified for Mars by SWB: 1/18/07
! -- Most source state Dij = Dji (check)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! real, parameter, dimension(6, 6) :: Diff0 = 1.0e17 * reshape( (/ &
! ! These are Aij coefficients from B&K (1973) formulation: Aij*1.0E+17
! ! Use Jared Bell's Titan GITM formulation for Mars GITM
!! integer, parameter :: iCO2_ = 1
!! integer, parameter :: iCO_ = 2
!! integer, parameter :: iO_ = 3
!! integer, parameter :: iN2_ = 4
!! integer, parameter :: iO2_ = 5
!! integer, parameter :: iAr_ = 6
! !------------------------------------------------+
! ! i=C02 CO O N2 O2 Ar
! !------------------------------------------------+
! 0.0000, 0.7762, 0.2219, 0.6580, 0.5770, 1.1920, & ! CO2
! 0.7762, 0.0000, 0.9466, 0.9280, 0.8300, 0.6625, & ! CO
! 0.2219, 0.9466, 0.0000, 0.9690, 0.9690, 0.5510, & ! O
! 0.6580, 0.9280, 0.9690, 0.0000, 0.7150, 0.6640, & ! N2
! 0.5770, 0.8300, 0.9690, 0.7150, 0.0000, 0.7170, & ! O2
! 1.1920, 0.6625, 0.5510, 0.6640, 0.7170, 0.000 /), (/6,6/) )! Ar
!
! ! These are s-exponents from B&K (1973) formulation: T**s
!
! real, parameter, dimension(6, 6) :: DiffExp = reshape( (/ &
! !------------------------------------------------+
! ! i=C02 CO O N2 O2 Ar
! !------------------------------------------------+
! 0.000, 0.750, 0.750, 0.752, 0.749, 0.750, & ! CO2
! 0.750, 0.000, 0.750, 0.710, 0.724, 0.750, & ! CO
! 0.750, 0.750, 0.000, 0.774, 0.774, 0.841, & ! O
! 0.752, 0.710, 0.774, 0.000, 0.750, 0.752, & ! N2
! 0.749, 0.724, 0.774, 0.750, 0.000, 0.736, & ! O2
! 0.750, 0.750, 0.841, 0.752, 0.736, 0.000 /), (/6,6/) ) ! AR
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!