File |
Line number |
Procedure |
Code |
./pkg/openad/openad_checkpointInit.F |
104 |
OPENAD_CHECKPOINTINIT |
if (MOD(nTimeSteps,uCheckLev1).gt.0) then |
./pkg/openad/openad_checkpointInit.F |
105 |
OPENAD_CHECKPOINTINIT |
if((nTimeSteps/uCheckLev1)+1 .le. uCheckLev2 ) then |
./pkg/openad/openad_checkpointInit.F |
106 |
OPENAD_CHECKPOINTINIT |
uCheckLev2=(nTimeSteps/uCheckLev1)+1 |
./pkg/openad/openad_checkpointInit.F |
110 |
OPENAD_CHECKPOINTINIT |
if((nTimeSteps/uCheckLev1) .le. uCheckLev2 ) then |
./pkg/openad/openad_checkpointInit.F |
111 |
OPENAD_CHECKPOINTINIT |
uCheckLev2=(nTimeSteps/uCheckLev1) |
./pkg/openad/openad_checkpointInit.F |
121 |
OPENAD_CHECKPOINTINIT |
if (MOD(nTimeSteps,uCheckLev1*uCheckLev2).gt.0) then |
./pkg/openad/openad_checkpointInit.F |
122 |
OPENAD_CHECKPOINTINIT |
if((nTimeSteps/(uCheckLev1*uCheckLev2))+1 |
./pkg/openad/openad_checkpointInit.F |
124 |
OPENAD_CHECKPOINTINIT |
uCheckLev3=(nTimeSteps/(uCheckLev1*uCheckLev2))+1 |
./pkg/openad/openad_checkpointInit.F |
128 |
OPENAD_CHECKPOINTINIT |
if((nTimeSteps/(uCheckLev1*uCheckLev2)) .le. uCheckLev3 )then |
./pkg/openad/openad_checkpointInit.F |
129 |
OPENAD_CHECKPOINTINIT |
uCheckLev3=(nTimeSteps/(uCheckLev1*uCheckLev2)) |
./pkg/openad/openad_checkpointInit.F |
139 |
OPENAD_CHECKPOINTINIT |
if (MOD(nTimeSteps,uCheckLev1*uCheckLev2*uCheckLev3) |
./pkg/openad/openad_checkpointInit.F |
141 |
OPENAD_CHECKPOINTINIT |
if((nTimeSteps/(uCheckLev1*uCheckLev2*uCheckLev3))+1 |
./pkg/openad/openad_checkpointInit.F |
144 |
OPENAD_CHECKPOINTINIT |
+ (nTimeSteps/(uCheckLev1*uCheckLev2*uCheckLev3))+1 |
./pkg/openad/openad_checkpointInit.F |
148 |
OPENAD_CHECKPOINTINIT |
if((nTimeSteps/(uCheckLev1*uCheckLev2*uCheckLev3)) |
./pkg/openad/openad_checkpointInit.F |
151 |
OPENAD_CHECKPOINTINIT |
+ (nTimeSteps/(uCheckLev1*uCheckLev2*uCheckLev3)) |
./pkg/openad/openad_checkpointInit.F |
167 |
OPENAD_CHECKPOINTINIT |
+'OAD: the_main_loop checkpoints used 1st:',uCheckLev1, |
./pkg/openad/openad_checkpointInit.F |
17 |
OPENAD_CHECKPOINTINIT |
integer uCheckLev1, uCheckLev2, uCheckLev3,uCheckLev4 |
./pkg/openad/openad_checkpointInit.F |
20 |
OPENAD_CHECKPOINTINIT |
uCheckLev1=0 |
./pkg/openad/openad_checkpointInit.F |
4 |
OPENAD_CHECKPOINTINIT |
SUBROUTINE OPENAD_CHECKPOINTINIT(uCheckLev1, |
./pkg/openad/openad_checkpointInit.F |
62 |
OPENAD_CHECKPOINTINIT |
uCheckLev1=0 |
./pkg/openad/openad_checkpointInit.F |
66 |
OPENAD_CHECKPOINTINIT |
uCheckLev1=nCheckLev1 |
./pkg/openad/openad_checkpointInit.F |
70 |
OPENAD_CHECKPOINTINIT |
if ( uCheckLev3*uCheckLev2*uCheckLev1 .eq. 0) then |
./pkg/openad/openad_checkpointInit.F |
77 |
OPENAD_CHECKPOINTINIT |
if ( uCheckLev2*uCheckLev1 .eq. 0) then |
./pkg/openad/openad_checkpointInit.F |
84 |
OPENAD_CHECKPOINTINIT |
if ( uCheckLev1 .eq. 0) then |
./pkg/openad/openad_checkpointInit.F |
90 |
OPENAD_CHECKPOINTINIT |
if (uCheckLev1 .eq. 0 ) then |
./pkg/openad/openad_checkpointInit.F |
97 |
OPENAD_CHECKPOINTINIT |
if (nTimeSteps .lt. uCheckLev1 ) then |
./pkg/openad/openad_checkpointInit.F |
98 |
OPENAD_CHECKPOINTINIT |
uCheckLev1=nTimeSteps |