| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
177 |
DO_FIZHI |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
178 |
DO_FIZHI |
duphy(i,j,L,bi,bj)= -kV*uphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
179 |
DO_FIZHI |
dvphy(i,j,L,bi,bj)= -kV*vphy(i,j,L,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
117 |
EXTERNAL_FORCING_V |
_RL recip_P0g, termP, kV, kF, sigma_b |
|
./verification/hs94.128x64x5/code/external_forcing.F |
131 |
EXTERNAL_FORCING_V |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
49 |
EXTERNAL_FORCING_U |
_RL recip_P0g, termP, kV, kF, sigma_b |
|
./verification/hs94.128x64x5/code/external_forcing.F |
63 |
EXTERNAL_FORCING_U |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
156 |
APPLY_FORCING_V |
_RL kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
63 |
APPLY_FORCING_U |
_RL kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
156 |
APPLY_FORCING_V |
_RL kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
63 |
APPLY_FORCING_U |
_RL kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
156 |
APPLY_FORCING_V |
_RL kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
63 |
APPLY_FORCING_U |
_RL kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
156 |
APPLY_FORCING_V |
_RL kV, kF, sigma_b |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
63 |
APPLY_FORCING_U |
_RL kV, kF, sigma_b |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
156 |
APPLY_FORCING_V |
_RL kV, kF, sigma_b |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
63 |
APPLY_FORCING_U |
_RL kV, kF, sigma_b |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |