Fixed write_txt error for missing argument.

noaa-oar-arl · Sep 14, 2023 · b9eccfd · b9eccfd
1 parent 16f5e8c
commit b9eccfd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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