| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_rayleigh.F |
45 |
RAYLEIGH |
_RL rf(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
90 |
RAYLEIGH |
rf(i,j,L) = dampcoef*(1+tanh((z(i,j,L)-50000.)/5000.))/86400. |
|
./pkg/fizhi/fizhi_rayleigh.F |
91 |
RAYLEIGH |
rfu(i,j,L) = - rf(i,j,L) * u(i,j,L) |
|
./pkg/fizhi/fizhi_rayleigh.F |
92 |
RAYLEIGH |
rfv(i,j,L) = - rf(i,j,L) * v(i,j,L) |
|
./pkg/bling/bling_dvm.F |
204 |
BLING_DVM |
z_dvm = -rf(k+1) |
|
./pkg/bling/bling_dvm.F |
214 |
BLING_DVM |
z_dvm = min(700. _d 0,max(150. _d 0,z_dvm_regr),z_dvm,-rf(k+1)) |
|
./pkg/bling/bling_dvm.F |
236 |
BLING_DVM |
if (-rf(k+1) .lt. z_dvm) then |
|
./pkg/bling/bling_dvm.F |
237 |
BLING_DVM |
fdvm_migr = frac_migr / (epsln + z_dvm - (-rf(2))) * |
|
./pkg/bling/bling_dvm.F |
238 |
BLING_DVM |
& (z_dvm - (-rf(k+1)) ) |
|
./pkg/bling/bling_dvm.F |
249 |
BLING_DVM |
x_erfcc = (-rf(k) - z_dvm) / |
|
./pkg/bling/bling_light.F |
188 |
BLING_LIGHT |
IF ((-rf(k+1) .le. mld(i,j)).and. |
|
./pkg/bling/bling_light.F |
189 |
BLING_LIGHT |
& (-rf(k+1).lt.200. _d 0)) THEN |
|
./pkg/bling/bling_light.F |
212 |
BLING_LIGHT |
IF ((-rf(k+1) .le. mld(i,j)).and. |
|
./pkg/bling/bling_light.F |
213 |
BLING_LIGHT |
& (-rf(k+1).lt.200. _d 0)) THEN |
|
./pkg/bling/bling_production.F |
327 |
BLING_PROD |
IF ((-rf(k+1) .le. mld(i,j)).and. |
|
./pkg/bling/bling_production.F |
328 |
BLING_PROD |
& (-rf(k+1).lt.200. _d 0)) THEN |
|
./pkg/bling/bling_production.F |
344 |
BLING_PROD |
IF ((-rf(k+1) .le. mld(i,j)).and. |
|
./pkg/bling/bling_production.F |
345 |
BLING_PROD |
& (-rf(k+1).lt.200. _d 0)) THEN |