integer nchklev_4
parameter( nchklev_4 = 2 )
do ilev_4 = 1,nchklev_4
if (nchklev_1*nchklev_2*nchklev_3*nchklev_4 .lt. nTimeSteps) then
& nchklev_1*nchklev_2*nchklev_3*nchklev_4