Skip to content

Commit

Permalink
n_con fix (#371)
Browse files Browse the repository at this point in the history
Co-authored-by: Kun Gao <Kun.Gao@noaa.gov>
  • Loading branch information
gaokun227 and Kun Gao authored Jan 16, 2025
1 parent 690ec84 commit 8c31756
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion model/dyn_core.F90
Original file line number Diff line number Diff line change
Expand Up @@ -293,7 +293,7 @@ subroutine dyn_core(npx, npy, npz, ng, sphum, nq, bdt, n_map, n_split, zvir, cp,

call init_ijk_mem(isd, ied, jsd, jed, npz, heat_source, 0.)

if ( flagstruct%convert_ke .or. flagstruct%vtdm4> 1.E-4 ) then
if ( flagstruct%convert_ke .or. (flagstruct%do_vort_damp .and. flagstruct%vtdm4> 1.E-4) ) then
n_con = npz
else
if ( flagstruct%d2_bg_k1 < 1.E-3 ) then
Expand Down

0 comments on commit 8c31756

Please sign in to comment.