Remove more warnings for input_data.F90.

Fixes ufs-community#736.
GeorgeGayno-NOAA · Dec 16, 2022 · 4c1b8b3 · 4c1b8b3
1 parent fbbdb4b
commit 4c1b8b3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/sorc/chgres_cube.fd/input_data.F90 b/sorc/chgres_cube.fd/input_data.F90
@@ -5611,7 +5611,7 @@ subroutine read_input_sfc_grib2_file(localpet)
      if (.not. sotyp_from_climo) then
        do j = 1, j_input
        do i = 1, i_input
-         if(dummy2d(i,j) == 14.0_esmf_kind_r4 .and. slmsk_save(i,j) == 1) dummy2d(i,j) = -99999.9   
+         if(dummy2d(i,j) == 14.0_esmf_kind_r4 .and. slmsk_save(i,j) == 1) dummy2d(i,j) = -99999.9_esmf_kind_r4
        enddo
        enddo
 
@@ -7660,7 +7660,7 @@ SUBROUTINE DINT2P(PPIN,XXIN,NPIN,PPOUT,XXOUT,NPOUT   &
                       if (p(nl+1).gt.0.d0) then
                           PC = LOG(P(NL+1))
                       else
-                          PC = LOG(1.d-4)
+                          PC = LOG(1.E-4)
                       end if
 
                       SLOPE = (X(NL)-X(NL+1))/ (PA-PC)