diff --git a/src/main/CTEM.f90 b/src/main/CTEM.f90 index a7e6df83..4f074bab 100644 --- a/src/main/CTEM.f90 +++ b/src/main/CTEM.f90 @@ -148,7 +148,7 @@ program CTEM call io_write_tally(truedist,truelist(:,1:ntrue),obsdist,obslist,oposlist,depthdiam,degradation_state) if (.not.user%tallyonly) then write(*,*) "Writing surface files" - call io_write_surf(user,surf) + call io_write_surf(user,surf,domain) end if if (user%testflag) then ! Draw a profile across the crater