Fix bug in restart output related to SLI

CABLE-LSM · Jun 28, 2024 · 8552247 · 8552247
1 parent 8f72f14
commit 8552247
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/offline/cable_output.F90 b/src/offline/cable_output.F90
@@ -2804,10 +2804,6 @@ SUBROUTINE create_restart(logn, dels, ktau, soil, veg, ssnow,
                          ranges%SoilMoist, patchout_var, out_settings)
     CALL check_and_write(output_var, gammzzID, 'gammzz', REAL(ssnow%gammzz, 4), &
                          ranges%default_l, patchout_var, out_settings)
-    CALL check_and_write(output_var, SID, 'S', REAL(ssnow%S, 4), &
-                         ranges%S, patchout_var, out_settings)
-    CALL check_and_write(output_var, TsoilID, 'Tsoil', REAL(ssnow%Tsoil, 4), &
-                         ranges%Tsoil, patchout_var, out_settings)
     !~~ Snow dimensioned variables/parameters:
     out_settings%dimswitch = "snow"
     CALL check_and_write(output_var, ssdnID, 'ssdn', REAL(ssnow%ssdn, 4), &
@@ -2964,6 +2960,10 @@ SUBROUTINE create_restart(logn, dels, ktau, soil, veg, ssnow,
       out_settings%dimswitch = "soil"
 !$    CALL check_and_write(output_var, rpid%ishorizon, 'ishorizon', &
 !$                         REAL(soil%ishorizon, 4), ranges%default_s, patchout_var, out_settings)
+      CALL check_and_write(output_var, SID, 'S', REAL(ssnow%S, 4), &
+                         ranges%S, patchout_var, out_settings)
+      CALL check_and_write(output_var, TsoilID, 'Tsoil', REAL(ssnow%Tsoil, 4), &
+                         ranges%Tsoil, patchout_var, out_settings)
       out_settings%dimswitch = "real"
 !$    CALL check_and_write(output_var, rpid%clitt, 'clitt', &
 !$                         REAL(veg%clitt, 4), ranges%default_s, patchout_var, out_settings)