| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
116 |
DIAGNOSTICS_WRITE_PICKUP |
ib(1) = OLx + 1 |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
120 |
DIAGNOSTICS_WRITE_PICKUP |
ib(2) = OLy + 1 |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
124 |
DIAGNOSTICS_WRITE_PICKUP |
ib(3) = 1 |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
128 |
DIAGNOSTICS_WRITE_PICKUP |
ib(4) = 1 |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
132 |
DIAGNOSTICS_WRITE_PICKUP |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
152 |
DIAGNOSTICS_WRITE_PICKUP |
ib(1) = 1 |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
156 |
DIAGNOSTICS_WRITE_PICKUP |
ib(2) = 1 |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
160 |
DIAGNOSTICS_WRITE_PICKUP |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
66 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER dim(CW_DIMS), ib(CW_DIMS), ie(CW_DIMS) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
115 |
DIAGNOSTICS_READ_PICKUP |
ib(1) = 1 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
119 |
DIAGNOSTICS_READ_PICKUP |
ib(2) = 1 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
122 |
DIAGNOSTICS_READ_PICKUP |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
52 |
DIAGNOSTICS_READ_PICKUP |
INTEGER dim(CW_DIMS), ib(CW_DIMS), ie(CW_DIMS) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
84 |
DIAGNOSTICS_READ_PICKUP |
ib(1) = OLx + 1 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
88 |
DIAGNOSTICS_READ_PICKUP |
ib(2) = OLy + 1 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
92 |
DIAGNOSTICS_READ_PICKUP |
ib(3) = 1 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
96 |
DIAGNOSTICS_READ_PICKUP |
ib(4) = 1 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
99 |
DIAGNOSTICS_READ_PICKUP |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
124 |
DIAGSTATS_MNC_OUT |
ib(1) = 1 |
|
./pkg/diagnostics/diagstats_mnc_out.F |
128 |
DIAGSTATS_MNC_OUT |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
146 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_ADD_GNAME(dn(1), 1, dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
205 |
DIAGSTATS_MNC_OUT |
ib(1) = 1 |
|
./pkg/diagnostics/diagstats_mnc_out.F |
210 |
DIAGSTATS_MNC_OUT |
ib(2) = 1 |
|
./pkg/diagnostics/diagstats_mnc_out.F |
217 |
DIAGSTATS_MNC_OUT |
ib(3) = 1 |
|
./pkg/diagnostics/diagstats_mnc_out.F |
230 |
DIAGSTATS_MNC_OUT |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
236 |
DIAGSTATS_MNC_OUT |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
65 |
DIAGSTATS_MNC_OUT |
INTEGER dim(CW_DIMS), ib(CW_DIMS), ie(CW_DIMS) |
|
./pkg/diagnostics/diagnostics_out.F |
122 |
DIAGNOSTICS_OUT |
ib(1) = 1 |
|
./pkg/diagnostics/diagnostics_out.F |
126 |
DIAGNOSTICS_OUT |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
157 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_GNAME(dn(1), 1, dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
374 |
DIAGNOSTICS_OUT |
ib(1) = OLx + 1 |
|
./pkg/diagnostics/diagnostics_out.F |
375 |
DIAGNOSTICS_OUT |
ib(2) = OLy + 1 |
|
./pkg/diagnostics/diagnostics_out.F |
413 |
DIAGNOSTICS_OUT |
ib(3) = 1 |
|
./pkg/diagnostics/diagnostics_out.F |
419 |
DIAGNOSTICS_OUT |
ib(4) = 1 |
|
./pkg/diagnostics/diagnostics_out.F |
423 |
DIAGNOSTICS_OUT |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
81 |
DIAGNOSTICS_OUT |
INTEGER dim(CW_DIMS), ib(CW_DIMS), ie(CW_DIMS) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
214 |
DIAG_VEGTILE_FILL |
offset = ib*(npeice-1) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
215 |
DIAG_VEGTILE_FILL |
Lena = min(ib,numpts-offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
54 |
DIAG_VEGTILE_FILL |
integer ib,numpts,npeice |
|
./pkg/diagnostics/diag_vegtile_fill.F |
56 |
DIAG_VEGTILE_FILL |
_RL field(ib,nlevs), chfr(ib) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
92 |
DIAG_VEGTILE_FILL |
offset = ib*(npeice-1) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
93 |
DIAG_VEGTILE_FILL |
Lena = min(ib,numpts-offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
9 |
DIAG_VEGTILE_FILL |
SUBROUTINE DIAG_VEGTILE_FILL (field,indx,chfr,ib,numpts,npeice, |
|
./pkg/aim_v23/aim_mnc_init.F |
154 |
AIM_MNC_INIT |
ib(i) = 0 |
|
./pkg/aim_v23/aim_mnc_init.F |
161 |
AIM_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/aim_v23/aim_mnc_init.F |
166 |
AIM_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/aim_v23/aim_mnc_init.F |
171 |
AIM_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/aim_v23/aim_mnc_init.F |
173 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_GNAME('AIM_xyt', ndim, dim,dn,ib,ie, myThid) |
|
./pkg/aim_v23/aim_mnc_init.F |
177 |
AIM_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/aim_v23/aim_mnc_init.F |
182 |
AIM_MNC_INIT |
ib(ndim) = 1 |
|
./pkg/aim_v23/aim_mnc_init.F |
184 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_GNAME('AIM_xyzt', ndim, dim,dn,ib,ie, myThid) |
|
./pkg/aim_v23/aim_mnc_init.F |
40 |
AIM_MNC_INIT |
integer dim(CW_MAX_LOC), ib(CW_MAX_LOC), ie(CW_MAX_LOC) |
|
./pkg/mnc/mnc_cw_init.F |
122 |
MNC_CW_INIT |
ib(i) = 0 |
|
./pkg/mnc/mnc_cw_init.F |
135 |
MNC_CW_INIT |
ib(ndim) = OLx + 1 |
|
./pkg/mnc/mnc_cw_init.F |
142 |
MNC_CW_INIT |
ib(ndim) = OLx + 1 |
|
./pkg/mnc/mnc_cw_init.F |
153 |
MNC_CW_INIT |
ib(ndim) = OLy + 1 |
|
./pkg/mnc/mnc_cw_init.F |
160 |
MNC_CW_INIT |
ib(ndim) = OLy + 1 |
|
./pkg/mnc/mnc_cw_init.F |
171 |
MNC_CW_INIT |
ib(ndim) = 1 |
|
./pkg/mnc/mnc_cw_init.F |
179 |
MNC_CW_INIT |
ib(ndim) = 1 |
|
./pkg/mnc/mnc_cw_init.F |
190 |
MNC_CW_INIT |
ib(ndim) = 1 |
|
./pkg/mnc/mnc_cw_init.F |
197 |
MNC_CW_INIT |
ib(ndim) = 1 |
|
./pkg/mnc/mnc_cw_init.F |
204 |
MNC_CW_INIT |
ib(ndim) = 1 |
|
./pkg/mnc/mnc_cw_init.F |
211 |
MNC_CW_INIT |
ib(ndim) = 1 |
|
./pkg/mnc/mnc_cw_init.F |
218 |
MNC_CW_INIT |
ib(ndim) = 1 |
|
./pkg/mnc/mnc_cw_init.F |
227 |
MNC_CW_INIT |
ib(ndim) = 1 |
|
./pkg/mnc/mnc_cw_init.F |
237 |
MNC_CW_INIT |
& ' | ', (ib(i), i=1,5), |
|
./pkg/mnc/mnc_cw_init.F |
243 |
MNC_CW_INIT |
& dim, dn, ib, ie, myThid) |
|
./pkg/mnc/mnc_cw_init.F |
60 |
MNC_CW_INIT |
integer dim(CW_MAX_LOC), ib(CW_MAX_LOC), ie(CW_MAX_LOC) |
|
./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/fizhi/fizhi_utils.F |
120 |
PASTE |
integer ia,ib,L,K |
|
./pkg/fizhi/fizhi_utils.F |
138 |
PSTBMP |
integer ia,ib,L,K |
|
./pkg/fizhi/fizhi_utils.F |
156 |
STRINT |
integer ia,ib,L,K |
|
./pkg/fizhi/fizhi_utils.F |
391 |
STRIPIT |
subroutine STRIPIT(a,b,irun,ia,ib,l,k) |
|
./pkg/fizhi/fizhi_utils.F |
393 |
STRIPIT |
integer ia,ib,irun,l,k |
|
./pkg/fizhi/fizhi_utils.F |
394 |
STRIPIT |
_RL a(ia,l), b(ib,l) |
|
./pkg/fizhi/fizhi_utils.F |
397 |
STRIPIT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
398 |
STRIPIT |
Lena = min(ib,irun-offset) |
|
./pkg/fizhi/fizhi_utils.F |
401 |
STRIPIT |
if(Lena.eq.ib) then |
|
./pkg/fizhi/fizhi_utils.F |
411 |
STRIPIT |
do 400 i=1,ib-Lena |
|
./pkg/fizhi/fizhi_utils.F |
419 |
STRIPITINT |
subroutine STRIPITINT(a,b,irun,ia,ib,l,k) |
|
./pkg/fizhi/fizhi_utils.F |
421 |
STRIPITINT |
integer ia,ib,irun,l,k,a(ia,l),b(ib,l) |
|
./pkg/fizhi/fizhi_utils.F |
424 |
STRIPITINT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
425 |
STRIPITINT |
Lena = min(ib,irun-offset) |
|
./pkg/fizhi/fizhi_utils.F |
428 |
STRIPITINT |
if(Lena.eq.ib) then |
|
./pkg/fizhi/fizhi_utils.F |
438 |
STRIPITINT |
do 400 i=1,ib-Lena |
|
./pkg/fizhi/fizhi_utils.F |
446 |
PASTIT |
subroutine PASTIT(b,a,ib,ia,irun,L,k) |
|
./pkg/fizhi/fizhi_utils.F |
448 |
PASTIT |
integer ib,ia,L,k,irun,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
450 |
PASTIT |
_RL a(ia,l), b(ib,l) |
|
./pkg/fizhi/fizhi_utils.F |
452 |
PASTIT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
453 |
PASTIT |
Lena = min(ib,irun-offset) |
|
./pkg/fizhi/fizhi_utils.F |
463 |
PSTBITINT |
subroutine PSTBITINT(b,a,ib,ia,irun,l,k) |
|
./pkg/fizhi/fizhi_utils.F |
465 |
PSTBITINT |
integer ib,ia,L,k,irun,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
467 |
PSTBITINT |
integer b(ib,l) |
|
./pkg/fizhi/fizhi_utils.F |
470 |
PSTBITINT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
471 |
PSTBITINT |
Lena = min(ib,irun-offset) |
|
./pkg/fizhi/fizhi_utils.F |
482 |
PSTBMPIT |
subroutine PSTBMPIT(b,a,ib,ia,irun,l,k) |
|
./pkg/fizhi/fizhi_utils.F |
484 |
PSTBMPIT |
integer ib,ia,L,k,irun,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
485 |
PSTBMPIT |
_RL a(ia,l), b(ib,l) |
|
./pkg/fizhi/fizhi_utils.F |
488 |
PSTBMPIT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
489 |
PSTBMPIT |
Lena = min(ib,irun-offset) |
|
./pkg/fizhi/fizhi_utils.F |
499 |
STRIP2TILE |
subroutine STRIP2TILE(a,indx,b,irun,ia,ib,levs,npeice) |
|
./pkg/fizhi/fizhi_utils.F |
519 |
STRIP2TILE |
integer ia,ib,irun,levs,npeice |
|
./pkg/fizhi/fizhi_utils.F |
520 |
STRIP2TILE |
_RL a(ia,levs), b(ib,levs) |
|
./pkg/fizhi/fizhi_utils.F |
524 |
STRIP2TILE |
offset = ib*(npeice-1) |
|
./pkg/fizhi/fizhi_utils.F |
525 |
STRIP2TILE |
Lena = min(ib,irun-offset) |
|
./pkg/fizhi/fizhi_utils.F |
528 |
STRIP2TILE |
if(Lena.eq.ib) then |
|
./pkg/fizhi/fizhi_utils.F |
538 |
STRIP2TILE |
do 400 i=1,ib-Lena |
|
./pkg/fizhi/fizhi_utils.F |
546 |
PASTE2GRD_OLD |
subroutine PASTE2GRD_OLD(b,indx,chfr,ib,numpts,a,ia,levs,npeice) |
|
./pkg/fizhi/fizhi_utils.F |
573 |
PASTE2GRD_OLD |
integer ia,ib,levs,numpts,npeice |
|
./pkg/fizhi/fizhi_utils.F |
575 |
PASTE2GRD_OLD |
_RL a(ia,levs), b(ib,levs), chfr(ib) |
|
./pkg/fizhi/fizhi_utils.F |
579 |
PASTE2GRD_OLD |
offset = ib*(npeice-1) |
|
./pkg/fizhi/fizhi_utils.F |
580 |
PASTE2GRD_OLD |
Lena = min(ib,numpts-offset) |
|
./pkg/fizhi/fizhi_utils.F |
590 |
PASTE2GRD |
subroutine PASTE2GRD (b,indx,chfr,ib,numpts,a,ia,levs,npeice, |
|
./pkg/fizhi/fizhi_utils.F |
619 |
PASTE2GRD |
integer ia,ib,levs,numpts,npeice |
|
./pkg/fizhi/fizhi_utils.F |
621 |
PASTE2GRD |
_RL a(ia,levs), b(ib,levs), chfr(ib) |
|
./pkg/fizhi/fizhi_utils.F |
627 |
PASTE2GRD |
offset = ib*(npeice-1) |
|
./pkg/fizhi/fizhi_utils.F |
628 |
PASTE2GRD |
Lena = min(ib,numpts-offset) |
|
./pkg/fizhi/fizhi_utils.F |
62 |
STRIP |
integer ia,ib,L,K |
|
./pkg/fizhi/fizhi_utils.F |
91 |
STRIPINT |
integer ia,ib,L,K |
|
./pkg/fizhi/fizhi_moist.F |
1173 |
RAS |
integer i,L,nc,ib,nt |
|
./pkg/fizhi/fizhi_moist.F |
1252 |
RAS |
tx1(i) = cmb2pa * (prs(i,ib+1) - prs(i,ib))/(grav*dt) |
|
./pkg/fizhi/fizhi_moist.F |
1256 |
RAS |
tx1(i) = rhfrac(i)*rknob * cmass(i,ib) / tx1(i) |
|
./pkg/fizhi/fizhi_moist.F |
1257 |
RAS |
if(cmass(i,K).gt.0.) clf(i,ib) = clf(i,ib) + tx1(i) |
|
./pkg/fizhi/fizhi_moist.F |
1258 |
RAS |
if( clf(i,ib).gt.1.) clf(i,ib) = 1. |
|
./pkg/fizhi/fizhi_moist.F |
1263 |
RAS |
do L=ib,k |
|
./pkg/fizhi/fizhi_moist.F |
1269 |
RAS |
do L=ib,k |
|
./pkg/fizhi/fizhi_moist.F |
1276 |
RAS |
detrain(i,ib) = detrain(i,ib) + cmass(i,ib) |
|
./pkg/fizhi/fizhi_moist.F |
1294 |
RAS |
rains(I,ib) = rains(I,ib) + PCU(I)*dt * rhfrac(i) |
|
./pkg/fizhi/fizhi_swrad.F |
1245 |
SOLIR |
integer ib,ik,i,j,k |
|
./pkg/fizhi/fizhi_swrad.F |
1332 |
SOLIR |
do 100 ib=1,nband |
|
./pkg/fizhi/fizhi_swrad.F |
1351 |
SOLIR |
w1=(1.-(aia(ib,1)+(aia(ib,2)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1352 |
SOLIR |
* aia(ib,3)*reff1)*reff1)</ |