From b9eccfd90efe9cdd60100d802a9d3c45e6a69b11 Mon Sep 17 00:00:00 2001 From: drnimbusrain Date: Thu, 14 Sep 2023 11:26:31 -0400 Subject: [PATCH] Fixed write_txt error for missing argument. --- src/canopy_write_txt.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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