| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2516 |
FLXCO2 |
_RL xx,clog1,wlog,dc,dw,x1,x2,y2 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2545 |
FLXCO2 |
y2=x2+(cah(ic,iw-1)-cah(ic-1,iw-1))*xx*dc |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2546 |
FLXCO2 |
if (x1.lt.y2) x1=y2 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2547 |
FLXCO2 |
df(i,j,k)=df(i,j,k)+0.0343*(x1-y2) |
|
./pkg/fizhi/fizhi_swrad.F |
2515 |
FLXCO2 |
_RL xx,clog1,wlog,dc,dw,x1,x2,y2 |
|
./pkg/fizhi/fizhi_swrad.F |
2544 |
FLXCO2 |
y2=x2+(cah(ic,iw-1)-cah(ic-1,iw-1))*xx*dc |
|
./pkg/fizhi/fizhi_swrad.F |
2545 |
FLXCO2 |
if (x1.lt.y2) x1=y2 |
|
./pkg/fizhi/fizhi_swrad.F |
2546 |
FLXCO2 |
df(i,j,k)=df(i,j,k)+0.0343*(x1-y2) |
|
./pkg/exf/exf_set_uv.F |
181 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
186 |
EXF_SET_UV |
dy=0.5*(y3+y4-y1-y2) |
|
./pkg/exf/exf_set_uv.F |
191 |
EXF_SET_UV |
dy=0.5*(y2+y4-y1-y3) |
|
./pkg/exf/exf_set_uv.F |
272 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
277 |
EXF_SET_UV |
dy=0.5*(y3+y4-y1-y2) |
|
./pkg/exf/exf_set_uv.F |
282 |
EXF_SET_UV |
dy=0.5*(y2+y4-y1-y3) |
|
./pkg/exf/exf_set_uv.F |
89 |
EXF_SET_UV |
_RL fac, x1, x2, x3, x4, y1, y2, y3, y4, dx, dy |