|
|
integer | nb_sing |
| |
|
integer | ngs |
| |
|
real *8, dimension(:), allocatable | xi |
| |
|
real *8, dimension(:), allocatable | wi |
| |
|
real *8, dimension(:), allocatable | x_i |
| |
|
real *8, dimension(:), allocatable | w_i |
| |
|
real *8, dimension(:), allocatable | tmref |
| |
|
real *8, dimension(:), allocatable | dtmref |
| |
|
real *8, dimension(:), allocatable | sgn_sing |
| |
|
real *8, dimension(:), allocatable | dtm1 |
| |
|
real *8, dimension(:), allocatable | dtm2 |
| |
|
real *8, dimension(:), allocatable | dtm0 |
| |
|
real *8, dimension(:), allocatable | coef |
| |
|
real *8, dimension(:), allocatable | coef1 |
| |
|
real *8, dimension(:), allocatable | coef2 |
| |
|
real *8, dimension(:), allocatable | dcoefx |
| |
|
real *8, dimension(:), allocatable | dcoefy |
| |
|
real *8, dimension(:), allocatable | p |
| |
|
real *8, dimension(:), allocatable | dpx |
| |
|
real *8, dimension(:), allocatable | dpy |
| |
real *8, dimension(:,:),
allocatable | l_ref |
| |
real *8, dimension(:,:),
allocatable | dl_ref |
| |
real *8, dimension(:,:),
allocatable | dtm |
| |
real *8, dimension(:,:),
allocatable | dtm_0 |
| |
real *8, dimension(:,:),
allocatable | tm0 |
| |
real *8, dimension(:,:),
allocatable | l0 |
| |
real *8, dimension(:,:),
allocatable | dl0 |
| |
real *8, dimension(:,:),
allocatable | phi0 |
| |
real *8, dimension(:,:),
allocatable | p0 |
| |
real *8, dimension(:,:),
allocatable | dp0x |
| |
real *8, dimension(:,:),
allocatable | dp0y |
| |
real *8, dimension(:,:),
allocatable | dp0 |
| |
real *8, dimension(:,:),
allocatable | xs |
| |
real *8, dimension(:,:),
allocatable | ws |
| |
real *8, dimension(:,:),
allocatable | dws |
| |
real *8, dimension(:,:),
allocatable | dtm_s |
| |
real *8, dimension(:,:),
allocatable | ls |
| |
real *8, dimension(:,:),
allocatable | dls |
| |
real *8, dimension(:,:),
allocatable | phis |
| |
real *8, dimension(:,:),
allocatable | ps |
| |
real *8, dimension(:,:),
allocatable | dpsx |
| |
real *8, dimension(:,:),
allocatable | dpsy |
| |
real *8, dimension(:,:),
allocatable | dps |
| |
real *8, dimension(:,:),
allocatable | wphi |
| |
|
logical, dimension(:), allocatable | flg_tm |
| |
|
integer, dimension(:), allocatable | ind_fit |
| |
real *8, dimension(:,:),
allocatable | lm_1 |
| |
real *8, dimension(:,:),
allocatable | dist21 |
| |
real *8, dimension(:,:),
allocatable | dist22 |
| |
real *8, dimension(:,:),
allocatable | dist2 |
| |
real *8, dimension(:,:),
allocatable | dist |
| |
|
real *8, save | a_dist |
| |
|
real *8, save | a_pot |
| |
|
real *8, save | dtmag |
| |
|
real *8, save | coef_phi |
| |
|
real *8, parameter | b =12.82 |
| |
|
real *8, parameter | l_lim =2*b/3 |
| |
|
real *8, parameter | l_stag =6.01 |
| |
|
real *8, parameter | tmag_stag =15. |
| |
|
real *8, parameter | lon_stag =15.*tmag_stag*deg2rad |
| |