diff --git a/src/MNH/ice4_nucleation_wrapper.f90 b/src/MNH/ice4_nucleation_wrapper.f90 index d23cfd23ef79955a19bc69bdcae5f0b9639523e6..a8a99c998e404fd1bd979f3bb120207672cf23dd 100644 --- a/src/MNH/ice4_nucleation_wrapper.f90 +++ b/src/MNH/ice4_nucleation_wrapper.f90 @@ -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.