| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
755 |
RCUNST |
EKAT = EXP( ZK*ZLAI(ChNo) ) |
|
./pkg/fizhi/fizhi_moist.F |
2520 |
RNEVP |
AREARAT = ONE-(EXP(EXPARG)) |
|
./pkg/fizhi/fizhi_moist.F |
2572 |
RNEVP |
AREARAT = ONE-(EXP(EXPARG)) |
|
./pkg/fizhi/fizhi_turb.F |
1742 |
TRBFLX |
1 SHL(I,NLEV) = SHL(I,NLEV)+RSQ2PI*SVAR(I,NLEV)*EXP(-ARG(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1863 |
TRBFLX |
1 SHL(I,L) = SHL(I,L)+RSQ2PI*SVAR(I,L)*EXP(-ARG(I,L)) |
|
./pkg/fizhi/fizhi_utils.F |
52 |
NO PROCEDURE |
2 * EXP(-AARG*AARG) |
|
./pkg/fizhi/slprs.F |
73 |
SLPRS |
SLP(I) = PLE(I,LM+1) * EXP( SLP(I) ) |
|
./pkg/ggl90/ggl90_idemix.F |
483 |
GGL90_IDEMIX |
IDEMIX_gofx2 = 2.d0/pi/c*0.9d0*x**(-2.d0/3.d0)*(1.-EXP(-x/4.3d0)) |
|
./pkg/land/land_stepfwd.F |
204 |
LAND_STEPFWD |
& *EXP( -hNewSnow/hNewSnowAge ) |
|
./pkg/seaice/dynsolver.F |
226 |
DYNSOLVER |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
150 |
SEAICE_BOTTOMDRAG_COEFFS |
& * LOG(EXP( fac*(hActual - hCrit) ) + 1. _d 0)*rFac |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
151 |
SEAICE_BOTTOMDRAG_COEFFS |
& * EXP( - SEAICE_cBasalStar |
|
./pkg/seaice/seaice_budget_ocean.F |
131 |
SEAICE_BUDGET_OCEAN |
ssq = QS1*6.11 _d 0 *EXP( 17.2694 _d 0 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
118 |
SEAICE_CALC_ICE_STRENGTH |
& *EXP(-SEAICE_cStar*(SEAICE_area_max-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_do_ridging.F |
355 |
SEAICE_DO_RIDGING |
expL = EXP(-( hL - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
356 |
SEAICE_DO_RIDGING |
expR = EXP(-( hR - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
370 |
SEAICE_DO_RIDGING |
expL = EXP(-( hL - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_dynsolver.F |
79 |
SEAICE_DYNSOLVER |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_growth.F |
2026 |
SEAICE_GROWTH |
& (ONE + EXP( (SPinflectionPoint - AREApreTH(I,J))*5.0 |
|
./pkg/seaice/seaice_growth.F |
2112 |
SEAICE_GROWTH |
& (ONE + EXP( (SPinflectionPoint - AREApreTH(I,J))*5.0 |
|
./pkg/seaice/seaice_init_varia.F |
679 |
SEAICE_INIT_VARIA |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_prepare_ridging.F |
176 |
SEAICE_PREPARE_RIDGING |
tmp = 1. _d 0 / ( 1. _d 0 - EXP( -recip_astar ) ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
181 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = EXP(-gSum(i,j,k)*recip_astar) * tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
187 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = EXP(-gSum(i,j,k)*recip_astar) * tmp |
|
./pkg/seaice/seaice_solve4temp.F |
178 |
SEAICE_SOLVE4TEMP |
cc0 = EXP(aa2*lnTEN) |
|
./pkg/seaice/seaice_solve4temp.F |
314 |
SEAICE_SOLVE4TEMP |
penetSWFrac = XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
388 |
SEAICE_SOLVE4TEMP |
mm_pi = EXP(mm_log10pi*lnTEN) |
|
./pkg/seaice/seaice_solve4temp.F |
393 |
SEAICE_SOLVE4TEMP |
cc3t = EXP(aa1 / t1 * lnTEN) |
|
./pkg/seaice/seaice_solve4temp.F |
502 |
SEAICE_SOLVE4TEMP |
mm_pi = EXP(mm_log10pi*lnTEN) |
|
./pkg/thsice/thsice_albedo.F |
113 |
THSICE_ALBEDO |
albice = albIceMax + (albIceMin-albIceMax)*EXP(-hi/hAlbIce) |
|
./pkg/thsice/thsice_albedo.F |
139 |
THSICE_ALBEDO |
& +(albNewSnow-albOldSnow)*EXP(-0.2 _d 0*age/86400. _d 0) |
|
./pkg/thsice/thsice_albedo.F |
141 |
THSICE_ALBEDO |
albedo = albsno + (albice-albsno)*EXP(-hs/hAlbSnow) |
|
./pkg/thsice/thsice_get_exf.F |
248 |
THSICE_GET_EXF |
tmpbulk = qsat_fac*EXP(-qsat_exp/Tsf) |
|
./pkg/thsice/thsice_step_fwd.F |
170 |
THSICE_STEP_FWD |
& * EXP( - snowFac*snowPrc(i,j) ) |
|
./verification/advect_xy/code/ini_theta.F |
70 |
INI_THETA |
theta(i,j,k,bi,bj) = EXP( -0.5 _d 0*( rD/20. _d 3 )**2 ) |
|
./model/src/update_masks_etc.F |
110 |
UPDATE_MASKS_ETC |
& EXP(-hFacCtmp/hFacMnSz)-EXP(-1./hFacMnSz) ) |
|
./pkg/aim_v23/phy_radiat.F |
323 |
RADSW |
TAU2(J,1,1)=EXP(-DELTAP*ABSDRY) |
|
./pkg/aim_v23/phy_radiat.F |
333 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
336 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
339 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
350 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
356 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABSWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
466 |
RADSW |
TAU2(J,1,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
467 |
RADSW |
TAU2(J,1,2)=EXP(-DELTAP*absCO2) |
|
./pkg/aim_v23/phy_radiat.F |
478 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLDLW(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
480 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
483 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
485 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*absCO2) |
|
./pkg/aim_v23/phy_radiat.F |
486 |
RADSW |
TAU2(J,K,3)=EXP(-DELTAP*ABLWV1*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
487 |
RADSW |
TAU2(J,K,4)=EXP(-DELTAP*ABLWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_shtorh.F |
67 |
SHTORH |
tmpQ = E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/aim_v23/phy_shtorh.F |
72 |
SHTORH |
tmpQ = E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/aim_v23/phy_shtorh.F |
84 |
SHTORH |
QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/aim_v23/phy_shtorh.F |
86 |
SHTORH |
QSAT(J)=E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/aim_v23/phy_suflux_prep.F |
256 |
SFLSET |
& + FHDRAG*(1. _d 0 - EXP(-MAX(PHI0(J),0. _d 0)*RHDRAG) ) |
|
./pkg/bling/bling_airseaflux.F |
281 |
BLING_AIRSEAFLUX |
o2s = EXP(oCnew) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
158 |
BULKF_FORMULA_LAY |
ssq = saltQsFac*qs1w*EXP( -qs2w/Tsf ) / rhoA |
|
./pkg/bulk_force/bulkf_formula_lay.F |
162 |
BULKF_FORMULA_LAY |
ssq = qs1i*EXP( -qs2i/Tsf ) / rhoA |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
67 |
BULKF_SH2RH_AIM |
tmpQ = E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
72 |
BULKF_SH2RH_AIM |
tmpQ = E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
84 |
BULKF_SH2RH_AIM |
QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
86 |
BULKF_SH2RH_AIM |
QSAT(J)=E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/cfc/cfc11_surfforcing.F |
82 |
CFC11_SURFFORCING |
& EXP ( A1_11 |
|
./pkg/cfc/cfc12_surfforcing.F |
82 |
CFC12_SURFFORCING |
& EXP ( A1_12 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
104 |
CHEAPAML_COARE3_FLUX |
ssqt=ssq0*EXP( lath*(ssq1-ssq2/tta) ) / p0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
137 |
CHEAPAML_COARE3_FLUX |
zot10=10. _d 0/EXP(xkar/Ct10) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
304 |
CHEAPAML_COARE3_FLUX |
psiu = -( (1.+zL) + 0.6667 _d 0*(zL-14.28 _d 0)/EXP(c) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
342 |
CHEAPAML_COARE3_FLUX |
& + 0.6667 _d 0*(zL-14.28 _d 0)/EXP(c) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
87 |
CHEAPAML_COARE3_FLUX |
& *EXP( 17.502 _d 0*tsw/(240.97 _d 0+tsw) ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
492 |
CHEAPAML_FIELDS_LOAD |
ssqa = ssq0*EXP( lath*(ssq1-ssq2/local)) / p0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
108 |
CHEAPAML_INIT_VARIA |
& + 10. _d 0*EXP( -( (jG-30)**2+(iG-30)**2 )/100. _d 0 ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
134 |
CHEAPAML_INIT_VARIA |
ssqa = ssq0*EXP( lath*(ssq1-ssq2/local) ) / p0 |
|
./pkg/dic/o2_surfforcing.F |
104 |
O2_SURFFORCING |
o2s = EXP(oCnew) |