Skip to content

Commit

Permalink
update fortran dfns for advanced and subpackages
Browse files Browse the repository at this point in the history
  • Loading branch information
mjreno authored and mjreno committed Jan 5, 2024
1 parent 9b3cc69 commit df97351
Show file tree
Hide file tree
Showing 32 changed files with 659 additions and 2 deletions.
9 changes: 9 additions & 0 deletions src/Exchange/gwfgwfidm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module ExgGwfgwfInputModule
public exg_gwfgwf_block_definitions
public ExgGwfgwfParamFoundType
public exg_gwfgwf_multi_package
public exg_gwfgwf_advanced_package
public exg_gwfgwf_subpackages

type ExgGwfgwfParamFoundType
logical :: auxiliary = .false.
Expand Down Expand Up @@ -45,6 +47,13 @@ module ExgGwfgwfInputModule
end type ExgGwfgwfParamFoundType

logical :: exg_gwfgwf_multi_package = .true.
logical :: exg_gwfgwf_advanced_package = .false.

character(len=16), parameter :: &
exg_gwfgwf_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
exggwfgwf_auxiliary = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Exchange/gwfgwtidm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,11 +9,20 @@ module ExgGwfgwtInputModule
public exg_gwfgwt_block_definitions
public ExgGwfgwtParamFoundType
public exg_gwfgwt_multi_package
public exg_gwfgwt_advanced_package
public exg_gwfgwt_subpackages

type ExgGwfgwtParamFoundType
end type ExgGwfgwtParamFoundType

logical :: exg_gwfgwt_multi_package = .false.
logical :: exg_gwfgwt_advanced_package = .false.

character(len=16), parameter :: &
exg_gwfgwt_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
exg_gwfgwt_param_definitions(*) = &
Expand Down
9 changes: 9 additions & 0 deletions src/Exchange/gwtgwtidm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module ExgGwtgwtInputModule
public exg_gwtgwt_block_definitions
public ExgGwtgwtParamFoundType
public exg_gwtgwt_multi_package
public exg_gwtgwt_advanced_package
public exg_gwtgwt_subpackages

type ExgGwtgwtParamFoundType
logical :: gwfmodelname1 = .false.
Expand Down Expand Up @@ -41,6 +43,13 @@ module ExgGwtgwtInputModule
end type ExgGwtgwtParamFoundType

logical :: exg_gwtgwt_multi_package = .true.
logical :: exg_gwtgwt_advanced_package = .false.

character(len=16), parameter :: &
exg_gwtgwt_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
exggwtgwt_gwfmodelname1 = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3chd8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfChdInputModule
public gwf_chd_block_definitions
public GwfChdParamFoundType
public gwf_chd_multi_package
public gwf_chd_advanced_package
public gwf_chd_subpackages

type GwfChdParamFoundType
logical :: auxiliary = .false.
Expand All @@ -33,6 +35,13 @@ module GwfChdInputModule
end type GwfChdParamFoundType

logical :: gwf_chd_multi_package = .true.
logical :: gwf_chd_advanced_package = .false.

character(len=16), parameter :: &
gwf_chd_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfchd_auxiliary = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3dis8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfDisInputModule
public gwf_dis_block_definitions
public GwfDisParamFoundType
public gwf_dis_multi_package
public gwf_dis_advanced_package
public gwf_dis_subpackages

type GwfDisParamFoundType
logical :: length_units = .false.
Expand All @@ -27,6 +29,13 @@ module GwfDisInputModule
end type GwfDisParamFoundType

logical :: gwf_dis_multi_package = .false.
logical :: gwf_dis_advanced_package = .false.

character(len=16), parameter :: &
gwf_dis_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfdis_length_units = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3disu8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfDisuInputModule
public gwf_disu_block_definitions
public GwfDisuParamFoundType
public gwf_disu_multi_package
public gwf_disu_advanced_package
public gwf_disu_subpackages

type GwfDisuParamFoundType
logical :: length_units = .false.
Expand Down Expand Up @@ -41,6 +43,13 @@ module GwfDisuInputModule
end type GwfDisuParamFoundType

logical :: gwf_disu_multi_package = .false.
logical :: gwf_disu_advanced_package = .false.

character(len=16), parameter :: &
gwf_disu_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfdisu_length_units = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3disv8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfDisvInputModule
public gwf_disv_block_definitions
public GwfDisvParamFoundType
public gwf_disv_multi_package
public gwf_disv_advanced_package
public gwf_disv_subpackages

type GwfDisvParamFoundType
logical :: length_units = .false.
Expand All @@ -33,6 +35,13 @@ module GwfDisvInputModule
end type GwfDisvParamFoundType

logical :: gwf_disv_multi_package = .false.
logical :: gwf_disv_advanced_package = .false.

character(len=16), parameter :: &
gwf_disv_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfdisv_length_units = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3drn8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfDrnInputModule
public gwf_drn_block_definitions
public GwfDrnParamFoundType
public gwf_drn_multi_package
public gwf_drn_advanced_package
public gwf_drn_subpackages

type GwfDrnParamFoundType
logical :: auxiliary = .false.
Expand Down Expand Up @@ -36,6 +38,13 @@ module GwfDrnInputModule
end type GwfDrnParamFoundType

logical :: gwf_drn_multi_package = .true.
logical :: gwf_drn_advanced_package = .false.

