logical stressIsOnCgrid
& stressIsOnCgrid, useStabilityFct_overIce,
IF ( stressIsOnCgrid ) THEN
IF ( stressIsOnCgrid .AND. ustressfile.NE.' '
& .FALSE.,stressIsOnCgrid,.TRUE.,1,mythid)
stressIsOnCgrid = .FALSE.
stressIsOnCgrid = readStressOnCgrid
CALL WRITE_0D_L( stressIsOnCgrid,INDEX_NONE,'stressIsOnCgrid =',