CALL COMPSEND_R8TILES( ocnMxlDName,
CALL COMPSEND_R8TILES( ocnSSTName,
CALL COMPSEND_R8TILES( ocnSSSName,
CALL COMPSEND_R8TILES( ocnSSVsqName,
CALL COMPSEND_R8TILES( ocnFCO2Name,
CALL COMPSEND_R8TILES(
subroutine COMPSEND_R8TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr )