Merge branch 'hotfix/NOAA-EMC#301-exportdata' into feature/gocart-int…

…egration
rmontuoro · May 27, 2021 · c5f5d6e · c5f5d6e
2 parents 17fd7d2 + 2adafb4
commit c5f5d6e
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/cpl/module_block_data.F90 b/cpl/module_block_data.F90
@@ -183,7 +183,7 @@ subroutine block_array_copy_2d_to_2d_r8(destin_ptr, source_arr, block, block_ind
 
     ! -- local variables
     integer         :: i, ib, ix, j, jb
-    real(kind_phys) :: factor
+    real            :: factor
 
     ! -- begin
     if (associated(destin_ptr)) then
@@ -243,7 +243,7 @@ subroutine block_array_copy_3d_to_3d_r8(destin_ptr, source_arr, block, block_ind
 
     ! -- local variables
     integer         :: i, ib, ix, j, jb, k
-    real(kind_phys) :: factor
+    real            :: factor
 
     ! -- begin
     if (associated(destin_ptr)) then
@@ -309,7 +309,7 @@ subroutine block_array_copy_3dslice_to_3d_r8(destin_ptr, source_arr, slice, bloc
 
     ! -- local variables
     integer         :: i, ib, ix, j, jb, k
-    real(kind_phys) :: factor
+    real            :: factor
 
     ! -- begin
     if (associated(destin_ptr)) then