Symbol Description Uses
fcorLoc 9



File Line number Procedure Code
./pkg/gmredi/submeso_calc_psi.F 146 SUBMESO_CALC_PSI
     &        MsquareH(i,j)/(fcorLoc(i,j)*fcorLoc(i,j)) ,
./pkg/gmredi/submeso_calc_psi.F 147 SUBMESO_CALC_PSI
     &        NHmixLay(i,j)/fcorLoc(i,j) ,
./pkg/gmredi/submeso_calc_psi.F 159 SUBMESO_CALC_PSI
     &                 *2. _d 0/(fcorLoc(i-1,j)+fcorLoc(i,j))
./pkg/gmredi/submeso_calc_psi.F 202 SUBMESO_CALC_PSI
     &                 *2. _d 0/(fcorLoc(i,j-1)+fcorLoc(i,j))
./pkg/gmredi/submeso_calc_psi.F 58 SUBMESO_CALC_PSI
      _RL fcorLoc     (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/gmredi/submeso_calc_psi.F 98 SUBMESO_CALC_PSI
          fcorLoc(i,j) = SQRT( fCori(i,j,bi,bj)*fCori(i,j,bi,bj)