Symbol Description Uses
TatU 11



File Line number Procedure Code
./pkg/layers/layers_calc.F 106 LAYERS_CALC
         TatU = MapFact(kk) *
./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 138 LAYERS_CALC
     &     TatU
./pkg/layers/layers_calc.F 54 LAYERS_CALC
      _RL TatU, TatV