integer max_lev2, max_lev3
max_lev2=nbt_in/nchklev_1+1
if(ilev_2.le.max_lev2) then
integer max_lev2, max_lev3, key_in
integer max_lev2
max_lev2=nTimeSteps/nchklev_1+1