| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_tendency_apply.F |
131 |
FIZHI_TENDENCY_APPLY_T |
_RL rayleighdrag,getcon,cp,kappa,pNrkappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
139 |
FIZHI_TENDENCY_APPLY_T |
rayleighdrag = 1./((31.*86400.*2.)*(pNrkappa*cp)) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
141 |
FIZHI_TENDENCY_APPLY_T |
rayleighdrag = 0. |
|
./pkg/fizhi/fizhi_tendency_apply.F |
148 |
FIZHI_TENDENCY_APPLY_T |
. + rayleighdrag * 0.5 * |
|
./pkg/fizhi/fizhi_tendency_apply.F |
34 |
FIZHI_TENDENCY_APPLY_U |
_RL rayleighdrag |
|
./pkg/fizhi/fizhi_tendency_apply.F |
39 |
FIZHI_TENDENCY_APPLY_U |
rayleighdrag = 1./(31.*86400.*2.) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
41 |
FIZHI_TENDENCY_APPLY_U |
rayleighdrag = 0. |
|
./pkg/fizhi/fizhi_tendency_apply.F |
48 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
83 |
FIZHI_TENDENCY_APPLY_V |
_RL rayleighdrag |
|
./pkg/fizhi/fizhi_tendency_apply.F |
88 |
FIZHI_TENDENCY_APPLY_V |
rayleighdrag = 1./(31.*86400.*2.) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
90 |
FIZHI_TENDENCY_APPLY_V |
rayleighdrag = 0. |
|
./pkg/fizhi/fizhi_tendency_apply.F |
97 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |