diff --git a/src/offline/cable_mpimaster.F90 b/src/offline/cable_mpimaster.F90 index 3be49630d..58368b2fb 100644 --- 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 index ba7778741..a919de3e8 100644 --- 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)