Symbol Description Uses
VAPSIM 38



File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1563 TRBFLX
      _RL VPSIM(irun),VAPSIM(irun)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1898 TRBFLX
     4   VHZ,VPSIM,VAPSIM,VPSIG,VPSIHG,VTEMP,VDZETA,VDZ0,VDPSIM,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2388 SFCFLX
     7      VHZ,VPSIM,VAPSIM,VPSIG,VPSIHG,VTEMP,VDZETA,VDZ0,VDPSIM,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2452 SFCFLX
      _RL VHZ(irun),VPSIM(irun),VAPSIM(irun),VPSIG(irun),VPSIHG(irun)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2526 SFCFLX
       VAPSIM(I) = 1. / VPSIM(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2527 SFCFLX
       VCU(I) = VK * VAPSIM(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2545 SFCFLX
     2  VAPSIM,VTEMP,VTEMP,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2555 SFCFLX
         VCU(I) = VCU(I) * (1. - VDPSIM(I)*VAPSIM(I))
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2617 SFCFLX
     2  VAPSIM,VAPSIHG,VPSIH,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2666 SFCFLX
        VAPSIM(I) = VCU(I) * RVK
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2668 SFCFLX
        VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2677 SFCFLX
     2  VAPSIM,VAPSIHG,VPSIH,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4108 LINADJ
     1 VAPSIM, VAPSIHG,VPSIH,VPSIG,VX,VX0,VY,VY0,ITYPE,LWATER,IRUN,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4159 LINADJ
      _RL VAPSIM(IRUN),VAPSIHG(IRUN)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4198 LINADJ
        IF (IWATER(I).EQ.1) VX0PSIM(I) = VAPSIM(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4203 LINADJ
        VX0PSIM(I) = VX0(I) * VAPSIM(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4251 LINADJ
        VDXPSIM(I) = VDX(I) * VAPSIM(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 4391 LINADJ
        VDPSIMC(I) = -0.9 - VDPSIM(I) * VAPSIM(I)
./pkg/fizhi/fizhi_turb.F 1523 TRBFLX
      _RL VPSIM(irun),VAPSIM(irun)
./pkg/fizhi/fizhi_turb.F 1858 TRBFLX
     4   VHZ,VPSIM,VAPSIM,VPSIG,VPSIHG,VTEMP,VDZETA,VDZ0,VDPSIM,
./pkg/fizhi/fizhi_turb.F 2349 SFCFLX
     7      VHZ,VPSIM,VAPSIM,VPSIG,VPSIHG,VTEMP,VDZETA,VDZ0,VDPSIM,
./pkg/fizhi/fizhi_turb.F 2413 SFCFLX
      _RL VHZ(irun),VPSIM(irun),VAPSIM(irun),VPSIG(irun),VPSIHG(irun)
./pkg/fizhi/fizhi_turb.F 2487 SFCFLX
       VAPSIM(I) = 1. / VPSIM(I)
./pkg/fizhi/fizhi_turb.F 2488 SFCFLX
       VCU(I) = VK * VAPSIM(I)
./pkg/fizhi/fizhi_turb.F 2506 SFCFLX
     2  VAPSIM,VTEMP,VTEMP,
./pkg/fizhi/fizhi_turb.F 2516 SFCFLX
         VCU(I) = VCU(I) * (1. - VDPSIM(I)*VAPSIM(I))
./pkg/fizhi/fizhi_turb.F 2578 SFCFLX
     2  VAPSIM,VAPSIHG,VPSIH,
./pkg/fizhi/fizhi_turb.F 2627 SFCFLX
        VAPSIM(I) = VCU(I) * RVK
./pkg/fizhi/fizhi_turb.F 2629 SFCFLX
        VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I)
./pkg/fizhi/fizhi_turb.F 2638 SFCFLX
     2  VAPSIM,VAPSIHG,VPSIH,
./pkg/fizhi/fizhi_turb.F 4069 LINADJ
     1 VAPSIM, VAPSIHG,VPSIH,VPSIG,VX,VX0,VY,VY0,ITYPE,LWATER,IRUN,
./pkg/fizhi/fizhi_turb.F 4120 LINADJ
      _RL VAPSIM(IRUN),VAPSIHG(IRUN)
./pkg/fizhi/fizhi_turb.F 4159 LINADJ
        IF (IWATER(I).EQ.1) VX0PSIM(I) = VAPSIM(I)
./pkg/fizhi/fizhi_turb.F 4164 LINADJ
        VX0PSIM(I) = VX0(I) * VAPSIM(I)
./pkg/fizhi/fizhi_turb.F 4212 LINADJ
        VDXPSIM(I) = VDX(I) * VAPSIM(I)
./pkg/fizhi/fizhi_turb.F 4352 LINADJ
        VDPSIMC(I) = -0.9 - VDPSIM(I) * VAPSIM(I)