Skip to content
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

initialize field-specific vertical extent for target data in fixed sp… #1317

Merged
merged 3 commits into from
Feb 6, 2021
Merged

initialize field-specific vertical extent for target data in fixed sp… #1317

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
a1bf2e3
initialize field-specific vertical extent for target data in fixed sp…
MJHarrison-GFDL Feb 5, 2021
3e75098
revert default name for sponge inverse damping timescale and prevent …
MJHarrison-GFDL Feb 5, 2021
0957fa1
Merge branch 'dev/gfdl' into ale_sponge_patch_020521
Hallberg-NOAA Feb 6, 2021
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
8 changes: 4 additions & 4 deletions src/initialization/MOM_state_initialization.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1785,9 +1785,6 @@ subroutine initialize_sponges_file(G, GV, US, use_temperature, tv, u, v, param_f
call get_param(param_file, mdl, "SPONGE_STATE_FILE", state_file, &
"The name of the file with the state to damp toward.", &
default=damping_file)
call get_param(param_file, mdl, "SPONGE_UV_STATE_FILE", state_uv_file, &
"The name of the file with the state to damp UV toward.", &
default=damping_file)
call get_param(param_file, mdl, "SPONGE_PTEMP_VAR", potemp_var, &
"The name of the potential temperature variable in "//&
"SPONGE_STATE_FILE.", default="PTEMP")
Expand All @@ -1798,6 +1795,9 @@ subroutine initialize_sponges_file(G, GV, US, use_temperature, tv, u, v, param_f
"Apply sponges in u and v, in addition to tracers.", &
default=.false.)
if (sponge_uv) then
call get_param(param_file, mdl, "SPONGE_UV_STATE_FILE", state_uv_file, &
"The name of the file with the state to damp UV toward.", &
default=damping_file)
call get_param(param_file, mdl, "SPONGE_U_VAR", u_var, &
"The name of the zonal velocity variable in "//&
"SPONGE_UV_STATE_FILE.", default="UVEL")
Expand All @@ -1810,7 +1810,7 @@ subroutine initialize_sponges_file(G, GV, US, use_temperature, tv, u, v, param_f
"SPONGE_STATE_FILE.", default="ETA")
call get_param(param_file, mdl, "SPONGE_IDAMP_VAR", Idamp_var, &
"The name of the inverse damping rate variable in "//&
"SPONGE_DAMPING_FILE.", default="IDAMP")
"SPONGE_DAMPING_FILE.", default="Idamp")
if (sponge_uv) then
call get_param(param_file, mdl, "SPONGE_UV_DAMPING_FILE", uv_damping_file, &
"The name of the file with sponge damping rates for the velocity variables.", &
Expand Down
1 change: 1 addition & 0 deletions src/parameterizations/vertical/MOM_ALE_sponge.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -666,6 +666,7 @@ subroutine set_up_ALE_sponge_field_fixed(sp_val, G, GV, f_ptr, CS)
endif

! stores the reference profile
CS%Ref_val(CS%fldno)%nz_data = CS%nz_data
allocate(CS%Ref_val(CS%fldno)%p(CS%nz_data,CS%num_col))
CS%Ref_val(CS%fldno)%p(:,:) = 0.0
do col=1,CS%num_col
Expand Down