File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_init_vars.F |
146 |
FIZHI_INIT_VARS |
& log((pephy(i,j,1,bi,bj)-pephy(i,j,L+1,bi,bj))*10.) |
./pkg/fizhi/fizhi_utils.F |
876 |
CHPPRM |
dum1 = log (vroot / (1. - vroot)) |
./pkg/fizhi/fizhi_utils.F |
888 |
CHPPRM |
ufac(i) = log( (vgz2(ityp(i)) - d) / zoch(i) ) |
./pkg/fizhi/fizhi_utils.F |
889 |
CHPPRM |
* / log( pblzet / zoch(i) ) |
./pkg/fizhi/fizhi_utils.F |
894 |
CHPPRM |
cdrc(i) = vkrm/log(cdsc(i)) |
./pkg/ggl90/ggl90_idemix.F |
149 |
GGL90_IDEMIX |
fxc = log( fxc + sqrt( fxc*fxc -1.)) |
./pkg/seaice/seaice_growth.F |
1100 |
SEAICE_GROWTH |
& latMeltRate(i,j,it) = 1.6 _d -6 * exp(1.36*log(tmpscal1)) |
./pkg/seaice/seaice_itd_pickup.F |
143 |
SEAICE_ITD_PICKUP |
LND_mu = log(HEFF(i,j,bi,bj)/AREA(i,j,bi,bj)) |
./pkg/seaice/seaice_itd_pickup.F |
152 |
SEAICE_ITD_PICKUP |
LND_tmp = log(LND_x(LND_i))-LND_mu |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
185 |
DO_FIZHI |
term2=10. _d 0*log(termP/atm_po) |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
126 |
FIZHI_INIT_VARS |
& log((pephy(i,j,1,bi,bj)-pephy(i,j,L+1,bi,bj))*10.) |
./verification/hs94.1x64x5/code/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
./verification/hs94.1x64x5/code_oad/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
./model/src/update_masks_etc.F |
423 |
UPDATE_MASKS_ETC |
SMOOTHABS_RS = log(.5*(exp(x*sf)+exp(-x*sf)))*rsf |
./model/src/update_masks_etc.F |
460 |
UPDATE_MASKS_ETC |
SMOOTHABS_RL = log(.5*(exp(x*sf)+exp(-x*sf)))*rsf |
./pkg/bling/bling_airseaflux.F |
270 |
BLING_AIRSEAFLUX |
aTS = log(aTT/aTK) |
./pkg/bling/bling_carbon_chem.F |
1006 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0 - 0.001005*s)) |
./pkg/bling/bling_carbon_chem.F |
1011 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0 - 0.001005*s) + |
./pkg/bling/bling_carbon_chem.F |
1012 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0 + (0.1400/96.062)*(scl)/aks(i,j,bi,bj))) |
./pkg/bling/bling_carbon_chem.F |
584 |
CARBON_COEFFS |
dlogtk=log(tk) |
./pkg/bling/bling_carbon_chem.F |
616 |
CARBON_COEFFS |
& 90.9241 _d 0*log(tk100) - 1.47696 _d 0*tk1002 + |
./pkg/bling/bling_carbon_chem.F |
622 |
CARBON_COEFFS |
& 23.3585 _d 0 * log(tk100) + |
./pkg/bling/bling_carbon_chem.F |
670 |
CARBON_COEFFS |
& log(1.0 _d 0-0.001005 _d 0*s)) |
./pkg/bling/bling_carbon_chem.F |
686 |
CARBON_COEFFS |
& log(1.0 _d 0 - 0.001005 _d 0*s)) |
./pkg/bling/bling_carbon_chem.F |
691 |
CARBON_COEFFS |
& 1.525 _d 0*sqrtis + log(1.0 _d 0 - 0.001005 _d 0*s) + |
./pkg/bling/bling_carbon_chem.F |
692 |
CARBON_COEFFS |
& log(1.0 _d 0 + (0.1400 _d 0/96.062 _d 0)*(scl)/aks(i,j,bi,bj))) |
./pkg/bling/bling_carbon_chem.F |
878 |
CARBON_COEFFS_PRESSURE_DEP |
dlogtk=log(tk) |
./pkg/bling/bling_carbon_chem.F |
913 |
CARBON_COEFFS_PRESSURE_DEP |
& 90.9241*log(tk100) - 1.47696*tk1002 + |
./pkg/bling/bling_carbon_chem.F |
919 |
CARBON_COEFFS_PRESSURE_DEP |
& 23.3585 * log(tk100) + |
./pkg/bling/bling_carbon_chem.F |
990 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0-0.001005*s)) |
./pkg/bulk_force/bulkf_formula_lanl.F |
129 |
BULKF_FORMULA_LANL |
aln = log(ht/zref) |
./pkg/bulk_force/bulkf_formula_lanl.F |
157 |
BULKF_FORMULA_LANL |
rdn=xkar/(log(zref/zice)) |
./pkg/bulk_force/bulkf_formula_lanl.F |
174 |
BULKF_FORMULA_LANL |
& (2. _d 0*log(5. _d -1*(1. _d 0+x)) + |
./pkg/bulk_force/bulkf_formula_lanl.F |
175 |
BULKF_FORMULA_LANL |
& 2. _d 0*log(5. _d -1*(1. _d 0+xsq)) - |
./pkg/bulk_force/bulkf_formula_lanl.F |
178 |
BULKF_FORMULA_LANL |
& (2. _d 0*log(5. _d -1*(1. _d 0+xsq))) |
./pkg/cfc/cfc11_surfforcing.F |
84 |
CFC11_SURFFORCING |
& + A3_11 * log( ttemp ) |
./pkg/cfc/cfc12_surfforcing.F |
84 |
CFC12_SURFFORCING |
& + A3_12 * log( ttemp ) |
./pkg/cheapaml/cheapaml_lanl_flux.F |
155 |
CHEAPAML_LANL_FLUX |
rdn=xkar/(log(zref/zice)) |
./pkg/cheapaml/cheapaml_lanl_flux.F |
172 |
CHEAPAML_LANL_FLUX |
& (2. _d 0*log(5. _d -1*(1. _d 0+x)) + |
./pkg/cheapaml/cheapaml_lanl_flux.F |
173 |
CHEAPAML_LANL_FLUX |
& 2. _d 0*log(5. _d -1*(1. _d 0+xsq)) - |
./pkg/cheapaml/cheapaml_lanl_flux.F |
176 |
CHEAPAML_LANL_FLUX |
& (2. _d 0*log(5. _d -1*(1. _d 0+xsq))) |
./pkg/cheapaml/cheapaml_lanl_flux.F |
216 |
CHEAPAML_LANL_FLUX |
& (2. _d 0*log(5. _d -1*(1. _d 0+xsq))) |
./pkg/cheapaml/cheapaml_lanl_flux.F |
88 |
CHEAPAML_LANL_FLUX |
aln = log(ht/zref) |
./pkg/dic/carbon_chem.F |
596 |
CARBON_COEFFS |
dlogtk=log(tk) |
./pkg/dic/carbon_chem.F |
620 |
CARBON_COEFFS |
& 90.9241 _d 0*log(tk100) - 1.47696 _d 0*tk1002 + |
./pkg/dic/carbon_chem.F |
626 |
CARBON_COEFFS |
& 23.3585 _d 0 * log(tk100) + |
./pkg/dic/carbon_chem.F |
674 |
CARBON_COEFFS |
& log(1.0 _d 0-0.001005 _d 0*s)) |
./pkg/dic/carbon_chem.F |
690 |
CARBON_COEFFS |
& log(1.0 _d 0 - 0.001005 _d 0*s)) |
./pkg/dic/carbon_chem.F |
695 |
CARBON_COEFFS |
& 1.525 _d 0*sqrtis + log(1.0 _d 0 - 0.001005 _d 0*s) + |
./pkg/dic/carbon_chem.F |
696 |
CARBON_COEFFS |
& log(1.0 _d 0 + (0.1400 _d 0/96.062 _d 0)*(scl)/aks(i,j,bi,bj))) |
./pkg/dic/carbon_chem.F |
876 |
CARBON_COEFFS_PRESSURE_DEP |
dlogtk=log(tk) |
./pkg/dic/carbon_chem.F |
889 |
CARBON_COEFFS_PRESSURE_DEP |
& 90.9241*log(tk100) - 1.47696*tk1002 + |
./pkg/dic/carbon_chem.F |
895 |
CARBON_COEFFS_PRESSURE_DEP |
& 23.3585 * log(tk100) + |
./pkg/dic/carbon_chem.F |
966 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0-0.001005*s)) |
./pkg/dic/carbon_chem.F |
982 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0 - 0.001005*s)) |
./pkg/dic/carbon_chem.F |
987 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0 - 0.001005*s) + |
./pkg/dic/carbon_chem.F |
988 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0 + (0.1400/96.062)*(scl)/aks(i,j,bi,bj))) |
./pkg/dic/o2_surfforcing.F |
93 |
O2_SURFFORCING |
aTS = log(aTT/aTK) |
./pkg/dic/phos_flux.F |
104 |
PHOS_FLUX |
reminFac = exp(-Kremin*log(depth_l/zbase)) |
./pkg/dic/phos_flux.F |
114 |
PHOS_FLUX |
reminFac = exp(-Kremin*log(depth_l/zbase)) |