ELSE IF ( (ZZc(kk) .GE. Zc(Nr)) .OR. (k .EQ. Nr) ) THEN
ELSE IF ( (ZZc(kk) .GE. Zc(k))
& .AND. (ZZc(kk) .LT. Zc(Nr)) ) THEN
DO WHILE (ZZc(kk) .GE. Zc(k+1))
MapFact(kk) = 1.0 - (( ZZc(kk) - Zc(k) ) / drC(k+1))
& ', ZZc(kk)=', ZZc(kk),' , Zc(k)=',Zc(k)
IF ( ZZc(kk).LT.Zf(MapIndex(kk)+1) ) THEN
& '// ZZc=', ZZc(kk),
_RL ZZc(FineGridMax)
ZZc(1) = 0.5 _d 0 * dZZf(1)
ZZc(kk-1) = 0.5 _d 0 * (ZZf(kk) + ZZf(kk-1))
IF ( ZZc(kk) .LT. Zc(1) ) THEN