Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | private, | parameter | :: | lprec | = | 2 | |
real(kind=wp), | private, | allocatable, dimension(:,:,:,:) | :: | PrPrecipG | |||
real(kind=wp), | private, | allocatable, dimension(:,:,:) | :: | QePrecipG | |||
real(kind=wp), | private, | allocatable, dimension(:,:,:) | :: | iverG |
now add in photoionization sources enforce minimum production rate to preserve conditioning for species that rely on constant production testing should probably be done to see what the best choice is...
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | intent(inout), | dimension(-1:,-1:,-1:,:) | :: | ns | ||
real(kind=wp), | intent(inout), | dimension(-1:,-1:,-1:,:) | :: | vs1 | ||
real(kind=wp), | intent(inout), | dimension(-1:,-1:,-1:,:) | :: | Ts | ||
real(kind=wp), | intent(inout), | dimension(-1:,-1:,-1:,:) | :: | vs2 | ||
real(kind=wp), | intent(inout), | dimension(-1:,-1:,-1:,:) | :: | vs3 | ||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | J1 | ||
real(kind=wp), | intent(inout), | dimension(:,:,:) | :: | E1 | ||
real(kind=wp), | intent(in) | :: | Teinf | |||
real(kind=wp), | intent(in) | :: | t | |||
real(kind=wp), | intent(in) | :: | dt | |||
type(curvmesh), | intent(in) | :: | x | |||
real(kind=wp), | intent(in), | dimension(:,:,:,:) | :: | nn | ||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | vn1 | ||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | vn2 | ||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | vn3 | ||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | Tn | ||
real(kind=wp), | intent(out), | dimension(:,:,:) | :: | iver | ||
real(kind=wp), | intent(in) | :: | f107 | |||
real(kind=wp), | intent(in) | :: | f107a | |||
integer, | intent(in), | dimension(3) | :: | ymd | ||
real(kind=wp), | intent(in) | :: | UTsec | |||
integer, | intent(in) | :: | flagprecfile | |||
real(kind=wp), | intent(in) | :: | dtprec | |||
character(len=*), | intent(in) | :: | precdir | |||
integer, | intent(in) | :: | flagglow | |||
real(kind=wp), | intent(in) | :: | dtglow |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(curvmesh), | intent(in) | :: | x | |||
integer, | intent(in) | :: | paramflag | |||
real(kind=wp), | intent(inout), | dimension(-1:,-1:,-1:,:) | :: | param |