use named parameter for current and previous time step

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
```
