| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
205 |
OBCS_CALC_STEVENS |
dTracSpace = (theta(I-1,J,K,bi,bj)-theta(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
208 |
OBCS_CALC_STEVENS |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
212 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gtNm(I-1,J,K,bi,bj,1)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
214 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gtNm1(I-1,J,K,bi,bj)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
238 |
OBCS_CALC_STEVENS |
dTracSpace = (salt(I-1,J,K,bi,bj)-salt(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
241 |
OBCS_CALC_STEVENS |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
245 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gsNm(I-1,J,K,bi,bj,1)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
247 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gsNm1(I-1,J,K,bi,bj)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
352 |
OBCS_CALC_STEVENS |
dTracSpace = (theta(I+2,J,K,bi,bj)-theta(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
355 |
OBCS_CALC_STEVENS |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
359 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gtNm(I+1,J,K,bi,bj,1)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
361 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gtNm1(I+1,J,K,bi,bj)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
385 |
OBCS_CALC_STEVENS |
dTracSpace = (salt(I+2,J,K,bi,bj)-salt(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
388 |
OBCS_CALC_STEVENS |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
392 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gsNm(I+1,J,K,bi,bj,1)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
394 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gsNm1(I+1,J,K,bi,bj)/dTracSpace ) |