Skip to content

Commit

Permalink
changed files for linking, added precompiler directive in ppusher for…
Browse files Browse the repository at this point in the history
… using derived typed in PSPLINE
  • Loading branch information
mbeidler3 committed Jan 30, 2024
1 parent 38ed2f3 commit 39a2940
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 5 deletions.
10 changes: 5 additions & 5 deletions setup_cmake
Original file line number Diff line number Diff line change
Expand Up @@ -41,15 +41,15 @@ then
export FC=/usr/local/bin/gfortran-13

cmake -DCMAKE_BUILD_TYPE:String=$BUILD_TYPE \
-DMPI_Fortran_LINK_FLAGS="-ld_classic -Wl,-flat_namespace -Wl,-commons,use_dylibs -L/usr/local/Cellar/hwloc/2.9.3/lib -L/usr/local/Cellar/libevent/2.1.12_1/lib" \
-DUSE_OMP=OFF \
-DMPI_Fortran_LINK_FLAGS="-ld_classic -Wl,-flat_namespace -Wl,-commons,use_dylibs -L/usr/local/Cellar/hwloc/2.10.0/lib -L/usr/local/Cellar/libevent/2.1.12_1/lib" \
-DUSE_OMP=ON \
-DUSE_PSPLINE=ON \
-DUSE_FIO=OFF \
-DCORI_DIR=OFF \
-DKORC_TEST=OFF \
-DCMAKE_Fortran_FLAGS="-O3 -DHDF5_DOUBLE_PRESICION -fopenmp -malign-double -fconvert='big-endian'" \
-DCMAKE_C_FLAGS="-O3 -fopenmp -malign-double" \
-DCMAKE_CXX_FLAGS="-O3 -fopenmp -malign-double" \
-DCMAKE_Fortran_FLAGS="-O3 -DHDF5_DOUBLE_PRESICION -fopenmp" \
-DCMAKE_C_FLAGS="-O3 -fopenmp" \
-DCMAKE_CXX_FLAGS="-O3 -fopenmp" \
-DCMAKE_Fortran_FLAGS_DEBUG="-g -ffpe-trap=invalid,zero,overflow -fbacktrace -Werror" \
-DCMAKE_C_FLAGS_DEBUG="-g -g3" \
-DCMAKE_CXX_FLAGS_DEBUG="-g -g3" \
Expand Down
2 changes: 2 additions & 0 deletions src/korc_ppusher.f90
Original file line number Diff line number Diff line change
Expand Up @@ -16,6 +16,7 @@ module korc_ppusher

IMPLICIT NONE

#ifdef PSPLINE
TYPE(KORC_2D_FIELDS_INTERPOLANT) :: bfield_2d_local
TYPE(KORC_2D_FIELDS_INTERPOLANT) :: b1Refield_2d_local
TYPE(KORC_2D_FIELDS_INTERPOLANT) :: b1Imfield_2d_local
Expand All @@ -24,6 +25,7 @@ module korc_ppusher
TYPE(KORC_2DX_FIELDS_INTERPOLANT) :: b1Imfield_2dx_local
TYPE(KORC_2DX_FIELDS_INTERPOLANT) :: e1Refield_2dx_local
TYPE(KORC_2DX_FIELDS_INTERPOLANT) :: e1Imfield_2dx_local
#endif
REAL(rp), PRIVATE :: E0
!! Dimensionless vacuum permittivity \(\epsilon_0 \times (m_{ch}^2
!! v_{ch}^3/q_{ch}^3 B_{ch})\), see [[korc_units]].
Expand Down

0 comments on commit 39a2940

Please sign in to comment.