Symbol Description Uses
o1 32



File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 1474 IRRAD
     *                w1,p1,dwe,dpe,o1,o2,o3,trant)
./pkg/fizhi/fizhi_lwrad.F 615 IRRAD
      _RL o1 (nx,no,nt),o2 (nx,no,nt),o3 (nx,no,nt)
./pkg/fizhi/fizhi_lwrad.F 851 IRRAD
          o1(ip,iw,1)=1.0-o1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 858 IRRAD
           o1 (ip,iw,it)= o1(ip,iw,1)
./pkg/fizhi/o3-tran3.h 109 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h 127 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h 145 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h 163 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h 181 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h 199 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h 19 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h 1 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h 217 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h 235 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h 253 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h 271 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h 289 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h 307 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h 325 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h 343 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h 361 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h 379 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h 37 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h 397 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h 415 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h 433 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h 451 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h 55 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h 73 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h 91 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 6, 6)/