| File |
Line number |
Procedure |
Code |
|
./verification/flt_example/extra/cvprofiles.F |
276 |
NO PROCEDURE |
np = INT((tmp(2)-rcountstart)/rcountdelta+1) |
|
./verification/flt_example/extra/cvprofiles.F |
280 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3)) |
|
./verification/flt_example/extra/cvprofiles.F |
281 |
NO PROCEDURE |
ypart(ip,np) = SNGL(tmp(4)) |
|
./verification/flt_example/extra/cvprofiles.F |
283 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3))/1000. |
|
./verification/flt_example/extra/cvprofiles.F |
284 |
NO PROCEDURE |
ypart(ip,np) = SNGL(tmp(4))/1000. |
|
./verification/flt_example/extra/cvprofiles.F |
286 |
NO PROCEDURE |
kpart(ip,np) = SNGL(tmp(5)) |
|
./verification/flt_example/extra/cvprofiles.F |
287 |
NO PROCEDURE |
zeta(ip,np) = SNGL(tmp(6)) |
|
./verification/flt_example/extra/cvprofiles.F |
289 |
NO PROCEDURE |
if (.not. preflag) uvel(ip,k,np) = SNGL(tmp(6+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
290 |
NO PROCEDURE |
if (.not. preflag) vvel(ip,k,np) = SNGL(tmp(6+1*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
291 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+2*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
292 |
NO PROCEDURE |
if (.not. preflag) salt(ip,k,np) = SNGL(tmp(6+3*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
293 |
NO PROCEDURE |
if (temp(ip,k,np) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
294 |
NO PROCEDURE |
if (.not. preflag) uvel(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
295 |
NO PROCEDURE |
if (.not. preflag) vvel(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
296 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
297 |
NO PROCEDURE |
if (.not. preflag) salt(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
557 |
NO PROCEDURE |
np = INT((tmp(2)-rcountstart)/rcountdelta+1) |
|
./verification/flt_example/extra/cvprofiles.F |
559 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+3*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
561 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
587 |
NO PROCEDURE |
np = INT((tmp(2)-rcountstart)/rcountdelta+1) |
|
./verification/flt_example/extra/cvprofiles.F |
589 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
591 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
617 |
NO PROCEDURE |
np = INT((tmp(2)-rcountstart)/rcountdelta+1) |
|
./verification/flt_example/extra/cvprofiles.F |
619 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+1*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
621 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvfloat.F |
238 |
NO PROCEDURE |
np = INT((tmp(2)-rcountstart)/rcountdelta+1) |
|
./verification/flt_example/extra/cvfloat.F |
241 |
NO PROCEDURE |
if (preflag .and. (np .gt. icount .or. np .lt. 1)) |
|
./verification/flt_example/extra/cvfloat.F |
245 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3)) |
|
./verification/flt_example/extra/cvfloat.F |
246 |
NO PROCEDURE |
ypart(ip,np) = SNGL(tmp(4)) |
|
./verification/flt_example/extra/cvfloat.F |
248 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3))/1000. |
|
./verification/flt_example/extra/cvfloat.F |
249 |
NO PROCEDURE |
ypart(ip,np) = SNGL(tmp(4))/1000. |
|
./verification/flt_example/extra/cvfloat.F |
251 |
NO PROCEDURE |
kpart(ip,np) = SNGL(tmp(5)) |
|
./verification/flt_example/extra/cvfloat.F |
252 |
NO PROCEDURE |
uvel(ip,np) = SNGL(tmp(6)) |
|
./verification/flt_example/extra/cvfloat.F |
253 |
NO PROCEDURE |
vvel(ip,np) = SNGL(tmp(7)) |
|
./verification/flt_example/extra/cvfloat.F |
254 |
NO PROCEDURE |
temp(ip,np) = SNGL(tmp(8)) |
|
./verification/flt_example/extra/cvfloat.F |
255 |
NO PROCEDURE |
salt(ip,np) = SNGL(tmp(9)) |
|
./verification/flt_example/extra/cvfloat.F |
256 |
NO PROCEDURE |
zeta(ip,np) = SNGL(tmp(10)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1001 |
CLDSCALE |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1050 |
CLDSCALE |
do k=icb,np |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1062 |
CLDSCALE |
do k=1,np |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1152 |
SOLIR |
subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff, |
|
./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 |
1227 |
SOLIR |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1228 |
SOLIR |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1230 |
SOLIR |
_RL wh(m,n,np),taual(m,ndim,np),csm(m,n) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1234 |
SOLIR |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1247 |
SOLIR |
_RL ssacl(m,n,np),asycl(m,n,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1248 |
SOLIR |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1249 |
SOLIR |
* rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1250 |
SOLIR |
_RL fall(m,n,np+1),fclr(m,n,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1318 |
SOLIR |
rr(i,j,np+1,1)=rsirbm(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1319 |
SOLIR |
rr(i,j,np+1,2)=rsirbm(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1320 |
SOLIR |
rs(i,j,np+1,1)=rsirdf(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1321 |
SOLIR |
rs(i,j,np+1,2)=rsirdf(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1322 |
SOLIR |
td(i,j,np+1,1)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1323 |
SOLIR |
td(i,j,np+1,2)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1324 |
SOLIR |
tt(i,j,np+1,1)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1325 |
SOLIR |
tt(i,j,np+1,2)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1326 |
SOLIR |
ts(i,j,np+1,1)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1327 |
SOLIR |
ts(i,j,np+1,2)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1338 |
SOLIR |
do k= 1, np |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1384 |
SOLIR |
do 300 k= 1, np |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1516 |
SOLIR |
do k= 1, np+1 |
|
./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 |
1534 |
SOLIR |
do k= 1, np+1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1562 |
SOLUV |
subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff, |
|
./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 |
1649 |
SOLUV |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1650 |
SOLUV |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1651 |
SOLUV |
_RL oh(m,n,np),dp(m,n,np),taual(m,ndim,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1656 |
SOLUV |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1671 |
SOLUV |
_RL taux,reff1,reff2,g1,g2,asycl(m,n,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1672 |
SOLUV |
_RL td(m,n,np+1,2),rr(m,n,np+1,2),tt(m,n,np+1,2), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1673 |
SOLUV |
* rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1674 |
SOLUV |
_RL fall(m,n,np+1),fclr(m,n,np+1),fsdir(m,n),fsdif(m,n) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1714 |
SOLUV |
rr(i,j,np+1,1)=rsuvbm(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1715 |
SOLUV |
rr(i,j,np+1,2)=rsuvbm(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1716 |
SOLUV |
rs(i,j,np+1,1)=rsuvdf(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1717 |
SOLUV |
rs(i,j,np+1,2)=rsuvdf(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1718 |
SOLUV |
td(i,j,np+1,1)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1719 |
SOLUV |
td(i,j,np+1,2)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1720 |
SOLUV |
tt(i,j,np+1,1)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1721 |
SOLUV |
tt(i,j,np+1,2)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1722 |
SOLUV |
ts(i,j,np+1,1)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1723 |
SOLUV |
ts(i,j,np+1,2)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1730 |
SOLUV |
do k= 1, np |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1771 |
SOLUV |
do 300 k= 1, np |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1888 |
SOLUV |
do k= 1, np+1 |
|
./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 |
1905 |
SOLUV |
do k= 1, np+1 |
|
./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 |
2191 |
CLDFLX |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2192 |
CLDFLX |
_RL rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2198 |
CLDFLX |
_RL rra(m,n,np+1,2,2),tta(m,n,np+1,2,2),tda(m,n,np+1,2,2) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2199 |
CLDFLX |
_RL rsa(m,n,np+1,2,2),rxa(m,n,np+1,2,2) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2200 |
CLDFLX |
_RL ch(m,n),cm(m,n),ct(m,n),flxdn(m,n,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2206 |
CLDFLX |
_RL fclr(m,n,np+1),fall(m,n,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2211 |
CLDFLX |
do k=1,np+1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2300 |
CLDFLX |
rra(i,j,np+1,1,is)=rr(i,j,np+1,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2301 |
CLDFLX |
rxa(i,j,np+1,1,is)=rs(i,j,np+1,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2302 |
CLDFLX |
rra(i,j,np+1,2,is)=rr(i,j,np+1,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2303 |
CLDFLX |
rxa(i,j,np+1,2,is)=rs(i,j,np+1,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2307 |
CLDFLX |
do k=np,icb,-1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2415 |
CLDFLX |
do k= icb, np |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2449 |
CLDFLX |
do k=2,np+1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2470 |
CLDFLX |
do k=1,np+1 |
|
./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 |
2506 |
FLXCO2 |
integer m,n,np |
|
./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 |
2511 |
FLXCO2 |
_RL df(m,n,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2529 |
FLXCO2 |
do k= 2, np+1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
658 |
SORAD |
subroutine SORAD(m,n,ndim,np,pl,ta,wa,oa,co2, |
|
./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 |
765 |
SORAD |
_RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
766 |
SORAD |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
767 |
SORAD |
_RL fcld(m,ndim,np),taual(m,ndim,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
773 |
SORAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
781 |
SORAD |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
782 |
SORAD |
_RL dp(m,n,np),wh(m,n,np),oh(m,n,np),scal(m,n,np) |
|
./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 |
803 |
SORAD |
do k= 1, np |
|
./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 |
840 |
SORAD |
do k=1, np+1 |
|
./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 |
863 |
SORAD |
do k= 1, np |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
875 |
SORAD |
do k= 2, np+1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
886 |
SORAD |
do k= 1, np |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
897 |
SORAD |
call FLXCO2(m,n,np,so2,swh,csm,df) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
901 |
SORAD |
do k= 2, np+1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
920 |
SORAD |
do k=1,np |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
941 |
SORAD |
x = (-sdf(i,j)-df(i,j,np+1)*sclr(i,j))/x |
|
./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 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
997 |
CLDSCALE |
_RL cosz(m,ndim),fcld(m,ndim,np),taucld(m,ndim,np,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1000 |
CLDSCALE |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1049 |
CLDSCALE |
do k=icb,np |
|
./pkg/fizhi/fizhi_swrad.F |
1061 |
CLDSCALE |
do k=1,np |
|
./pkg/fizhi/fizhi_swrad.F |
1151 |
SOLIR |
subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1225 |
SOLIR |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1226 |
SOLIR |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1227 |
SOLIR |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./pkg/fizhi/fizhi_swrad.F |
1229 |
SOLIR |
_RL wh(m,n,np),taual(m,ndim,np),csm(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1233 |
SOLIR |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1246 |
SOLIR |
_RL ssacl(m,n,np),asycl(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1247 |
SOLIR |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2), |
|
./pkg/fizhi/fizhi_swrad.F |
1248 |
SOLIR |
* rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1249 |
SOLIR |
_RL fall(m,n,np+1),fclr(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1317 |
SOLIR |
rr(i,j,np+1,1)=rsirbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1318 |
SOLIR |
rr(i,j,np+1,2)=rsirbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1319 |
SOLIR |
rs(i,j,np+1,1)=rsirdf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1320 |
SOLIR |
rs(i,j,np+1,2)=rsirdf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1321 |
SOLIR |
td(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1322 |
SOLIR |
td(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1323 |
SOLIR |
tt(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1324 |
SOLIR |
tt(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1325 |
SOLIR |
ts(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1326 |
SOLIR |
ts(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1337 |
SOLIR |
do k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
1383 |
SOLIR |
do 300 k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
1515 |
SOLIR |
do k= 1, np+1 |
|
./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 |
1533 |
SOLIR |
do k= 1, np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
1561 |
SOLUV |
subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1647 |
SOLUV |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1648 |
SOLUV |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1649 |
SOLUV |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./pkg/fizhi/fizhi_swrad.F |
1650 |
SOLUV |
_RL oh(m,n,np),dp(m,n,np),taual(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1655 |
SOLUV |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1670 |
SOLUV |
_RL taux,reff1,reff2,g1,g2,asycl(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1671 |
SOLUV |
_RL td(m,n,np+1,2),rr(m,n,np+1,2),tt(m,n,np+1,2), |
|
./pkg/fizhi/fizhi_swrad.F |
1672 |
SOLUV |
* rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1673 |
SOLUV |
_RL fall(m,n,np+1),fclr(m,n,np+1),fsdir(m,n),fsdif(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1713 |
SOLUV |
rr(i,j,np+1,1)=rsuvbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1714 |
SOLUV |
rr(i,j,np+1,2)=rsuvbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1715 |
SOLUV |
rs(i,j,np+1,1)=rsuvdf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1716 |
SOLUV |
rs(i,j,np+1,2)=rsuvdf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1717 |
SOLUV |
td(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1718 |
SOLUV |
td(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1719 |
SOLUV |
tt(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1720 |
SOLUV |
tt(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1721 |
SOLUV |
ts(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1722 |
SOLUV |
ts(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1729 |
SOLUV |
do k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
1770 |
SOLUV |
do 300 k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
1887 |
SOLUV |
do k= 1, np+1 |
|
./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 |
1904 |
SOLUV |
do k= 1, np+1 |
|
./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 |
2190 |
CLDFLX |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2191 |
CLDFLX |
_RL rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2197 |
CLDFLX |
_RL rra(m,n,np+1,2,2),tta(m,n,np+1,2,2),tda(m,n,np+1,2,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2198 |
CLDFLX |
_RL rsa(m,n,np+1,2,2),rxa(m,n,np+1,2,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2199 |
CLDFLX |
_RL ch(m,n),cm(m,n),ct(m,n),flxdn(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
2205 |
CLDFLX |
_RL fclr(m,n,np+1),fall(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
2210 |
CLDFLX |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
2299 |
CLDFLX |
rra(i,j,np+1,1,is)=rr(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2300 |
CLDFLX |
rxa(i,j,np+1,1,is)=rs(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2301 |
CLDFLX |
rra(i,j,np+1,2,is)=rr(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2302 |
CLDFLX |
rxa(i,j,np+1,2,is)=rs(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2306 |
CLDFLX |
do k=np,icb,-1 |
|
./pkg/fizhi/fizhi_swrad.F |
2414 |
CLDFLX |
do k= icb, np |
|
./pkg/fizhi/fizhi_swrad.F |
2448 |
CLDFLX |
do k=2,np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
2469 |
CLDFLX |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
2494 |
FLXCO2 |
subroutine FLXCO2(m,n,np,swc,swh,csm,df) |
|
./pkg/fizhi/fizhi_swrad.F |
2505 |
FLXCO2 |
integer m,n,np |
|
./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 |
2510 |
FLXCO2 |
_RL df(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
2528 |
FLXCO2 |
do k= 2, np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
657 |
SORAD |
subroutine SORAD(m,n,ndim,np,pl,ta,wa,oa,co2, |
|
./pkg/fizhi/fizhi_swrad.F |
763 |
SORAD |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
764 |
SORAD |
_RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
765 |
SORAD |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2) |
|
./pkg/fizhi/fizhi_swrad.F |
766 |
SORAD |
_RL fcld(m,ndim,np),taual(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
772 |
SORAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
780 |
SORAD |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
781 |
SORAD |
_RL dp(m,n,np),wh(m,n,np),oh(m,n,np),scal(m,n,np) |
|
./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 |
802 |
SORAD |
do k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
833 |
SORAD |
call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
839 |
SORAD |
do k=1, np+1 |
|
./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 |
862 |
SORAD |
do k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
874 |
SORAD |
do k= 2, np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
885 |
SORAD |
do k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
896 |
SORAD |
call FLXCO2(m,n,np,so2,swh,csm,df) |
|
./pkg/fizhi/fizhi_swrad.F |
900 |
SORAD |
do k= 2, np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
919 |
SORAD |
do k=1,np |
|
./pkg/fizhi/fizhi_swrad.F |
940 |
SORAD |
x = (-sdf(i,j)-df(i,j,np+1)*sclr(i,j))/x |
|
./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_swrad.F |
996 |
CLDSCALE |
_RL cosz(m,ndim),fcld(m,ndim,np),taucld(m,ndim,np,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1021 |
IRRAD |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1036 |
IRRAD |
blayer(i,j,np+1)= ( ts(i,j)*(ts(i,j)*(ts(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1049 |
IRRAD |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1064 |
IRRAD |
call COLUMN(m,n,np,pa,dt,dco2,sco3,scopre,scotem) |
|
./pkg/fizhi/fizhi_lwrad.F |
1068 |
IRRAD |
call COLUMN(m,n,np,pa,dt,do3,sco3,scopre,scotem) |
|
./pkg/fizhi/fizhi_lwrad.F |
1074 |
IRRAD |
do k= 1, np |
|
./pkg/fizhi/fizhi_lwrad.F |
1091 |
IRRAD |
do k= 1, np |
|
./pkg/fizhi/fizhi_lwrad.F |
1140 |
IRRAD |
call H2OEXPS(ib,m,n,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1147 |
IRRAD |
call CONEXPS(ib,m,n,np,dcont,xke,conexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1154 |
IRRAD |
call CO2EXPS(m,n,np,dco2,pa,dt,co2exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1164 |
IRRAD |
call N2OEXPS(ib,m,n,np,dn2o,pa,dt,n2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1170 |
IRRAD |
call CH4EXPS(ib,m,n,np,dch4,pa,dt,ch4exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1176 |
IRRAD |
call COMEXPS(ib,m,n,np,dco2,dt,comexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1188 |
IRRAD |
call CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,df11,dt,f11exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1200 |
IRRAD |
call CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,df12,dt,f12exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1212 |
IRRAD |
call CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,df22,dt,f22exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1219 |
IRRAD |
call B10EXPS(m,n,np,dh2o,dcont,dco2,dn2o,pa,dt |
|
./pkg/fizhi/fizhi_lwrad.F |
1231 |
IRRAD |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1242 |
IRRAD |
do 2000 k1=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1401 |
IRRAD |
do 3000 k2=k1+1,np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1420 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1424 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1429 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1438 |
IRRAD |
call H2OKDIS(ib,m,n,np,k2-1,fkw,gkw,ne,h2oexp,conexp, |
|
./pkg/fizhi/fizhi_lwrad.F |
1454 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nc,nt,sco3,scopre,scotem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1460 |
IRRAD |
call CO2KDIS(m,n,np,k2-1,co2exp,tco2,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1473 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,no,nt,sco3,scopre,scotem, |
|
./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 |
1522 |
IRRAD |
call B10KDIS(m,n,np,k2-1,h2oexp,conexp,co2exp,n2oexp |
|
./pkg/fizhi/fizhi_lwrad.F |
1656 |
IRRAD |
flcu(i,j,np+1)=flcu(i,j,np+1)-blayer(i,j,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1657 |
IRRAD |
flxu(i,j,np+1)=flxu(i,j,np+1)-blayer(i,j,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1658 |
IRRAD |
st4(i,j)=st4(i,j)-blayer(i,j,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1659 |
IRRAD |
dfdts(i,j,np+1)=dfdts(i,j,np+1)-dbs(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1666 |
IRRAD |
do k=1, np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1670 |
IRRAD |
* flcd(i,j,np+1)*trantcr(i,j,k)*(1.-emiss(i,j,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1672 |
IRRAD |
* flxd(i,j,np+1)*transfc(i,j,k)*(1.-emiss(i,j,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1681 |
IRRAD |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1694 |
IRRAD |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1706 |
COLUMN |
subroutine COLUMN (m,n,np,pa,dt,sabs0,sabs,spre,stem) |
|
./pkg/fizhi/fizhi_lwrad.F |
1731 |
COLUMN |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
1735 |
COLUMN |
_RL pa(m,n,np),dt(m,n,np),sabs0(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
1739 |
COLUMN |
_RL sabs(m,n,np+1),spre(m,n,np+1),stem(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1750 |
COLUMN |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1763 |
H2OEXPS |
subroutine H2OEXPS(ib,m,n,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1786 |
H2OEXPS |
integer ib,m,n,np,i,j,k,ik |
|
./pkg/fizhi/fizhi_lwrad.F |
1790 |
H2OEXPS |
_RL dh2o(m,n,np),pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
1794 |
H2OEXPS |
_RL h2oexp(m,n,np,6) |
|
./pkg/fizhi/fizhi_lwrad.F |
1810 |
H2OEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1833 |
H2OEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1844 |
H2OEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1856 |
H2OEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1868 |
H2OEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1885 |
CONEXPS |
subroutine CONEXPS(ib,m,n,np,dcont,xke,conexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1902 |
CONEXPS |
integer ib,m,n,np,i,j,k,iq |
|
./pkg/fizhi/fizhi_lwrad.F |
1906 |
CONEXPS |
_RL dcont(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
1910 |
CONEXPS |
_RL conexp(m,n,np,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
1918 |
CONEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1933 |
CONEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1947 |
CO2EXPS |
subroutine CO2EXPS(m,n,np,dco2,pa,dt,co2exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1963 |
CO2EXPS |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
1967 |
CO2EXPS |
_RL dco2(m,n,np),pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
1971 |
CO2EXPS |
_RL co2exp(m,n,np,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1979 |
CO2EXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
2048 |
N2OEXPS |
subroutine N2OEXPS(ib,m,n,np,dn2o,pa,dt,n2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
2065 |
N2OEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2069 |
N2OEXPS |
_RL dn2o(m,n,np),pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2073 |
N2OEXPS |
_RL n2oexp(m,n,np,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2081 |
N2OEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
2124 |
CH4EXPS |
subroutine CH4EXPS(ib,m,n,np,dch4,pa,dt,ch4exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
2141 |
CH4EXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2145 |
CH4EXPS |
_RL dch4(m,n,np),pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2149 |
CH4EXPS |
_RL ch4exp(m,n,np,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2157 |
CH4EXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
2197 |
COMEXPS |
subroutine COMEXPS(ib,m,n,np,dcom,dt,comexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
2213 |
COMEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2217 |
COMEXPS |
_RL dcom(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2221 |
COMEXPS |
_RL comexp(m,n,np,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2229 |
COMEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
2270 |
CFCEXPS |
subroutine CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
2290 |
CFCEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2294 |
CFCEXPS |
_RL dcfc(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2298 |
CFCEXPS |
_RL cfcexp(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2310 |
CFCEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
2331 |
B10EXPS |
subroutine B10EXPS(m,n,np,dh2o,dcont,dco2,dn2o,pa,dt |
|
./pkg/fizhi/fizhi_lwrad.F |
2352 |
B10EXPS |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2356 |
B10EXPS |
_RL dh2o(m,n,np),dcont(m,n,np),dn2o(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2357 |
B10EXPS |
_RL dco2(m,n,np),pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2361 |
B10EXPS |
_RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2362 |
B10EXPS |
* ,n2oexp(m,n,np,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2370 |
B10EXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
2464 |
TABLUP |
subroutine TABLUP(k1,k2,m,n,np,nx,nh,nt,sabs,spre,stem,w1,p1, |
|
./pkg/fizhi/fizhi_lwrad.F |
2503 |
TABLUP |
integer k1,k2,m,n,np,nx,nh,nt,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2508 |
TABLUP |
_RL sabs(m,n,np+1),spre(m,n,np+1),stem(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2579 |
H2OKDIS |
subroutine H2OKDIS(ib,m,n,np,k,fkw,gkw,ne,h2oexp,conexp, |
|
./pkg/fizhi/fizhi_lwrad.F |
2611 |
H2OKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2615 |
H2OKDIS |
_RL conexp(m,n,np,3),h2oexp(m,n,np,6) |
|
./pkg/fizhi/fizhi_lwrad.F |
2725 |
CO2KDIS |
subroutine CO2KDIS(m,n,np,k,co2exp,tco2,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2745 |
CO2KDIS |
integer m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2749 |
CO2KDIS |
_RL co2exp(m,n,np,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2813 |
N2OKDIS |
subroutine N2OKDIS(ib,m,n,np,k,n2oexp,tn2o,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2834 |
N2OKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2838 |
N2OKDIS |
_RL n2oexp(m,n,np,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2890 |
CH4KDIS |
subroutine CH4KDIS(ib,m,n,np,k,ch4exp,tch4,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2911 |
CH4KDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2915 |
CH4KDIS |
_RL ch4exp(m,n,np,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2964 |
COMKDIS |
subroutine COMKDIS(ib,m,n,np,k,comexp,tcom,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2985 |
COMKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2989 |
COMKDIS |
_RL comexp(m,n,np,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3033 |
CFCKDIS |
subroutine CFCKDIS(m,n,np,k,cfcexp,tcfc,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
3053 |
CFCKDIS |
integer m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
3057 |
CFCKDIS |
_RL cfcexp(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
3077 |
B10KDIS |
subroutine B10KDIS(m,n,np,k,h2oexp,conexp,co2exp,n2oexp |
|
./pkg/fizhi/fizhi_lwrad.F |
3109 |
B10KDIS |
integer m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
3113 |
B10KDIS |
_RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3114 |
B10KDIS |
* ,n2oexp(m,n,np,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
346 |
IRRAD |
subroutine IRRAD (m,n,ndim,np,pl,ta,wa,oa,ts,co2, |
|
./pkg/fizhi/fizhi_lwrad.F |
568 |
IRRAD |
integer m,n,ndim,np,ict,icb |
|
./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 |
571 |
IRRAD |
_RL co2,n2o(np),ch4(np),cfc11,cfc12,cfc22,emiss(m,ndim,10) |
|
./pkg/fizhi/fizhi_lwrad.F |
572 |
IRRAD |
_RL cwc(m,ndim,np,3),taucl(m,ndim,np,3),reff(m,ndim,np,3), |
|
./pkg/fizhi/fizhi_lwrad.F |
573 |
IRRAD |
* fcld(m,ndim,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
574 |
IRRAD |
_RL taual(m,ndim,np,10),ssaal(m,ndim,np,10),asyal(m,ndim,np,10) |
|
./pkg/fizhi/fizhi_lwrad.F |
579 |
IRRAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1),dfdts(m,ndim,np+1), |
|
./pkg/fizhi/fizhi_lwrad.F |
591 |
IRRAD |
_RL pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
592 |
IRRAD |
_RL sh2o(m,n,np+1),swpre(m,n,np+1),swtem(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
593 |
IRRAD |
_RL sco3(m,n,np+1),scopre(m,n,np+1),scotem(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
594 |
IRRAD |
_RL dh2o(m,n,np),dcont(m,n,np),dco2(m,n,np),do3(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
595 |
IRRAD |
_RL dn2o(m,n,np),dch4(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
596 |
IRRAD |
_RL df11(m,n,np),df12(m,n,np),df22(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
600 |
IRRAD |
_RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
601 |
IRRAD |
_RL n2oexp(m,n,np,4),ch4exp(m,n,np,4),comexp(m,n,np,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
602 |
IRRAD |
_RL f11exp(m,n,np), f12exp(m,n,np), f22exp(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
603 |
IRRAD |
_RL clr(m,n,0:np+1),fclr(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
604 |
IRRAD |
_RL blayer(m,n,0:np+1),dlayer(m,n,np+1),dbs(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
606 |
IRRAD |
_RL cwp(m,n,np,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
607 |
IRRAD |
_RL trant(m,n),tranal(m,n),transfc(m,n,np+1),trantcr(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
608 |
IRRAD |
_RL flxu(m,n,np+1),flxd(m,n,np+1),flcu(m,n,np+1),flcd(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
609 |
IRRAD |
_RL rflx(m,n,np+1),rflc(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
882 |
IRRAD |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
909 |
IRRAD |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
937 |
IRRAD |
call COLUMN(m,n,np,pa,dt,dh2o,sh2o,swpre,swtem) |
|
./pkg/fizhi/fizhi_lwrad.F |
946 |
IRRAD |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
968 |
IRRAD |
clr(i,j,np+1) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
970 |
IRRAD |
transfc(i,j,np+1)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
971 |
IRRAD |
trantcr(i,j,np+1)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
977 |
IRRAD |
do k=1,np+1 |