! Program Name: ! Author(s)/Contact(s): ! Abstract: ! History Log: ! ! Usage: ! Parameters: ! Input Files: ! ! Output Files: ! ! ! Condition codes: ! ! If appropriate, descriptive troubleshooting instructions or ! likely causes for failures could be mentioned here with the ! appropriate error code ! ! User controllable options: Module module_RT_data use overland_data IMPLICIT NONE INTEGER, PARAMETER :: max_domain=5 ! define Routing data #include "rt_include.inc" TYPE ( RT_FIELD ), DIMENSION (max_domain) :: RT_DOMAIN save RT_DOMAIN integer :: cur_did end module module_RT_data