| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_calc.F |
165 |
LAYERS_CALC |
kgv(i,j) = Nlayers |
|
./pkg/layers/layers_calc.F |
168 |
LAYERS_CALC |
kgv(i,j) = 1 |
|
./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 |
175 |
LAYERS_CALC |
kgv(i,j) = 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_calc.F |
181 |
LAYERS_CALC |
kgv(i,j) = kgv(i,j) - 1 |
|
./pkg/layers/layers_calc.F |
194 |
LAYERS_CALC |
layers_VFlux(i,j,kgv(i,j),bi,bj) = |
|
./pkg/layers/layers_calc.F |
195 |
LAYERS_CALC |
& layers_VFlux(i,j,kgv(i,j),bi,bj) |
|
./pkg/layers/layers_calc.F |
199 |
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 |
53 |
LAYERS_CALC |
INTEGER kgu(sNx+1,sNy+1), kgv(sNx+1,sNy+1) |
|
./pkg/layers/layers_calc.F |
70 |
LAYERS_CALC |
kgv(i,j) = Nlayers |