41 |
C == Local variables == |
C == Local variables == |
42 |
C bi,bj :: tile indices |
C bi,bj :: tile indices |
43 |
C i, j :: loop counters |
C i, j :: loop counters |
|
C lat :: Temporary variables used to hold latitude values. |
|
|
C dlat :: Temporary variables used to hold latitudes increment. |
|
|
C dlon :: Temporary variables used to hold longitude increment. |
|
44 |
C delXloc :: mesh spacing in X direction |
C delXloc :: mesh spacing in X direction |
45 |
C delYloc :: mesh spacing in Y direction |
C delYloc :: mesh spacing in Y direction |
46 |
C xGloc :: mesh corner-point location (local "Long" real array type) |
C xGloc :: mesh corner-point location (local "Long" real array type) |
48 |
INTEGER bi, bj |
INTEGER bi, bj |
49 |
INTEGER i, j |
INTEGER i, j |
50 |
INTEGER gridNx, gridNy |
INTEGER gridNx, gridNy |
|
_RL lat, dlat, dlon |
|
51 |
C NOTICE the extended range of indices!! |
C NOTICE the extended range of indices!! |
52 |
_RL delXloc(0-OLx:sNx+OLx) |
_RL delXloc(0-OLx:sNx+OLx) |
53 |
_RL delYloc(0-OLy:sNy+OLy) |
_RL delYloc(0-OLy:sNy+OLy) |