Remove unused Fortran problem radiation source hook

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)

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

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

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);
-
   }
 }