diff --git a/src/windfields_mod.f90 b/src/windfields_mod.f90 index e2e7dac30dbff969c130c24643b21c987aac1842..3b0bab939f69124ae7ac2b7720c979461eabf19e 100644 --- a/src/windfields_mod.f90 +++ b/src/windfields_mod.f90 @@ -2444,11 +2444,11 @@ subroutine readwind_ecmwf(indj,n,uuh,vvh,wwh) lcwsum=.true. !$OMP END CRITICAL - end select + end select - call grib_release(igrib(ii)) + call grib_release(igrib(ii)) - deallocate( zsec4 ) + if (is6.ne.-1) deallocate( zsec4 ) end do fieldloop !$OMP END DO