Symbol Description Uses
clrmd 5



File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 1254 IRRAD
          clrmd(i,j) = 1.0
./pkg/fizhi/fizhi_lwrad.F 1550 IRRAD
            clrmd(i,j)=min(clr(i,j,k2-1),clrmd(i,j))
./pkg/fizhi/fizhi_lwrad.F 1554 IRRAD
            fclr(i,j)=clrlw(i,j)*clrmd(i,j)*clrhi(i,j)
./pkg/fizhi/fizhi_lwrad.F 605 IRRAD
      _RL clrlw(m,n),clrmd(m,n),clrhi(m,n)