| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
174 |
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 |
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 |
183 |
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 |
184 |
DO_FIZHI |
term2=10. _d 0*log(termP/atm_po) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
186 |
DO_FIZHI |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
191 |
DO_FIZHI |
& (termP*recip_P0g-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
193 |
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/external_forcing.F |
117 |
EXTERNAL_FORCING_V |
_RL recip_P0g, termP, kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code/external_forcing.F |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./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 |
185 |
EXTERNAL_FORCING_T |
_RL thetaLim,kT,ka,ks,sigma_b,term1,term2,thetaEq,termP |
|
./verification/hs94.1x64x5/code/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
195 |
EXTERNAL_FORCING_T |
term2=10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
197 |
EXTERNAL_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/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.1x64x5/code/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./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 |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./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_ad/external_forcing.F |
117 |
EXTERNAL_FORCING_V |
_RL recip_P0g, termP, kV, kF, sigma_b |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./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 |
185 |
EXTERNAL_FORCING_T |
_RL thetaLim,kT,ka,ks,sigma_b,term1,term2,thetaEq,termP |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
195 |
EXTERNAL_FORCING_T |
term2=10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
197 |
EXTERNAL_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code_ad/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.1x64x5/code_ad/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./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 |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./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.cs-32x32x5/code/external_forcing.F |
134 |
EXTERNAL_FORCING_V |
_RL recip_P0g, termP, rFullDepth |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
148 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
159 |
EXTERNAL_FORCING_V |
termP = aHybSigmC(kLev)*rFullDepth |
|
./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 |
218 |
EXTERNAL_FORCING_T |
_RL termP, rFullDepth |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
228 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
229 |
EXTERNAL_FORCING_T |
term2=10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
231 |
EXTERNAL_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
235 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
246 |
EXTERNAL_FORCING_T |
termP = aHybSigmC(kLev)*rFullDepth |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
251 |
EXTERNAL_FORCING_T |
& *MAX(0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
50 |
EXTERNAL_FORCING_U |
_RL recip_P0g, termP, rFullDepth |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
75 |
EXTERNAL_FORCING_U |
termP = aHybSigmC(kLev)*rFullDepth |
|
./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/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 |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./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 |
185 |
EXTERNAL_FORCING_T |
_RL thetaLim,kT,ka,ks,sigma_b,term1,term2,thetaEq,termP |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
195 |
EXTERNAL_FORCING_T |
term2=10. _d 0*LOG(termP/atm_po) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
197 |
EXTERNAL_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/tutorial_held_suarez_cs/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/tutorial_held_suarez_cs/code/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./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 |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./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) ) |