| 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 |