Remove two if conditions that seemed redundant in offline driver loops.

CABLE-LSM · Jan 7, 2025 · 0632c7d · 0632c7d
1 parent abadde1
commit 0632c7d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 8 deletions.
diff --git a/src/offline/cable_mpimaster.F90 b/src/offline/cable_mpimaster.F90
@@ -432,10 +432,8 @@ SUBROUTINE mpidrv_master (comm, trunk_sumbal, dels, koffset, kend, PLUME, CRU)
                   TRIM(cable_user%RunIden)//'_cable_out.nc'
               ENDIF
             ENDIF
-            IF (YYYY.EQ.CABLE_USER%YEARSTART) THEN
-              CALL nullify_write() ! nullify pointers
-              CALL open_output_file( dels, soil, veg, bgc, rough, met)
-            ENDIF
+            CALL nullify_write() ! nullify pointers
+            CALL open_output_file( dels, soil, veg, bgc, rough, met)
           ENDIF
 
           ssnow%otss_0 = ssnow%tgg(:,1)

diff --git a/src/offline/cable_serial.F90 b/src/offline/cable_serial.F90
@@ -408,10 +408,8 @@ SUBROUTINE serialdrv(trunk_sumbal, NRRRR, dels, koffset, kend, GSWP_MID, PLUME,
                     TRIM(cable_user%RunIden)//'_cable_out.nc'
               ENDIF
             ENDIF
-            IF (RRRR.EQ.1) THEN
-              CALL nullify_write() ! nullify pointers
-              CALL open_output_file( dels, soil, veg, bgc, rough, met)
-            ENDIF
+            CALL nullify_write() ! nullify pointers
+            CALL open_output_file( dels, soil, veg, bgc, rough, met)
           ENDIF
 
           ssnow%otss_0 = ssnow%tgg(:,1)