Symbol Description Uses
psubcld 4


File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 133 MOISTIO 
      _RL    psubcld    (istrip), psubcldg (im,jm)
./pkg/fizhi/fizhi_moist.F 602 MOISTIO 
       psubcld    (i) = 0.0
./pkg/fizhi/fizhi_moist.F 605 MOISTIO 
       psubcld    (i) = sp(i)+ptop-ple(i,nsubcl)
./pkg/fizhi/fizhi_moist.F 635 MOISTIO 
      call PASTE(psubcld    ,psubcldg ,istrip,im*jm,1,NN)