Symbol Description Uses
ELOCP 8


File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 2356 RNEVP 
       ELOCP   = alhl/cp
./pkg/fizhi/fizhi_moist.F 2409 RNEVP 
       TEMP1(I,6)=TEMP1(I,6)*ELOCP
./pkg/fizhi/fizhi_moist.F 2412 RNEVP 
       TEMP1(I,3)=TEMP1(I,3)-TEMP1(I,5)*ELOCP*RELAX
./pkg/fizhi/fizhi_moist.F 2455 RNEVP 
       TL(I,L) = TL(I,L)-(iceevap(i)+watevap(i))*TEMP3(I,L)*ELOCP
./pkg/fizhi/fizhi_moist.F 2489 RNEVP 
           TL(I,L) = TL(I,L)-rainmax(I)*TEMP3(I,L)*ELOCP
./pkg/fizhi/fizhi_moist.F 2504 RNEVP 
          TL(I,L) =    TL(I,L)-TEMP1(I,7)*TEMP3(I,L)*ELOCP