Skip to content
Snippets Groups Projects
Commit 49c5f57a authored by Rolf Heilemann Myhre's avatar Rolf Heilemann Myhre
Browse files

some cleanup and remove blanks

parent 0a64bf6e
No related branches found
No related tags found
No related merge requests found
......@@ -272,7 +272,7 @@ ELSE
ELSE
PRSRIMCG_MR(:) = 0.
ENDIF
DO JL=1, KSIZE
PB(JL, ITH)=PB(JL, ITH) + PRVHENI_MR(JL)*PLSFACT(JL)
PB(JL, ITH)=PB(JL, ITH) + PRRHONG_MR(JL)*(PLSFACT(JL)-PLVFACT(JL))
......@@ -329,7 +329,7 @@ IF (LLRFR) THEN
#endif
END DO
IF (KRR==7) THEN
DO JL=1,KSIZE
DO JL=1,KSIZE
ZRHT3D (K1(JL), K2(JL)) = ZVART(JL,IRH)
ENDDO
CALL ICE4_RAINFR_VERT(D, ICED, PRAINFR(:,:), &
......
This diff is collapsed.
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