Skip to content

Commit

Permalink
Minor debugging in phys_control.
Browse files Browse the repository at this point in the history
*********1*********2*********3*********4*********5*********6*********7**
Longer commit message body describing the commit.
Can contain lists as follows:
	* Item 1
	* Item 2
	* Item 3

A good commit message should be written like an email, a subject
followed by a blank line, followed by a more descriptive body.

Can also contain a tag at the bottom describing what type of commit this is.
[BFB] - Bit-For-Bit
[FCC] - Flag Climate Changing
[Non-BFB] - Non Bit-For-Bit
[CC] - Climate Changing
[NML] - Namelist Changing

See confluence for a more detailed description about these tags.
  • Loading branch information
jinboxie committed Nov 12, 2024
1 parent b20af9b commit cd3da54
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions components/eam/src/physics/cam/phys_control.F90
Original file line number Diff line number Diff line change
Expand Up @@ -184,7 +184,7 @@ module phys_control
logical, public, protected :: use_od_fd = .false.
real(r8),public, protected :: od_ls_ncleff = 3._r8 !tunable parameter for oGWD
real(r8),public, protected :: od_bl_ncd = 3._r8 !tunable parameter for FBD
real(r8),public, protected :: od_ss_od_ss_sncleff = 1._r8 !tunable parameter for sGWD
real(r8),public, protected :: od_ss_sncleff = 1._r8 !tunable parameter for sGWD
!
! Switches that turn on/off individual parameterizations.
!
Expand Down Expand Up @@ -383,9 +383,9 @@ subroutine phys_ctl_readnl(nlfile)
call mpibcast(use_od_bl, 1 , mpilog, 0, mpicom)
call mpibcast(use_od_ss, 1 , mpilog, 0, mpicom)
call mpibcast(use_od_fd, 1 , mpilog, 0, mpicom)
call mpibcast(od_ls_ncleff 1 , mpilog, 0, mpicom)
call mpibcast(od_ls_ncleff, 1 , mpilog, 0, mpicom)
call mpibcast(od_bl_ncd, 1 , mpilog, 0, mpicom)
call mpibcast(od_ss_sncleff 1 , mpilog, 0, mpicom)
call mpibcast(od_ss_sncleff, 1 , mpilog, 0, mpicom)
call mpibcast(fix_g1_err_ndrop, 1 , mpilog, 0, mpicom)
call mpibcast(ssalt_tuning, 1 , mpilog, 0, mpicom)
call mpibcast(resus_fix, 1 , mpilog, 0, mpicom)
Expand Down

0 comments on commit cd3da54

Please sign in to comment.