/[PAMELA software]/gpamela/gpcdes/gpfield.inc
ViewVC logotype

Diff of /gpamela/gpcdes/gpfield.inc

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.1 by cafagna, Thu Jul 11 16:01:59 2002 UTC revision 3.2 by pam-ba, Mon Dec 5 12:15:20 2005 UTC
# Line 1  Line 1 
1  *  *
2  * $Id$  * $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  *  *
 * $Log$  
8  *  *
9  *  *
10  * gpfield.inc  * gpfield.inc
# Line 19  C Line 22  C
22        COMMON /GPCFIELD/FX(41,41,31),FY(41,41,31),        COMMON /GPCFIELD/FX(41,41,31),FY(41,41,31),
23       +                FZ(41,41,31),V0(3),V1(3),V2(3),V3(3),       +                FZ(41,41,31),V0(3),V1(3),V2(3),V3(3),
24       +                VV(8,3),DD(8),IVV(8,3),IV(3)       +                VV(8,3),DD(8),IVV(8,3),IV(3)
25  C  
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
Legend:
Removed from v.3.1  
changed lines
  Added in v.3.2
  ViewVC Help
Powered by ViewVC 1.1.23