| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_tendency_apply.F |
124 |
FIZHI_TENDENCY_APPLY_V |
_RL rayleighdrag |
|
./pkg/fizhi/fizhi_tendency_apply.F |
133 |
FIZHI_TENDENCY_APPLY_V |
rayleighdrag = 1./(31.*86400.*2.) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
135 |
FIZHI_TENDENCY_APPLY_V |
rayleighdrag = 0. |
|
./pkg/fizhi/fizhi_tendency_apply.F |
143 |
FIZHI_TENDENCY_APPLY_V |
& - rayleighdrag*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
152 |
FIZHI_TENDENCY_APPLY_V |
& - rayleighdrag*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
162 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = -1. _d 0 * rayleighdrag * |
|
./pkg/fizhi/fizhi_tendency_apply.F |
206 |
FIZHI_TENDENCY_APPLY_T |
_RL rayleighdrag,getcon,cp,kappa,pNrkappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
218 |
FIZHI_TENDENCY_APPLY_T |
rayleighdrag = 1./((31.*86400.*2.)*(pNrkappa*cp)) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
220 |
FIZHI_TENDENCY_APPLY_T |
rayleighdrag = 0. |
|
./pkg/fizhi/fizhi_tendency_apply.F |
227 |
FIZHI_TENDENCY_APPLY_T |
& + rayleighdrag * 0.5 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
245 |
FIZHI_TENDENCY_APPLY_T |
& + rayleighdrag * 0.5 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
263 |
FIZHI_TENDENCY_APPLY_T |
tmpdiag(i,j) = ( rayleighdrag * 0.5 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
41 |
FIZHI_TENDENCY_APPLY_U |
_RL rayleighdrag |
|
./pkg/fizhi/fizhi_tendency_apply.F |
50 |
FIZHI_TENDENCY_APPLY_U |
rayleighdrag = 1./(31.*86400.*2.) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
52 |
FIZHI_TENDENCY_APPLY_U |
rayleighdrag = 0. |
|
./pkg/fizhi/fizhi_tendency_apply.F |
60 |
FIZHI_TENDENCY_APPLY_U |
& - rayleighdrag*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
69 |
FIZHI_TENDENCY_APPLY_U |
& - rayleighdrag*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
79 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = -1. _d 0 * rayleighdrag * |