Symbol Description Uses
psimdiag 7



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 2866 SFCFLX
      _RL psihdiag(irun),psimdiag(irun)
./pkg/fizhi/fizhi_turb.F 3151 SFCFLX
        call PSI(vtemp,vzh,psimdiag,psihdiag,irun,vhz,vhz,vhz,vhz,1)
./pkg/fizhi/fizhi_turb.F 3153 SFCFLX
         stu2m(i) = (psimdiag(i)/vpsim(i) * vus(i))
./pkg/fizhi/fizhi_turb.F 3154 SFCFLX
         stv2m(i) = (psimdiag(i)/vpsim(i) * vvs(i))
./pkg/fizhi/fizhi_turb.F 3170 SFCFLX
        call PSI(vtemp,vzh,psimdiag,psihdiag,irun,vhz,vhz,vhz,vhz,1)
./pkg/fizhi/fizhi_turb.F 3172 SFCFLX
         stu10m(i) = (psimdiag(i)/vpsim(i) * vus(i))
./pkg/fizhi/fizhi_turb.F 3173 SFCFLX
         stv10m(i) = (psimdiag(i)/vpsim(i) * vvs(i))