Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly
Appearance settings

Replace intrinsics in allocate statements #850

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 7 commits into
base: master
Choose a base branch
Loading
from
Open

Replace intrinsics in allocate statements #850

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
7eeaa84
Replace intrinsics in allocate
prathi-wind May 29, 2025
357099b
Ran formatter
prathi-wind May 29, 2025
ac16c1c
Merge branch 'master' into alloc
sbryngelson May 29, 2025
2683a68
Put min and maxes into a derived type
prathi-wind May 29, 2025
ebb6be4
Fixed circular dependencies
prathi-wind May 29, 2025
b91cee9
Ran formatter
prathi-wind May 30, 2025
e7a4be5
Merge branch 'master' into alloc
sbryngelson Jun 5, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Ran formatter
  • Loading branch information
@prathi-wind
prathi-wind committed May 29, 2025
commit 357099b5ec6b34b0aad2b2331ca300751c1a9912
3 changes: 1 addition & 2 deletions 3 src/post_process/m_global_parameters.fpp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -44,7 +44,6 @@ module m_global_parameters
integer :: mn_min, np_min, mp_min, mnp_min
!> @}


integer(8) :: nGlobal ! Total number of cells in global domain

!> @name Cylindrical coordinates (either axisymmetric or full 3D)
Expand Down Expand Up @@ -340,7 +339,7 @@ contains

! Computational domain parameters
m = dflt_int; n = 0; p = 0

! Update the min and max of the cells in each direction
mn_max = max(m, n)
np_max = max(n, p)
Expand Down
1 change: 0 additions & 1 deletion 1 src/post_process/m_start_up.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -117,7 +117,6 @@ subroutine s_read_input_file
mp_min = min(m, p)
mnp_min = min(m, n, p)


! Store m,n,p into global m,n,p
m_glb = m
n_glb = n
Expand Down
5 changes: 2 additions & 3 deletions 5 src/pre_process/m_global_parameters.fpp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -47,7 +47,6 @@ module m_global_parameters

!> @}


integer(8) :: nGlobal !< Global number of cells in the domain

integer :: m_glb, n_glb, p_glb !< Global number of cells in each direction
Expand Down Expand Up @@ -310,7 +309,7 @@ contains

! Computational domain parameters
m = dflt_int; n = 0; p = 0

! Update the min and max of the cells in each direction
mn_max = max(m, n)
np_max = max(n, p)
Expand All @@ -320,7 +319,7 @@ contains
np_min = min(n, p)
mp_min = min(m, p)
mnp_min = min(m, n, p)

cyl_coord = .false.

x_domain%beg = dflt_real
Expand Down
2 changes: 1 addition & 1 deletion 2 src/pre_process/m_start_up.fpp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -179,7 +179,7 @@ contains
np_min = min(n, p)
mp_min = min(m, p)
mnp_min = min(m, n, p)

! Store m,n,p into global m,n,p
m_glb = m
n_glb = n
Expand Down
1 change: 0 additions & 1 deletion 1 src/simulation/m_mpi_proxy.fpp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -562,7 +562,6 @@ contains
mp_min = min(m, p)
mnp_min = min(m, n, p)
sbryngelson marked this conversation as resolved.
Show resolved Hide resolved


! Boundary condition at the beginning
if (proc_coords(1) > 0 .or. (bc_x%beg == BC_PERIODIC .and. num_procs_x > 1)) then
proc_coords(1) = proc_coords(1) - 1
Expand Down
Loading
Morty Proxy This is a proxified and sanitized view of the page, visit original site.