From 937bb9f468d597a2d8b5ba3d911a3c96dce6c0b9 Mon Sep 17 00:00:00 2001 From: Michael Zingale Date: Fri, 17 Jan 2025 10:01:47 -0500 Subject: [PATCH] remove some old comments about Fortran --- Source/driver/Castro.cpp | 5 ++--- Source/driver/Castro_setup.cpp | 3 +-- Source/driver/Derive.cpp | 3 --- Source/rotation/rotation_sources.cpp | 4 +--- 4 files changed, 4 insertions(+), 11 deletions(-) diff --git a/Source/driver/Castro.cpp b/Source/driver/Castro.cpp index a3ceec8f8a..7b9db57de3 100644 --- a/Source/driver/Castro.cpp +++ b/Source/driver/Castro.cpp @@ -1015,7 +1015,7 @@ Castro::initData () BL_PROFILE("Castro::initData()"); // - // Loop over grids, call FORTRAN function to init with data. + // Loop over grids, call initialization functions // #if AMREX_SPACEDIM > 1 const Real* dx = geom.CellSize(); @@ -3716,8 +3716,7 @@ Castro::extern_init () std::cout << "reading extern runtime parameters ..." << std::endl; } - // grab them from Fortran to C++; then read any C++ parameters directly - // from inputs (via ParmParse) + // read any runtime parameters directly from inputs (via ParmParse) init_extern_parameters(); } diff --git a/Source/driver/Castro_setup.cpp b/Source/driver/Castro_setup.cpp index 0d3c8190d3..7344c46889 100644 --- a/Source/driver/Castro_setup.cpp +++ b/Source/driver/Castro_setup.cpp @@ -975,8 +975,7 @@ Castro::variableSetUp () // // We want a derived type that corresponds to the number of particles // in each cell. We only intend to use it in plotfiles for debugging - // purposes. We'll just use the DERNULL since don't do anything in - // fortran for now. We'll actually set the values in writePlotFile(). + // purposes. We'll actually set the values in writePlotFile(). // derive_lst.add("particle_count",IndexType::TheCellType(),1,ca_dernull,the_same_box); derive_lst.addComponent("particle_count",desc_lst,State_Type,URHO,1); diff --git a/Source/driver/Derive.cpp b/Source/driver/Derive.cpp index 78a1dfcc35..08646f8cbb 100644 --- a/Source/driver/Derive.cpp +++ b/Source/driver/Derive.cpp @@ -14,9 +14,6 @@ extern "C" { #endif - // Note that in the following routines, we are NOT passing - // several variables to Fortran that would be unused. - // These routines are called in an MFIter loop, so we do not // need to explicitly synchronize after GPU kernels. diff --git a/Source/rotation/rotation_sources.cpp b/Source/rotation/rotation_sources.cpp index d116da5321..9c40d4c191 100644 --- a/Source/rotation/rotation_sources.cpp +++ b/Source/rotation/rotation_sources.cpp @@ -148,9 +148,7 @@ Castro::corrrsrc(const Box& bx, // Corrector step for the rotation source terms. This is applied // after the hydrodynamics update to fix the time-level n - // prediction and add the time-level n+1 data. This subroutine - // exists outside of the Fortran module above because it needs to - // be called directly from C++. + // prediction and add the time-level n+1 data. // uold and unew are the old and new time state data