RmarineHeatWaves function

RmarineHeatWaves.