| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
346 |
IRRAD |
subroutine IRRAD (m,n,ndim,np,pl,ta,wa,oa,ts,co2, |
|
./pkg/fizhi/fizhi_lwrad.F |
569 |
IRRAD |
_RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np), |
|
./pkg/fizhi/fizhi_lwrad.F |
914 |
IRRAD |
dh2o (i,j,k) = 1.02*wa(i,j,k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
926 |
IRRAD |
xx=pa(i,j,k)*0.001618*wa(i,j,k)*wa(i,j,k)*dp |
|
./pkg/fizhi/fizhi_swrad.F |
665 |
SORAD |
subroutine SORAD(m,n,ndim,np,pl,ta,wa,oa,co2, |
|
./pkg/fizhi/fizhi_swrad.F |
772 |
SORAD |
_RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
823 |
SORAD |
wh(i,j,k)=1.02*wa(i,j,k)*scal(i,j,k)* |