35 |
C == Local variables == |
C == Local variables == |
36 |
C iC, jC - Center of domain |
C iC, jC - Center of domain |
37 |
C iD, jD - Disitance from domain center. |
C iD, jD - Disitance from domain center. |
|
C rad - Radius of initial patch |
|
|
C rD - Radial displacement of point I,J |
|
38 |
C iG, jG - Global coordinate index |
C iG, jG - Global coordinate index |
39 |
C bi,bj - Loop counters |
C bi,bj - Loop counters |
40 |
C I,J,K |
C I,J,K |
42 |
INTEGER iG, jG |
INTEGER iG, jG |
43 |
INTEGER bi, bj |
INTEGER bi, bj |
44 |
INTEGER I, J, K |
INTEGER I, J, K |
|
REAL rad, rD |
|
45 |
|
|
46 |
_BARRIER |
_BARRIER |
47 |
|
|