Symbol Description Uses
cpen 5



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 692 MOISTIO
      call PASTE ( clboth,   cpen ,istrip,im*jm,lm,nn )
./pkg/fizhi/fizhi_moist.F 759 MOISTIO
       call BACK2GRD (    cpen(1,1,L),pblindex,    cpen(1,1,L)  ,im*jm)
./pkg/fizhi/fizhi_moist.F 995 MOISTIO
          cldras = min( max( cldras_lw(i,1,L)*cldras_mem,cpen(i,1,L)),