| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1005 |
IRRAD |
h2otbl=high.and.(ib.eq.1.or.ib.eq.2.or.ib.eq.8) |
|
./pkg/fizhi/fizhi_lwrad.F |
1006 |
IRRAD |
conbnd=ib.ge.3.and.ib.le.6 |
|
./pkg/fizhi/fizhi_lwrad.F |
1007 |
IRRAD |
co2bnd=ib.eq.3 |
|
./pkg/fizhi/fizhi_lwrad.F |
1008 |
IRRAD |
oznbnd=ib.eq.5 |
|
./pkg/fizhi/fizhi_lwrad.F |
1009 |
IRRAD |
n2obnd=ib.eq.6.or.ib.eq.7 |
|
./pkg/fizhi/fizhi_lwrad.F |
1010 |
IRRAD |
ch4bnd=ib.eq.6.or.ib.eq.7 |
|
./pkg/fizhi/fizhi_lwrad.F |
1011 |
IRRAD |
combnd=ib.eq.4.or.ib.eq.5 |
|
./pkg/fizhi/fizhi_lwrad.F |
1012 |
IRRAD |
f11bnd=ib.eq.4.or.ib.eq.5 |
|
./pkg/fizhi/fizhi_lwrad.F |
1013 |
IRRAD |
f12bnd=ib.eq.4.or.ib.eq.6 |
|
./pkg/fizhi/fizhi_lwrad.F |
1014 |
IRRAD |
f22bnd=ib.eq.4.or.ib.eq.6 |
|
./pkg/fizhi/fizhi_lwrad.F |
1015 |
IRRAD |
b10bnd=ib.eq.10 |
|
./pkg/fizhi/fizhi_lwrad.F |
1025 |
IRRAD |
* *(ta(i,j,k)*cb(5,ib)+cb(4,ib))+cb(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1026 |
IRRAD |
* +cb(2,ib))+cb(1,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1037 |
IRRAD |
* *(ts(i,j)*cb(5,ib)+cb(4,ib))+cb(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1038 |
IRRAD |
* +cb(2,ib))+cb(1,ib) )*emiss(i,j,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1043 |
IRRAD |
dbs(i,j)=(ts(i,j)*(ts(i,j)*(ts(i,j)*4.*cb(5,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1044 |
IRRAD |
* +3.*cb(4,ib))+2.*cb(3,ib))+cb(2,ib))*emiss(i,j,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1077 |
IRRAD |
taucl(i,j,k,1)=cwp(i,j,k,1)*(aib(1,ib)+aib(2,ib)/ |
|
./pkg/fizhi/fizhi_lwrad.F |
1078 |
IRRAD |
* reff(i,j,k,1)**aib(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1079 |
IRRAD |
taucl(i,j,k,2)=cwp(i,j,k,2)*(awb(1,ib)+(awb(2,ib)+(awb(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1080 |
IRRAD |
* +awb(4,ib)*reff(i,j,k,2))*reff(i,j,k,2))*reff(i,j,k,2)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1103 |
IRRAD |
w1=taucl(i,j,k,1)*(aiw(1,ib)+(aiw(2,ib)+(aiw(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1104 |
IRRAD |
* +aiw(4,ib)*reff1)*reff1)*reff1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1105 |
IRRAD |
w2=taucl(i,j,k,2)*(aww(1,ib)+(aww(2,ib)+(aww(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1106 |
IRRAD |
* +aww(4,ib)*reff2)*reff2)*reff2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1110 |
IRRAD |
g1=w1*(aig(1,ib)+(aig(2,ib)+(aig(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1111 |
IRRAD |
* +aig(4,ib)*reff1)*reff1)*reff1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1112 |
IRRAD |
g2=w2*(awg(1,ib)+(awg(2,ib)+(awg(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1113 |
IRRAD |
* +awg(4,ib)*reff2)*reff2)*reff2) |
|
./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 |
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 |
1419 |
IRRAD |
if (ib.eq.1) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1423 |
IRRAD |
if (ib.eq.2) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1428 |
IRRAD |
if (ib.eq.8) then |
|
./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 |
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 |
1532 |
IRRAD |
ff=0.5+(0.3739+(0.0076+0.1185*asyal(i,j,k2-1,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1533 |
IRRAD |
* *asyal(i,j,k2-1,ib))*asyal(i,j,k2-1,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1534 |
IRRAD |
taux=taual(i,j,k2-1,ib)*(1.-ssaal(i,j,k2-1,ib)*ff) |
|
./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 |
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 |
1817 |
H2OEXPS |
xh = dh2o(i,j,k)*(pa(i,j,k)/500.)**pm(ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1818 |
H2OEXPS |
1 * ( 1.+(aw(ib)+bw(ib)* dt(i,j,k))*dt(i,j,k) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
1823 |
H2OEXPS |
h2oexp(i,j,k,1) = exp(-xh*xkw(ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1831 |
H2OEXPS |
if (mw(ib).eq.6) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1842 |
H2OEXPS |
elseif (mw(ib).eq.8) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1854 |
H2OEXPS |
elseif (mw(ib).eq.9) then |
|
./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 |
1921 |
CONEXPS |
conexp(i,j,k,1) = exp(-dcont(i,j,k)*xke(ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1926 |
CONEXPS |
if (ib .eq. 3) then |
|
./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 |
2087 |
N2OEXPS |
if (ib.eq.6) then |
|
./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 |
2163 |
CH4EXPS |
if (ib.eq.6) then |
|
./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 |
2235 |
COMEXPS |
if (ib.eq.4) then |
|
./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 |
2316 |
CFCEXPS |
if (ib.eq.4) then |
|
./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 |
2650 |
H2OKDIS |
if (ne(ib).eq.0) then |
|
./pkg/fizhi/fizhi_lwrad.F |
2655 |
H2OKDIS |
trnth2o =(fkw(1,ib)*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2656 |
H2OKDIS |
* + fkw(2,ib)*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2657 |
H2OKDIS |
* + fkw(3,ib)*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2658 |
H2OKDIS |
* + fkw(4,ib)*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2659 |
H2OKDIS |
* + fkw(5,ib)*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2660 |
H2OKDIS |
* + fkw(6,ib)*th2o(i,j,6)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2667 |
H2OKDIS |
elseif (ne(ib).eq.1) then |
|
./pkg/fizhi/fizhi_lwrad.F |
2674 |
H2OKDIS |
trnth2o =(fkw(1,ib)*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2675 |
H2OKDIS |
* + fkw(2,ib)*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2676 |
H2OKDIS |
* + fkw(3,ib)*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2677 |
H2OKDIS |
* + fkw(4,ib)*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2678 |
H2OKDIS |
* + fkw(5,ib)*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2679 |
H2OKDIS |
* + fkw(6,ib)*th2o(i,j,6))*tcon(i,j,1) |
|
./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 |
2856 |
N2OKDIS |
if (ib.eq.6) then |
|
./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 |
2933 |
CH4KDIS |
if (ib.eq.6) then |
|
./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 |
3007 |
COMKDIS |
if (ib.eq.4) then |
|
./pkg/fizhi/fizhi_lwrad.F |
563 |
IRRAD |
integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2 |
|
./pkg/fizhi/fizhi_lwrad.F |
991 |
IRRAD |
do 1000 ib=1,10 |
|
./pkg/fizhi/fizhi_mnc_init.F |
109 |
FIZHI_MNC_INIT |
ib(i) = 0 |
|
./pkg/fizhi/fizhi_mnc_init.F |
122 |
FIZHI_MNC_INIT |
ib(ndim) = OLx + 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
129 |
FIZHI_MNC_INIT |
ib(ndim) = OLx + 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
140 |
FIZHI_MNC_INIT |
ib(ndim) = OLy + 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
147 |
FIZHI_MNC_INIT |
ib(ndim) = OLy + 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
158 |
FIZHI_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
166 |
FIZHI_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
177 |
FIZHI_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
184 |
FIZHI_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
194 |
FIZHI_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
201 |
FIZHI_MNC_INIT |
& dim, dn, ib, ie, myThid) |
|
./pkg/fizhi/fizhi_mnc_init.F |
218 |
FIZHI_MNC_INIT |
ib(1) = OLx + 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
222 |
FIZHI_MNC_INIT |
ib(2) = OLy + 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
226 |
FIZHI_MNC_INIT |
ib(3) = 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
229 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME('fizhi_veg', ndim, dim, dn,ib,ie, myThid) |
|
./pkg/fizhi/fizhi_mnc_init.F |
244 |
FIZHI_MNC_INIT |
ib(1) = 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
246 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME('fizhi_chip', ndim, dim, dn,ib,ie, myThid) |
|
./pkg/fizhi/fizhi_mnc_init.F |
269 |
FIZHI_MNC_INIT |
ib(1) = 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
273 |
FIZHI_MNC_INIT |
ib(2) = 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
275 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME('fizhi_chiplev',ndim,dim,dn,ib,ie,myThid) |
|
./pkg/fizhi/fizhi_mnc_init.F |
45 |
FIZHI_MNC_INIT |
integer dim(CW_MAX_LOC), ib(CW_MAX_LOC), ie(CW_MAX_LOC) |
|
./pkg/land/land_mnc_init.F |
126 |
LAND_MNC_INIT |
ib(i) = 0 |
|
./pkg/land/land_mnc_init.F |
139 |
LAND_MNC_INIT |
ib(ndim) = OLx + 1 |
|
./pkg/land/land_mnc_init.F |
146 |
LAND_MNC_INIT |
ib(ndim) = OLx + 1 |
|
./pkg/land/land_mnc_init.F |
157 |
LAND_MNC_INIT |
ib(ndim) = OLy + 1 |
|
./pkg/land/land_mnc_init.F |
164 |
LAND_MNC_INIT |
ib(ndim) = OLy + 1 |
|
./pkg/land/land_mnc_init.F |
175 |
LAND_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/land/land_mnc_init.F |
183 |
LAND_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/land/land_mnc_init.F |
194 |
LAND_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/land/land_mnc_init.F |
204 |
LAND_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/land/land_mnc_init.F |
211 |
LAND_MNC_INIT |
& dim, dn, ib, ie, myThid) |
|
./pkg/land/land_mnc_init.F |
64 |
LAND_MNC_INIT |
integer dim(CW_MAX_LOC), ib(CW_MAX_LOC), ie(CW_MAX_LOC) |