| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
176 |
DO_FIZHI |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
177 |
DO_FIZHI |
duphy(i,j,L,bi,bj)= -kV*uphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
178 |
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/external_forcing.F |
117 |
EXTERNAL_FORCING_V |
_RL recip_P0g, termP, kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code/external_forcing.F |
131 |
EXTERNAL_FORCING_V |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
49 |
EXTERNAL_FORCING_U |
_RL recip_P0g, termP, kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code/external_forcing.F |
63 |
EXTERNAL_FORCING_U |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
117 |
EXTERNAL_FORCING_V |
_RL recip_P0g, termP, kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
131 |
EXTERNAL_FORCING_V |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
49 |
EXTERNAL_FORCING_U |
_RL recip_P0g, termP, kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
63 |
EXTERNAL_FORCING_U |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
135 |
EXTERNAL_FORCING_V |
_RL kV, kF, sigma_b |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
163 |
EXTERNAL_FORCING_V |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
165 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
51 |
EXTERNAL_FORCING_U |
_RL kV, kF, sigma_b |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
79 |
EXTERNAL_FORCING_U |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
81 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
117 |
EXTERNAL_FORCING_V |
_RL recip_P0g, termP, kV, kF, sigma_b |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
131 |
EXTERNAL_FORCING_V |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
49 |
EXTERNAL_FORCING_U |
_RL recip_P0g, termP, kV, kF, sigma_b |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
63 |
EXTERNAL_FORCING_U |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |