| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_readparms.F |
316 |
AIM_READPARMS |
CALL WRITE_0D_R8(aim_dragStrato,INDEX_NONE,'aim_dragStrato=', |
|
./pkg/aim_v23/aim_readparms.F |
86 |
AIM_READPARMS |
& aim_dragStrato, |
|
./pkg/aim_v23/AIM_PARAMS.h |
71 |
NO PROCEDURE |
& aim_dragStrato, |
|
./pkg/aim_v23/AIM_PARAMS.h |
73 |
NO PROCEDURE |
_RL aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
173 |
AIM_TENDENCY_APPLY_V |
IF ( kLev.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
179 |
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 |
60 |
AIM_TENDENCY_APPLY_U |
IF ( kLev.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
66 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_initialise.F |
68 |
AIM_INITIALISE |
aim_dragStrato = 0. |