&.lt. nchklev_4 ) then
uCheckLev4 = nchklev_4
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