| 1 | c Computational particles
|
|---|
| 2 | COMMON /LPM_COMP_PART_R/ LPM_Y
|
|---|
| 3 | > ,LPM_YDOT
|
|---|
| 4 | > ,LPM_YDOTC
|
|---|
| 5 | > ,LPM_RPROP
|
|---|
| 6 | > ,LPM_RPROP2
|
|---|
| 7 | REAL LPM_Y (LPM_LRS ,LPM_LPART) ! Solution
|
|---|
| 8 | > ,LPM_YDOT (LPM_LRS ,LPM_LPART) ! Total solution RHS
|
|---|
| 9 | > ,LPM_YDOTC (LPM_LRS ,LPM_LPART) ! Coupled solution RHS
|
|---|
| 10 | > ,LPM_RPROP (LPM_LRP ,LPM_LPART) ! Real particle properties
|
|---|
| 11 | > ,LPM_RPROP2(LPM_LRP2,LPM_LPART) ! Secondary real particle properties
|
|---|
| 12 |
|
|---|
| 13 | c Previous time step solutions, may grow later
|
|---|
| 14 | COMMON /LPM_SLN_PREV/ LPM_Y1
|
|---|
| 15 | REAL LPM_Y1(LPM_LRS*LPM_LPART)
|
|---|
| 16 |
|
|---|
| 17 | COMMON /LPM_COMP_PART_I/ LPM_IPROP
|
|---|
| 18 | INTEGER LPM_IPROP(LPM_LIP,LPM_LPART) ! Integer particle properties
|
|---|
| 19 |
|
|---|
| 20 | COMMON /LPM_COMP_NUMBER_I/ LPM_NPART
|
|---|
| 21 | INTEGER LPM_NPART
|
|---|
| 22 |
|
|---|
| 23 | c Particle options
|
|---|
| 24 | PARAMETER(LPM_NPARAM = 100)
|
|---|
| 25 | COMMON /LPM_PARAM_R/ LPM_RPARAM
|
|---|
| 26 | REAL LPM_RPARAM(LPM_NPARAM) ! Specified particle parameters
|
|---|
| 27 | COMMON /LPM_PARAM_L/ LPM_RESTART
|
|---|
| 28 | LOGICAL LPM_RESTART
|
|---|
| 29 | DATA LPM_RESTART /.false./
|
|---|
| 30 |
|
|---|
| 31 | c Domain size
|
|---|
| 32 | COMMON /LPM_DOMAIN/ LPM_XDRANGE
|
|---|
| 33 | REAL LPM_XDRANGE(2,3)
|
|---|
| 34 |
|
|---|
| 35 | c Findpts and crystal-router handles
|
|---|
| 36 | COMMON /LPM_CR_FP_HANDLE/ I_FP_HNDL,I_FP_HNDL1, I_CR_HNDL
|
|---|
| 37 | INTEGER I_FP_HNDL,I_FP_HNDL1, I_CR_HNDL
|
|---|
| 38 |
|
|---|
| 39 | c Ghost particle connection map
|
|---|
| 40 | INTEGER LPM_NDXGP,LPM_NDYGP,LPM_NDZGP
|
|---|
| 41 | COMMON /LPM_GP_MAP/ LPM_NDXGP,LPM_NDYGP,LPM_NDZGP
|
|---|
| 42 |
|
|---|
| 43 | REAL LPM_RDXGP, LPM_RDYGP, LPM_RDZGP, LPM_D2CHK(3),
|
|---|
| 44 | > LPM_BINB(6)
|
|---|
| 45 | COMMON /LPM_GP/ LPM_RDXGP, LPM_RDYGP, LPM_RDZGP, LPM_D2CHK ,
|
|---|
| 46 | > LPM_BINB
|
|---|
| 47 |
|
|---|
| 48 | C Ghost particles
|
|---|
| 49 | COMMON /LPM_GHOST_PART_R/ LPM_RPROP_GP
|
|---|
| 50 | REAL LPM_RPROP_GP(LPM_LRP_GP,LPM_LPART_GP)
|
|---|
| 51 |
|
|---|
| 52 | COMMON /LPM_PRO_FLD_MAP/ LPM_CP_MAP
|
|---|
| 53 | REAL LPM_CP_MAP(LPM_LRP_GP,LPM_LPART)
|
|---|
| 54 |
|
|---|
| 55 | PARAMETER(LPM_LBMAX = 50*LELT)
|
|---|
| 56 | COMMON /LPM_PRO_FLD_CR/ LPM_PRO_FLD,LPM_PRO_FLDB,LPM_XM1B
|
|---|
| 57 | REAL LPM_PRO_FLD (LX1,LY1,LZ1,LELT,LPM_LRP_PRO),
|
|---|
| 58 | > LPM_PRO_FLDB(LX1,LY1,LZ1,LPM_LRP_PRO,LPM_LBMAX),
|
|---|
| 59 | > LPM_XM1B (LX1,LY1,LZ1,3,LPM_LBMAX)
|
|---|
| 60 |
|
|---|
| 61 | PARAMETER(LPM_LRMAX = 6)
|
|---|
| 62 | COMMON /LPM_PRO_FLD_CI/ LPM_ER_MAP,LPM_ER_MAPC,LPM_ER_MAPS,
|
|---|
| 63 | > LPM_EL_MAP,LPM_MODGP,LPM_NELTB,LPM_NELTBB
|
|---|
| 64 | INTEGER LPM_ER_MAP (LPM_LRMAX,LPM_LBMAX),
|
|---|
| 65 | > LPM_ER_MAPC(LPM_LRMAX,LPM_LBMAX),
|
|---|
| 66 | > LPM_ER_MAPS(LPM_LRMAX,LPM_LBMAX),
|
|---|
| 67 | > LPM_MODGP (LX1,LY1,LZ1,LPM_LBMAX,4),
|
|---|
| 68 | > LPM_EL_MAP (8,LPM_LBMAX), LPM_NELTB, LPM_NELTBB
|
|---|
| 69 |
|
|---|
| 70 | PARAMETER(LPM_LIP_GP = 5)
|
|---|
| 71 | COMMON /LPM_GHOST_PART_I/ LPM_IPROP_GP
|
|---|
| 72 | INTEGER LPM_IPROP_GP(LPM_LIP_GP,LPM_LPART_GP)
|
|---|
| 73 |
|
|---|
| 74 | COMMON /LPM_GHOST_NUMBER_I/ LPM_NPART_GP
|
|---|
| 75 | INTEGER LPM_NPART_GP
|
|---|
| 76 |
|
|---|
| 77 | COMMON /LPM_T/ LPM_TIMEF
|
|---|
| 78 | REAL LPM_TIMEF
|
|---|
