| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1034 |
CLDSCALE |
do k=1,ict-1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1042 |
CLDSCALE |
do k=ict,icb-1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1064 |
CLDSCALE |
if(k.lt.ict) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1066 |
CLDSCALE |
elseif(k.ge.ict .and. k.lt.icb) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1153 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1226 |
SOLIR |
integer m,n,ndim,np,ict,icb |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1531 |
SOLIR |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1563 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1648 |
SOLUV |
integer m,n,ndim,np,ict,icb |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1902 |
SOLUV |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2153 |
CLDFLX |
subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2189 |
CLDFLX |
integer m,n,np,ict,icb |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2251 |
CLDFLX |
do k= 2, ict-1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2272 |
CLDFLX |
do k= ict, icb-1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2325 |
CLDFLX |
do k= icb-1,ict,-1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2431 |
CLDFLX |
do k= ict-1,1,-1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
659 |
SORAD |
* taucld,reff,fcld,ict,icb, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
764 |
SORAD |
integer m,n,ndim,np,ict,icb |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
834 |
SORAD |
call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
852 |
SORAD |
call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
857 |
SORAD |
call SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,ict,icb |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
952 |
CLDSCALE |
subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
996 |
CLDSCALE |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1033 |
CLDSCALE |
do k=1,ict-1 |
|
./pkg/fizhi/fizhi_swrad.F |
1041 |
CLDSCALE |
do k=ict,icb-1 |
|
./pkg/fizhi/fizhi_swrad.F |
1063 |
CLDSCALE |
if(k.lt.ict) then |
|
./pkg/fizhi/fizhi_swrad.F |
1065 |
CLDSCALE |
elseif(k.ge.ict .and. k.lt.icb) then |
|
./pkg/fizhi/fizhi_swrad.F |
1152 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
1225 |
SOLIR |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1530 |
SOLIR |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
1562 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
1647 |
SOLUV |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1901 |
SOLUV |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
2152 |
CLDFLX |
subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
2188 |
CLDFLX |
integer m,n,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
2250 |
CLDFLX |
do k= 2, ict-1 |
|
./pkg/fizhi/fizhi_swrad.F |
2271 |
CLDFLX |
do k= ict, icb-1 |
|
./pkg/fizhi/fizhi_swrad.F |
2324 |
CLDFLX |
do k= icb-1,ict,-1 |
|
./pkg/fizhi/fizhi_swrad.F |
2430 |
CLDFLX |
do k= ict-1,1,-1 |
|
./pkg/fizhi/fizhi_swrad.F |
658 |
SORAD |
* taucld,reff,fcld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
763 |
SORAD |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
833 |
SORAD |
call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
851 |
SORAD |
call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
856 |
SORAD |
call SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
951 |
CLDSCALE |
subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
995 |
CLDSCALE |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_lwrad.F |
1547 |
IRRAD |
if( k2 .le. ict ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1549 |
IRRAD |
elseif( k2 .gt. ict .and. k2 .le. icb ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
348 |
IRRAD |
* cldwater,cwc,taucl,reff,fcld,ict,icb, |
|
./pkg/fizhi/fizhi_lwrad.F |
568 |
IRRAD |
integer m,n,ndim,np,ict,icb |