doxygen/v8.037/Zprivate2g77_8f_source.html

       integer n, maxp
 !      parameter ( maxp=25000, n =2000 )
       parameter( maxp=30000, n =500 )
       real*4  x(maxp, n), y(maxp, n), z(maxp,n)
       real*4  pixel0, pixel, mulalpha, rmax2, pixelinc
       real*4  aax, aay, aaz, bbx, bby, bbz, ccx, ccy, ccz
       integer*2  codex(maxp, n), chgx(maxp, n)
       integer idx(maxp), si(maxp)
       integer jmin, jmax, deltan, maxppt, offset
       character*100 dir
       common /zprivate/  x, y, z, pixel0, pixel, mulalpha, rmax2,
      *    pixelinc,  aax, aay, aaz, bbx, bby, bbz, ccx, ccy, ccz,
      *    idx, si,  jmin, jmax, deltan,  maxppt, codex, chgx, offset
       common /zprivate2/ dir


parameter
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst

z
nodes z
Definition: cstdatmos0.fNew2.h:93

idx
averg real MaxCPU integer idx(Maxp)

y
latitude latitude this system is used *****************************************************************! type coord sequence union map real y
Definition: Zcoord.h:25

maxp
!onst int maxp
Definition: Zprivate.h:3

n
integer n
Definition: Zcinippxc.h:1

x
! structure defining a particle at production ! Basic idea of what is to be contained in ! the particle structue is that dynamical ones should be included those derivable from the particle code ! is not included ******************************************************type fmom momentum sequence union map real e endmap map real * x
Definition: Zptcl.h:21