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

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

(cherry picked from commit 0cac8488)
parent 840d4ce4
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/ice4_nucleation_wrapper.f90
+ 5
− 0
View file @ 4c3982ed
...@@ -88,6 +88,11 @@ REAL, DIMENSION(COUNT(PT<XTT .AND. LDMASK)) :: ZZT, & ! Temperature ...@@ -88,6 +88,11 @@ REAL, DIMENSION(COUNT(PT<XTT .AND. LDMASK)) :: ZZT, & ! Temperature
GNEGT(:,:,:)=PT(:,:,:)<XTT .AND. LDMASK GNEGT(:,:,:)=PT(:,:,:)<XTT .AND. LDMASK
INEGT=0 INEGT=0
IF(COUNT(GNEGT)/=0) INEGT=ICE4_NUCLEATION_COUNTJV(GNEGT(:,:,:), KIT, KJT, KKT, SIZE(I1), I1(:), I2(:), I3(:)) IF(COUNT(GNEGT)/=0) INEGT=ICE4_NUCLEATION_COUNTJV(GNEGT(:,:,:), KIT, KJT, KKT, SIZE(I1), I1(:), I2(:), I3(:))
!
ZB_TH(:) = 0.
ZB_RV(:) = 0.
ZB_RI(:) = 0.
!
PRVHENI_MR(:,:,:)=0. PRVHENI_MR(:,:,:)=0.
IF(INEGT>=1) THEN IF(INEGT>=1) THEN
DO JL=1, INEGT DO JL=1, INEGT
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme