Symbol Description Uses
h81 32



File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 1430 IRRAD
     *                 w1,p1,dwe,dpe,h81,h82,h83,trant)
./pkg/fizhi/fizhi_lwrad.F 618 IRRAD
      _RL h81(nx,nh,nt),h82(nx,nh,nt),h83(nx,nh,nt)
./pkg/fizhi/fizhi_lwrad.F 807 IRRAD
          h81(ip,iw,1)=1.0-h81(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 838 IRRAD
           h81(ip,iw,it)=h81(ip,iw,1)
./pkg/fizhi/h2o-tran3.h 1249 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1273 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 1297 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 1321 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 1345 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1369 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1393 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1417 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1441 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 1465 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 1489 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 1513 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 1537 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 1561 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 1585 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 1609 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 1633 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1657 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1681 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1705 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1729 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1753 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1777 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1801 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1825 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1849 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=26,26)/