& addFrictionHeating,
LOGICAL addFrictionHeating
IF ( addFrictionHeating ) THEN
CALL WRITE_0D_L( addFrictionHeating, INDEX_NONE,
& ( addFrictionHeating .OR. useDiagnostics ) ) THEN
IF ( addFrictionHeating .OR. diag_dKE ) THEN
& tempDiffusion, tempAdvection, tempForcing, addFrictionHeating,
IF ( addFrictionHeating .AND. staggerTimeStep ) THEN
IF ( addFrictionHeating .AND. .NOT.staggerTimeStep ) THEN
addFrictionHeating = .FALSE.
IF ( addFrictionHeating .AND. useDiagnostics ) THEN