| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
298 |
EXF_BULKFORMULAE |
tmpbulk = cvapor_fac*exp(-cvapor_exp/Tsf) |
|
./pkg/fizhi/fizhi_init_chem.F |
273 |
GET_METHANE_N2O |
n2o(L) = 120.* exp( (26.- hght(L)) / 5.69 ) * 1.e-9 |
|
./pkg/fizhi/fizhi_init_chem.F |
275 |
GET_METHANE_N2O |
n2o(L) = 307.* exp( (16.- hght(L)) /10.47 ) * 1.e-9 |
|
./pkg/fizhi/fizhi_init_chem.F |
285 |
GET_METHANE_N2O |
methane(L) = 1.7* exp( (14.- hght(L)) /19.16 ) * 1.e-6 |
|
./pkg/fizhi/fizhi_lwrad.F |
1128 |
IRRAD |
clr(i,j,k)=1.0-(fcld(i,j,k)*(1.0-exp(-1.66*taux))) |
|
./pkg/fizhi/fizhi_lwrad.F |
1535 |
IRRAD |
tranal(i,j)=tranal(i,j)*exp(-1.66*taux) |
|
./pkg/fizhi/fizhi_lwrad.F |
1823 |
H2OEXPS |
h2oexp(i,j,k,1) = exp(-xh*xkw(ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1921 |
CONEXPS |
conexp(i,j,k,1) = exp(-dcont(i,j,k)*xke(ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1991 |
CO2EXPS |
co2exp(i,j,k,1,1)=exp(-xc*2.656e-5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2019 |
CO2EXPS |
co2exp(i,j,k,1,2)=exp(-xc*2.656e-3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2090 |
N2OEXPS |
n2oexp(i,j,k,1)=exp(-xc*6.31582e-2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2103 |
N2OEXPS |
n2oexp(i,j,k,1)=exp(-xc*5.35779e-2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2166 |
CH4EXPS |
ch4exp(i,j,k,1)=exp(-xc*5.80708e-3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2174 |
CH4EXPS |
ch4exp(i,j,k,1)=exp(-xc*6.29247e-2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2238 |
COMEXPS |
comexp(i,j,k,1)=exp(-xc*2.18947e-5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2252 |
COMEXPS |
comexp(i,j,k,1)=exp(-xc*4.74570e-5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2318 |
CFCEXPS |
cfcexp(i,j,k)=exp(-xf*fk1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2321 |
CFCEXPS |
cfcexp(i,j,k)=exp(-xf*fk2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2383 |
B10EXPS |
h2oexp(i,j,k,1)=exp(-xx*0.10624) |
|
./pkg/fizhi/fizhi_lwrad.F |
2414 |
B10EXPS |
co2exp(i,j,k,1,1)=exp(-xx*2.656e-5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2440 |
B10EXPS |
conexp(i,j,k,1)=exp(-dcont(i,j,k)*1.04995e+2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2448 |
B10EXPS |
n2oexp(i,j,k,1)=exp(-xx*0.25238) |
|
./pkg/fizhi/fizhi_lwrad.F |
927 |
IRRAD |
dcont(i,j,k) = xx*exp(1800./ta(i,j,k)-6.081)+1.e-10 |
|
./pkg/fizhi/fizhi_moist.F |
2706 |
CTEI |
if (s.GT.0. ) f = max( 0.0 _d 0, min( 1.0 _d 0, exp(-s)) ) |
|
./pkg/kpp/kpp_routines.F |
1960 |
KPP_DOUBLEDIFF |
& * exp ( 4.6 _d 0 * exp ( |
|
./pkg/land/land_albedo.F |
83 |
LAND_ALBEDO |
& +(albSnow-albOldSnow)*exp(-0.2 _d 0*ageSnow) |
|
./pkg/land/land_albedo.F |
87 |
LAND_ALBEDO |
& +(alb_land(i,j)-albSnow)*exp(-hSnow/hAlbSnow) |
|
./pkg/salt_plume/salt_plume_frac.F |
124 |
SALT_PLUME_FRAC |
S = exp(facz/dd)-one |
|
./pkg/seaice/seaice_calc_viscosities.F |
155 |
SEAICE_CALC_VISCOSITIES |
argTmp = exp(-1. _d 0/(deltaCreg*SEAICE_zetaMaxFac)) |
|
./pkg/seaice/seaice_growth.F |
1100 |
SEAICE_GROWTH |
& latMeltRate(i,j,it) = 1.6 _d -6 * exp(1.36*log(tmpscal1)) |
|
./pkg/seaice/seaice_growth.F |
1633 |
SEAICE_GROWTH |
tmpscal1=exp(-SEAICE_deltaTtherm/greaseDecayTime) |
|
./pkg/seaice/seaice_init_varia.F |
709 |
SEAICE_INIT_VARIA |
& *exp(-ABS(R_low(i,j,bi,bj))*recip_tensilDepth) |
|
./pkg/seaice/seaice_itd_pickup.F |
155 |
SEAICE_ITD_PICKUP |
& * exp( -(LND_tmp*LND_tmp) |
|
./pkg/thsice/thsice_solve4temp.F |
282 |
THSICE_SOLVE4TEMP |
fswocn = fswpen * exp(-ksolar*hIce(i,j)) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
337 |
AIM_SURF_BC |
& +20. _d 0 *exp( -((xC(i,j,bi,bj)-xBump)/dxBump)**2 |
|
./verification/dome/code/obcs_calc.F |
158 |
OBCS_CALC |
hinit=Dinf*(exp(-x)) - Dmax |
|
./verification/dome/code/obcs_calc.F |
180 |
OBCS_CALC |
& - sqrt(gp_inflow*Dinf)*exp(-x) |
|
./verification/dome/code/obcs_calc.F |
90 |
OBCS_CALC |
rexpt=1. _d 0/exp(futureTime/rampTime2) |
|
./verification/internal_wave/code/obcs_calc.F |
129 |
OBCS_CALC |
& * (exp(futureTime/rampTime2) |
|
./verification/internal_wave/code/obcs_calc.F |
130 |
OBCS_CALC |
& - exp(-futureTime/rampTime2)) |
|
./verification/internal_wave/code/obcs_calc.F |
131 |
OBCS_CALC |
& /(exp(futureTime/rampTime2) |
|
./verification/internal_wave/code/obcs_calc.F |
132 |
OBCS_CALC |
& + exp(-futureTime/rampTime2)) |
|
./model/src/swfrac.F |
105 |
SWFRAC |
swdk(i) = rfac(jwtype) * exp( facz/a1(jwtype) ) |
|
./model/src/swfrac.F |
106 |
SWFRAC |
& + (1. _d 0 - rfac(jwtype)) * exp( facz/a2(jwtype) ) |
|
./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_carbon_chem.F |
1001 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 - |
|
./pkg/bling/bling_carbon_chem.F |
1010 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis + |
|
./pkg/bling/bling_carbon_chem.F |
605 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * |
|
./pkg/bling/bling_carbon_chem.F |
609 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
|
./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 |
621 |
CARBON_COEFFS |
ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
637 |
CARBON_COEFFS |
akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts - |
|
./pkg/bling/bling_carbon_chem.F |
645 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
652 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
659 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
665 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
674 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
681 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
690 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
902 |
CARBON_COEFFS_PRESSURE_DEP |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * |
|
./pkg/bling/bling_carbon_chem.F |
906 |
CARBON_COEFFS_PRESSURE_DEP |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
|
./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_carbon_chem.F |
918 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 + |
|
./pkg/bling/bling_carbon_chem.F |
936 |
CARBON_COEFFS_PRESSURE_DEP |
& exp( (24.2-0.085*t)*(pressc-1.0)/(83.143*tk) ) |
|
./pkg/bling/bling_carbon_chem.F |
943 |
CARBON_COEFFS_PRESSURE_DEP |
& exp( (16.4-0.040*t)*(pressc-1.0)/(83.143*tk) ) |
|
./pkg/bling/bling_carbon_chem.F |
947 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj)=exp((-8966.90 - 2890.53*sqrts - 77.942*s + |
|
./pkg/bling/bling_carbon_chem.F |
961 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj) = akb(i,j,bi,bj)*exp(pfactor) |
|
./pkg/bling/bling_carbon_chem.F |
965 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 - |
|
./pkg/bling/bling_carbon_chem.F |
972 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 - |
|
./pkg/bling/bling_carbon_chem.F |
979 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 + |
|
./pkg/bling/bling_carbon_chem.F |
985 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 - |
|
./pkg/bling/bling_carbon_chem.F |
994 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 - |
|
./pkg/bling/bling_dvm.F |
256 |
BLING_DVM |
erfcc = t_erfcc*exp(-z_erfcc*z_erfcc-1.26551223+t_erfcc* |
|
./pkg/bling/bling_light.F |
177 |
BLING_LIGHT |
irr_inst(i,j,1) = irr_surf(i,j)*exp(-atten) |
|
./pkg/bling/bling_light.F |
183 |
BLING_LIGHT |
& irr_inst(i,j,k-1)*exp(-atten) |
|
./pkg/bling/bling_production.F |
421 |
BLING_PROD |
expkT(i,j,k) = exp(kappa_eppley * theta(i,j,k,bi,bj)) |
|
./pkg/bling/bling_production.F |
431 |
BLING_PROD |
& * exp(kappa_eppley_diaz * theta(i,j,k,bi,bj)) |
|
./pkg/bling/bling_production.F |
476 |
BLING_PROD |
mu(i,j,k) = Pc_m * ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
479 |
BLING_PROD |
mu_diaz(i,j,k) = Pc_m_diaz * ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
482 |
BLING_PROD |
light_lim(i,j,k) = ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
621 |
BLING_PROD |
& exp(kappa_remin * theta(i,j,k,bi,bj)) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
151 |
BULKF_FORMULA_LANL |
ssq = ssq0*exp( lath*(ssq1-ssq2/Tsf) ) / p0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
137 |
CHEAPAML_LANL_FLUX |
ssq= ssq0*exp( lath*(ssq1-ssq2/toa) ) / p0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
138 |
CHEAPAML_LANL_FLUX |
ssqt = ssq0*exp( lath*(ssq1-ssq2/ttt) ) / pt |
|
./pkg/dic/bio_export.F |
110 |
BIO_EXPORT |
lit(i,j)=lit(i,j)*exp(-atten) |
|
./pkg/dic/car_flux.F |
100 |
CAR_FLUX |
reminFac = exp(-(depth_l-zbase)/zca) |
|
./pkg/dic/car_flux.F |
108 |
CAR_FLUX |
reminFac = exp(-(depth_l-zbase)/zca) |
|
./pkg/dic/car_flux_omega_top.F |
133 |
CAR_FLUX_OMEGA_TOP |
flux_l = flux_u*exp(dumrate) |
|
./pkg/dic/carbon_chem.F |
615 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
|
./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 |
625 |
CARBON_COEFFS |
ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 + |
|
./pkg/dic/carbon_chem.F |
641 |
CARBON_COEFFS |
akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts - |
|
./pkg/dic/carbon_chem.F |
649 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 - |
|
./pkg/dic/carbon_chem.F |
656 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 - |
|
./pkg/dic/carbon_chem.F |
663 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 + |
|
./pkg/dic/carbon_chem.F |
669 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 - |
|
./pkg/dic/carbon_chem.F |
678 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 - |
|
./pkg/dic/carbon_chem.F |
685 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 - |
|
./pkg/dic/carbon_chem.F |
694 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _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/carbon_chem.F |
894 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 + |
|
./pkg/dic/carbon_chem.F |
912 |
CARBON_COEFFS_PRESSURE_DEP |
& exp( (24.2-0.085*t)*(pressc-1.0)/(83.143*tk) ) |
|
./pkg/dic/carbon_chem.F |
919 |
CARBON_COEFFS_PRESSURE_DEP |
& exp( (16.4-0.040*t)*(pressc-1.0)/(83.143*tk) ) |
|
./pkg/dic/carbon_chem.F |
923 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj)=exp((-8966.90 - 2890.53*sqrts - 77.942*s + |
|
./pkg/dic/carbon_chem.F |
937 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj) = akb(i,j,bi,bj)*exp(pfactor) |
|
./pkg/dic/carbon_chem.F |
941 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 - |
|
./pkg/dic/carbon_chem.F |
948 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 - |
|
./pkg/dic/carbon_chem.F |
955 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 + |
|
./pkg/dic/carbon_chem.F |
961 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 - |
|
./pkg/dic/carbon_chem.F |
970 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 - |
|
./pkg/dic/carbon_chem.F |
977 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 - |
|
./pkg/dic/carbon_chem.F |
986 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis + |
|
./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)) |
|
./pkg/ebm/ebm_atmosphere.F |
202 |
EBM_ATMOSPHERE |
& *(Cs + Cl*exp(-5420./T35(no_so))) |
|
./pkg/ebm/ebm_atmosphere.F |
206 |
EBM_ATMOSPHERE |
& *Cf*exp(-5420./T35(no_so)) |