| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_tendency_apply.F |
109 |
FIZHI_TENDENCY_APPLY_V |
_RL rayleighdrag |
|
./pkg/fizhi/fizhi_tendency_apply.F |
119 |
FIZHI_TENDENCY_APPLY_V |
rayleighdrag = 1./(31.*86400.*2.) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
121 |
FIZHI_TENDENCY_APPLY_V |
rayleighdrag = 0. |
|
./pkg/fizhi/fizhi_tendency_apply.F |
128 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
136 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
146 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = -1. _d 0 * rayleighdrag * |
|
./pkg/fizhi/fizhi_tendency_apply.F |
183 |
FIZHI_TENDENCY_APPLY_T |
_RL rayleighdrag,getcon,cp,kappa,pNrkappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
196 |
FIZHI_TENDENCY_APPLY_T |
rayleighdrag = 1./((31.*86400.*2.)*(pNrkappa*cp)) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
198 |
FIZHI_TENDENCY_APPLY_T |
rayleighdrag = 0. |
|
./pkg/fizhi/fizhi_tendency_apply.F |
205 |
FIZHI_TENDENCY_APPLY_T |
. + rayleighdrag * 0.5 * |
|
./pkg/fizhi/fizhi_tendency_apply.F |
219 |
FIZHI_TENDENCY_APPLY_T |
. + rayleighdrag * 0.5 * |
|
./pkg/fizhi/fizhi_tendency_apply.F |
235 |
FIZHI_TENDENCY_APPLY_T |
tmpdiag(i,j) = ( rayleighdrag * 0.5 * |
|
./pkg/fizhi/fizhi_tendency_apply.F |
34 |
FIZHI_TENDENCY_APPLY_U |
_RL rayleighdrag |
|
./pkg/fizhi/fizhi_tendency_apply.F |
44 |
FIZHI_TENDENCY_APPLY_U |
rayleighdrag = 1./(31.*86400.*2.) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
46 |
FIZHI_TENDENCY_APPLY_U |
rayleighdrag = 0. |
|
./pkg/fizhi/fizhi_tendency_apply.F |
53 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
61 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
71 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = -1. _d 0 * rayleighdrag * |