| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1121 |
IRRAD |
ff=0.5+(0.3739+(0.0076+0.1185*gg)*gg)*gg |
|
./pkg/fizhi/fizhi_lwrad.F |
1122 |
IRRAD |
taux=taux*(1.-ww*ff) |
|
./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 |
1534 |
IRRAD |
taux=taual(i,j,k2-1,ib)*(1.-ssaal(i,j,k2-1,ib)*ff) |
|
./pkg/fizhi/fizhi_lwrad.F |
621 |
IRRAD |
_RL w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 |
|
./pkg/fizhi/fizhi_swrad.F |
1996 |
DELEDD |
_RL zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2, |
|
./pkg/fizhi/fizhi_swrad.F |
2005 |
DELEDD |
ff = g0*g0 |
|
./pkg/fizhi/fizhi_swrad.F |
2006 |
DELEDD |
xx = one-ff*ssc |
|
./pkg/fizhi/fizhi_swrad.F |
2008 |
DELEDD |
sscp= ssc*(one-ff)/xx |
|
./optim/optim_numbmod.F |
196 |
OPTIM_NUMBMOD |
ff = 0. |
|
./optim/optim_numbmod.F |
261 |
OPTIM_NUMBMOD |
call OPTIM_READDATA ( nn, ctrlname, lheaderonly, ff, vv) |
|
./optim/optim_numbmod.F |
95 |
OPTIM_NUMBMOD |
_RL ff |
|
./optim/optim_readdata.F |
14 |
OPTIM_READDATA |
O ff, |
|
./optim/optim_readdata.F |
386 |
OPTIM_READDATA |
ff = 0. d 0 |
|
./optim/optim_readdata.F |
388 |
OPTIM_READDATA |
ff = fileff |
|
./optim/optim_readdata.F |
51 |
OPTIM_READDATA |
_RL ff |
|
./optim/optim_write_control.F |
38 |
OPTIM_WRITE_CONTROL |
_RL ff |
|
./optim/optim_write_control.F |
44 |
OPTIM_WRITE_CONTROL |
ff = -9999. |
|
./optim/optim_write_control.F |
50 |
OPTIM_WRITE_CONTROL |
call OPTIM_WRITEDATA( nv, ctrlname, lheaderonly, ff, xx ) |
|
./optim/optim_writedata.F |
114 |
OPTIM_WRITEDATA |
print *, 'pathei: ff ', ff |
|
./optim/optim_writedata.F |
147 |
OPTIM_WRITEDATA |
write( funit ) ff |
|
./optim/optim_writedata.F |
14 |
OPTIM_WRITEDATA |
I ff, |
|
./optim/optim_writedata.F |
48 |
OPTIM_WRITEDATA |
_RL ff |
|
./pkg/bling/BLING_VARS.h |
35 |
NO PROCEDURE |
& ff,ft,st,bt, |
|
./pkg/bling/BLING_VARS.h |
48 |
NO PROCEDURE |
_RL ff(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/bling/bling_airseaflux.F |
172 |
BLING_AIRSEAFLUX |
I ff(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
220 |
BLING_AIRSEAFLUX |
& ff(i,j,bi,bj)*pCO2sat(i,j) - |
|
./pkg/bling/bling_carbon_chem.F |
1078 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj)=0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
615 |
CARBON_COEFFS |
ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100 + |
|
./pkg/bling/bling_carbon_chem.F |
705 |
CARBON_COEFFS |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
912 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100 + |
|
./pkg/bling/bling_carbonate_init.F |
139 |
BLING_CARBONATE_INIT |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
207 |
BLING_CARBONATE_INIT |
I ff(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
138 |
BLING_CARBONATE_SYS |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), ff(i,j,bi,bj), |
|
./lsopt/lsline.F |
109 |
LSLINE |
fg = ff |
|
./lsopt/lsline.F |
110 |
LSLINE |
fa = ff |
|
./lsopt/lsline.F |
132 |
LSLINE |
fdiff = fnew - ff |
|
./lsopt/lsline.F |
159 |
LSLINE |
ff = fnew |
|
./lsopt/lsline.F |
254 |
LSLINE |
ff = fg |
|
./lsopt/lsline.F |
280 |
LSLINE |
ff = fg |
|
./lsopt/lsline.F |
56 |
LSLINE |
double precision ff, dotdg, tmin, tmax, tact, epsx |
|
./lsopt/lsline.F |
6 |
LSLINE |
& , ff, dotdg |
|
./lsopt/lsopt_top.F |
263 |
LSOPT_TOP |
call SIMUL( indic, nn, xx, ff, gg ) |
|
./lsopt/lsopt_top.F |
265 |
LSOPT_TOP |
print *, 'pathei: nach simul: nn, ff = ', nn, ff |
|
./lsopt/lsopt_top.F |
297 |
LSOPT_TOP |
phff = ff |
|
./lsopt/lsopt_top.F |
2 |
LSOPT_TOP |
subroutine LSOPT_TOP( nn, xx, ff, gg, simul, optline |
|
./lsopt/lsopt_top.F |
355 |
LSOPT_TOP |
ff = fupd |
|
./lsopt/lsopt_top.F |
358 |
LSOPT_TOP |
phff = ff |
|
./lsopt/lsopt_top.F |
363 |
LSOPT_TOP |
& ff |
|
./lsopt/lsopt_top.F |
377 |
LSOPT_TOP |
print iform, iiter, tact, ifunc, ff, gnorm0 |
|
./lsopt/lsopt_top.F |
409 |
LSOPT_TOP |
fold = ff |
|
./lsopt/lsopt_top.F |
412 |
LSOPT_TOP |
phff = ff |
|
./lsopt/lsopt_top.F |
422 |
LSOPT_TOP |
& , ff, fmin, fold, gnorm0, dotdg |
|
./lsopt/lsopt_top.F |
440 |
LSOPT_TOP |
& , ff, dotdg |
|
./lsopt/lsopt_top.F |
461 |
LSOPT_TOP |
print iform, iiter, tact, ifunc, ff, gnorm |
|
./lsopt/lsopt_top.F |
592 |
LSOPT_TOP |
call OUTSTORE( nn, ff, gnorm0, nupdate, jmin, jmax ) |
|
./lsopt/lsopt_top.F |
604 |
LSOPT_TOP |
& , ff, fmin, fold, gnorm0, dotdg |
|
./lsopt/lsopt_top.F |
60 |
LSOPT_TOP |
double precision xx(nn), ff, gg(nn), epsx, fmin, epsg |
|
./lsopt/lsopt_top.F |
630 |
LSOPT_TOP |
$ , ' cost function...............', ff |
|
./lsopt/lsupdxx.F |
38 |
LSUPDXX |
double precision ff, fmin, fold, gnorm0, dotdg |
|
./lsopt/lsupdxx.F |
5 |
LSUPDXX |
& , ff, fmin, fold, gnorm0, dotdg |
|
./lsopt/lsupdxx.F |
66 |
LSUPDXX |
fdiff = fold - ff |
|
./pkg/dic/DIC_VARS.h |
27 |
NO PROCEDURE |
& ff,ft,st,bt, Ksp_TP_Calc |
|
./pkg/dic/DIC_VARS.h |
39 |
NO PROCEDURE |
_RL ff(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/dic/calcite_saturation.F |
116 |
CALCITE_SATURATION |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), ff(i,j,bi,bj), |
|
./pkg/dic/carbon_chem.F |
1046 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj)=0.d0 |
|
./pkg/dic/carbon_chem.F |
619 |
CARBON_COEFFS |
ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100 + |
|
./pkg/dic/carbon_chem.F |
709 |
CARBON_COEFFS |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/carbon_chem.F |
888 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100 + |
|
./pkg/dic/dic_surfforcing.F |
168 |
DIC_SURFFORCING |
I ff(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
209 |
DIC_SURFFORCING |
& ff(i,j,bi,bj)*pCO2(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
217 |
DIC_SURFFORCING |
& ff(i,j,bi,bj)*pCO2sat(i,j) - |
|
./pkg/dic/dic_surfforcing_init.F |
146 |
DIC_SURFFORCING_INIT |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
238 |
DIC_SURFFORCING_INIT |
I ff(i,j,bi,bj), |