_RL subMeso_invTau
& subMeso_Ceff, subMeso_invTau, subMeso_LfMin
CALL WRITE_0D_RL( subMeso_invTau, INDEX_NONE,
subMeso_invTau = 2.0 _d -6
& GM_useSubMeso, subMeso_Ceff, subMeso_invTau,
& + subMeso_invTau*subMeso_invTau )