| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
153 |
DO_FIZHI |
_RL kF,sigma_b,ks,ka,deg2rad,pi,atm_po,atm_kappa,termp,kv,kT |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
161 |
DO_FIZHI |
kF=1. _d 0/86400. _d 0 |
|
./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/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 |
120 |
EXTERNAL_FORCING_V |
kF=1. _d 0/86400. _d 0 |
|
./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 |
49 |
EXTERNAL_FORCING_U |
_RL recip_P0g, termP, kV, kF, sigma_b |
|
./verification/hs94.128x64x5/code/external_forcing.F |
52 |
EXTERNAL_FORCING_U |
kF=1. _d 0/86400. _d 0 |
|
./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.1x64x5/code/apply_forcing.F |
156 |
APPLY_FORCING_V |
_RL kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
159 |
APPLY_FORCING_V |
kF = 1. _d 0/86400. _d 0 |
|
./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 |
63 |
APPLY_FORCING_U |
_RL kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
66 |
APPLY_FORCING_U |
kF = 1. _d 0/86400. _d 0 |
|
./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_ad/apply_forcing.F |
156 |
APPLY_FORCING_V |
_RL kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
159 |
APPLY_FORCING_V |
kF = 1. _d 0/86400. _d 0 |
|
./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 |
63 |
APPLY_FORCING_U |
_RL kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
66 |
APPLY_FORCING_U |
kF = 1. _d 0/86400. _d 0 |
|
./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_oad/apply_forcing.F |
156 |
APPLY_FORCING_V |
_RL kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
159 |
APPLY_FORCING_V |
kF = 1. _d 0/86400. _d 0 |
|
./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 |
63 |
APPLY_FORCING_U |
_RL kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
66 |
APPLY_FORCING_U |
kF = 1. _d 0/86400. _d 0 |
|
./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.cs-32x32x5/code/apply_forcing.F |
156 |
APPLY_FORCING_V |
_RL kV, kF, sigma_b |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
159 |
APPLY_FORCING_V |
kF = 1. _d 0/86400. _d 0 |
|
./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 |
63 |
APPLY_FORCING_U |
_RL kV, kF, sigma_b |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
66 |
APPLY_FORCING_U |
kF = 1. _d 0/86400. _d 0 |
|
./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/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 |
159 |
APPLY_FORCING_V |
kF = 1. _d 0/86400. _d 0 |
|
./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 |
63 |
APPLY_FORCING_U |
_RL kV, kF, sigma_b |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
66 |
APPLY_FORCING_U |
kF = 1. _d 0/86400. _d 0 |
|
./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) ) |