INTEGER SEAICEpresPow0, SEAICEpresPow1
& SEAICEpresPow0, SEAICEpresPow1,
& (SEAICEpresPow1.NE.1) ) THEN
tmpscal2=SEAICEpresH0*(tmpscal1**SEAICEpresPow1)
& SEAICEpresPow0 .LT. 0 .OR. SEAICEpresPow1 .LT. 0 ) THEN
& SEAICEpresH0, SEAICEpresPow0, SEAICEpresPow1,
SEAICEpresPow1 = 1
CALL WRITE_0D_I ( SEAICEpresPow1, INDEX_NONE,