diff --git a/sf_sfclayrev.F90 b/sf_sfclayrev.F90 index d05ff3e..2d075c6 100644 --- a/sf_sfclayrev.F90 +++ b/sf_sfclayrev.F90 @@ -378,6 +378,8 @@ subroutine sf_sfclayrev_run(ux,vx,t1d,qv1d,p1d,dz8w1d, & do 320 i = its,ite ! + zol(i) = 0. +! if(br(i).gt.0) then if(br(i).gt.250.0) then zol(i)=zolri(250.0,za(i),znt(i))