File |
Line number |
Procedure |
Code |
./pkg/ggl90/ggl90_idemix.F |
304 |
GGL90_IDEMIX |
delta(i,j,k) = deltaTggl90*IDEMIX_tau_v |
./pkg/ggl90/ggl90_idemix.F |
312 |
GGL90_IDEMIX |
delta(i,j,1) = 0. _d 0 |
./pkg/ggl90/ggl90_idemix.F |
313 |
GGL90_IDEMIX |
delta(i,j,Nr) = 0. _d 0 |
./pkg/ggl90/ggl90_idemix.F |
315 |
GGL90_IDEMIX |
delta(i,j,kBottom) = 0. _d 0 |
./pkg/ggl90/ggl90_idemix.F |
331 |
GGL90_IDEMIX |
a3d(i,j,k) = -delta(i,j,k-1)*c0(i,j,km1) |
./pkg/ggl90/ggl90_idemix.F |
344 |
GGL90_IDEMIX |
c3d(i,j,k) = -delta(i,j,k)*c0(i,j,kp1) |
./pkg/ggl90/ggl90_idemix.F |
373 |
GGL90_IDEMIX |
b3d(i,j,k) = b3d(i,j,k) + delta(i,j,k)*c0(i,j,k) |
./pkg/ggl90/ggl90_idemix.F |
377 |
GGL90_IDEMIX |
b3d(i,j,k) = b3d(i,j,k) + delta(i,j,km1)*c0(i,j,k) |
./pkg/ggl90/ggl90_idemix.F |
393 |
GGL90_IDEMIX |
& + delta(i,j,km1 )*c0(i,j,k) |
./pkg/ggl90/ggl90_idemix.F |
401 |
GGL90_IDEMIX |
& + delta(i,j,k)*c0(i,j,k) |
./pkg/ggl90/ggl90_idemix.F |
68 |
GGL90_IDEMIX |
_RL delta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/ggl90/ggl90_idemix.F |
91 |
GGL90_IDEMIX |
delta(i,j,k) = 0. _d 0 |
./pkg/kpp/kpp_routines.F |
1603 |
ENHANCE |
_RL delta |
./pkg/kpp/kpp_routines.F |
1610 |
ENHANCE |
delta = (hbl(i) + zgrid(ki)) / (zgrid(ki) - zgrid(ki+1)) |
./pkg/kpp/kpp_routines.F |
1614 |
ENHANCE |
dstar = (1.- delta)**2 * dkm1(i,md) |
./pkg/kpp/kpp_routines.F |
1615 |
ENHANCE |
& + delta**2 * dkmp5 |
./pkg/kpp/kpp_routines.F |
1616 |
ENHANCE |
blmc(i,ki,md) = (1.- delta)*diffus(i,ki,md) |
./pkg/kpp/kpp_routines.F |
1617 |
ENHANCE |
& + delta*dstar |
./model/src/cg2d_sr.F |
106 |
CG2D_SR |
_RL delta, deltaTile(nSx,nSy) |
./model/src/cg2d_sr.F |
355 |
CG2D_SR |
delta = sumPhi(2,1,1) |
./model/src/cg2d_sr.F |
384 |
CG2D_SR |
alpha = delta - (cgBeta*cgBeta)*alpha |
./pkg/openad/externalDummies.F |
186 |
STREAMICE_INVERT_SURF_FORTHICK |
I delta, |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
105 |
ADSTRMICE_H_INV |
& delta, |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
107 |
ADSTRMICE_H_INV |
& delta*hf, |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
114 |
ADSTRMICE_H_INV |
& i_r * (fp-delta)/fp * |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
119 |
ADSTRMICE_H_INV |
& i_r * (fp-delta)/fp * |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
15 |
ADSTRMICE_H_INV |
& delta, |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
35 |
ADSTRMICE_H_INV |
_RL rhoi, rhow, i_r, delta |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
83 |
ADSTRMICE_H_INV |
I delta, |
./pkg/streamice/adstreamice_invert_surf_forthick.F |
89 |
ADSTRMICE_H_INV |
delta=1-rhoi/rhow |
./pkg/streamice/streamice_invert_surf_forthick.F |
110 |
STREAMICE_INVERT_SURF_FORTHICK |
& delta, |
./pkg/streamice/streamice_invert_surf_forthick.F |
112 |
STREAMICE_INVERT_SURF_FORTHICK |
& delta*HF, |
./pkg/streamice/streamice_invert_surf_forthick.F |
118 |
STREAMICE_INVERT_SURF_FORTHICK |
& delta, |
./pkg/streamice/streamice_invert_surf_forthick.F |
11 |
STREAMICE_INVERT_SURF_FORTHICK |
I delta, |
./pkg/streamice/streamice_invert_surf_forthick.F |
120 |
STREAMICE_INVERT_SURF_FORTHICK |
& delta*HF, |
./pkg/streamice/streamice_invert_surf_forthick.F |
59 |
STREAMICE_INVERT_SURF_FORTHICK |
& (1. _d 0 - delta) |
./pkg/streamice/streamice_invert_surf_forthick.F |
61 |
STREAMICE_INVERT_SURF_FORTHICK |
IF (S(i,j,bi,bj) .gt. delta*HF) THEN |
./pkg/streamice/streamice_invert_surf_forthick.F |
64 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)/delta |
./pkg/streamice/streamice_invert_surf_forthick.F |
76 |
STREAMICE_INVERT_SURF_FORTHICK |
& (1. _d 0 - delta) |
./pkg/streamice/streamice_invert_surf_forthick.F |
78 |
STREAMICE_INVERT_SURF_FORTHICK |
IF (S(i,j,bi,bj) .gt. delta*HF) THEN |
./pkg/streamice/streamice_invert_surf_forthick.F |
81 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)/delta |
./pkg/streamice/streamice_invert_surf_forthick.F |
94 |
STREAMICE_INVERT_SURF_FORTHICK |
Y0v = delta*HF |
./pkg/streamice/streamice_invert_surf_forthick.F |
98 |
STREAMICE_INVERT_SURF_FORTHICK |
& delta, |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
31 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
_RL OD, rhoi, rhow, delta, r, h, hf, i_r, rlo |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
46 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
delta=1-r |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
78 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& delta, |
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
80 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& delta*hf, |
./pkg/bling/bling_carbon_chem.F |
557 |
CARBON_COEFFS |
_RL delta |
./pkg/bling/bling_carbon_chem.F |
600 |
CARBON_COEFFS |
delta = (57.7 _d 0 - 0.118 _d 0*tk) |
./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 |
817 |
CARBON_COEFFS_PRESSURE_DEP |
_RL delta |
./pkg/bling/bling_carbon_chem.F |
896 |
CARBON_COEFFS_PRESSURE_DEP |
delta = (57.7 _d 0 - 0.118 _d 0*tk) |
./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_light.F |
115 |
BLING_LIGHT |
delta = (0.006918 _d 0 |
./pkg/bling/bling_light.F |
129 |
BLING_LIGHT |
sun1 = -sin(delta)/cos(delta) * sin(lat)/cos(lat) |
./pkg/bling/bling_light.F |
133 |
BLING_LIGHT |
cosz = ( sin(delta)*sin(lat)+ !average zenith angle |
./pkg/bling/bling_light.F |
134 |
BLING_LIGHT |
& (cos(delta)*cos(lat)*sin(dayhrs)/dayhrs) ) |
./pkg/bling/bling_light.F |
69 |
BLING_LIGHT |
_RL dayfrac, yday, delta |
./pkg/dic/carbon_chem.F |
569 |
CARBON_COEFFS |
_RL delta |
./pkg/dic/carbon_chem.F |
612 |
CARBON_COEFFS |
delta = (57.7 _d 0 - 0.118 _d 0*tk) |
./pkg/dic/carbon_chem.F |
615 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
./pkg/dic/insol.F |
41 |
INSOL |
_RL dayfrac, yday, delta |
./pkg/dic/insol.F |
59 |
INSOL |
delta = (0.006918 _d 0 |
./pkg/dic/insol.F |
73 |
INSOL |
sun1 = -sin(delta)/cos(delta) * sin(lat)/cos(lat) |
./pkg/dic/insol.F |
77 |
INSOL |
cosz = ( sin(delta)*sin(lat)+ !average zenith angle |
./pkg/dic/insol.F |
78 |
INSOL |
& (cos(delta)*cos(lat)*sin(dayhrs)/dayhrs) ) |