diff --git a/src/canopy_write_txt.F90 b/src/canopy_write_txt.F90
index e93c8272..6d18b890 100644
--- a/src/canopy_write_txt.F90
+++ b/src/canopy_write_txt.F90
@@ -1,5 +1,5 @@
 
-SUBROUTINE canopy_write_txt(OUTPREFX)
+SUBROUTINE canopy_write_txt(OUTPREFX,TIMENOW)
 
 !-------------------------------------------------------------------------------
 ! Name:     Write Canopy Outputs to TXT
@@ -12,9 +12,9 @@ SUBROUTINE canopy_write_txt(OUTPREFX)
     IMPLICIT NONE
 
     CHARACTER(LEN=*), INTENT( IN )  :: OUTPREFX
+    CHARACTER(LEN=*), INTENT( IN )  :: TIMENOW
 
-
-    call write_txt(OUTPREFX)
+    call write_txt(OUTPREFX,TIMENOW)
 
 
 END SUBROUTINE canopy_write_txt