CALL WRITE_0D_L ( SEAICEwriteState, INDEX_NONE,
IF (SEAICEwriteState) THEN
& SEAICEwriteState, SEAICEuseDYNAMICS,
SEAICEwriteState = .FALSE.
LOGICAL SEAICEwriteState, SEAICEuseDYNAMICS