35 |
C == Local variables == |
C == Local variables == |
36 |
C iG, jG - Global coordinate index |
C iG, jG - Global coordinate index |
37 |
C bi,bj - Loop counters |
C bi,bj - Loop counters |
38 |
C I,J,K |
C I,J |
39 |
C phi - total depth of model |
C phi - total depth of model |
40 |
C oldPrec - Temporary used in controlling binary input dataset precision |
C oldPrec - Temporary used in controlling binary input dataset precision |
41 |
INTEGER iG, jG |
INTEGER iG, jG |
42 |
INTEGER bi, bj |
INTEGER bi, bj |
43 |
INTEGER I, J, K |
INTEGER I, J |
44 |
_RL phi |
_RL phi |
45 |
|
|
46 |
_BARRIER |
_BARRIER |