Remove unused Fortran problem radiation source hook (AMReX-Astro#2626)

zhichen3 · Oct 10, 2023 · 19e6805 · 19e6805
1 parent a14174b
commit 19e6805
Show file tree

Hide file tree

Showing 5 changed files with 3 additions and 56 deletions.
diff --git a/CHANGES.md b/CHANGES.md
@@ -1,5 +1,8 @@
 # 23.11
 
+  * The ca_rad_source hook in Fortran has been removed. The existing
+    problem_rad_source() hook in C++ can be used instead. (#2626)
+
   * The compile option USE_AUX_UPDATE has been removed. If you want to
     manually update the auxiliary parameters, you can use an external
     source term or you can use the problem post-timestep hook. (#2614)

diff --git a/Source/radiation/Make.package b/Source/radiation/Make.package
@@ -47,5 +47,3 @@ CEXE_sources += RadDerive.cpp
 CEXE_headers += RadDerive.H
 CEXE_headers += rad_util.H
 CEXE_headers += blackbody.H
-
-ca_F90EXE_sources += rad_source.F90
diff --git a/Source/radiation/RAD_F.H b/Source/radiation/RAD_F.H
@@ -65,16 +65,6 @@ extern "C" {
 }
 #endif
 
-extern "C"
-{
-  void ca_rad_source
-    (const int* lo, const int* hi, 
-     BL_FORT_FAB_ARG_3D(rhs),
-     const amrex::Real* dx, amrex::Real dt,
-     amrex::Real time, int igroup);
-
-}
-
 #ifdef __cplusplus
 extern "C" {
 #endif

diff --git a/Source/radiation/RadSolve.cpp b/Source/radiation/RadSolve.cpp
@@ -1102,11 +1102,6 @@ void RadSolve::levelRhs(int level, MultiFab& rhs, const MultiFab& jg,
 
           problem_rad_source(i, j, k, rhs_arr, geomdata, time, delta_t, igroup);
       });
-
-      ca_rad_source(AMREX_INT_ANYD(bx.loVect()), AMREX_INT_ANYD(bx.hiVect()),
-                    BL_TO_FORTRAN_ANYD(rhs[ri]),
-                    AMREX_REAL_ANYD(dx), delta_t, time, igroup);
-
   }
 }
 

diff --git a/Source/radiation/rad_source.F90 b/Source/radiation/rad_source.F90