| File |
Line number |
Procedure |
Code |
|
./pkg/layers/LAYERS.h |
83 |
NO PROCEDURE |
_RL layers_G(nLayers+1) |
|
./pkg/layers/LAYERS.h |
91 |
NO PROCEDURE |
& layers_G, MapFact, dZZf |
|
./pkg/layers/layers_calc.F |
113 |
LAYERS_CALC |
IF (TatU .GE. layers_G(Nlayers)) THEN |
|
./pkg/layers/layers_calc.F |
116 |
LAYERS_CALC |
ELSE IF (TatU .LT. layers_G(2)) THEN |
|
./pkg/layers/layers_calc.F |
119 |
LAYERS_CALC |
ELSE IF ( (TatU .GE. layers_G(kgu(i,j))) |
|
./pkg/layers/layers_calc.F |
120 |
LAYERS_CALC |
& .AND. (TatU .LT. layers_G(kgu(i,j)+1)) ) THEN |
|
./pkg/layers/layers_calc.F |
122 |
LAYERS_CALC |
ELSE IF (TatU .GE. layers_G(kgu(i,j))) THEN |
|
./pkg/layers/layers_calc.F |
124 |
LAYERS_CALC |
DO WHILE (TatU .GE. layers_G(kgu(i,j)+1)) |
|
./pkg/layers/layers_calc.F |
128 |
LAYERS_CALC |
ELSE IF (TatU .LT. layers_G(kgu(i,j)+1)) THEN |
|
./pkg/layers/layers_calc.F |
130 |
LAYERS_CALC |
DO WHILE (TatU .LT. layers_G(kgu(i,j))) |
|
./pkg/layers/layers_calc.F |
163 |
LAYERS_CALC |
IF (TatV .GE. layers_G(Nlayers)) THEN |
|
./pkg/layers/layers_calc.F |
166 |
LAYERS_CALC |
ELSE IF (TatV .LT. layers_G(2)) THEN |
|
./pkg/layers/layers_calc.F |
169 |
LAYERS_CALC |
ELSE IF ( (TatV .GE. layers_G(kgv(i,j))) |
|
./pkg/layers/layers_calc.F |
170 |
LAYERS_CALC |
& .AND. (TatV .LT. layers_G(kgv(i,j)+1)) ) THEN |
|
./pkg/layers/layers_calc.F |
172 |
LAYERS_CALC |
ELSE IF (TatV .GE. layers_G(kgv(i,j))) THEN |
|
./pkg/layers/layers_calc.F |
174 |
LAYERS_CALC |
DO WHILE (TatV .GE. layers_G(kgv(i,j)+1)) |
|
./pkg/layers/layers_calc.F |
178 |
LAYERS_CALC |
ELSE IF (TatV .LT. layers_G(kgv(i,j)+1)) THEN |
|
./pkg/layers/layers_calc.F |
180 |
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 |
43 |
LAYERS_READPARMS |
layers_G(k) = UNSET_RL |
|
./pkg/layers/layers_readparms.F |
67 |
LAYERS_READPARMS |
IF ( layers_G(k) .EQ. UNSET_RL ) THEN |
|
./pkg/layers/layers_readparms.F |
74 |
LAYERS_READPARMS |
ELSE IF ( layers_G(k) .LE. layers_G(k-1) ) THEN |