CALL COMPRECV_R8TILES( ocnSeaIceName,
CHARACTER*(10) ocnSeaIceName
PARAMETER( ocnSeaIceName = 'OCN SeaIce' )
CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName,