205 |
print *, "Minimum longitude step:", MINval(d_rlonv) * 180. / pi, "degrees" |
print *, "Minimum longitude step:", MINval(d_rlonv) * 180. / pi, "degrees" |
206 |
print *, "Maximum longitude step:", MAXval(d_rlonv) * 180. / pi, "degrees" |
print *, "Maximum longitude step:", MAXval(d_rlonv) * 180. / pi, "degrees" |
207 |
|
|
208 |
|
! Check that rlonm025 <= rlonv <= rlonp025 <= rlonu: |
209 |
DO i = 1, iim + 1 |
DO i = 1, iim + 1 |
210 |
IF (rlonp025(i) < rlonv(i)) THEN |
IF (rlonp025(i) < rlonv(i)) THEN |
211 |
print *, 'rlonp025(', i, ') = ', rlonp025(i) |
print *, 'rlonp025(', i, ') = ', rlonp025(i) |