| File |
Line number |
Procedure |
Code |
|
./pkg/layers/LAYERS.h |
85 |
NO PROCEDURE |
_RL layers_G(nLayers+1) |
|
./pkg/layers/LAYERS.h |
93 |
NO PROCEDURE |
& layers_G, MapFact, dZZf |
|
./pkg/layers/layers_calc.F |
130 |
LAYERS_CALC |
IF (TatU .GE. layers_G(Nlayers)) THEN |
|
./pkg/layers/layers_calc.F |
133 |
LAYERS_CALC |
ELSE IF (TatU .LT. layers_G(2)) THEN |
|
./pkg/layers/layers_calc.F |
136 |
LAYERS_CALC |
ELSE IF ( (TatU .GE. layers_G(kgu(i,j))) |
|
./pkg/layers/layers_calc.F |
137 |
LAYERS_CALC |
& .AND. (TatU .LT. layers_G(kgu(i,j)+1)) ) THEN |
|
./pkg/layers/layers_calc.F |
139 |
LAYERS_CALC |
ELSE IF (TatU .GE. layers_G(kgu(i,j))) THEN |
|
./pkg/layers/layers_calc.F |
141 |
LAYERS_CALC |
DO WHILE (TatU .GE. layers_G(kgu(i,j)+1)) |
|
./pkg/layers/layers_calc.F |
145 |
LAYERS_CALC |
ELSE IF (TatU .LT. layers_G(kgu(i,j)+1)) THEN |
|
./pkg/layers/layers_calc.F |
147 |
LAYERS_CALC |
DO WHILE (TatU .LT. layers_G(kgu(i,j))) |
|
./pkg/layers/layers_calc.F |
201 |
LAYERS_CALC |
IF (TatV .GE. layers_G(Nlayers)) THEN |
|
./pkg/layers/layers_calc.F |
204 |
LAYERS_CALC |
ELSE IF (TatV .LT. layers_G(2)) THEN |
|
./pkg/layers/layers_calc.F |
207 |
LAYERS_CALC |
ELSE IF ( (TatV .GE. layers_G(kgv(i,j))) |
|
./pkg/layers/layers_calc.F |
208 |
LAYERS_CALC |
& .AND. (TatV .LT. layers_G(kgv(i,j)+1)) ) THEN |
|
./pkg/layers/layers_calc.F |
210 |
LAYERS_CALC |
ELSE IF (TatV .GE. layers_G(kgv(i,j))) THEN |
|
./pkg/layers/layers_calc.F |
212 |
LAYERS_CALC |
DO WHILE (TatV .GE. layers_G(kgv(i,j)+1)) |
|
./pkg/layers/layers_calc.F |
216 |
LAYERS_CALC |
ELSE IF (TatV .LT. layers_G(kgv(i,j)+1)) THEN |
|
./pkg/layers/layers_calc.F |
218 |
LAYERS_CALC |
DO WHILE (TatV .LT. layers_G(kgv(i,j))) |
|
./pkg/layers/layers_check.F |
42 |
LAYERS_CHECK |
CALL WRITE_1D_RL(layers_G,Nlayers+1, INDEX_K,'layers_G =', |
|
./pkg/layers/layers_init_fixed.F |
140 |
LAYERS_INIT_FIXED |
CALL WRITE_GLVEC_RL( 'layers_G', ' ', layers_G, 1+Nlayers, |
|
./pkg/layers/layers_readparms.F |
25 |
LAYERS_READPARMS |
& layers_G, layers_taveFreq, layers_diagFreq, |
|
./pkg/layers/layers_readparms.F |
44 |
LAYERS_READPARMS |
layers_G(k) = UNSET_RL |
|
./pkg/layers/layers_readparms.F |
70 |
LAYERS_READPARMS |
IF ( layers_G(k) .EQ. UNSET_RL ) THEN |
|
./pkg/layers/layers_readparms.F |
77 |
LAYERS_READPARMS |
ELSE IF ( layers_G(k) .LE. layers_G(k-1) ) THEN |