| 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 |
72 |
NO PROCEDURE |
_RL gamma, kappa, De |
|
./pkg/ebm/ebm_atmosphere.F |
168 |
EBM_ATMOSPHERE |
De = Hw/(0.48 _d 0 + 1.48 _d 0 *gamma) |
|
./pkg/ebm/ebm_atmosphere.F |
172 |
EBM_ATMOSPHERE |
& ( 1. _d 0 /(1. _d 0 /Hw + 1. _d 0 /De) |
|
./pkg/ebm/ebm_atmosphere.F |
173 |
EBM_ATMOSPHERE |
& -1. _d 0 /(1. _d 0 /Hw+1. _d 0 /De+1. _d 0 /dz) ) |
|
./pkg/ebm/ebm_atmosphere.F |
175 |
EBM_ATMOSPHERE |
& 1. _d 0/(1. _d 0/De + (5420. _d 0*tau /(T35(no_so)**2))) |
|
./pkg/ebm/ebm_atmosphere.F |
176 |
EBM_ATMOSPHERE |
& -1. _d 0/(1. _d 0/De+5420. _d 0*tau/(T35(no_so)**2) |