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