some cleanup and remove blanks

src/common/micro/mode_ice4_tendencies.F90

@@ -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(:,:), &