NAME
Cool
SYNOPSIS
Cool(integer(IN) :: blockCount integer(IN) :: blockList(blockCount), real(IN) :: dt, real(IN) :: time)
DESCRIPTION
Apply a cooling operator on the list of blocks provided as input
ARGUMENTS
blockCount : The number of blocks in the list blockList(:) : The list of blocks on which to apply the cooling operator dt : the current timestep time : the current time