| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
729 |
OBCS_STEVENS_CALC_TRACER_EAST |
dTracSpace = (tracer(I-1,J,K,bi,bj)-tracer(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
733 |
OBCS_STEVENS_CALC_TRACER_EAST |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
735 |
OBCS_STEVENS_CALC_TRACER_EAST |
& MAX( 0.D0, -cflMer(J,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
811 |
OBCS_STEVENS_CALC_TRACER_WEST |
dTracSpace = (tracer(I+2,J,K,bi,bj)-tracer(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
815 |
OBCS_STEVENS_CALC_TRACER_WEST |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
817 |
OBCS_STEVENS_CALC_TRACER_WEST |
& MIN( 0.D0, -cflMer(J,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
893 |
OBCS_STEVENS_CALC_TRACER_NORTH |
dTracSpace = (tracer(I,J-1,K,bi,bj)-tracer(I,J-2,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
897 |
OBCS_STEVENS_CALC_TRACER_NORTH |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
899 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& MAX( 0.D0, -cflZon(I,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
974 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
dTracSpace = (tracer(I,J+2,K,bi,bj)-tracer(I,J+1,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
978 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
980 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& MIN( 0.D0, -cflZon(I,K)*dTracTime/dTracSpace ) |