Skip to content

Commit 75ba8ac

Browse files
committed
fix variable truncation
1 parent 0ecb753 commit 75ba8ac

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

src/Model/GroundWaterEnergy/gwe-sfe.f90

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -193,7 +193,8 @@ subroutine sfe_options(this, option, found)
193193
character(len=*), intent(inout) :: option
194194
logical, intent(inout) :: found
195195
! -- local
196-
character(len=MAXCHARLEN) :: fname, keyword
196+
character(len=LINELENGTH) :: fname
197+
character(len=MAXCHARLEN) :: keyword
197198
logical(LGP) :: foundgcclassoption
198199
! -- formats
199200
character(len=*), parameter :: fmtaptbin = &

0 commit comments

Comments
 (0)