| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/AIM_PARAMS.h |
86 |
NO PROCEDURE |
& aim_dragStrato, |
|
./pkg/aim_v23/AIM_PARAMS.h |
89 |
NO PROCEDURE |
_RL aim_dragStrato |
|
./pkg/aim_v23/aim_readparms.F |
100 |
AIM_READPARMS |
& aim_dragStrato, |
|
./pkg/aim_v23/aim_readparms.F |
259 |
AIM_READPARMS |
aim_dragStrato = 0. |
|
./pkg/aim_v23/aim_readparms.F |
403 |
AIM_READPARMS |
CALL WRITE_0D_RL(aim_dragStrato,INDEX_NONE,'aim_dragStrato=', |
|
./pkg/aim_v23/aim_tendency_apply.F |
101 |
AIM_TENDENCY_APPLY_U |
& -uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
279 |
AIM_TENDENCY_APPLY_V |
IF ( k.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
285 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
288 |
AIM_TENDENCY_APPLY_V |
& -vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
92 |
AIM_TENDENCY_APPLY_U |
IF ( k.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
98 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato |