| 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 |
197 |
AIM_TENDENCY_APPLY_V |
IF ( kLev.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
203 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
207 |
AIM_TENDENCY_APPLY_V |
& /aim_dragStrato/gravity |
|
./pkg/aim_v23/aim_tendency_apply.F |
71 |
AIM_TENDENCY_APPLY_U |
IF ( kLev.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
77 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
81 |
AIM_TENDENCY_APPLY_U |
& /aim_dragStrato/gravity |