Merge pull request #37 from laurenchilutti/fixType

NOAA-GFDL · Dec 21, 2023 · 67346b0 · 67346b0
2 parents 23a9ec0 + 60022a2
commit 67346b0
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