| File |
Line number |
Procedure |
Code |
|
./pkg/pp81/PP81.h |
46 |
NO PROCEDURE |
_RL PPnu0, PPalpha, RiLimit |
|
./pkg/pp81/PP81.h |
50 |
NO PROCEDURE |
& PPnu0, PPalpha, RiLimit, |
|
./pkg/pp81/pp81_calc.F |
77 |
PP81_CALC |
IF ( RiNumber(I,J) .LT. RiLimit ) THEN |
|
./pkg/pp81/pp81_calc.F |
78 |
PP81_CALC |
denom = 1.0 + PPalpha*RiLimit |
|
./pkg/pp81/pp81_readparms.F |
122 |
PP81_READPARMS |
IF ( RiLimit .EQ. UNSET_RL ) THEN |
|
./pkg/pp81/pp81_readparms.F |
123 |
PP81_READPARMS |
RiLimit = PPnRi |
|
./pkg/pp81/pp81_readparms.F |
124 |
PP81_READPARMS |
RiLimit = ( |
|
./pkg/pp81/pp81_readparms.F |
125 |
PP81_READPARMS |
& ((PPnu0+viscArNr(1))/PPviscMax)**(1. _d 0/RiLimit) |
|
./pkg/pp81/pp81_readparms.F |
74 |
PP81_READPARMS |
RiLimit = UNSET_RL |