updates receiver check

qcb12 · Mar 15, 2024 · 74e3943 · 74e3943
1 parent 87d0692
commit 74e3943
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/specfem3D/setup_sources_receivers.f90 b/src/specfem3D/setup_sources_receivers.f90
@@ -1373,7 +1373,7 @@ subroutine setup_receivers_precompute_intp()
     call flush_IMAIN()
 
     ! checks if receivers are available
-    if (maxrec == 0) then
+    if (maxrec == 0 .and. .not. INVERSE_FWI_FULL_PROBLEM) then
       print *,'Error: no receivers in slices found'
       print *,'Please check if stations in DATA/STATIONS are placed correctly.'
       call exit_MPI(myrank,'Error no receivers in slices found')
@@ -1409,7 +1409,7 @@ subroutine setup_receivers_precompute_intp()
       call flush_IMAIN()
 
       ! check if adjoint stations are available
-      if (maxrec == 0) then
+      if (maxrec == 0 .and. .not. INVERSE_FWI_FULL_PROBLEM) then
         print *,'Error: no adjoint sources in slices found'
         print *,'Please check if adjoint stations in DATA/STATIONS_ADJOINT are placed correctly.'
         call exit_MPI(myrank,'Error no adjoint sources in slices found')