Defining numSubSteps as an integer

E3SM-Project · Dec 6, 2023 · 961d458 · 961d458
1 parent 7261273
commit 961d458
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/components/mosart/src/riverroute/MOSART_physics_mod.F90 b/components/mosart/src/riverroute/MOSART_physics_mod.F90
@@ -64,7 +64,8 @@ subroutine Euler
     integer :: iunit, idam, m, k, unitUp, cnt, ier, dd, nSubStep   !local index
     real(r8) :: temp_erout, localDeltaT, temp_haout, temp_Tt, temp_Tr, temp_T, temp_ha
     real(r8) :: mud_erout, san_erout, temp_ehexch, temp_etexch, temp_erexch
-    real(r8) :: negchan, numSubSteps
+    real(r8) :: negchan 
+	integer  :: numSubSteps
     integer  :: yr,mon,day,tod
     real(r8) :: myTINYVALUE
     character(len=*),parameter :: subname = '(Euler)'