From ecd14cfb6163a5f25261d573bfb310ecb9b86b36 Mon Sep 17 00:00:00 2001 From: rem1776 Date: Wed, 23 Feb 2022 16:38:09 -0500 Subject: [PATCH] fix: adds casts to class(*) calls to match doubles in C routines --- mosaic2/mosaic2.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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