File |
Line number |
Procedure |
Code |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2495 |
FLXCO2 |
subroutine FLXCO2(m,n,np,swc,swh,csm,df) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2507 |
FLXCO2 |
_RL csm(m,n),swc(m,n,np+1),swh(m,n,np+1),cah(22,19) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2534 |
FLXCO2 |
wlog=log10(swh(i,j,k)*csm(i,j)) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
783 |
SORAD |
_RL swh(m,n,np+1),so2(m,n,np+1),df(m,n,np+1) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
791 |
SORAD |
swh(i,j,1)=0. |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
818 |
SORAD |
swh(i,j,k+1)=swh(i,j,k)+wh(i,j,k) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
897 |
SORAD |
call FLXCO2(m,n,np,so2,swh,csm,df) |
./pkg/fizhi/fizhi_swrad.F |
2494 |
FLXCO2 |
subroutine FLXCO2(m,n,np,swc,swh,csm,df) |
./pkg/fizhi/fizhi_swrad.F |
2506 |
FLXCO2 |
_RL csm(m,n),swc(m,n,np+1),swh(m,n,np+1),cah(22,19) |
./pkg/fizhi/fizhi_swrad.F |
2533 |
FLXCO2 |
wlog=log10(swh(i,j,k)*csm(i,j)) |
./pkg/fizhi/fizhi_swrad.F |
782 |
SORAD |
_RL swh(m,n,np+1),so2(m,n,np+1),df(m,n,np+1) |
./pkg/fizhi/fizhi_swrad.F |
790 |
SORAD |
swh(i,j,1)=0. |
./pkg/fizhi/fizhi_swrad.F |
817 |
SORAD |
swh(i,j,k+1)=swh(i,j,k)+wh(i,j,k) |
./pkg/fizhi/fizhi_swrad.F |
896 |
SORAD |
call FLXCO2(m,n,np,so2,swh,csm,df) |