fix type of input argument in compute_surface_type_fraction

NOAA-GFDL · Dec 20, 2023 · 60022a2 · 60022a2
1 parent 23a9ec0
commit 60022a2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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