INTEGER SEAICEetaZmethod
& SEAICEetaZmethod,
IF ( SEAICEetaZmethod .EQ. 0 ) THEN
ELSEIF ( SEAICEetaZmethod .EQ. 3 ) THEN
IF ( .NOT.(SEAICEetaZmethod.EQ.0.OR.SEAICEetaZmethod.EQ.3) ) THEN
& 'SEAICE_CHECK: SEAICEetaZmethod = ', SEAICEetaZmethod
& SEAICEetaZmethod, LAD, IMAX_TICE, postSolvTempIter,
SEAICEetaZmethod = 0
CALL WRITE_0D_I ( SEAICEetaZmethod, INDEX_NONE,