& delR, delRc, delX, delY,
_RL delRc(Nr+1)
IF ( delRc(k).EQ.UNSET_RL ) THEN
& Ro_SeaLevel, delZ, delP, delR, delRc, delRFile, delRcFile,
drC(k) = delRc(k)
IF (delRc(k).LE.0.) THEN
& 'S/R INI_VERTICAL_GRID: delRc(k=',k,' )=',delRc(k)
drF(1) = delRc(1)
drF(k-1) = 0.5 _d 0 *delRc(k) + drF(k-1)
drF( k ) = 0.5 _d 0 *delRc(k)
drF(Nr) = delRc(Nr+1) + drF(Nr)
delRc(k) = tmp4delRc(k)
delRc(k) = tmp8delRc(k)
delRc(k) = UNSET_RL