CALL COMPRECV_R8TILES( ocnTauYName,
CHARACTER*(8) ocnTauYName
PARAMETER( ocnTauYName = 'OCN tauY' )
CALL COUPSEND_R8TILES( ocnCompName, ocnTauYName,