max_lev4=nTimeSteps/(nchklev_1*nchklev_2*nchklev_3)+1
do ilev_3 = 1,nchklev_3
& + (ilev_4 - 1)*nchklev_3*nchklev_2*nchklev_1
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_3
parameter( nchklev_3 = 3 )
parameter( nchklev_3 = 60 )
parameter( nchklev_3 = 40 )
parameter( nchklev_3 = 1 )
if ((leftOvers/(uCheckLev1*uCkeckLev2)) .lt. nchklev_3 ) then
uCheckLev3 = nchklev_3
parameter( nchklev_3 = 2 )
parameter( nchklev_3 = 24 )
parameter( nchklev_3 = 80 )
parameter( nchklev_3 = 42 )
parameter( nchklev_3 = 36 )
parameter( nchklev_3 = 5 )
parameter ( nidow = 2*nchklev_1*nchklev_2*nchklev_3 )