| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/GGL90.h |
62 |
NO PROCEDURE |
_RL GGL90diffTKEh |
|
./pkg/ggl90/GGL90.h |
71 |
NO PROCEDURE |
& GGL90diffTKEh, |
|
./pkg/ggl90/ggl90_calc.F |
342 |
GGL90_CALC |
IF ( GGL90diffTKEh .GT. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_calc.F |
359 |
GGL90_CALC |
dfx(i,j) = -GGL90diffTKEh*xA(i,j) |
|
./pkg/ggl90/ggl90_calc.F |
371 |
GGL90_CALC |
dfy(i,j) = -GGL90diffTKEh*yA(i,j) |
|
./pkg/ggl90/ggl90_calc.F |
435 |
GGL90_CALC |
IF ( GGL90diffTKEh .GT. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_check.F |
51 |
GGL90_CHECK |
IF ( GGL90diffTKEh .NE. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_check.F |
59 |
GGL90_CHECK |
IF ( GGL90diffTKEh .NE. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_exchanges.F |
33 |
GGL90_EXCHANGES |
IF (GGL90isON .AND. GGL90diffTKEh .GT. 0. _d 0) THEN |
|
./pkg/ggl90/ggl90_readparms.F |
184 |
GGL90_READPARMS |
CALL WRITE_0D_RL( GGL90diffTKEh, INDEX_NONE,'GGL90diffTKEh =', |
|
./pkg/ggl90/ggl90_readparms.F |
40 |
GGL90_READPARMS |
& GGL90diffTKEh, |
|
./pkg/ggl90/ggl90_readparms.F |
74 |
GGL90_READPARMS |
GGL90diffTKEh = 0.0 _d 0 |