Skip to content
Snippets Groups Projects
Commit 0cac8488 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 13/11/2018: bug: variables not initialised in ICE4_NUCLEATION_WRAPPER

parent 6923c7ad
No related branches found
No related tags found
No related merge requests found
......@@ -116,6 +116,10 @@ ALLOCATE(ZB_TH(INEGT))
ALLOCATE(ZB_RV(INEGT))
ALLOCATE(ZB_RI(INEGT))
!
ZB_TH(:) = 0.
ZB_RV(:) = 0.
ZB_RI(:) = 0.
!
IF(INEGT>0) INEGT_TMP=ICE4_NUCLEATION_COUNTJV(GNEGT(:,:,:), KIT, KJT, KKT, SIZE(I1), I1(:), I2(:), I3(:))
!
PRVHENI_MR(:,:,:)=0.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment