_RL SEAICE_airTurnAngle, SEAICE_waterTurnAngle
& SEAICE_airTurnAngle, SEAICE_waterTurnAngle,
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad)
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad)
SEAICE_waterTurnAngle = 0.0 _d 0
CALL WRITE_0D_RL( SEAICE_waterTurnAngle,INDEX_NONE,