Skip to content
Snippets Groups Projects
Commit 8bb29a6d authored by WURTZ Jean's avatar WURTZ Jean Committed by WURTZ Jean
Browse files

Bugfix for new compressed AROME data

parent a944094f
No related branches found
No related tags found
No related merge requests found
......@@ -253,6 +253,11 @@ SELECT CASE(HSURF)
ALLOCATE(PFIELD(INI,1,1))
PFIELD(:,:,:) = ZFIELD(:,:,:)
ENDIF
WHERE (PFIELD(:,:,:)>XUNDEF)
PFIELD(:,:,:)=XUNDEF
END WHERE
DEALLOCATE(ZFIELD)
!
CASE('LAI ')
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment