| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
111 |
OPPS_CALC |
_RL De(Nr) |
|
./pkg/opps/opps_calc.F |
136 |
OPPS_CALC |
De(k)=Dd(k) |
|
./pkg/opps/opps_calc.F |
178 |
OPPS_CALC |
De(k2+1)=D2 |
|
./pkg/opps/opps_calc.F |
240 |
OPPS_CALC |
& 'S/R OPPS_CALC: Dd,De,entr,k ',Dd(k2),De(k2),entrainrate,k2 |
|
./pkg/opps/opps_calc.F |
247 |
OPPS_CALC |
& (dz1*(Dd(k2)-De(k2))/De(k2) |
|
./pkg/opps/opps_calc.F |
248 |
OPPS_CALC |
& +dz2*(Dd(k2+1)-De(k2+1))/De(k2+1)) |
|
./pkg/opps/opps_calc.F |
267 |
OPPS_CALC |
& (Dd(k2)-De(k2))/De(k2), (Dd(k2+1)-De(k2+1))/De(k2+1) |
|
./pkg/opps/opps_calc.F |
758 |
NLOPPS |
REAL Se(km),Te(km),We(km),De(km) |
|
./pkg/opps/opps_calc.F |
841 |
NLOPPS |
De(k)=Dd(k) |
|
./pkg/opps/opps_calc.F |
868 |
NLOPPS |
De(k2+1)=D2 |
|
./pkg/opps/opps_calc.F |
923 |
NLOPPS |
write(0,*)"Dd,De,entr,k ",Dd(k2),De(k2),entrainrate,k2 |
|
./pkg/opps/opps_calc.F |
927 |
NLOPPS |
. (dz1*(Dd(k2)-De(k2))/De(k2) |
|
./pkg/opps/opps_calc.F |
928 |
NLOPPS |
. +dz2*(Dd(k2+1)-De(k2+1))/De(k2+1)) |
|
./pkg/ebm/EBM.h |
69 |
NO PROCEDURE |
_RL gamma, kappa, De |
|
./pkg/ebm/ebm_atmosphere.F |
172 |
EBM_ATMOSPHERE |
De = Hw/(0.48 + 1.48*gamma) |
|
./pkg/ebm/ebm_atmosphere.F |
176 |
EBM_ATMOSPHERE |
< (1/(1/Hw+1/De) - 1/(1/Hw+1/De+1/dz)) |
|
./pkg/ebm/ebm_atmosphere.F |
178 |
EBM_ATMOSPHERE |
< 1/(1/De + (5420*tau /(T35(no_so)**2))) |
|
./pkg/ebm/ebm_atmosphere.F |
179 |
EBM_ATMOSPHERE |
< - 1/(1/De+5420*tau/(T35(no_so)**2)+1/dz)) |