feature/chgres_ice_check: This commit references #32.

chgres_cube.fd/surface.F90: Ensure sea ice fraction does not exceed 1.00.
ufs-community · Nov 22, 2019 · 289d36a · 289d36a
1 parent a9081cc
commit 289d36a
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/sorc/chgres_cube.fd/surface.F90 b/sorc/chgres_cube.fd/surface.F90
@@ -603,8 +603,11 @@ subroutine interp(localpet)
    if (localpet == 0) then
      do j = 1, j_target
      do i = 1, i_target
-       if (data_one_tile(i,j) < 0.15) data_one_tile(i,j) = 0.0
-       if (data_one_tile(i,j) >= 0.15) mask_target_one_tile(i,j) = 2
+       if (data_one_tile(i,j) > 1.0_esmf_kind_r8) then
+         data_one_tile(i,j) = 1.0_esmf_kind_r8
+       endif
+       if (data_one_tile(i,j) < 0.15_esmf_kind_r8) data_one_tile(i,j) = 0.0_esmf_kind_r8
+       if (data_one_tile(i,j) >= 0.15_esmf_kind_r8) mask_target_one_tile(i,j) = 2
      enddo
      enddo
    endif