Symbol Description Uses
tmpx 121


File Line number Procedure Code
./pkg/ctrl/ctrl_obcsbal.F 77 CTRL_OBCSBAL 
      _RL tmpx
./pkg/ctrl/ctrl_obcsvol.F 188 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 190 CTRL_OBCSVOL 
                    tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 224 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 226 CTRL_OBCSVOL 
                    tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 346 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 348 CTRL_OBCSVOL 
                    tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 382 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 384 CTRL_OBCSVOL 
                    tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 74 CTRL_OBCSVOL 
      _RL tmpx
./pkg/ctrl/ctrl_volflux.F 191 CTRL_VOLFLUX 
                      tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 197 CTRL_VOLFLUX 
                        tmpx = 0.
./pkg/ctrl/ctrl_volflux.F 202 CTRL_VOLFLUX 
                    tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 238 CTRL_VOLFLUX 
                      tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 246 CTRL_VOLFLUX 
                        tmpx = 0.
./pkg/ctrl/ctrl_volflux.F 252 CTRL_VOLFLUX 
                      tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 78 CTRL_VOLFLUX 
      _RL tmpx
./lsopt/dostore.F 20 DOSTORE 
          tmpx(i) = x(i)
./lsopt/dostore.F 22 DOSTORE 
        write( ntape, rec=j ) tmpx
./lsopt/dostore.F 24 DOSTORE 
        read(  ntape, rec=j ) tmpx
./lsopt/dostore.F 26 DOSTORE 
          x(i) = tmpx(i)
./lsopt/dostore.F 7 DOSTORE 
      real*4 tmpx(n)
./pkg/ecco/cost_bottomdrag.F 106 COST_BOTTOMDRAG 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_bottomdrag.F 110 COST_BOTTOMDRAG 
     &                 *tmpx*tmpx
./pkg/ecco/cost_bottomdrag.F 112 COST_BOTTOMDRAG 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_bottomdrag.F 51 COST_BOTTOMDRAG 
      _RL tmpx
./pkg/ecco/cost_diffkr.F 108 COST_DIFFKR 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_diffkr.F 112 COST_DIFFKR 
     &                 *tmpx*tmpx
./pkg/ecco/cost_diffkr.F 114 COST_DIFFKR 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_diffkr.F 51 COST_DIFFKR 
      _RL tmpx
./pkg/ecco/cost_forcing_gen.F 183 COST_FORCING_GEN 
            tmpx = xx_mean(i,j,bi,bj)/wmean_gen
./pkg/ecco/cost_forcing_gen.F 186 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 187 COST_FORCING_GEN 
              fctilem = fctilem + cosphi(i,j,bi,bj)*tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 217 COST_FORCING_GEN 
                  tmpx = tmpfld2d(i,j,bi,bj)-xx_mean(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 221 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 224 COST_FORCING_GEN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 226 COST_FORCING_GEN 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 227 COST_FORCING_GEN 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 266 COST_FORCING_GEN 
                  tmpx =
./pkg/ecco/cost_forcing_gen.F 276 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 280 COST_FORCING_GEN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 89 COST_FORCING_GEN 
      _RL tmpx
./pkg/ecco/cost_kapgm.F 111 COST_KAPGM 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapgm.F 115 COST_KAPGM 
     &                 *tmpx*tmpx
./pkg/ecco/cost_kapgm.F 117 COST_KAPGM 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_kapgm.F 54 COST_KAPGM 
      _RL tmpx
./pkg/ecco/cost_kapredi.F 111 COST_KAPREDI 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapredi.F 115 COST_KAPREDI 
     &                 *tmpx*tmpx
./pkg/ecco/cost_kapredi.F 117 COST_KAPREDI 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_kapredi.F 54 COST_KAPREDI 
      _RL tmpx
./pkg/ecco/cost_mean_heatflux.F 115 COST_MEAN_HEATFLUX 
                tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F 118 COST_MEAN_HEATFLUX 
     &                + tmpx* _rA(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F 60 COST_MEAN_HEATFLUX 
      _RL tmpx
./pkg/ecco/cost_mean_saltflux.F 115 COST_MEAN_SALTFLUX 
                tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_saltflux.F 118 COST_MEAN_SALTFLUX 
     &                + tmpx* _rA(i,j,bi,bj)/rhoConstFresh
./pkg/ecco/cost_mean_saltflux.F 60 COST_MEAN_SALTFLUX 
      _RL tmpx
./pkg/ecco/cost_obcsvol.F 208 COST_OBCSVOL 
                  tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 211 COST_OBCSVOL 
                    fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj)
./pkg/ecco/cost_obcsvol.F 250 COST_OBCSVOL 
                  tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 253 COST_OBCSVOL 
                    fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj)
./pkg/ecco/cost_obcsvol.F 75 COST_OBCSVOL 
      _RL tmpx
./pkg/ecco/cost_salt0.F 119 COST_SALT0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 122 COST_SALT0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_salt0.F 125 COST_SALT0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_salt0.F 127 COST_SALT0 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_salt0.F 159 COST_SALT0 
                  tmpx =
./pkg/ecco/cost_salt0.F 169 COST_SALT0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_salt0.F 173 COST_SALT0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_salt0.F 62 COST_SALT0 
      _RL tmpx
./pkg/ecco/cost_salt_ini_fin.F 109 COST_SALT_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - salt(i,j,k,bi,bj)
./pkg/ecco/cost_salt_ini_fin.F 112 COST_SALT_INI_FIN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_salt_ini_fin.F 55 COST_SALT_INI_FIN 
      _RL tmpx
./pkg/ecco/cost_tau_eddy.F 113 COST_TAU_EDDY 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 117 COST_TAU_EDDY 
     &                 *tmpx*tmpx
./pkg/ecco/cost_tau_eddy.F 119 COST_TAU_EDDY 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_tau_eddy.F 148 COST_TAU_EDDY 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 152 COST_TAU_EDDY 
     &                 *tmpx*tmpx
./pkg/ecco/cost_tau_eddy.F 154 COST_TAU_EDDY 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_tau_eddy.F 57 COST_TAU_EDDY 
      _RL tmpx
./pkg/ecco/cost_theta0.F 119 COST_THETA0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 122 COST_THETA0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_theta0.F 125 COST_THETA0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_theta0.F 127 COST_THETA0 
                  fctile = fctile + tmpx*tmpx
./pkg/ecco/cost_theta0.F 159 COST_THETA0 
                  tmpx =
./pkg/ecco/cost_theta0.F 169 COST_THETA0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_theta0.F 173 COST_THETA0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_theta0.F 62 COST_THETA0 
      _RL tmpx
./pkg/ecco/cost_theta_ini_fin.F 109 COST_THETA_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - theta(i,j,k,bi,bj)
./pkg/ecco/cost_theta_ini_fin.F 112 COST_THETA_INI_FIN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_theta_ini_fin.F 55 COST_THETA_INI_FIN 
      _RL tmpx