      SUBROUTINE cpl_prism_getvar(prcv_id, msk, nmaxa, tab_t_tmp,
     &                                                 rcvtime, iok)
      END SUBROUTINE cpl_prism_getvar
