max_lev4=nTimeSteps/(nchklev_1*nchklev_2*nchklev_3)+1
max_lev3=nTimeSteps/(nchklev_1*nchklev_2)+1
do ilev_2 = 1,nchklev_2
& + (ilev_3 - 1)*nchklev_2*nchklev_1
& + (ilev_4 - 1)*nchklev_3*nchklev_2*nchklev_1
if (nchklev_1*nchklev_2 .lt. nTimeSteps) then
& nchklev_1*nchklev_2
if (nchklev_1*nchklev_2*nchklev_3*nchklev_4 .lt. nTimeSteps) then
& nchklev_1*nchklev_2*nchklev_3*nchklev_4
if (nchklev_1*nchklev_2*nchklev_3 .lt. nTimeSteps) then
& nchklev_1*nchklev_2*nchklev_3
integer nchklev_2
parameter( nchklev_2 = 2 )
parameter( nchklev_2 = 120 )
parameter( nchklev_2 = 6 )
parameter( nchklev_2 = 30 )
parameter( nchklev_2 = 3330 )
parameter( nchklev_2 = 62 )
parameter( nchklev_2 = 4 )
if ((leftOvers/uCheckLev1) .lt. nchklev_2 ) then
uCheckLev2 = nchklev_2
parameter( nchklev_2 = 240 )
parameter( nchklev_2 = 3 )
parameter( nchklev_2 = 60 )
parameter( nchklev_2 = 2000 )
parameter( nchklev_2 = 100 )
parameter( nchklev_2 = 42 )
parameter( nchklev_2 = 36 )
parameter( nchklev_2 = 22 )
parameter( nchklev_2 = 10 )
parameter ( nidow = 2*nchklev_1*nchklev_2*nchklev_3 )