Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 6 additions & 4 deletions src/utils_gpl/trachytopes/packages/trachytopes_io/src/rdtrt.f90
Original file line number Diff line number Diff line change
Expand Up @@ -123,7 +123,6 @@ subroutine rdtrt(lundia ,error ,lftrto ,dt , &
! Local parameters
!
integer, parameter :: IROUGH = 300
integer, parameter :: MAXFLD = 12
!
! Global variables
!
Expand Down Expand Up @@ -511,6 +510,10 @@ subroutine rdtrt(lundia ,error ,lftrto ,dt , &
! Vaestilae & Jaervelae (2017) and Jarvela (2004) vegetation formulations
nropar(155) = 10
nropar(156) = 6
nropar(158) = 10
nropar(159) = 6
nropar(160) = 11
nropar(161) = 7
!
! 201-249: Vegetation roughness predictors (linear)
!
Expand Down Expand Up @@ -1133,7 +1136,6 @@ subroutine rdttar(filnam ,lundia ,error ,nttaru ,ittaru , &
!
! Local parameters
!
integer, parameter :: MAXFLD = 12
!
! Global variables
!
Expand Down Expand Up @@ -1794,7 +1796,7 @@ subroutine dimtrt(lundia ,error ,gdtrachy ,mdfile_ptr , &
!
! Local parameters
!
integer, parameter :: MAXFLD = 12

!
! Global variables
!
Expand Down Expand Up @@ -2050,13 +2052,13 @@ subroutine dittar(filnam ,lundia ,error ,nttaru )
! use globaldata
use system_utils, only: exifil
use MessageHandling
use trachytopes_data_module, only: MAXFLD
!
implicit none
!
!
! Local parameters
!
integer, parameter :: MAXFLD = 12
!
! Global variables
!
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -46,6 +46,7 @@ module trachytopes_data_module
integer, parameter, public :: TRACHY_UNDEFINED = -99999 ! not defined
integer, parameter, public :: TRACHY_WATERLEVEL_TYPE = 1
integer, parameter, public :: TRACHY_DISCHARGE_TYPE = 2
integer, parameter, public :: MAXFLD = 13
!
! public data types
!
Expand Down
Loading
Loading