| 1 |
************************************************************************* |
| 2 |
* |
| 3 |
* Common common_B_inner.f |
| 4 |
* |
| 5 |
* to be included in: |
| 6 |
* - ../magnet/read_B_inner.f |
| 7 |
* - ../magnet/inter_B.f |
| 8 |
* - ../magnet/inter_B_inner.f |
| 9 |
* |
| 10 |
************************************************************************* |
| 11 |
|
| 12 |
c implicit double precision (a-h,o-z) |
| 13 |
|
| 14 |
|
| 15 |
parameter (nx=29, ny=23, nz=101) !number of measures along X, Y and Z axes |
| 16 |
|
| 17 |
c coordinates in m of the edges of the volume in which the field |
| 18 |
c is interpolated according to the inner maps |
| 19 |
parameter (edgexmin=-0.085,edgexmax=0.085 |
| 20 |
$ ,edgeymin=-0.07,edgeymax=0.07 |
| 21 |
$ ,edgezmin=-0.26,edgezmax=0.26) |
| 22 |
|
| 23 |
************ |
| 24 |
c first map |
| 25 |
double precision px1(nx,3),py1(ny,3),pz1(nz,3) !coordinates of measure points: |
| 26 |
c e.g. py1(ny,1) = Y coordinates of Bx (=1) component of magnetic field |
| 27 |
|
| 28 |
double precision b1(nx,ny,nz,3) !magnetic field values: |
| 29 |
c e.g. b1(nx,ny,nz,2) = By (=2) component of magnetic field measured in (nx, ny, nz) |
| 30 |
|
| 31 |
double precision px1max(3),px1min(3),py1max(3), |
| 32 |
& py1min(3),pz1max(3),pz1min(3) !grid edges |
| 33 |
|
| 34 |
common/interpolation1/px1,py1,pz1,b1 |
| 35 |
& ,px1max,px1min,py1max,py1min,pz1max,pz1min |
| 36 |
save/interpolation1/ |
| 37 |
|
| 38 |
************ |
| 39 |
c second map |
| 40 |
double precision px2(nx,3),py2(ny,3),pz2(nz,3) |
| 41 |
double precision b2(nx,ny,nz,3) |
| 42 |
double precision px2max(3),px2min(3),py2max(3), |
| 43 |
& py2min(3),pz2max(3),pz2min(3) |
| 44 |
|
| 45 |
common/interpolation2/px2,py2,pz2,b2 |
| 46 |
& ,px2max,px2min,py2max,py2min,pz2max,pz2min |
| 47 |
save/interpolation2/ |
Parent Directory
| 
Revision Log