LOGICAL SHELFICEMassStepping
& SHELFICEMassStepping,
CALL WRITE_0D_L( SHELFICEMassStepping, INDEX_NONE,
IF ( SHELFICEMassStepping .AND.
SHELFICEMassStepping = .FALSE.
IF ( SHELFICEMassStepping ) THEN
IF (SHELFICEMassStepping) THEN