From 60022a2fcaa800d02b70a1acf1eae13a22a7cfee Mon Sep 17 00:00:00 2001 From: Lauren Chilutti Date: Wed, 20 Dec 2023 14:40:02 -0500 Subject: [PATCH] fix type of input argument in compute_surface_type_fraction --- FV3GFS/FV3GFS_io.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/FV3GFS/FV3GFS_io.F90 b/FV3GFS/FV3GFS_io.F90 index f57e2e23..8a72a6fe 100644 --- a/FV3GFS/FV3GFS_io.F90 +++ b/FV3GFS/FV3GFS_io.F90 @@ -1651,7 +1651,7 @@ subroutine compute_surface_type_fraction(Atm_block, isc, jsc, nx, ny, diagnostic type(block_control_type), intent(in) :: Atm_block integer, intent(in) :: isc, jsc, nx, ny type(gfdl_diag_type), intent(in) :: diagnostic - real, intent(out) :: result(nx, ny) + real(kind=kind_phys), intent(out) :: result(nx, ny) integer :: i, j, ii, jj, nb, ix, surface_type_code