Use r4

Author: mathomp4

DynCore_GridCompMod.F90

@@ -7246,10 +7246,10 @@ subroutine ADD_INCS ( MAPL,STATE,IMPORT,DT,IS_WEIGHTED,RC )
 
     real(FVPRC), allocatable :: u_dt(:,:,:), v_dt(:,:,:), t_dt(:,:,:)
 
-    real(kind=4), pointer :: tend(:,:,:)
+    real(r4), pointer :: tend(:,:,:)
 
-    real(kind=4), pointer, dimension(:,:)   :: LONS
-    real(kind=4), pointer, dimension(:,:)   :: LATS
+    real(r4), pointer, dimension(:,:)   :: LONS
+    real(r4), pointer, dimension(:,:)   :: LATS
 
     type(DynTracers)      :: qqq       ! Specific Humidity
     real(FVPRC), allocatable :: Q(:,:,:,:), CVM(:,:,:)