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

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

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