_RL SEAICE_cpAir
& SEAICE_dalton, SEAICE_cpAir,
D1=SEAICE_dalton*SEAICE_cpAir*SEAICE_rhoAir
& SEAICE_cpAir, SEAICEscaleSurfStress,
SEAICE_cpAir = atmcp
SEAICE_cpAir = 1004. _d 0
CALL WRITE_0D_RL( SEAICE_cpAir ,INDEX_NONE,