| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
110 |
OPPS_CALC |
_RL Ad(Nr),Wd(Nr),Dd(Nr),Md(Nr) |
|
./pkg/opps/opps_calc.F |
135 |
OPPS_CALC |
Dd(k)=state1(Pd(k,2),Pd(k,1),i,j,k,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
136 |
OPPS_CALC |
De(k)=Dd(k) |
|
./pkg/opps/opps_calc.F |
170 |
OPPS_CALC |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
|
./pkg/opps/opps_calc.F |
193 |
OPPS_CALC |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)* |
|
./pkg/opps/opps_calc.F |
232 |
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 |
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 |
280 |
OPPS_CALC |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |
|
./pkg/opps/opps_calc.F |
757 |
NLOPPS |
REAL Ad(km),Sd(km),Td(km),Wd(km),Dd(km),Md(km) |
|
./pkg/opps/opps_calc.F |
840 |
NLOPPS |
Dd(k)=state1(stemp(k),ttemp(k),k) |
|
./pkg/opps/opps_calc.F |
841 |
NLOPPS |
De(k)=Dd(k) |
|
./pkg/opps/opps_calc.F |
861 |
NLOPPS |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
|
./pkg/opps/opps_calc.F |
880 |
NLOPPS |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50* |
|
./pkg/opps/opps_calc.F |
917 |
NLOPPS |
Dd(k2+1)=state1(Sd(k2+1),Td(k2+1),k2+1) |
|
./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/opps/opps_calc.F |
944 |
NLOPPS |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |