Skip to content
Snippets Groups Projects
Commit a67c5ef5 authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Rename SEQUENTIAL to `CPP_SEQUENTIAL`

parent fbd8e271
No related branches found
No related tags found
No related merge requests found
...@@ -37,7 +37,7 @@ target_link_libraries(test_max_speed_contour_ssh PRIVATE ...@@ -37,7 +37,7 @@ target_link_libraries(test_max_speed_contour_ssh PRIVATE
# test_nearby_extr # test_nearby_extr
add_executable(test_nearby_extr test_nearby_extr.f90) add_executable(test_nearby_extr test_nearby_extr.f90)
target_compile_definitions(test_nearby_extr PRIVATE SEQUENTIAL) target_compile_definitions(test_nearby_extr PRIVATE CPP_SEQUENTIAL)
target_link_libraries(test_nearby_extr PRIVATE Shapelib_03::shapelib_03 target_link_libraries(test_nearby_extr PRIVATE Shapelib_03::shapelib_03
Contour_531::contour_531 Jumble::jumble gpc_f Numer_Rec_95::numer_rec_95) Contour_531::contour_531 Jumble::jumble gpc_f Numer_Rec_95::numer_rec_95)
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
add_executable(test_overlap test_overlap.f90) add_executable(test_overlap test_overlap.f90)
target_link_libraries(test_overlap Shapelib_03::shapelib_03 Geometry::geometry target_link_libraries(test_overlap Shapelib_03::shapelib_03 Geometry::geometry
Contour_531::contour_531 gpc_f Jumble::jumble Numer_Rec_95::numer_rec_95) Contour_531::contour_531 gpc_f Jumble::jumble Numer_Rec_95::numer_rec_95)
target_compile_definitions(test_overlap PRIVATE SEQUENTIAL) target_compile_definitions(test_overlap PRIVATE CPP_SEQUENTIAL)
# test_read_snapshot # test_read_snapshot
target_sources(test_read_snapshot PRIVATE test_read_snapshot.f90 target_sources(test_read_snapshot PRIVATE test_read_snapshot.f90
......
...@@ -21,7 +21,7 @@ contains ...@@ -21,7 +21,7 @@ contains
use, intrinsic:: ISO_FORTRAN_ENV use, intrinsic:: ISO_FORTRAN_ENV
! Libraries: ! Libraries:
#ifndef SEQUENTIAL #ifndef CPP_SEQUENTIAL
use ezmpi, only: ezmpi_bcast use ezmpi, only: ezmpi_bcast
#endif #endif
use jumble, only: assert, pi use jumble, only: assert, pi
...@@ -47,7 +47,7 @@ contains ...@@ -47,7 +47,7 @@ contains
copy = merge(dist_lim, 0, periodic) copy = merge(dist_lim, 0, periodic)
end if end if
#ifndef SEQUENTIAL #ifndef CPP_SEQUENTIAL
call ezmpi_bcast(max_delta, root = 0) call ezmpi_bcast(max_delta, root = 0)
call ezmpi_bcast(dist_lim, root = 0) call ezmpi_bcast(dist_lim, root = 0)
call ezmpi_bcast(cyclone, root = 0) call ezmpi_bcast(cyclone, root = 0)
......
...@@ -19,7 +19,7 @@ contains ...@@ -19,7 +19,7 @@ contains
subroutine read_grid(rank, shpc_dir) subroutine read_grid(rank, shpc_dir)
! Libraries: ! Libraries:
#ifndef SEQUENTIAL #ifndef CPP_SEQUENTIAL
use ezmpi, only: ezmpi_bcast use ezmpi, only: ezmpi_bcast
#endif #endif
use jumble, only: new_unit, deg_to_rad use jumble, only: new_unit, deg_to_rad
...@@ -58,7 +58,7 @@ contains ...@@ -58,7 +58,7 @@ contains
step = step_deg * deg_to_rad step = step_deg * deg_to_rad
end if end if
#ifndef SEQUENTIAL #ifndef CPP_SEQUENTIAL
call ezmpi_bcast(nlon, root = 0) call ezmpi_bcast(nlon, root = 0)
call ezmpi_bcast(nlat, root = 0) call ezmpi_bcast(nlat, root = 0)
call ezmpi_bcast(periodic, root = 0) call ezmpi_bcast(periodic, root = 0)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment