Symbol Description Uses
A relaxation time scale (in seconds) on the 107


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 4005 VTRI0 
      SUBROUTINE VTRI0 ( A,B,C,F,Y,K,irun)
./pkg/fizhi/fizhi_turb.F 4009 VTRI0 
      _RL A(irun,K),B(irun,K),C(irun,K),Y(irun,K+1)
./pkg/fizhi/fizhi_turb.F 4015 VTRI0 
       A(I,1) = 1. / A(I,1)
./pkg/fizhi/fizhi_turb.F 4021 VTRI0 
        C(I,L) = C(I,L) * A(I,LM1)
./pkg/fizhi/fizhi_turb.F 4022 VTRI0 
        A(I,L) = 1. / ( A(I,L) - B(I,LM1) * C(I,L) )
./pkg/fizhi/fizhi_turb.F 4029 VTRI0 
       Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L)
./pkg/fizhi/fizhi_turb.F 4038 VTRI1 
      SUBROUTINE VTRI1 ( A,B,Y,K,irun)
./pkg/fizhi/fizhi_turb.F 4042 VTRI1 
      _RL A(irun,K),B(irun,K),Y(irun,K+1)
./pkg/fizhi/fizhi_turb.F 4048 VTRI1 
        Y(I,L) = B(I,L) * Y(I,L+1) * A(I,L)
./pkg/fizhi/fizhi_turb.F 4057 VTRI2 
      SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun)
./pkg/fizhi/fizhi_turb.F 4061 VTRI2 
      _RL A(irun,K),B(irun,K),C(irun,K),F(irun,K)
./pkg/fizhi/fizhi_turb.F 4074 VTRI2 
        Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) *  A(I,L)
./pkg/fizhi/fizhi_utils.F 103 STRIPINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 108 STRIPINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 111 STRIPINT 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 118 PASTE 
      SUBROUTINE PASTE(B,A,IB,IA,L,K)
./pkg/fizhi/fizhi_utils.F 121 PASTE 
      _RL A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 131 PASTE 
      A(I+OFFSET-1,J) = B(I,J)
./pkg/fizhi/fizhi_utils.F 136 PSTBMP 
      SUBROUTINE PSTBMP(B,A,IB,IA,L,K)
./pkg/fizhi/fizhi_utils.F 139 PSTBMP 
      _RL A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 149 PSTBMP 
      A(I+OFFSET-1,J) = A(I+OFFSET-1,J) + B(I,J)
./pkg/fizhi/fizhi_utils.F 154 STRINT 
      SUBROUTINE STRINT(A,B,IA,IB,L,K)
./pkg/fizhi/fizhi_utils.F 157 STRINT 
      INTEGER A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 168 STRINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 173 STRINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 176 STRINT 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 60 STRIP 
      SUBROUTINE STRIP(A,B,IA,IB,L,K)
./pkg/fizhi/fizhi_utils.F 63 STRIP 
      _RL A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 652 GRD2MSC 
      SUBROUTINE GRD2MSC(A,IM,JM,IGRD,B,MXCHPS,NCHP)
./pkg/fizhi/fizhi_utils.F 658 GRD2MSC 
      _RL A(IM*JM), B(MXCHPS)
./pkg/fizhi/fizhi_utils.F 665 GRD2MSC 
         B(I) = A(IGRD(I))
./pkg/fizhi/fizhi_utils.F 674 MSC2GRD 
      SUBROUTINE MSC2GRD(IGRD,CHFR,B,MXCHPS,NCHP,FRACG,A,IM,JM)
./pkg/fizhi/fizhi_utils.F 683 MSC2GRD 
      _RL A(IM*JM), B(MXCHPS), CHFR(MXCHPS), FRACG(IM*JM)
./pkg/fizhi/fizhi_utils.F 702 MSC2GRD 
         A(I) = A(I)*(ONE-FRACG(I)) + VT1(I)
./pkg/fizhi/fizhi_utils.F 74 STRIP 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 79 STRIP 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 82 STRIP 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 89 STRIPINT 
      SUBROUTINE STRIPINT(A,B,IA,IB,L,K)
./pkg/fizhi/fizhi_utils.F 92 STRIPINT 
      INTEGER A(IA,L), B(IB,L)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 175 GAD_OS7MP_ADV_R 
         A = 4. _d 0*d2 - d2p1
./pkg/generic_advdiff/gad_os7mp_adv_r.F 179 GAD_OS7MP_ADV_R 
         dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 180 GAD_OS7MP_ADV_R 
         A = 4. _d 0*d2m1 - d2
./pkg/generic_advdiff/gad_os7mp_adv_r.F 184 GAD_OS7MP_ADV_R 
         dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 40 GAD_OS7MP_ADV_R 
      _RL d2,d2p1,d2m1,A,B,C,D
./pkg/generic_advdiff/gad_os7mp_adv_x.F 179 GAD_OS7MP_ADV_X 
         A = 4. _d 0*d2 - d2p1
./pkg/generic_advdiff/gad_os7mp_adv_x.F 183 GAD_OS7MP_ADV_X 
         dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 184 GAD_OS7MP_ADV_X 
         A = 4. _d 0*d2m1 - d2
./pkg/generic_advdiff/gad_os7mp_adv_x.F 188 GAD_OS7MP_ADV_X 
         dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 42 GAD_OS7MP_ADV_X 
      _RL d2,d2p1,d2m1,A,B,C,D
./pkg/generic_advdiff/gad_os7mp_adv_y.F 179 GAD_OS7MP_ADV_Y 
         A = 4. _d 0*d2 - d2p1
./pkg/generic_advdiff/gad_os7mp_adv_y.F 183 GAD_OS7MP_ADV_Y 
         dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 184 GAD_OS7MP_ADV_Y 
         A = 4. _d 0*d2m1 - d2
./pkg/generic_advdiff/gad_os7mp_adv_y.F 188 GAD_OS7MP_ADV_Y 
         dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 42 GAD_OS7MP_ADV_Y 
      _RL d2,d2p1,d2m1,A,B,C,D
./pkg/sphere/sphere.F 315 SHC2ZONE 
      REAL    A, B, E, F, Q, DA, DB, XLAT
./pkg/sphere/sphere.F 331 SHC2ZONE 
         A    = 0.0
./pkg/sphere/sphere.F 341 SHC2ZONE 
            A    = A+DA
./pkg/sphere/sphere.F 350 SHC2ZONE 
            A    = A+DA
./pkg/sphere/sphere.F 361 SHC2ZONE 
            A    = A+DA
./pkg/sphere/sphere.F 367 SHC2ZONE 
            HS(1) = A
./pkg/sphere/sphere.F 370 SHC2ZONE 
            HS(M+M  ) = A
./pkg/sphere/sphere.F 495 FRSBASE 
      SUBROUTINE FRSBASE(A,H,I,J)
./pkg/sphere/sphere.F 501 FRSBASE 
      REAL A
./pkg/sphere/sphere.F 514 FRSBASE 
      ARG    = A * DEG2RAD
./pkg/sphere/sphere.F 546 HELMHOLTZ 
      REAL A(0:LMAXLMT)
./pkg/sphere/sphere.F 585 HELMHOLTZ 
            A(M) = AK
./pkg/sphere/sphere.F 592 HELMHOLTZ 
               P(K) =(S*P(K-1)-P(K-2)*A(M))/AK
./pkg/sphere/sphere.F 593 HELMHOLTZ 
               A(M) = AK
./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)