Added line for stebbs outputline

UMEP-dev · Oct 8, 2024 · 89c1c14 · 89c1c14
1 parent 4d71bf3
commit 89c1c14
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/suews/src/suews_ctrl_driver.f95 b/src/suews/src/suews_ctrl_driver.f95
@@ -467,7 +467,8 @@ SUBROUTINE SUEWS_cal_Main( &
             CALL stebbsonlinecouple( &
                timer, config, forcing, siteInfo, & ! input
                modState, & ! input/output:
-               datetimeLine, dataOutLineSTEBBS) ! output
+               datetimeLine, & ! input
+               dataOutLineSTEBBS) ! output
 
             !==============translation of  output variables into output array===========
             IF (Diagnose == 1) WRITE (*, *) 'Calling BEERS_cal_main_DTS...'
@@ -516,6 +517,7 @@ SUBROUTINE SUEWS_cal_Main( &
             outputLine%dataOutLineSnow = [datetimeLine, dataOutLineSnow]
             outputLine%dataoutLineRSL = [datetimeLine, dataOutLineRSL]
             outputLine%dataOutLineESTM = [datetimeLine, dataOutLineESTM]
+            outputLine%dataOutLineSTEBBS = [datetimeLine, dataOutLineSTEBBS]
 
          END ASSOCIATE
       END ASSOCIATE
@@ -4609,7 +4611,7 @@ SUBROUTINE SUEWS_cal_multitsteps( &
       config%EvapMethod = 2
       config%LAImethod = 1
 
-      config%nbtype = nbtype
+      ! config%nbtype = nbtype
 
       lumpsPrm%raincover = RAINCOVER
       lumpsPrm%rainmaxres = RainMaxRes