17 |
CEOP |
CEOP |
18 |
|
|
19 |
C DIAGNOSTICS_CALC common block: |
C DIAGNOSTICS_CALC common block: |
20 |
|
C-- used in Velocity-Potential calculation: |
21 |
|
C diagCG_maxIters :: max number of iterations in diag_cg2d solver |
22 |
|
C diagCG_prtResFrq :: frequency for printing residual in CG iterations |
23 |
|
C diagCG_resTarget :: residual target for diag_cg2d solver (no units) |
24 |
C-- used in Stream-Function calculation: |
C-- used in Stream-Function calculation: |
25 |
C iPsi0,jPsi0 :: indices of grid-point location where Psi == 0 |
C iPsi0,jPsi0 :: indices of grid-point location where Psi == 0 |
26 |
C xPsi0,yPsi0 :: grid-point coordinate where Psi == 0 |
C xPsi0,yPsi0 :: grid-point coordinate where Psi == 0 |
27 |
|
|
28 |
|
INTEGER diagCG_maxIters |
29 |
|
INTEGER diagCG_prtResFrq |
30 |
INTEGER iPsi0(nSx,nSy) |
INTEGER iPsi0(nSx,nSy) |
31 |
INTEGER jPsi0(nSx,nSy) |
INTEGER jPsi0(nSx,nSy) |
32 |
|
_RL diagCG_resTarget |
33 |
_RS xPsi0, yPsi0 |
_RS xPsi0, yPsi0 |
34 |
COMMON / DIAGNOSTICS_CALC_I / |
COMMON / DIAGNOSTICS_CALC_I / |
35 |
|
& diagCG_maxIters, diagCG_prtResFrq, |
36 |
& iPsi0, jPsi0 |
& iPsi0, jPsi0 |
37 |
|
COMMON / DIAGNOSTICS_CALC_RL / |
38 |
|
& diagCG_resTarget |
39 |
COMMON / DIAGNOSTICS_CALC_RS / |
COMMON / DIAGNOSTICS_CALC_RS / |
40 |
& xPsi0, yPsi0 |
& xPsi0, yPsi0 |
41 |
|
|