Symbol Description Uses
Z switch (0 or 1) that turns on restoring boundary condition 63


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 2741 PHI 
      SUBROUTINE PHI(Z,PHIM,PHIH,IFLAG,N)
./pkg/fizhi/fizhi_turb.F 2758 PHI 
      _RL PHIM(N),PHIH(N),Z(N)
./pkg/fizhi/fizhi_turb.F 2953 PHI 
       IF(Z(I).GE.0.15)IBIT1 = IBIT1 + 1
./pkg/fizhi/fizhi_turb.F 2954 PHI 
       IF(Z(I).GT.2. )IBIT2 = IBIT2 + 1
./pkg/fizhi/fizhi_turb.F 2960 PHI 
       ZSTAR(I)    = 100. * Z(I) - 14.
./pkg/fizhi/fizhi_turb.F 2965 PHI 
       TEMP1(I) = Z(I)*0.5
./pkg/fizhi/fizhi_turb.F 2966 PHI 
       IF( Z(I) .LE. 2. )TEMP1(I) = 1.
./pkg/fizhi/fizhi_turb.F 2969 PHI 
       IF( Z(I) .GT. 2. ) ZSTAR(I) = TEMP1(I)
./pkg/fizhi/fizhi_turb.F 2970 PHI 
       IF( Z(I).GT.1.78e10 ) ZSTAR(I) = 384.9999
./pkg/fizhi/fizhi_turb.F 3008 PHI 
       ZSTAR(I) = -Z(I)
./pkg/fizhi/fizhi_turb.F 3013 PHI 
       IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(I)
./pkg/fizhi/fizhi_turb.F 3021 PHI 
       IF( Z(I) .LT. 0.15 ) THEN
./pkg/fizhi/fizhi_turb.F 3022 PHI 
       PHIH(I) =1.+ Z(I) * (0.5+ZSTAR(I)*(0.375+ZSTAR(I)*
./pkg/fizhi/fizhi_turb.F 3076 PSI 
      _RL ZZ0(irun),Z(irun),Z2(irun),Z1(irun),Z0(irun)
./pkg/fizhi/fizhi_turb.F 3122 PSI 
        Z(indx) = VZZ(I)
./pkg/fizhi/fizhi_turb.F 3128 PSI 
       Z(I) = -18. * Z(I)
./pkg/fizhi/fizhi_turb.F 3132 PSI 
      CALL PHI( Z,X1,Y1,IFLAG,IBIT )
./pkg/fizhi/fizhi_turb.F 3143 PSI 
       IF ( Z(I) .LT. 0.013 ) ARG1(I) =
./pkg/fizhi/fizhi_turb.F 3144 PSI 
     1        Z(I) * ( 0.25 -  0.09375 * Z(I) )
./pkg/fizhi/fizhi_turb.F 3180 PSI 
       IF( Z(I) .LT. 0.0065 ) ARG1(I) =
./pkg/fizhi/fizhi_turb.F 3181 PSI 
     1       Z(I) * ( 0.5 -  0.625 * Z(I) )
./pkg/fizhi/fizhi_turb.F 3230 PSI 
        Z(indx) = VZZ(I)
./pkg/fizhi/fizhi_turb.F 3241 PSI 
       Z1(I) = Z(I)
./pkg/fizhi/fizhi_turb.F 3244 PSI 
       IF ( Z(I) .GT. ZWM ) THEN
./pkg/fizhi/fizhi_turb.F 3246 PSI 
        Z2(I) = Z(I)
./pkg/fizhi/fizhi_turb.F 3261 PSI 
       IF ( (INTZ0(I).EQ.1) .OR. (Z(I).GT.ZWM) )
./pkg/fizhi/fizhi_turb.F 3307 PSI 
       Y1DEN(I) = 1. + CM1 * ( X1NUM(I) * Z(I) )
./pkg/sphere/sphere.F 550 HELMHOLTZ 
      REAL Z(LMAXLMT)
./pkg/sphere/sphere.F 554 HELMHOLTZ 
      SAVE    LMAXOLD, ISECT, X, Y, Z
./pkg/sphere/sphere.F 567 HELMHOLTZ 
         CALL RECUR_Z(Z,LMAX)
./pkg/sphere/sphere.F 577 HELMHOLTZ 
            P(K) = Z(M) * CM
./pkg/sphere/sphere.F 601 RECUR_Z 
      SUBROUTINE RECUR_Z(Z,LMAX)
./pkg/sphere/sphere.F 608 RECUR_Z 
      REAL    Z(LMAX)
./pkg/sphere/sphere.F 616 RECUR_Z 
         Z(L) = SNGL(DSQRT(ZZ))
./pkg/zonal_filt/fftpack.F 1020 R8ADB4 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1079 R8ADB5 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1144 R8ADBG 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1306 R8FFTB1 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1374 R8ADF2 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1403 R8ADF3 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1440 R8ADF4 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1495 R8ADF5 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 149 RADB5 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 14 RADB2 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1556 R8ADFG 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1724 R8FFTF1 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 1792 R8FFTI1 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 216 RADBG 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 380 RFFTB1 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 452 RADF2 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 47 RADB3 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 483 RADF3 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 522 RADF4 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 579 RADF5 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 642 RADFG 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 812 RFFTF1 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 885 RFFTI1 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 88 RADB4 
      IMPLICIT REAL*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 952 R8ADB2 
      implicit real*8 (A-H,O-Z)
./pkg/zonal_filt/fftpack.F 981 R8ADB3 
      implicit real*8 (A-H,O-Z)