lprnt won't stay .true.

[michalakes]

Description

Setting Model%lprnt to .true. in data/GFS_typedefs_module.F90 (around line 4895) gets reset when physics run because certain subroutines in the physics directory turn it off again. The routines in question, both named GFS_time_vary_pre_timestep_init, are defined in GFS_time_vary_pre.fv3.F90 and GFS_time_vary_pre.scm.F90. They define lprnt as intent(out) in their argument lists and then set these to false, overriding whatever value lprnt had when the routine was called.

Steps to Reproduce

Set Model%lprnt to .true. in data/GFS_typedefs_module.F90 (around line 4895) and then do a run expecting to see debug output from routines in physics that have write or print statements inside if (lprnt) blocks. These expectations will soar at first but then be crushed.

Additional Context

Commenting out the lprnt = .false. statements in the two routines rewards expectations.

• Machine
  NA
• Compiler
  NA
• Suite Definition File or Scheme
  NA
• Reference other issues or PRs in other repositories that this is related to, and how they are related.
  Unknown

Output

NA