File |
Line number |
Procedure |
Code |
./pkg/ggl90/GGL90.h |
71 |
NO PROCEDURE |
_RL GGL90diffTKEh |
./pkg/ggl90/GGL90.h |
80 |
NO PROCEDURE |
& GGL90diffTKEh, |
./pkg/ggl90/ggl90_calc.F |
367 |
GGL90_CALC |
IF ( GGL90diffTKEh .GT. 0. _d 0 ) THEN |
./pkg/ggl90/ggl90_calc.F |
386 |
GGL90_CALC |
dfx(i,j) = -GGL90diffTKEh*xA(i,j) |
./pkg/ggl90/ggl90_calc.F |
400 |
GGL90_CALC |
dfy(i,j) = -GGL90diffTKEh*yA(i,j) |
./pkg/ggl90/ggl90_calc.F |
531 |
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 |
37 |
GGL90_EXCHANGES |
IF (GGL90isON .AND. GGL90diffTKEh .GT. 0. _d 0) THEN |
./pkg/ggl90/ggl90_readparms.F |
109 |
GGL90_READPARMS |
GGL90diffTKEh = 0.0 _d 0 |
./pkg/ggl90/ggl90_readparms.F |
301 |
GGL90_READPARMS |
CALL WRITE_0D_RL( GGL90diffTKEh, INDEX_NONE,'GGL90diffTKEh =', |
./pkg/ggl90/ggl90_readparms.F |
50 |
GGL90_READPARMS |
& GGL90diffTKEh, |