| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_tendency_apply.F |
112 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = uStr_tmp * uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
129 |
AIM_TENDENCY_APPLY_U |
CALL DIAGNOSTICS_FILL( aim_KEuStr, 'dKE_Ustr', |
|
./pkg/aim_v23/aim_tendency_apply.F |
49 |
AIM_TENDENCY_APPLY_U |
COMMON /LOCAL_AIM_TENDENCY_APPLY_U/ aim_uStress,aim_KEuStr |
|
./pkg/aim_v23/aim_tendency_apply.F |
51 |
AIM_TENDENCY_APPLY_U |
_RL aim_KEuStr(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/aim_v23/aim_tendency_apply.F |
65 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
78 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = aim_KEuStr(i,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
95 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = uStr_tmp * uVel(i,j,kLev,bi,bj) |