30 subroutine oc_cr(ocobj, name_model, inunit, iout)
33 character(len=*),
intent(in) :: name_model
34 integer(I4B),
intent(in) :: inunit
35 integer(I4B),
intent(in) :: iout
41 call ocobj%allocate_scalars(name_model)
48 call ocobj%parser%Initialize(inunit, iout)
60 subroutine oc_ar(this, depvar, dis, dnodata, dvname)
63 real(DP),
dimension(:),
pointer,
contiguous,
intent(in) :: depvar
64 character(len=*),
intent(in) :: dvname
66 real(DP),
intent(in) :: dnodata
68 integer(I4B) :: i, nocdobj, inodata
70 real(DP),
dimension(:),
pointer,
contiguous :: nullvec => null()
75 allocate (this%ocdobj(nocdobj))
80 call ocdobjptr%init_dbl(
'BUDGET', nullvec, dis,
'PRINT LAST ', &
81 'COLUMNS 10 WIDTH 11 DIGITS 4 GENERAL ', &
84 call ocdobjptr%init_dbl(trim(dvname), depvar, dis,
'PRINT LAST ', &
85 'COLUMNS 10 WIDTH 11 DIGITS 4 GENERAL ', &
88 this%ocdobj(i) = ocdobjptr
89 deallocate (ocdobjptr)
93 if (this%inunit > 0)
then
94 call this%read_options()
This module contains simulation constants.
integer(i4b), parameter lenmodelname
maximum length of the model name
This module defines variable data types.
This module contains the OutputControlDataModule.
subroutine, public ocd_cr(ocdobj)
@ brief Create OutputControlDataType
This module contains the OutputControlModule.
subroutine, public oc_cr(ocobj, name_model, inunit, iout)
@ brief Create TspOcType
subroutine oc_ar(this, depvar, dis, dnodata, dvname)
@ brief Allocate and read TspOcType
@ brief OutputControlDataType
@ brief OutputControlType