1 calls from
TKE_DISSIP

CALC_L_SCALE  1