| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_calc.F |
132 |
LAYERS_CALC |
kgu(i,j) = Nlayers |
|
./pkg/layers/layers_calc.F |
135 |
LAYERS_CALC |
kgu(i,j) = 1 |
|
./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 |
142 |
LAYERS_CALC |
kgu(i,j) = 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 |
148 |
LAYERS_CALC |
kgu(i,j) = kgu(i,j) - 1 |
|
./pkg/layers/layers_calc.F |
161 |
LAYERS_CALC |
layers_UFlux(i,j,kgu(i,j),bi,bj) = |
|
./pkg/layers/layers_calc.F |
162 |
LAYERS_CALC |
& layers_UFlux(i,j,kgu(i,j),bi,bj) + |
|
./pkg/layers/layers_calc.F |
172 |
LAYERS_CALC |
layers_UFlux(i,j,kgu(i,j),bi,bj) = |
|
./pkg/layers/layers_calc.F |
173 |
LAYERS_CALC |
& layers_UFlux(i,j,kgu(i,j),bi,bj) |
|
./pkg/layers/layers_calc.F |
180 |
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 |
243 |
LAYERS_CALC |
layers_UFlux(i,j,kgu(i,j),bi,bj) = |
|
./pkg/layers/layers_calc.F |
244 |
LAYERS_CALC |
& layers_UFlux(i,j,kgu(i,j),bi,bj) |
|
./pkg/layers/layers_calc.F |
59 |
LAYERS_CALC |
INTEGER kgu(sNx+1,sNy+1), kgv(sNx+1,sNy+1) |
|
./pkg/layers/layers_calc.F |
79 |
LAYERS_CALC |
kgu(i,j) = Nlayers |