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

Philippe 01/10/2020: bugfix: initialize XCLDFR and XRAINFR

(cherry picked from commit b584a9ed)
parent 2e344496
No related branches found
No related tags found
No related merge requests found
...@@ -839,8 +839,8 @@ ELSE ...@@ -839,8 +839,8 @@ ELSE
END IF END IF
! !
IF (NRR>1) THEN IF (NRR>1) THEN
ALLOCATE(XCLDFR(IIU,IJU,IKU)) ALLOCATE(XCLDFR(IIU,IJU,IKU)); XCLDFR (:, :, :) = 0.
ALLOCATE(XRAINFR(IIU,IJU,IKU)) ALLOCATE(XRAINFR(IIU,IJU,IKU)); XRAINFR(:, :, :) = 0.
ELSE ELSE
ALLOCATE(XCLDFR(0,0,0)) ALLOCATE(XCLDFR(0,0,0))
ALLOCATE(XRAINFR(0,0,0)) ALLOCATE(XRAINFR(0,0,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