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