use named parameter for current and previous time step

[nmizukami]

There are some array store values at previous and current time steps with (0:1) shape.

To make things clearer, these 0 and 1 magic numbers needs to be replaced with

integer, parameter :: prev_time = 0
integer, parameter :: curr_time = 1