subroutine proc_open implicit none external :: header_aquifer, header_channel, header_const, header_hyd, header_lu_change, header_mgt, & header_path, header_pest, header_reservoir, header_salt, header_sd_channel, header_snutc, & header_water_allocation, header_wetland, header_write, header_yield, & output_landscape_init, search !! write headers in output files call output_landscape_init call header_channel call header_aquifer call header_sd_channel call header_mgt call header_lu_change call header_yield call header_hyd call header_reservoir call header_wetland call header_snutc call header_water_allocation call header_pest call header_path call header_salt !rtb salt call header_const !rtb cs call header_write return end subroutine proc_open