diff --git a/mosaic2/mosaic2.F90 b/mosaic2/mosaic2.F90
index 8242dd6888..f35b212a71 100644
--- a/mosaic2/mosaic2.F90
+++ b/mosaic2/mosaic2.F90
@@ -450,7 +450,7 @@ subroutine calc_mosaic_grid_area(lon, lat, area)
        type is (real(r4_kind))
          select type(area)
          type is (real(r4_kind))
-           call get_grid_area( nlon, nlat, lon, lat, area)
+           call get_grid_area( nlon, nlat, real(lon, r8_kind), real(lat, r8_kind), real(area, r8_kind))
            valid_types = .true.
          end select
        end select
@@ -500,7 +500,7 @@ subroutine calc_mosaic_grid_great_circle_area(lon, lat, area)
        type is (real(r4_kind))
          select type(area)
          type is (real(r4_kind))
-           call get_grid_great_circle_area( nlon, nlat, lon, lat, area)
+           call get_grid_great_circle_area( nlon, nlat, real(lon, r8_kind), real(lat, r8_kind), real(area, r8_kind))
            valid_types = .true.
          end select
        end select