|
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 |
|