Skip to content

Commit 937bb9f

Browse files
committed
remove some old comments about Fortran
1 parent 057363c commit 937bb9f

File tree

4 files changed

+4
-11
lines changed

4 files changed

+4
-11
lines changed

Diff for: Source/driver/Castro.cpp

+2-3
Original file line numberDiff line numberDiff line change
@@ -1015,7 +1015,7 @@ Castro::initData ()
10151015
BL_PROFILE("Castro::initData()");
10161016

10171017
//
1018-
// Loop over grids, call FORTRAN function to init with data.
1018+
// Loop over grids, call initialization functions
10191019
//
10201020
#if AMREX_SPACEDIM > 1
10211021
const Real* dx = geom.CellSize();
@@ -3716,8 +3716,7 @@ Castro::extern_init ()
37163716
std::cout << "reading extern runtime parameters ..." << std::endl;
37173717
}
37183718

3719-
// grab them from Fortran to C++; then read any C++ parameters directly
3720-
// from inputs (via ParmParse)
3719+
// read any runtime parameters directly from inputs (via ParmParse)
37213720
init_extern_parameters();
37223721

37233722
}

Diff for: Source/driver/Castro_setup.cpp

+1-2
Original file line numberDiff line numberDiff line change
@@ -975,8 +975,7 @@ Castro::variableSetUp ()
975975
//
976976
// We want a derived type that corresponds to the number of particles
977977
// in each cell. We only intend to use it in plotfiles for debugging
978-
// purposes. We'll just use the DERNULL since don't do anything in
979-
// fortran for now. We'll actually set the values in writePlotFile().
978+
// purposes. We'll actually set the values in writePlotFile().
980979
//
981980
derive_lst.add("particle_count",IndexType::TheCellType(),1,ca_dernull,the_same_box);
982981
derive_lst.addComponent("particle_count",desc_lst,State_Type,URHO,1);

Diff for: Source/driver/Derive.cpp

-3
Original file line numberDiff line numberDiff line change
@@ -14,9 +14,6 @@ extern "C"
1414
{
1515
#endif
1616

17-
// Note that in the following routines, we are NOT passing
18-
// several variables to Fortran that would be unused.
19-
2017
// These routines are called in an MFIter loop, so we do not
2118
// need to explicitly synchronize after GPU kernels.
2219

Diff for: Source/rotation/rotation_sources.cpp

+1-3
Original file line numberDiff line numberDiff line change
@@ -148,9 +148,7 @@ Castro::corrrsrc(const Box& bx,
148148

149149
// Corrector step for the rotation source terms. This is applied
150150
// after the hydrodynamics update to fix the time-level n
151-
// prediction and add the time-level n+1 data. This subroutine
152-
// exists outside of the Fortran module above because it needs to
153-
// be called directly from C++.
151+
// prediction and add the time-level n+1 data.
154152

155153
// uold and unew are the old and new time state data
156154

0 commit comments

Comments
 (0)