Skip to content

Commit f7f78db

Browse files
committed
Fixed namelist read bug by initializing nl variables
1 parent c7b22c3 commit f7f78db

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

src/physics/cam/rayleigh_friction_cam.F90

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -49,6 +49,11 @@ subroutine rayleigh_friction_readnl(nlfile)
4949

5050
if (use_simple_phys) return
5151

52+
! Initialize with default values
53+
rayk0 = rf_nl_k0
54+
raykrange = rf_nl_krange
55+
raytau0 = rf_nl_tau0
56+
5257
if (masterproc) then
5358
unitn = getunit()
5459
open( unitn, file=trim(nlfile), status='old' )

0 commit comments

Comments
 (0)