| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1160 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
1237 |
SOLIR |
_RL wh(m,n,np),taual(m,ndim,np),csm(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1422 |
SOLIR |
td1t(i,j)=expmn(-tauto*csm(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1448 |
SOLIR |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./pkg/fizhi/fizhi_swrad.F |
1570 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
1659 |
SOLUV |
_RL rsuvbm(m,ndim),rsuvdf(m,ndim),csm(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1802 |
SOLUV |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./pkg/fizhi/fizhi_swrad.F |
1824 |
SOLUV |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./pkg/fizhi/fizhi_swrad.F |
1948 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./pkg/fizhi/fizhi_swrad.F |
1989 |
DELEDD |
_RL tau,ssc,g0,csm |
|
./pkg/fizhi/fizhi_swrad.F |
1999 |
DELEDD |
zth = one / csm |
|
./pkg/fizhi/fizhi_swrad.F |
2013 |
DELEDD |
td = expmn(-taup*csm) |
|
./pkg/fizhi/fizhi_swrad.F |
2502 |
FLXCO2 |
subroutine FLXCO2(m,n,np,swc,swh,csm,df) |
|
./pkg/fizhi/fizhi_swrad.F |
2514 |
FLXCO2 |
_RL csm(m,n),swc(m,n,np+1),swh(m,n,np+1),cah(22,19) |
|
./pkg/fizhi/fizhi_swrad.F |
2540 |
FLXCO2 |
clog1=log10(swc(i,j,k)*csm(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
2541 |
FLXCO2 |
wlog=log10(swh(i,j,k)*csm(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
791 |
SORAD |
_RL sdf(m,n),sclr(m,n),csm(m,n),x |
|
./pkg/fizhi/fizhi_swrad.F |
804 |
SORAD |
csm(i,j)=35./sqrt(1224.*cosz(i,j)*cosz(i,j)+1.) |
|
./pkg/fizhi/fizhi_swrad.F |
860 |
SORAD |
* ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
865 |
SORAD |
* ,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
885 |
SORAD |
x=so2(i,j,k)*csm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
904 |
SORAD |
call FLXCO2(m,n,np,so2,swh,csm,df) |