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

Jump to bottom

Relocate derived bucket assignment to conventional location #944

Merged
merged 2 commits into from Jul 2, 2019
Merged

Relocate derived bucket assignment to conventional location #944

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
4540c3f
bucket list
davegill Jun 28, 2019
8c5bd34
Put the two bucket options near each other in check_a_mundo
davegill Jul 1, 2019
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
2 changes: 0 additions & 2 deletions dyn_em/namelist_remappings_em.h
View file
Open in desktop
Expand Up @@ -41,8 +41,6 @@
model_config_rec%auxinput9_interval_s = model_config_rec%sgfdda_interval_s
model_config_rec%auxinput9_interval_y = model_config_rec%sgfdda_interval_y
model_config_rec%io_form_auxinput9 = model_config_rec%io_form_sgfdda
IF (model_config_rec%prec_acc_dt(1) .gt. 0.) model_config_rec%prec_acc_opt = 1
IF (model_config_rec%bucket_mm .gt. 0.) model_config_rec%bucketr_opt = 1
#ifdef PLANET
!***************** special conversion for timesteps *********************
! 2004-12-07 ADT Notes
Expand Down
29 changes: 29 additions & 0 deletions share/module_check_a_mundo.F
View file
Open in desktop
Expand Up @@ -707,6 +707,35 @@ END FUNCTION bep_bem_nbui_max

#if (EM_CORE == 1)

!-----------------------------------------------------------------------
! Check if the bucket size for rain is > 0. If so, then we need to activate
! a derived namelist variable: bucketr_opt.
!-----------------------------------------------------------------------

IF ( model_config_rec%bucket_mm .GT. 0. ) THEN
model_config_rec%bucketr_opt = 1
END IF

!-----------------------------------------------------------------------
! Check if the precip bucket reset time interval > 0. If so, then we need to
! activate a derived namelist variable: prec_acc_opt
!-----------------------------------------------------------------------

DO i = 1, model_config_rec % max_dom
IF ( model_config_rec%prec_acc_dt(i) .GT. 0. ) THEN
model_config_rec%prec_acc_opt = 1
END IF
END DO

!-----------------------------------------------------------------------
! Check if the bucket size for radiation is > 0. If so, then we need to activate
! a derived namelist variable: bucketf_opt.
!-----------------------------------------------------------------------

IF ( model_config_rec%bucket_J .GT. 0. ) THEN
model_config_rec%bucketf_opt = 1
END IF

davegill marked this conversation as resolved.
Show resolved Hide resolved
!-----------------------------------------------------------------------
! Check if any stochastic perturbation scheme is turned on in any domain,
! if so, set derived variable sppt_on=1 and/or rand_perturb_on and/or skebs_on=1
Expand Down