if (MOD(nTimeSteps,uCheckLev1).gt.0) then
if((nTimeSteps/uCheckLev1)+1 .le. uCheckLev2 ) then
uCheckLev2=(nTimeSteps/uCheckLev1)+1
if((nTimeSteps/uCheckLev1) .le. uCheckLev2 ) then
uCheckLev2=(nTimeSteps/uCheckLev1)
if (MOD(nTimeSteps,uCheckLev1*uCheckLev2).gt.0) then
if((nTimeSteps/(uCheckLev1*uCheckLev2))+1
uCheckLev3=(nTimeSteps/(uCheckLev1*uCheckLev2))+1
if((nTimeSteps/(uCheckLev1*uCheckLev2)) .le. uCheckLev3 )then
uCheckLev3=(nTimeSteps/(uCheckLev1*uCheckLev2))
if (MOD(nTimeSteps,uCheckLev1*uCheckLev2*uCheckLev3)
if((nTimeSteps/(uCheckLev1*uCheckLev2*uCheckLev3))+1
+ (nTimeSteps/(uCheckLev1*uCheckLev2*uCheckLev3))+1
if((nTimeSteps/(uCheckLev1*uCheckLev2*uCheckLev3))
+ (nTimeSteps/(uCheckLev1*uCheckLev2*uCheckLev3))
+'OAD: the_main_loop checkpoints used 1st:',uCheckLev1,
integer uCheckLev1, uCheckLev2, uCheckLev3,uCheckLev4
uCheckLev1=0
SUBROUTINE OPENAD_CHECKPOINTINIT(uCheckLev1,
uCheckLev1=nCheckLev1
if ( uCheckLev3*uCheckLev2*uCheckLev1 .eq. 0) then
if ( uCheckLev2*uCheckLev1 .eq. 0) then
if ( uCheckLev1 .eq. 0) then
if (uCheckLev1 .eq. 0 ) then
if (nTimeSteps .lt. uCheckLev1 ) then
uCheckLev1=nTimeSteps