Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
logical, | public | :: | initialized | = | .false. | ||
type(ExtDataBracket), | public | :: | auxiliary1 | ||||
type(ExtDataBracket), | public | :: | auxiliary2 | ||||
type(ExtDataBracket), | public | :: | comp1 | ||||
type(ExtDataBracket), | public | :: | comp2 |
type BracketingFields ! fields to store endpoints for interpolation of a vector pair type(ExtDataBracket) :: comp1 type(ExtDataBracket) :: comp2 ! if vertically interpolating vector fields type(ExtDataBracket) :: auxiliary1 type(ExtDataBracket) :: auxiliary2 logical :: initialized = .false. end type BracketingFields