Symbol Description Uses
rhoS 15



File Line number Procedure Code
./pkg/kl10/kl10_calc.F 105 KL10_CALC
               IF ( (rhoS(K).LT.rhoS(K-1)).AND.(maskC(I,J,K,bi
./pkg/kl10/kl10_calc.F 108 KL10_CALC
                  DO WHILE ( (JJ.GT.0).AND.(rhoS(K).LT.rhoS(JJ)) )
./pkg/kl10/kl10_calc.F 112 KL10_CALC
                  rhoS(JJ+1:K)=cshift(rhoS(JJ+1:K),-1)
./pkg/kl10/kl10_calc.F 130 KL10_CALC
     &              (rhoS(1) - rhoS(2))*recip_drC(2),0. _d 0)
./pkg/kl10/kl10_calc.F 140 KL10_CALC
     &              (rhoS(K) - rhoS(K+1))*recip_drC(K+1)
./pkg/kl10/kl10_calc.F 144 KL10_CALC
     &              (rhoS(K-1) - rhoS(K))*recip_drC(K)
./pkg/kl10/kl10_calc.F 65 KL10_CALC
      _RL     rhoS(1:Nr),RS(1:Nr)
./pkg/kl10/kl10_calc.F 84 KL10_CALC
            rhoS(1)=rhot
./pkg/kl10/kl10_calc.F 99 KL10_CALC
               rhoS(K)=rhot