CALL COMPSEND_R8TILES( ocnSSTName,
CHARACTER*(7) ocnSSTName
PARAMETER( ocnSSTName = 'OCN SST' )
CALL COUPRECV_R8TILES( ocnCompName, ocnSSTName,