| 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 |
1994 |
TRBFLX |
1 SHL(I,NLEV) = SHL(I,NLEV)+RSQ2PI*SVAR(I,NLEV)*EXP(-ARG(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
2165 |
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/land/land_stepfwd.F |
204 |
LAND_STEPFWD |
& *EXP( -hNewSnow/hNewSnowAge ) |
|
./pkg/seaice/dynsolver.F |
219 |
DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/seaice_budget_ice_if.F |
204 |
SEAICE_BUDGET_ICE_IF |
& XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_budget_ocean.F |
110 |
SEAICE_BUDGET_OCEAN |
B(I,J)=QS1*6.11 _d +00*EXP(17.2694 _d +00 |
|
./pkg/seaice/seaice_budget_ocean_if.F |
134 |
SEAICE_BUDGET_OCEAN_IF |
B(I,J)=QS1*6.11 _d +00*EXP(17.2694 _d +00 |
|
./pkg/seaice/seaice_dynsolver.F |
215 |
SEAICE_DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_dynsolver.F |
65 |
SEAICE_DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_init_varia.F |
452 |
SEAICE_INIT_VARIA |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_solve4temp.F |
318 |
SEAICE_SOLVE4TEMP |
& *(1.0 _d 0 - XIO*EXP(-1.5 _d 0*HICE_ACTUAL(I,J))) |
|
./pkg/seaice/seaice_solve4temp.F |
337 |
SEAICE_SOLVE4TEMP |
& XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
548 |
SEAICE_SOLVE4TEMP |
& *XIO*EXP(-1.5 _d 0*HICE_ACTUAL(I,J)) |
|
./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 |
241 |
THSICE_GET_EXF |
tmpbulk = qsat_fac*EXP(-qsat_exp/Tsf) |
|
./pkg/thsice/thsice_step_fwd.F |
159 |
THSICE_STEP_FWD |
& * EXP( - snowFac*snowPrc(i,j,bi,bj) ) |
|
./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 |
93 |
UPDATE_MASKS_ETC |
& EXP(-hFacCtmp/hFacMnSz)-EXP(-1./hFacMnSz) ) |
|
./pkg/aim_v23/phy_radiat.F |
316 |
RADSW |
TAU2(J,1,1)=EXP(-DELTAP*ABSDRY) |
|
./pkg/aim_v23/phy_radiat.F |
326 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
329 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
332 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
343 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
349 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABSWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
459 |
RADSW |
TAU2(J,1,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
460 |
RADSW |
TAU2(J,1,2)=EXP(-DELTAP*ABLCO2) |
|
./pkg/aim_v23/phy_radiat.F |
471 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLDLW(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
473 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
476 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
478 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABLCO2) |
|
./pkg/aim_v23/phy_radiat.F |
479 |
RADSW |
TAU2(J,K,3)=EXP(-DELTAP*ABLWV1*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
480 |
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/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/cheapaml/cheapaml_fields_load.F |
134 |
CHEAPAML_FIELDS_LOAD |
bump=-5.d0*EXP(-(float(jg-127)*float(jg-127))/1920.0) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
321 |
CHEAPAML_FIELDS_LOAD |
bump=-5.d0*EXP(-(float(jg-127)*float(jg-127))/1920.0) |
|
./pkg/dic/o2_surfforcing.F |
104 |
O2_SURFFORCING |
o2s = EXP(oCnew) |