| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
726 |
CHPPRM |
integer k1,k2,nymd1,nhms1,nymd2,nhms2,i |
|
./pkg/fizhi/fizhi_utils.F |
858 |
CHPPRM |
call TIME_BOUND ( nymd,nhms, nymd1,nhms1, nymd2,nhms2, k1,k2 ) |
|
./pkg/fizhi/fizhi_utils.F |
863 |
CHPPRM |
zoch(i) = vgz0(k2,ityp(i))*facp + vgz0(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
864 |
CHPPRM |
rdcs(i) = vgrd(k2,ityp(i))*facp + vgrd(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
866 |
CHPPRM |
rootl = vgrt(k2,ityp(i))*facp + vgrt(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
880 |
CHPPRM |
d = vgdd(k2,ityp(i))*facp + vgdd(k1,ityp(i))*facm |
|
./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 |
1454 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nc,nt,sco3,scopre,scotem, |
|
./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 |
1566 |
IRRAD |
if (k2 .eq. k1+1) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1573 |
IRRAD |
flcu(i,j,k1)=flcu(i,j,k1)-blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1574 |
IRRAD |
flcd(i,j,k2)=flcd(i,j,k2)+blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1578 |
IRRAD |
flxu(i,j,k1)=flxu(i,j,k1)-blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1579 |
IRRAD |
flxd(i,j,k2)=flxd(i,j,k2)+blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1592 |
IRRAD |
flcu(i,j,k1) =flcu(i,j,k1)+xx |
|
./pkg/fizhi/fizhi_lwrad.F |
1593 |
IRRAD |
flxu(i,j,k1) =flxu(i,j,k1)+xx*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1594 |
IRRAD |
xx=trant(i,j)*dlayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1608 |
IRRAD |
rflx(i,j,k1) = rflx(i,j,k1)+trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1611 |
IRRAD |
* *dlayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1612 |
IRRAD |
rflc(i,j,k1) = rflc(i,j,k1)+trant(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1615 |
IRRAD |
* *dlayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1630 |
IRRAD |
trantcr(i,j,k1) =trant(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1631 |
IRRAD |
transfc(i,j,k1) =trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1642 |
IRRAD |
dfdts(i,j,k1) =dfdts(i,j,k1)-dbs(i,j)*transfc(i,j,k1) |
|
./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 |
2527 |
TABLUP |
x1=sabs(i,j,k2)-sabs(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2528 |
TABLUP |
x2=(spre(i,j,k2)-spre(i,j,k1))/x1 |
|
./pkg/fizhi/fizhi_lwrad.F |
2529 |
TABLUP |
x3=(stem(i,j,k2)-stem(i,j,k1))/x1 |
|
./pkg/fizhi/fizhi_lwrad.F |
563 |
IRRAD |
integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2 |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
50 |
MON_STATS_LATBND_RL |
INTEGER km, k1, k2 |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
58 |
MON_STATS_LATBND_RL |
k1 = 1 |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
61 |
MON_STATS_LATBND_RL |
k1 = kLoc |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
76 |
MON_STATS_LATBND_RL |
DO k=k1,k2 |