character(len=16), parameter :: &
gwf_drn_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfdrn_auxiliary = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3evt8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfEvtInputModule
public gwf_evt_block_definitions
public GwfEvtParamFoundType
public gwf_evt_multi_package
public gwf_evt_advanced_package
public gwf_evt_subpackages

type GwfEvtParamFoundType
logical :: fixed_cell = .false.
Expand Down Expand Up @@ -40,6 +42,13 @@ module GwfEvtInputModule
end type GwfEvtParamFoundType

logical :: gwf_evt_multi_package = .true.
logical :: gwf_evt_advanced_package = .false.

character(len=16), parameter :: &
gwf_evt_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfevt_fixed_cell = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3evta8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfEvtaInputModule
public gwf_evta_block_definitions
public GwfEvtaParamFoundType
public gwf_evta_multi_package
public gwf_evta_advanced_package
public gwf_evta_subpackages

type GwfEvtaParamFoundType
logical :: readasarrays = .false.
Expand All @@ -33,6 +35,13 @@ module GwfEvtaInputModule
end type GwfEvtaParamFoundType

logical :: gwf_evta_multi_package = .true.
logical :: gwf_evta_advanced_package = .false.

character(len=16), parameter :: &
gwf_evta_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfevta_readasarrays = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3ghb8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfGhbInputModule
public gwf_ghb_block_definitions
public GwfGhbParamFoundType
public gwf_ghb_multi_package
public gwf_ghb_advanced_package
public gwf_ghb_subpackages

type GwfGhbParamFoundType
logical :: auxiliary = .false.
Expand All @@ -34,6 +36,13 @@ module GwfGhbInputModule
end type GwfGhbParamFoundType

logical :: gwf_ghb_multi_package = .true.
logical :: gwf_ghb_advanced_package = .false.

character(len=16), parameter :: &
gwf_ghb_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfghb_auxiliary = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3ic8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,21 @@ module GwfIcInputModule
public gwf_ic_block_definitions
public GwfIcParamFoundType
public gwf_ic_multi_package
public gwf_ic_advanced_package
public gwf_ic_subpackages

type GwfIcParamFoundType
logical :: strt = .false.
end type GwfIcParamFoundType

logical :: gwf_ic_multi_package = .false.
logical :: gwf_ic_advanced_package = .false.

character(len=16), parameter :: &
gwf_ic_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfic_strt = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfNamInputModule
public gwf_nam_block_definitions
public GwfNamParamFoundType
public gwf_nam_multi_package
public gwf_nam_advanced_package
public gwf_nam_subpackages

type GwfNamParamFoundType
logical :: list = .false.
Expand All @@ -24,6 +26,13 @@ module GwfNamInputModule
end type GwfNamParamFoundType

logical :: gwf_nam_multi_package = .false.
logical :: gwf_nam_advanced_package = .false.

character(len=16), parameter :: &
gwf_nam_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfnam_list = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3npf8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfNpfInputModule
public gwf_npf_block_definitions
public GwfNpfParamFoundType
public gwf_npf_multi_package
public gwf_npf_advanced_package
public gwf_npf_subpackages

type GwfNpfParamFoundType
logical :: ipakcb = .false.
Expand Down Expand Up @@ -51,6 +53,13 @@ module GwfNpfInputModule
end type GwfNpfParamFoundType

logical :: gwf_npf_multi_package = .false.
logical :: gwf_npf_advanced_package = .false.

character(len=16), parameter :: &
gwf_npf_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfnpf_ipakcb = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3rch8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfRchInputModule
public gwf_rch_block_definitions
public GwfRchParamFoundType
public gwf_rch_multi_package
public gwf_rch_advanced_package
public gwf_rch_subpackages

type GwfRchParamFoundType
logical :: fixed_cell = .false.
Expand All @@ -33,6 +35,13 @@ module GwfRchInputModule
end type GwfRchParamFoundType

logical :: gwf_rch_multi_package = .true.
logical :: gwf_rch_advanced_package = .false.

character(len=16), parameter :: &
gwf_rch_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfrch_fixed_cell = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3rcha8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfRchaInputModule
public gwf_rcha_block_definitions
public GwfRchaParamFoundType
public gwf_rcha_multi_package
public gwf_rcha_advanced_package
public gwf_rcha_subpackages

type GwfRchaParamFoundType
logical :: readasarrays = .false.
Expand All @@ -31,6 +33,13 @@ module GwfRchaInputModule
end type GwfRchaParamFoundType

logical :: gwf_rcha_multi_package = .true.
logical :: gwf_rcha_advanced_package = .false.

character(len=16), parameter :: &
gwf_rcha_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfrcha_readasarrays = InputParamDefinitionType &
Expand Down
9 changes: 9 additions & 0 deletions src/Model/GroundWaterFlow/gwf3riv8idm.f90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@ module GwfRivInputModule
public gwf_riv_block_definitions
public GwfRivParamFoundType
public gwf_riv_multi_package
public gwf_riv_advanced_package
public gwf_riv_subpackages

type GwfRivParamFoundType
logical :: auxiliary = .false.
Expand All @@ -35,6 +37,13 @@ module GwfRivInputModule
end type GwfRivParamFoundType

logical :: gwf_riv_multi_package = .true.
logical :: gwf_riv_advanced_package = .false.

character(len=16), parameter :: &
gwf_riv_subpackages(*) = &
[ &
' ' &
]

type(InputParamDefinitionType), parameter :: &
gwfriv_auxiliary = InputParamDefinitionType &
Expand Down
Loading

0 comments on commit df97351

Please sign in to comment.