File |
Line number |
Procedure |
Code |
./pkg/kpp/kpp_output.F |
390 |
KPP_OUTPUT |
tmpLoc(i,j,1) = 0. _d 0 |
./pkg/kpp/kpp_output.F |
396 |
KPP_OUTPUT |
tmpLoc(i,j,k) = KPPghat(i,j,k-1,bi,bj)* |
./pkg/kpp/kpp_output.F |
405 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(tmpLoc,'KPPghatK',0,Nr,3,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
97 |
KPP_OUTPUT |
_RL tmpLoc(1:sNx,1:sNy,Nr) |
./pkg/atm_compon_interf/cpl_readparms.F |
208 |
CPL_READPARMS |
tmpLoc = NINT( cpl_atmSendFrq / deltaTClock ) |
./pkg/atm_compon_interf/cpl_readparms.F |
209 |
CPL_READPARMS |
tmpLoc = ABS( tmpLoc - ( cpl_atmSendFrq / deltaTClock ) ) |
./pkg/atm_compon_interf/cpl_readparms.F |
210 |
CPL_READPARMS |
IF ( tmpLoc.GT.1. _d -12 .OR. cpl_atmSendFrq.EQ.zeroRL ) THEN |
./pkg/atm_compon_interf/cpl_readparms.F |
52 |
CPL_READPARMS |
_RL cpl_atmSendFrq, tmpLoc |
./pkg/diagnostics/diagnostics_out.F |
133 |
DIAGNOSTICS_OUT |
tmpLoc = FLOAT(i) |
./pkg/diagnostics/diagnostics_out.F |
134 |
DIAGNOSTICS_OUT |
IF ( timeRec(1).NE.tmpLoc ) i = i - 1 |
./pkg/diagnostics/diagnostics_out.F |
144 |
DIAGNOSTICS_OUT |
tmpLoc = FLOAT(i) - 0.5 _d 0 |
./pkg/diagnostics/diagnostics_out.F |
145 |
DIAGNOSTICS_OUT |
IF ( timeRec(1).EQ.tmpLoc ) i = i - 1 |
./pkg/diagnostics/diagnostics_out.F |
81 |
DIAGNOSTICS_OUT |
_RL tmpLoc |