modboundary: temporarily revert dqt, dtheta to double precision for r…

…estart file backward compatibility
dalesteam · Nov 12, 2024 · f73eaa6 · f73eaa6
1 parent b540262
commit f73eaa6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/modboundary.f90 b/src/modboundary.f90
@@ -39,8 +39,8 @@ module modboundary
   logical :: lboundopen = .false.            !GT switch for open boundary conditions for all scalars
   real(field_r) :: fillvalues(100) = 0       !GT fill value for each scalar to apply at the boundary
 
-  real(field_r), public              :: dtheta !< Applied gradient of qt at top of model
-  real(field_r), public              :: dqt    !< Applied gradient of theta at top of model
+  real, public              :: dtheta !< Applied gradient of qt at top of model
+  real, public              :: dqt    !< Applied gradient of theta at top of model
   real(field_r), public, allocatable :: dsv(:) !< Applied gradient of sv(n) at top of model
 contains
 !>