if (nchklev_1*nchklev_2*nchklev_3 .lt. nTimeSteps) then
& nchklev_1*nchklev_2*nchklev_3
integer nchklev_3
parameter( nchklev_3 = 3 )
do ilev_3 = 1,nchklev_3
parameter( nchklev_3 = 40 )
parameter( nchklev_3 = 60 )
parameter( nchklev_3 = 36 )
parameter( nchklev_3 = 24 )