| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1407 |
IRRAD |
trant(i,j)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1421 |
IRRAD |
* w1,p1,dwe,dpe,h11,h12,h13,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1425 |
IRRAD |
* w1,p1,dwe,dpe,h21,h22,h23,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1430 |
IRRAD |
* w1,p1,dwe,dpe,h81,h82,h83,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1439 |
IRRAD |
* th2o,tcon,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1455 |
IRRAD |
* w1,p1,dwe,dpe,c1,c2,c3,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1460 |
IRRAD |
call CO2KDIS(m,n,np,k2-1,co2exp,tco2,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1474 |
IRRAD |
* w1,p1,dwe,dpe,o1,o2,o3,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1485 |
IRRAD |
call N2OKDIS(ib,m,n,np,k2-1,n2oexp,tn2o,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1491 |
IRRAD |
call CH4KDIS(ib,m,n,np,k2-1,ch4exp,tch4,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1497 |
IRRAD |
call COMKDIS(ib,m,n,np,k2-1,comexp,tcom,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1503 |
IRRAD |
call CFCKDIS(m,n,np,k2-1,f11exp,tf11,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1509 |
IRRAD |
call CFCKDIS(m,n,np,k2-1,f12exp,tf12,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1515 |
IRRAD |
call CFCKDIS(m,n,np,k2-1,f22exp,tf22,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1523 |
IRRAD |
* ,th2o,tcon,tco2,tn2o,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1536 |
IRRAD |
trant (i,j)=trant(i,j) *tranal(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1591 |
IRRAD |
xx=trant(i,j)*dlayer(i,j,k2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1594 |
IRRAD |
xx=trant(i,j)*dlayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1608 |
IRRAD |
rflx(i,j,k1) = rflx(i,j,k1)+trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1610 |
IRRAD |
rflx(i,j,k2) = rflx(i,j,k2)+trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1612 |
IRRAD |
rflc(i,j,k1) = rflc(i,j,k1)+trant(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1614 |
IRRAD |
rflc(i,j,k2) = rflc(i,j,k2)+trant(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1630 |
IRRAD |
trantcr(i,j,k1) =trant(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1631 |
IRRAD |
transfc(i,j,k1) =trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
607 |
IRRAD |
_RL trant(m,n),tranal(m,n),transfc(m,n,np+1),trantcr(m,n,np+1) |