图像>图像旋转>90度顺时针，选择涂抹工具，设置如下。

反复涂抹，接近下图所示效果即可。

Ctrl+U上色。

效果如下。

为加强火焰效果，Ctrl+J复制一层，图层模式线性减淡(叠加)，最终效果如下。