CALL COMPRECV_R8TILES( ocnTauXName,
CHARACTER*(8) ocnTauXName
PARAMETER( ocnTauXName = 'OCN tauX' )
CALL COUPSEND_R8TILES( ocnCompName, ocnTauXName,