File |
Line number |
Procedure |
Code |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
154 |
DO_FIZHI |
_RL term1,term2,thetalim,thetaeq,recip_p0g |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
183 |
DO_FIZHI |
term1=60. _d 0*(sin(lats(I,J,bi,bj)*deg2rad)**2) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
188 |
DO_FIZHI |
thetaEq=315. _d 0-term1-term2 |
./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 |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
./verification/hs94.128x64x5/code/external_forcing.F |
198 |
EXTERNAL_FORCING_T |
thetaEq=315. _d 0-term1-term2 |
./verification/hs94.1x64x5/code/apply_forcing.F |
248 |
APPLY_FORCING_T |
_RL thetaLim, kT, ka, ks, sigma_b, term1, term2, thetaEq |
./verification/hs94.1x64x5/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
./verification/hs94.1x64x5/code/apply_forcing.F |
263 |
APPLY_FORCING_T |
thetaEq = 315. _d 0 - term1 - term2 |
./verification/hs94.1x64x5/code/ini_theta.F |
53 |
INI_THETA |
_RL term1,term2,thetaLim,thetaEq |
./verification/hs94.1x64x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
./verification/hs94.1x64x5/code/ini_theta.F |
72 |
INI_THETA |
thetaEq=315. _d 0-term1-term2 |
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
248 |
APPLY_FORCING_T |
_RL thetaLim, kT, ka, ks, sigma_b, term1, term2, thetaEq |
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
263 |
APPLY_FORCING_T |
thetaEq = 315. _d 0 - term1 - term2 |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
53 |
INI_THETA |
_RL term1,term2,thetaLim,thetaEq |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
72 |
INI_THETA |
thetaEq=315. _d 0-term1-term2 |
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
248 |
APPLY_FORCING_T |
_RL thetaLim, kT, ka, ks, sigma_b, term1, term2, thetaEq |
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
263 |
APPLY_FORCING_T |
thetaEq = 315. _d 0 - term1 - term2 |
./verification/hs94.1x64x5/code_oad/ini_theta.F |
53 |
INI_THETA |
_RL term1,term2,thetaLim,thetaEq |
./verification/hs94.1x64x5/code_oad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
./verification/hs94.1x64x5/code_oad/ini_theta.F |
72 |
INI_THETA |
thetaEq=315. _d 0-term1-term2 |
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
248 |
APPLY_FORCING_T |
_RL thetaLim, kT, ka, ks, sigma_b, term1, term2, thetaEq |
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
263 |
APPLY_FORCING_T |
thetaEq = 315. _d 0 - term1 - term2 |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
53 |
INI_THETA |
_RL term1,term2,thetaLim,thetaEq |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
72 |
INI_THETA |
thetaEq=315. _d 0-term1-term2 |
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
248 |
APPLY_FORCING_T |
_RL thetaLim, kT, ka, ks, sigma_b, term1, term2, thetaEq |
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
263 |
APPLY_FORCING_T |
thetaEq = 315. _d 0 - term1 - term2 |