From 08e9bc27edb3b69633e957e15ce0f38a4d7be02a Mon Sep 17 00:00:00 2001 From: Jorn Bruggeman Date: Wed, 21 Feb 2024 12:21:17 +0000 Subject: [PATCH] access_set_source -> access_add_source --- src/fabm_types.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/fabm_types.F90 b/src/fabm_types.F90 index 4b7128dc..4e2318c9 100644 --- a/src/fabm_types.F90 +++ b/src/fabm_types.F90 @@ -112,8 +112,8 @@ module fabm_types integer, parameter, public :: access_none = 0, & access_read = 1, & - access_set_source = 2, & - access_state = ior(access_read,access_set_source) + access_add_source = 2, & + access_state = ior(access_read, access_add_source) integer, parameter, public :: store_index_none = -1 @@ -2788,7 +2788,7 @@ function get_aggregate_variable_access(self, standard_variable, access) result(l self%first_aggregate_variable_access => aggregate_variable_access end if link => aggregate_variable_access%link - if (present(access)) link%target%fake_state_variable = link%target%fake_state_variable .or. iand(access, access_set_source) /= 0 + if (present(access)) link%target%fake_state_variable = link%target%fake_state_variable .or. iand(access, access_add_source) /= 0 end function get_aggregate_variable_access function get_free_unit() result(unit)