| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
252 |
OBCS_CALC_STEVENS |
dTracSpace = (theta(I-1,J,K,bi,bj)-theta(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
256 |
OBCS_CALC_STEVENS |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
258 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cflMer(J,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
270 |
OBCS_CALC_STEVENS |
dTracSpace = (salt(I-1,J,K,bi,bj)-salt(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
274 |
OBCS_CALC_STEVENS |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
276 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cflMer(J,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
390 |
OBCS_CALC_STEVENS |
dTracSpace = (theta(I+2,J,K,bi,bj)-theta(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
394 |
OBCS_CALC_STEVENS |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
396 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cflMer(J,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
408 |
OBCS_CALC_STEVENS |
dTracSpace = (salt(I+2,J,K,bi,bj)-salt(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
412 |
OBCS_CALC_STEVENS |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
414 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cflMer(J,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
527 |
OBCS_CALC_STEVENS |
dTracSpace = (theta(I,J-1,K,bi,bj)-theta(I,J-2,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
531 |
OBCS_CALC_STEVENS |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
533 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cflZon(I,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
545 |
OBCS_CALC_STEVENS |
dTracSpace = (salt(I,J-1,K,bi,bj)-salt(I,J-2,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
549 |
OBCS_CALC_STEVENS |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
551 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cflZon(I,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
665 |
OBCS_CALC_STEVENS |
dTracSpace = (theta(I,J+2,K,bi,bj)-theta(I,J+1,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
669 |
OBCS_CALC_STEVENS |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
671 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cflZon(I,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
683 |
OBCS_CALC_STEVENS |
dTracSpace = (salt(I,J+2,K,bi,bj)-salt(I,J+1,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
687 |
OBCS_CALC_STEVENS |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
689 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cflZon(I,K)*dTracTime/dTracSpace ) |