Skip to content

Increase max_eta from 1001 to 10001 #1033

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

Merged
davegill merged 5 commits into from
Jan 21, 2020
Merged

Increase max_eta from 1001 to 10001 #1033

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
2aad600
Increase max_eta from 1001 to 10001
davegill Dec 12, 2019
98dd128
max_eta comment
davegill Dec 12, 2019
3a27131
Comment in stand alone program for max_eta
davegill Dec 13, 2019
1e2e1a8
Up Case MAX_ETA
davegill Dec 18, 2019
2b7ebc2
trigger Jenkins
davegill Dec 19, 2019
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
4 changes: 3 additions & 1 deletion dyn_em/module_initialize_real.F
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7049,7 +7049,9 @@ END SUBROUTINE rh_to_mxrat1
#if 0
program foo

integer , parameter :: max_eta = 1000
! Make this local variable have the same value as in
! frame/module_driver_constants.F: MAX_ETA
integer , parameter :: max_eta = 10001

INTEGER :: ids , ide , jds , jde , kds , kde , &
ims , ime , jms , jme , kms , kme , &
Expand Down
12 changes: 4 additions & 8 deletions frame/module_driver_constants.F
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -45,14 +45,10 @@ MODULE module_driver_constants

INTEGER , PARAMETER :: max_moves = 50

! The maximum number of eta levels
!DJW 140701 Increased from 501 to 1001 since I can imagine using more than
!501 total vertical levels across multiple nested domains. Now that the
!code is modified to allow specification of all domains eta_levels using a
!array of length max_eta, this will need to be larger. I'll also add a check
!in module_initialize_real to ensure we don't exceed this value.

INTEGER , PARAMETER :: max_eta = 1001
! The maximum number of eta levels. With vertical refinement defining
! each domain separately, the aggregated number of levels could be large.

INTEGER , PARAMETER :: max_eta = 10001

! The maximum number of ocean levels in the 3d U Miami ocean.

Expand Down