| 1 |
* |
| 2 |
* $Id: gpfield.inc,v 3.1.1.1 2002/07/11 16:01:59 cafagna Exp $ |
| 3 |
* |
| 4 |
* $Log: gpfield.inc,v $ |
| 5 |
* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna |
| 6 |
* First GPAMELA release on CVS |
| 7 |
* |
| 8 |
* |
| 9 |
* |
| 10 |
* gpfield.inc |
| 11 |
* |
| 12 |
*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola |
| 13 |
*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna |
| 14 |
*CMZ : 1.02/00 10/03/97 12.52.13 by Francesco Cafagna |
| 15 |
*CMZ : 1.00/02 27/02/96 17.40.15 by Francesco Cafagna |
| 16 |
*-- Author : Paolo Papini 16/02/96 |
| 17 |
C |
| 18 |
C Common with the magnetic field related variables |
| 19 |
C |
| 20 |
REAL FX,FY,FZ,V0,V1,V2,V3,VV,DD |
| 21 |
INTEGER IVV,IV |
| 22 |
COMMON /GPCFIELD/FX(41,41,31),FY(41,41,31), |
| 23 |
+ FZ(41,41,31),V0(3),V1(3),V2(3),V3(3), |
| 24 |
+ VV(8,3),DD(8),IVV(8,3),IV(3) |
| 25 |
|
| 26 |
|
| 27 |
|
| 28 |
|
| 29 |
parameter (nx=29, ny=23, nz=101) !number of measures along X, Y and Z axes |
| 30 |
|
| 31 |
c coordinates in m of the edges of the volume in which the field |
| 32 |
c is interpolated according to the inner maps |
| 33 |
real*8 edgexmin,edgexmax,edgeymin,edgeymax,edgezmin,edgezmax |
| 34 |
parameter (edgexmin=-0.085,edgexmax=0.085 |
| 35 |
+ ,edgeymin=-0.07,edgeymax=0.07 |
| 36 |
+ ,edgezmin=-0.26,edgezmax=0.26) |
| 37 |
|
| 38 |
************ |
| 39 |
c first map |
| 40 |
real*8 px1(nx,3),py1(ny,3),pz1(nz,3) !coordinates of measure points: |
| 41 |
c e.g. py1(ny,1) = Y coordinates of Bx (=1) component of magnetic field |
| 42 |
|
| 43 |
real*8 b1(nx,ny,nz,3) !magnetic field values: |
| 44 |
c e.g. b1(nx,ny,nz,2) = By (=2) component of magnetic field measured in (nx, ny, nz) |
| 45 |
|
| 46 |
real*8 px1max(3),px1min(3),py1max(3),py1min(3),pz1max(3),pz1min(3) !grid edges |
| 47 |
|
| 48 |
common/interpolation1/px1,py1,pz1,b1 |
| 49 |
$ ,px1max,px1min,py1max,py1min,pz1max,pz1min |
| 50 |
|
| 51 |
************ |
| 52 |
c second map |
| 53 |
real*8 px2(nx,3),py2(ny,3),pz2(nz,3) |
| 54 |
real*8 b2(nx,ny,nz,3) |
| 55 |
real*8 px2max(3),px2min(3),py2max(3),py2min(3),pz2max(3),pz2min(3) |
| 56 |
|
| 57 |
common/interpolation2/px2,py2,pz2,b2 |
| 58 |
$ ,px2max,px2min,py2max,py2min,pz2max,pz2min |
Parent Directory
| 
Revision Log