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)
59 subroutine oc_ar(this, name, datavec, dis, dnodata)
62 character(len=*),
intent(in) :: name
63 real(DP),
dimension(:),
pointer,
contiguous,
intent(in) :: datavec
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(name, datavec, 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
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 oc_ar(this, name, datavec, dis, dnodata)
@ brief Allocate and read SwfOcType
subroutine, public oc_cr(ocobj, name_model, inunit, iout)
@ brief Create SwfOcType
@ brief OutputControlDataType
@ brief OutputControlType