subroutine getarea | ( | integer, dimension(22) | kgds, |
real (kind=kind_io8) | dlat, | ||
real (kind=kind_io8) | dlon, | ||
real (kind=kind_io8) | rslat, | ||
real (kind=kind_io8) | rnlat, | ||
real (kind=kind_io8) | wlon, | ||
real (kind=kind_io8) | elon, | ||
logical | ijordr, | ||
integer | me | ||
) |