_RL atmPhys_tauDampUV
& atmPhys_tauDampUV, atmPhys_dampUVfac
IF ( atmPhys_tauDampUV.LE.zeroRL ) THEN
CALL WRITE_0D_RL( atmPhys_tauDampUV, INDEX_NONE,
& atmPhys_tauDampUV, atmPhys_dampUVfac,
atmPhys_tauDampUV = 0. _d 0
atmPhys_dampUVfac(k) = atmPhys_dampUVfac(k)/atmPhys_tauDampUV