| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
152 |
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 |
162 |
DO_FIZHI |
ka=1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
189 |
DO_FIZHI |
kT=ka+(ks-ka) |
|
./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 |
188 |
EXTERNAL_FORCING_T |
ka=1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
201 |
EXTERNAL_FORCING_T |
kT=ka+(ks-ka) |
|
./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 |
188 |
EXTERNAL_FORCING_T |
ka=1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
201 |
EXTERNAL_FORCING_T |
kT=ka+(ks-ka) |
|
./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 |
188 |
EXTERNAL_FORCING_T |
ka=1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
201 |
EXTERNAL_FORCING_T |
kT=ka+(ks-ka) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
217 |
EXTERNAL_FORCING_T |
_RL thetaLim,kT,ka,ks,sigma_b,term1,term2,thetaEq |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
221 |
EXTERNAL_FORCING_T |
ka=1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
250 |
EXTERNAL_FORCING_T |
kT=ka+(ks-ka) |
|
./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 |
188 |
EXTERNAL_FORCING_T |
ka=1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
201 |
EXTERNAL_FORCING_T |
kT=ka+(ks-ka) |
|
./model/src/rotate_spherical_polar_grid.F |
121 |
ROTATE_SPHERICAL_POLAR_GRID |
DO ka=1,3 |
|
./model/src/rotate_spherical_polar_grid.F |
122 |
ROTATE_SPHERICAL_POLAR_GRID |
CB (ia,ja) = CB (ia,ja) + Cinv(ia,ka)*Binv(ka,ja) |
|
./model/src/rotate_spherical_polar_grid.F |
128 |
ROTATE_SPHERICAL_POLAR_GRID |
DO ka=1,3 |
|
./model/src/rotate_spherical_polar_grid.F |
129 |
ROTATE_SPHERICAL_POLAR_GRID |
Ainv(ia,ja) = Ainv(ia,ja) + Dinv(ia,ka)*CB(ka,ja) |