& useEnergyConservingCoriolis, useJamartWetPoints, useJamartMomAdv,
LOGICAL useEnergyConservingCoriolis
IF (useEnergyConservingCoriolis) THEN
CALL WRITE_0D_L( useEnergyConservingCoriolis, INDEX_NONE,
& multiDimAdvection, useEnergyConservingCoriolis,
useEnergyConservingCoriolis = .FALSE.