Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | log_level | ||||
integer, | public | :: | funit(0:tem_last_lu) | ||||
logical, | public | :: | participating | ||||
character(len=form_len), | public | :: | real_form | ||||
character(len=form_len), | public | :: | int_form |
type tem_logging_type integer :: log_level integer :: funit(0:tem_last_lu) logical :: participating character(len=form_len) :: real_form character(len=form_len) :: int_form end type tem_logging_type