| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
116 |
OPPS_CALC |
_RL Ad(Nr),Wd(Nr),Dd(Nr),Md(Nr) |
|
./pkg/opps/opps_calc.F |
139 |
OPPS_CALC |
Dd(k)=STATE1(Pd(k,2),Pd(k,1),i,j,k,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
140 |
OPPS_CALC |
De(k)=Dd(k) |
|
./pkg/opps/opps_calc.F |
172 |
OPPS_CALC |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
|
./pkg/opps/opps_calc.F |
195 |
OPPS_CALC |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)* |
|
./pkg/opps/opps_calc.F |
233 |
OPPS_CALC |
Dd(k2+1)=STATE1(Pd(k2+1,2),Pd(k2+1,1),i,j,k2+1,bi,bj,myThid) |
|
./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 |
281 |
OPPS_CALC |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |
|
./pkg/opps/opps_calc.F |
600 |
NLOPPS |
REAL Ad(km),Sd(km),Td(km),Wd(km),Dd(km),Md(km) |
|
./pkg/opps/opps_calc.F |
678 |
NLOPPS |
Dd(k)=state1(stemp(k),ttemp(k),k) |
|
./pkg/opps/opps_calc.F |
679 |
NLOPPS |
De(k)=Dd(k) |
|
./pkg/opps/opps_calc.F |
697 |
NLOPPS |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
|
./pkg/opps/opps_calc.F |
716 |
NLOPPS |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50* |
|
./pkg/opps/opps_calc.F |
749 |
NLOPPS |
Dd(k2+1)=state1(Sd(k2+1),Td(k2+1),k2+1) |
|
./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/opps/opps_calc.F |
776 |
NLOPPS |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |