The derived type coupler_clock_type consists of (integer) clock ids and has been introduced as part of full coupler_main refactorization. Because of the frequency in which these ids are retrieved in coupler_main, all components of coupler_clock_type have initially been made public.
However, to be consistent with current FMS developments to objectify all derived types - making derived types components private and introducing "getters" and "setter" type-bound procedures, the following changes should be made:
- All ids should be made private.
- Type-bound functions to retrieve clock ids should be introduced.
- Existing clock-related subroutine
coupler_set_clock_ids should be made into a type-bound subroutine.
The derived type
coupler_clock_typeconsists of (integer) clock ids and has been introduced as part of full coupler_main refactorization. Because of the frequency in which these ids are retrieved in coupler_main, all components ofcoupler_clock_typehave initially been made public.However, to be consistent with current FMS developments to objectify all derived types - making derived types components private and introducing "getters" and "setter" type-bound procedures, the following changes should be made:
coupler_set_clock_idsshould be made into a type-bound subroutine.