| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/AIM_PARAMS.h |
101 |
NO PROCEDURE |
_RL aim_dragStrato |
|
./pkg/aim_v23/AIM_PARAMS.h |
98 |
NO PROCEDURE |
& aim_dragStrato, aim_abs_pCO2, aim_ref_pCO2, |
|
./pkg/aim_v23/aim_readparms.F |
105 |
AIM_READPARMS |
& aim_dragStrato, aim_selectOceAlbedo, |
|
./pkg/aim_v23/aim_readparms.F |
258 |
AIM_READPARMS |
aim_dragStrato = 0. |
|
./pkg/aim_v23/aim_readparms.F |
445 |
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 |
280 |
AIM_TENDENCY_APPLY_V |
IF ( k.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
286 |
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 |
289 |
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 |