31 subroutine oc_cr(ocobj, name_model, inunit, iout)
34 character(len=*),
intent(in) :: name_model
35 integer(I4B),
intent(in) :: inunit
36 integer(I4B),
intent(in) :: iout
42 call ocobj%allocate_scalars(name_model)
49 call ocobj%parser%Initialize(inunit, iout)
60 subroutine oc_ar(this, head, dis, dnodata)
63 real(DP),
dimension(:),
pointer,
contiguous,
intent(in) :: head
65 real(DP),
intent(in) :: dnodata
67 integer(I4B) :: i, nocdobj, inodata
69 real(DP),
dimension(:),
pointer,
contiguous :: nullvec => null()
74 allocate (this%ocdobj(nocdobj))
79 call ocdobjptr%init_dbl(
'BUDGET', nullvec, dis,
'PRINT LAST ', &
80 'COLUMNS 10 WIDTH 11 DIGITS 4 GENERAL ', &
83 call ocdobjptr%init_dbl(
'HEAD', head, dis,
'PRINT LAST ', &
84 'COLUMNS 10 WIDTH 11 DIGITS 4 GENERAL ', &
87 this%ocdobj(i) = ocdobjptr
88 deallocate (ocdobjptr)
92 if (this%inunit > 0)
then
93 call this%read_options()
This module contains simulation constants.
integer(i4b), parameter lenmodelname
maximum length of the model name
subroutine, public oc_cr(ocobj, name_model, inunit, iout)
@ brief Create GwfOcType
subroutine oc_ar(this, head, dis, dnodata)
@ brief Allocate and read GwfOcType
This module defines variable data types.
This module contains the OutputControlDataModule.
subroutine, public ocd_cr(ocdobj)
@ brief Create OutputControlDataType
This module contains the OutputControlModule.
@ brief Output control for GWF
@ brief OutputControlDataType
@ brief OutputControlType