Symbol Description Uses
A22 18



File Line number Procedure Code
./pkg/fizhi/fizhi_lsm.F 859 FLUXES
     &        EPLANT,     A11,     A12,     A21,     A22,      F0,
./pkg/fizhi/fizhi_lsm.F 925 FLUXES
          A22 = -( RC(ChNo)*DEDEA(ChNo) +
./pkg/fizhi/fizhi_lsm.F 929 FLUXES
          DETERM = MIN( A12*A21/(A11*A22) - 1., -0.1 _d 0)
./pkg/fizhi/fizhi_lsm.F 930 FLUXES
          DEA = ( Q0*A21 - A11*F0 ) / ( DETERM * A11*A22 )
./pkg/fizhi/fizhi_lsm.F 940 FLUXES
          DENOM = DETERM * A11*A22
./pkg/fizhi/fizhi_lsm.F 944 FLUXES
          A22 = 1.
./pkg/fizhi/fizhi_lsm.F 946 FLUXES
          DEA = ( Q0*A21 - A11*F0 ) / ( A12*A21 - A11*A22 )
./pkg/fizhi/fizhi_lsm.F 956 FLUXES
          DENOM = A12 * A21 - A11*A22
./pkg/fizhi/fizhi_lsm.F 982 FLUXES
          DEA=(F0-A21*DTC)/A22
./pkg/seaice/seaice_summary.F 141 SEAICE_SUMMARY
      CALL WRITE_0D_R8( A22               ,INDEX_NONE,
./pkg/seaice/groatb.F 36 GROATB
      _RL A22
./pkg/seaice/groatb.F 7 GROATB
      SUBROUTINE GROATB( A22, myThid )
./pkg/seaice/groatb.F 84 GROATB
          AREA(I,J,2,bi,bj)=MAX(A22,AREA(I,J,2,bi,bj))
./pkg/seaice/growth.F 155 GROWTH
      CALL GROATB(A22,myThid)
./pkg/seaice/seaice_readparms.F 129 SEAICE_READPARMS
      A22        = 0.15      _d 0
./pkg/seaice/seaice_readparms.F 49 SEAICE_READPARMS
     & LSR_ERROR, DIFF1, A22, HO,
./pkg/seaice/SEAICE_PARAMS.h 119 NO PROCEDURE
      _RL OCEAN_drag, LSR_ERROR, DIFF1, A22, HO
./pkg/seaice/SEAICE_PARAMS.h 134 NO PROCEDURE
     &    OCEAN_drag, LSR_ERROR, DIFF1, A22, HO,