diff --git a/src/crater/module_crater.f90 b/src/crater/module_crater.f90 index c0dd5dfe..d5108399 100644 --- a/src/crater/module_crater.f90 +++ b/src/crater/module_crater.f90 @@ -33,7 +33,7 @@ subroutine crater_populate(user,surf,crater,domain,prod,production_list,vdist,nt mass,fracdone,nflux,ntotcrat,curyear,rclist) use module_globals implicit none - type(usertype),intent(in) :: user + type(usertype),intent(inout) :: user type(surftype),dimension(:,:),intent(inout) :: surf type(cratertype),intent(inout) :: crater type(domaintype),intent(inout) :: domain diff --git a/src/ejecta/ejecta_emplace.f90 b/src/ejecta/ejecta_emplace.f90 index 476d6b82..8a7568e0 100644 --- a/src/ejecta/ejecta_emplace.f90 +++ b/src/ejecta/ejecta_emplace.f90 @@ -93,7 +93,7 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,cumulativ integer(I4B),intent(in) :: ejtble type(ejbtype),dimension(:),intent(inout) :: ejb real(DP),intent(in) :: deltaMtot - real(DP),dimension(:,:),allocatable,intent(out) :: cumulative_elchange + real(DP),dimension(:,:),allocatable,intent(inout) :: cumulative_elchange integer(I4B),intent(in) :: nmeltsheet real(DP),intent(out) :: vmeltsheet diff --git a/src/regolith/module_regolith.f90 b/src/regolith/module_regolith.f90 index 2ab24cd9..0c77a42f 100644 --- a/src/regolith/module_regolith.f90 +++ b/src/regolith/module_regolith.f90 @@ -102,7 +102,7 @@ subroutine regolith_traverse_streamtube(user,surfi,deltar,ri,rip1,eradi,erado,ne type(surftype),intent(inout) :: surfi real(DP),intent(in) :: deltar,ri,rip1,eradi,erado type(regodatatype),intent(inout) :: newlayer - real(DP),intent(out) :: meltinejecta,totvol + real(DP),intent(inout) :: meltinejecta,totvol real(DP),intent(out) :: vmare,totseb real(SP),dimension(:),intent(inout) :: age_collector real(DP),intent(in) :: xmints diff --git a/src/regolith/regolith_subpixel_streamtube.f90 b/src/regolith/regolith_subpixel_streamtube.f90 index acf2b08d..694b23f5 100644 --- a/src/regolith/regolith_subpixel_streamtube.f90 +++ b/src/regolith/regolith_subpixel_streamtube.f90 @@ -61,7 +61,7 @@ subroutine regolith_subpixel_streamtube(user,surfi,deltar,ri,rip1,eradi,newlayer type(surftype),intent(inout) :: surfi real(DP),intent(in) :: deltar,ri,rip1,eradi type(regodatatype),intent(inout) :: newlayer - real(DP),intent(out) :: meltinejecta, totvol + real(DP),intent(inout) :: meltinejecta, totvol real(DP),intent(out) :: vmare,totseb real(SP),dimension(:),intent(inout) :: age_collector real(DP),intent(in) :: xmints