CALL COMPRECV_R8TILES( ocnFIceName,
CHARACTER*(8) ocnFIceName
PARAMETER( ocnFIceName = 'OCN FIce' )
CALL COUPSEND_R8TILES( ocnCompName, ocnFIceName,