| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=wp), | private, | dimension(:), allocatable | :: | mlonp | |||
| real(kind=wp), | private, | dimension(:), allocatable | :: | mlatp | |||
| integer, | private | :: | llon | ||||
| integer, | private | :: | llat | ||||
| real(kind=wp), | private, | dimension(:,:), allocatable | :: | Qp | |||
| real(kind=wp), | private, | dimension(:,:), allocatable | :: | E0p | |||
| real(kind=wp), | private, | dimension(:), allocatable | :: | precdatp | |||
| real(kind=wp), | private, | dimension(:), allocatable | :: | mloni | |||
| real(kind=wp), | private, | dimension(:), allocatable | :: | mlati | |||
| real(kind=wp), | private, | dimension(:,:), allocatable | :: | Qiprev | |||
| real(kind=wp), | private, | dimension(:,:), allocatable | :: | E0iprev | |||
| real(kind=wp), | private, | dimension(:,:), allocatable | :: | Qinext | |||
| real(kind=wp), | private, | dimension(:,:), allocatable | :: | E0inext | |||
| integer, | private, | dimension(3) | :: | ymdprev | |||
| integer, | private, | dimension(3) | :: | ymdnext | |||
| real(kind=wp), | private | :: | UTsecprev | ||||
| real(kind=wp), | private | :: | UTsecnext | ||||
| real(kind=wp), | private | :: | tprev | ||||
| real(kind=wp), | private | :: | tnext |
these need to be initialized so that something sensible happens at the beginning
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=wp), | intent(in) | :: | dt | |||
| real(kind=wp), | intent(in) | :: | dtprec | |||
| real(kind=wp), | intent(in) | :: | t | |||
| integer, | intent(in), | dimension(3) | :: | ymd | date for which we wish to calculate perturbations |
|
| real(kind=wp), | intent(in) | :: | UTsec | |||
| character(len=*), | intent(in) | :: | precdir | directory where neutral simulation data is kept |
||
| type(curvmesh) | :: | x | ||||
| real(kind=wp), | intent(out), | dimension(:,:,:) | :: | W0 | last dimension is the number of particle populations |
|
| real(kind=wp), | intent(out), | dimension(:,:,:) | :: | PhiWmWm2 | last dimension is the number of particle populations |
INITIALIZE SOME MODULE TIMING VARIABLES