Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
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
2 changes: 1 addition & 1 deletion .gitmodules
Original file line number Diff line number Diff line change
Expand Up @@ -24,4 +24,4 @@
url = https://github.com/NCAR/MMM-physics.git
[submodule "src/core_atmosphere/stochastic_physics"]
path = src/core_atmosphere/stochastic_physics
url = https://github.com/dtcenter/stochastic_physics.git
url = https://github.com/dustinswales/stochastic_physics.git
15 changes: 4 additions & 11 deletions src/core_atmosphere/dynamics/mpas_atm_time_integration.F
Original file line number Diff line number Diff line change
Expand Up @@ -881,7 +881,6 @@ subroutine atm_srk3(domain, dt, itimestep, exchange_halo_group)
#endif

real (kind=RKIND) :: time_dyn_step
character(len=32) :: tend_names(4)
integer :: ierr
logical, parameter :: debug = .false.

Expand Down Expand Up @@ -1081,13 +1080,9 @@ subroutine atm_srk3(domain, dt, itimestep, exchange_halo_group)
rk_step = 1
dynamics_substep = 1

! apply random perturbation pattern to the tendency
tend_names(1) = "rucuten"
tend_names(2) = "rvcuten"
tend_names(3) = "rublten"
tend_names(4) = "rvblten"
! apply random perturbation pattern to physics process (hydrostatic) tendencies
if (dosppt(domain)) then
call stochastic_physics_pattern_apply(domain, 4, tend_names, ierr)
call stochastic_physics_pattern_apply(domain, 'phys', ierr)
endif

call physics_get_tend( block, mesh, state, diag, tend, tend_physics, &
Expand All @@ -1096,11 +1091,9 @@ subroutine atm_srk3(domain, dt, itimestep, exchange_halo_group)
exchange_halo_group )
call mpas_timer_stop('physics_get_tend')

! apply random perturbation pattern to the tendency
tend_names(1) = "tend_rtheta_physics"
! tend_names(2) = "tend_rho_physics"
! apply random perturbation pattern to the accumulated (non-hydrostatic) physics tendencies
if (dosppt(domain)) then
call stochastic_physics_pattern_apply(domain, 1, tend_names, ierr)
call stochastic_physics_pattern_apply(domain, 'prog', ierr)
endif
#else
#ifndef MPAS_CAM_DYCORE
Expand Down
2 changes: 1 addition & 1 deletion src/core_atmosphere/stochastic_physics