Symbol Description Uses
tmpx 112


File Line number Procedure Code
./pkg/ecco/cost_atemp.F 117 COST_ATEMP 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_atemp.F 120 COST_ATEMP 
     &                 *tmpx*tmpx
./pkg/ecco/cost_atemp.F 58 COST_ATEMP 
      _RL tmpx
./pkg/ecco/cost_heatflux.F 154 COST_HEATFLUX 
            tmpx = xx_hflux_mean(i,j,bi,bj)/30.0
./pkg/ecco/cost_heatflux.F 157 COST_HEATFLUX 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000.
./pkg/ecco/cost_heatflux.F 160 COST_HEATFLUX 
     &                 *tmpx*tmpx
./pkg/ecco/cost_heatflux.F 208 COST_HEATFLUX 
                  tmpx = tmpfld2d(i,j,bi,bj)-xx_hflux_mean(i,j,bi,bj)
./pkg/ecco/cost_heatflux.F 210 COST_HEATFLUX 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000.
./pkg/ecco/cost_heatflux.F 213 COST_HEATFLUX 
     &                 *tmpx*tmpx
./pkg/ecco/cost_heatflux.F 68 COST_HEATFLUX 
      _RL tmpx
./pkg/ecco/cost_salt0.F 118 COST_SALT0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 120 COST_SALT0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000.
./pkg/ecco/cost_salt0.F 123 COST_SALT0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_salt0.F 62 COST_SALT0 
      _RL tmpx
./pkg/ecco/cost_uwind.F 117 COST_UWIND 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_uwind.F 120 COST_UWIND 
     &                 *tmpx*tmpx
./pkg/ecco/cost_uwind.F 58 COST_UWIND 
      _RL tmpx
./pkg/ecco/cost_kapgm.F 122 COST_KAPGM 
                  tmpx = (tmpfld3d(i,j,k,bi,bj)-GM_background_K)
./pkg/ecco/cost_kapgm.F 125 COST_KAPGM 
     &                 *tmpx*tmpx
./pkg/ecco/cost_kapgm.F 66 COST_KAPGM 
      _RL tmpx
./pkg/ecco/cost_zonstress.F 154 COST_ZONSTRESS 
              tmpx = xx_tauu_mean(i,j,bi,bj)/0.1
./pkg/ecco/cost_zonstress.F 157 COST_ZONSTRESS 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000.
./pkg/ecco/cost_zonstress.F 160 COST_ZONSTRESS 
     &                    *tmpx*tmpx
./pkg/ecco/cost_zonstress.F 208 COST_ZONSTRESS 
                  tmpx = tmpfld2d(i,j,bi,bj)-xx_tauu_mean(i,j,bi,bj)
./pkg/ecco/cost_zonstress.F 210 COST_ZONSTRESS 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000.
./pkg/ecco/cost_zonstress.F 213 COST_ZONSTRESS 
     &                 *tmpx*tmpx
./pkg/ecco/cost_zonstress.F 68 COST_ZONSTRESS 
      _RL tmpx
./pkg/ecco/cost_mean_heatflux.F 116 COST_MEAN_HEATFLUX 
                tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F 118 COST_MEAN_HEATFLUX 
                  fctilemm = fctilemm + tmpx
./pkg/ecco/cost_mean_heatflux.F 60 COST_MEAN_HEATFLUX 
      _RL tmpx
./pkg/ecco/cost_theta0.F 118 COST_THETA0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 120 COST_THETA0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000.
./pkg/ecco/cost_theta0.F 123 COST_THETA0 
     &                 *tmpx*tmpx
./pkg/ecco/cost_theta0.F 62 COST_THETA0 
      _RL tmpx
./pkg/ecco/cost_mean_saltflux.F 116 COST_MEAN_SALTFLUX 
                tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_saltflux.F 118 COST_MEAN_SALTFLUX 
                   fctilemm = fctilemm+tmpx*cos(yc(i,j,bi,bj)*deg2rad)
./pkg/ecco/cost_mean_saltflux.F 60 COST_MEAN_SALTFLUX 
      _RL tmpx
./pkg/ecco/cost_obcsvol.F 206 COST_OBCSVOL 
                  tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 209 COST_OBCSVOL 
                    fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj)
