Properly initialize rah1 history array to spval (overriding the defau…

…lt of NaN)
ESCOMP · Jul 17, 2023 · 3cd4368 · 3cd4368
1 parent 7629dd8
commit 3cd4368
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/biogeophys/FrictionVelocityMod.F90 b/src/biogeophys/FrictionVelocityMod.F90
@@ -238,6 +238,7 @@ subroutine InitHistory(this, bounds)
             ptr_patch=this%fv_patch)
     end if
 
+       this%rah1_patch(begp:endp) = spval
        call hist_addfld1d (fname='RAH1', units='s/m', &
             avgflag='A', long_name='aerodynamical resistance ', &
             ptr_patch=this%rah1_patch, default='inactive')