| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
117 |
OPPS_CALC |
_RL De(Nr) |
|
./pkg/opps/opps_calc.F |
140 |
OPPS_CALC |
De(k)=Dd(k) |
|
./pkg/opps/opps_calc.F |
180 |
OPPS_CALC |
De(k2+1)=D2 |
|
./pkg/opps/opps_calc.F |
241 |
OPPS_CALC |
& 'S/R OPPS_CALC: Dd,De,entr,k ',Dd(k2),De(k2),entrainrate,k2 |
|
./pkg/opps/opps_calc.F |
248 |
OPPS_CALC |
& (dz1*(Dd(k2)-De(k2))/De(k2) |
|
./pkg/opps/opps_calc.F |
249 |
OPPS_CALC |
& +dz2*(Dd(k2+1)-De(k2+1))/De(k2+1)) |
|
./pkg/opps/opps_calc.F |
268 |
OPPS_CALC |
& (Dd(k2)-De(k2))/De(k2), (Dd(k2+1)-De(k2+1))/De(k2+1) |
|
./pkg/opps/opps_calc.F |
601 |
NLOPPS |
REAL Se(km),Te(km),We(km),De(km) |
|
./pkg/opps/opps_calc.F |
679 |
NLOPPS |
De(k)=Dd(k) |
|
./pkg/opps/opps_calc.F |
704 |
NLOPPS |
De(k2+1)=D2 |
|
./pkg/opps/opps_calc.F |
755 |
NLOPPS |
write(0,*)"Dd,De,entr,k ",Dd(k2),De(k2),entrainrate,k2 |
|
./pkg/opps/opps_calc.F |
759 |
NLOPPS |
. (dz1*(Dd(k2)-De(k2))/De(k2) |
|
./pkg/opps/opps_calc.F |
760 |
NLOPPS |
. +dz2*(Dd(k2+1)-De(k2+1))/De(k2+1)) |
|
./pkg/ebm/ebm_atmosphere.F |
190 |
EBM_ATMOSPHERE |
De = Hw/(0.48 _d 0 + 1.48 _d 0 *gamma) |
|
./pkg/ebm/ebm_atmosphere.F |
194 |
EBM_ATMOSPHERE |
& ( 1. _d 0 /(1. _d 0 /Hw + 1. _d 0 /De) |
|
./pkg/ebm/ebm_atmosphere.F |
195 |
EBM_ATMOSPHERE |
& -1. _d 0 /(1. _d 0 /Hw+1. _d 0 /De+1. _d 0 /dz) ) |
|
./pkg/ebm/ebm_atmosphere.F |
197 |
EBM_ATMOSPHERE |
& 1. _d 0/(1. _d 0/De + (5420. _d 0*tau /(T35(no_so)**2))) |
|
./pkg/ebm/ebm_atmosphere.F |
198 |
EBM_ATMOSPHERE |
& -1. _d 0/(1. _d 0/De+5420. _d 0*tau/(T35(no_so)**2) |
|
./pkg/ebm/ebm_atmosphere.F |
82 |
EBM_ATMOSPHERE |
_RL gamma, kappa, De |