Skip to content
Snippets Groups Projects
Commit eb180d95 authored by Lucie Bakels's avatar Lucie Bakels
Browse files

Bugfix: only deallocate zsec4 when is6.ne.-1 in readwind_ecmwf

parent 810fad5f
No related branches found
No related tags found
No related merge requests found
...@@ -2444,11 +2444,11 @@ subroutine readwind_ecmwf(indj,n,uuh,vvh,wwh) ...@@ -2444,11 +2444,11 @@ subroutine readwind_ecmwf(indj,n,uuh,vvh,wwh)
lcwsum=.true. lcwsum=.true.
!$OMP END CRITICAL !$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 end do fieldloop
!$OMP END DO !$OMP END DO
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment