|
Last change
on this file since 2236 was
1648,
checked in by jvatant, 8 years ago
|
|
Modifications to custom radiative transfer to Titan
+ Enables an altitude dependant gfrac for CIA computations
-> many radical changes in su_gases and co ..
-> read vertical CH4 profile with call_profilgases
-> Now you need a 'profile.def' that I will add in the deftank
+ Added interpolate CIA routines for CH4
+ Added temporary mean aerosol profile opacity routine (disr_haze)
|
|
File size:
1003 bytes
|
| Rev | Line | |
|---|
| [471] | 1 | module gases_h |
|---|
| 2 | |
|---|
| 3 | implicit none |
|---|
| 4 | |
|---|
| [1648] | 5 | !============================================================================================C |
|---|
| [471] | 6 | ! |
|---|
| [716] | 7 | ! gases_h |
|---|
| [471] | 8 | ! |
|---|
| [1648] | 9 | ! * A F90-allocatable version for gases.h -- AS 12/2011 |
|---|
| [471] | 10 | ! |
|---|
| [1648] | 11 | ! * Titan's version : J. Vatant d'Ollone (2017) |
|---|
| 12 | ! * gfrac is now 2D (altitude-dependent for the CIA-calculations) |
|---|
| 13 | ! * Reference level (nivref) is added for the cpp_mu and rayleigh routines |
|---|
| 14 | !===========================================================================================C |
|---|
| [471] | 15 | |
|---|
| [716] | 16 | ! Set and allocated in su_gases.F90 |
|---|
| [471] | 17 | integer :: ngasmx |
|---|
| [1648] | 18 | integer :: nivref |
|---|
| 19 | character*20,allocatable,DIMENSION(:) :: gnom ! name of the gas, set by master |
|---|
| 20 | real,allocatable,DIMENSION(:,:) :: gfrac |
|---|
| [471] | 21 | |
|---|
| [716] | 22 | ! in analogy with tracer.h ... |
|---|
| [1648] | 23 | |
|---|
| [716] | 24 | integer :: igas_N2 |
|---|
| 25 | integer :: igas_CH4 |
|---|
| [1648] | 26 | integer :: igas_H2 |
|---|
| 27 | |
|---|
| 28 | !!$OMP THREADPRIVATE(ngasmx,nivref,gnom,gfrac,& |
|---|
| 29 | ! !$OMP igas_H2,igas_N2,igas_CH4) |
|---|
| [716] | 30 | |
|---|
| [471] | 31 | end module gases_h |
|---|
Note: See
TracBrowser
for help on using the repository browser.
