| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_calc.F |
115 |
LAYERS_CALC |
kgu(i,j) = Nlayers |
|
./pkg/layers/layers_calc.F |
118 |
LAYERS_CALC |
kgu(i,j) = 1 |
|
./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 |
125 |
LAYERS_CALC |
kgu(i,j) = 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 |
131 |
LAYERS_CALC |
kgu(i,j) = kgu(i,j) - 1 |
|
./pkg/layers/layers_calc.F |
144 |
LAYERS_CALC |
layers_UFlux(i,j,kgu(i,j),bi,bj) = |
|
./pkg/layers/layers_calc.F |
145 |
LAYERS_CALC |
& layers_UFlux(i,j,kgu(i,j),bi,bj) + |
|
./pkg/layers/layers_calc.F |
149 |
LAYERS_CALC |
layers_HU(i,j,kgu(i,j),bi,bj) = layers_HU(i,j,kgu(i,j),bi,bj) |
|
./pkg/layers/layers_calc.F |
53 |
LAYERS_CALC |
INTEGER kgu(sNx+1,sNy+1), kgv(sNx+1,sNy+1) |
|
./pkg/layers/layers_calc.F |
69 |
LAYERS_CALC |
kgu(i,j) = Nlayers |