| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_calc.F |
203 |
LAYERS_CALC |
kgv(i,j) = Nlayers |
|
./pkg/layers/layers_calc.F |
206 |
LAYERS_CALC |
kgv(i,j) = 1 |
|
./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 |
213 |
LAYERS_CALC |
kgv(i,j) = 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_calc.F |
219 |
LAYERS_CALC |
kgv(i,j) = kgv(i,j) - 1 |
|
./pkg/layers/layers_calc.F |
232 |
LAYERS_CALC |
layers_VFlux(i,j,kgv(i,j),bi,bj) = |
|
./pkg/layers/layers_calc.F |
233 |
LAYERS_CALC |
& layers_VFlux(i,j,kgv(i,j),bi,bj) |
|
./pkg/layers/layers_calc.F |
251 |
LAYERS_CALC |
layers_HV(i,j,kgv(i,j),bi,bj) = layers_HV(i,j,kgv(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 |
80 |
LAYERS_CALC |
kgv(i,j) = Nlayers |