./pkg/ecco/cost_obcsvol.F 248 COST_OBCSVOL 
                  tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 251 COST_OBCSVOL 
                    fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj)
./pkg/ecco/cost_obcsvol.F 73 COST_OBCSVOL 
      _RL tmpx
./pkg/ecco/cost_theta_ini_fin.F 108 COST_THETA_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - theta(i,j,k,bi,bj)
./pkg/ecco/cost_theta_ini_fin.F 111 COST_THETA_INI_FIN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_theta_ini_fin.F 54 COST_THETA_INI_FIN 
      _RL tmpx
./pkg/ecco/cost_saltflux.F 154 COST_SALTFLUX 
              tmpx = xx_sflux_mean(i,j,bi,bj)/1.6 _d -8
./pkg/ecco/cost_saltflux.F 157 COST_SALTFLUX 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000.
./pkg/ecco/cost_saltflux.F 160 COST_SALTFLUX 
     &                *tmpx*tmpx
./pkg/ecco/cost_saltflux.F 208 COST_SALTFLUX 
                  tmpx = tmpfld2d(i,j,bi,bj)-xx_sflux_mean(i,j,bi,bj)
./pkg/ecco/cost_saltflux.F 210 COST_SALTFLUX 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000.
./pkg/ecco/cost_saltflux.F 213 COST_SALTFLUX 
     &                 *tmpx*tmpx
./pkg/ecco/cost_saltflux.F 68 COST_SALTFLUX 
      _RL tmpx
./pkg/ecco/cost_aqh.F 117 COST_AQH 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_aqh.F 120 COST_AQH 
     &                 *tmpx*tmpx
./pkg/ecco/cost_aqh.F 58 COST_AQH 
      _RL tmpx
./pkg/ecco/cost_merstress.F 156 COST_MERSTRESS 
              tmpx = xx_tauv_mean(i,j,bi,bj)/0.1
./pkg/ecco/cost_merstress.F 159 COST_MERSTRESS 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000.
./pkg/ecco/cost_merstress.F 162 COST_MERSTRESS 
     &                    *tmpx*tmpx
./pkg/ecco/cost_merstress.F 210 COST_MERSTRESS 
                  tmpx = tmpfld2d(i,j,bi,bj)-xx_tauv_mean(i,j,bi,bj)
./pkg/ecco/cost_merstress.F 212 COST_MERSTRESS 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000.
./pkg/ecco/cost_merstress.F 215 COST_MERSTRESS 
     &                 *tmpx*tmpx
./pkg/ecco/cost_merstress.F 68 COST_MERSTRESS 
      _RL tmpx
./pkg/ecco/cost_salt_ini_fin.F 108 COST_SALT_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - salt(i,j,k,bi,bj)
./pkg/ecco/cost_salt_ini_fin.F 111 COST_SALT_INI_FIN 
     &                 *tmpx*tmpx
./pkg/ecco/cost_salt_ini_fin.F 54 COST_SALT_INI_FIN 
      _RL tmpx
./pkg/ecco/cost_vwind.F 117 COST_VWIND 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_vwind.F 120 COST_VWIND 
     &                 *tmpx*tmpx
./pkg/ecco/cost_vwind.F 58 COST_VWIND 
      _RL tmpx
./pkg/ctrl/ctrl_obcsvol.F 186 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 188 CTRL_OBCSVOL 
                    tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 222 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 224 CTRL_OBCSVOL 
                    tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 344 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 346 CTRL_OBCSVOL 
                    tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 380 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 382 CTRL_OBCSVOL 
                    tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 72 CTRL_OBCSVOL 
      _RL tmpx
./pkg/ctrl/ctrl_volflux.F 189 CTRL_VOLFLUX 
                      tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 195 CTRL_VOLFLUX 
                        tmpx = 0.
./pkg/ctrl/ctrl_volflux.F 200 CTRL_VOLFLUX 
                    tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 236 CTRL_VOLFLUX 
                      tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 244 CTRL_VOLFLUX 
                        tmpx = 0.
./pkg/ctrl/ctrl_volflux.F 250 CTRL_VOLFLUX 
                      tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 76 CTRL_VOLFLUX 
      _RL tmpx
./pkg/ctrl/ctrl_obcsbal.F 75 CTRL_OBCSBAL 
      _RL tmpx