| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
175 |
DO_FIZHI |
termP=0.5 _d 0*((pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj)) |
|
./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 |
184 |
DO_FIZHI |
termP=0.5 _d 0*( pephy(i,j,L,bi,bj) + pephy(i,j,L+1,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
185 |
DO_FIZHI |
term2=10. _d 0*log(termP/atm_po) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
187 |
DO_FIZHI |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
192 |
DO_FIZHI |
& (termP*recip_P0g-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
194 |
DO_FIZHI |
if(termP*recip_P0g.gt.0.04)then |
|
./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 |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _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 |
185 |
EXTERNAL_FORCING_T |
_RL thetaLim,kT,ka,ks,sigma_b,term1,term2,thetaEq,termP |
|
./verification/hs94.128x64x5/code/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
195 |
EXTERNAL_FORCING_T |
term2=10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
197 |
EXTERNAL_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
200 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-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 |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _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 |
155 |
APPLY_FORCING_V |
_RL recip_P0g, termP, rFullDepth |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
181 |
APPLY_FORCING_V |
termP = aHybSigmC(k)*rFullDepth |
|
./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 |
249 |
APPLY_FORCING_T |
_RL termP, rFullDepth |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
260 |
APPLY_FORCING_T |
term2 = 10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
262 |
APPLY_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
278 |
APPLY_FORCING_T |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
62 |
APPLY_FORCING_U |
_RL recip_P0g, termP, rFullDepth |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
88 |
APPLY_FORCING_U |
termP = aHybSigmC(k)*rFullDepth |
|
./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 |
155 |
APPLY_FORCING_V |
_RL recip_P0g, termP, rFullDepth |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
181 |
APPLY_FORCING_V |
termP = aHybSigmC(k)*rFullDepth |
|
./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 |
249 |
APPLY_FORCING_T |
_RL termP, rFullDepth |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
260 |
APPLY_FORCING_T |
term2 = 10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
262 |
APPLY_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
278 |
APPLY_FORCING_T |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
62 |
APPLY_FORCING_U |
_RL recip_P0g, termP, rFullDepth |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
88 |
APPLY_FORCING_U |
termP = aHybSigmC(k)*rFullDepth |
|
./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 |
155 |
APPLY_FORCING_V |
_RL recip_P0g, termP, rFullDepth |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
181 |
APPLY_FORCING_V |
termP = aHybSigmC(k)*rFullDepth |
|
./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 |
249 |
APPLY_FORCING_T |
_RL termP, rFullDepth |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
260 |
APPLY_FORCING_T |
term2 = 10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
262 |
APPLY_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
278 |
APPLY_FORCING_T |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
62 |
APPLY_FORCING_U |
_RL recip_P0g, termP, rFullDepth |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
88 |
APPLY_FORCING_U |
termP = aHybSigmC(k)*rFullDepth |
|
./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 |
155 |
APPLY_FORCING_V |
_RL recip_P0g, termP, rFullDepth |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
181 |
APPLY_FORCING_V |
termP = aHybSigmC(k)*rFullDepth |
|
./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 |
249 |
APPLY_FORCING_T |
_RL termP, rFullDepth |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
260 |
APPLY_FORCING_T |
term2 = 10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
262 |
APPLY_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
278 |
APPLY_FORCING_T |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
62 |
APPLY_FORCING_U |
_RL recip_P0g, termP, rFullDepth |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
88 |
APPLY_FORCING_U |
termP = aHybSigmC(k)*rFullDepth |
|
./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 |
155 |
APPLY_FORCING_V |
_RL recip_P0g, termP, rFullDepth |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
181 |
APPLY_FORCING_V |
termP = aHybSigmC(k)*rFullDepth |
|
./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 |
249 |
APPLY_FORCING_T |
_RL termP, rFullDepth |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
260 |
APPLY_FORCING_T |
term2 = 10. _d 0*LOG(termP/atm_po) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
262 |
APPLY_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
278 |
APPLY_FORCING_T |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
62 |
APPLY_FORCING_U |
_RL recip_P0g, termP, rFullDepth |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
88 |
APPLY_FORCING_U |
termP = aHybSigmC(k)*rFullDepth |
|
./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) ) |