Symbol Description Uses
psi 22



File Line number Procedure Code
./pkg/streamice/streamice_adv_flux_fl_x.F 124 STREAMICE_ADV_FLUX_FL_X
                psi = d0+d1*Cr
./pkg/streamice/streamice_adv_flux_fl_x.F 125 STREAMICE_ADV_FLUX_FL_X
                phi = MAX(0. _d 0,MIN(MIN(1. _d 0,psi),
./pkg/streamice/streamice_adv_flux_fl_x.F 177 STREAMICE_ADV_FLUX_FL_X
                psi = d0+d1*Cr
./pkg/streamice/streamice_adv_flux_fl_x.F 178 STREAMICE_ADV_FLUX_FL_X
                phi = MAX(0. _d 0,MIN(MIN(1. _d 0,psi),
./pkg/streamice/streamice_adv_flux_fl_x.F 43 STREAMICE_ADV_FLUX_FL_X
      _RL uface, phi, cfl, Cr, rdenom, d0, d1, psi
./pkg/streamice/streamice_adv_flux_fl_y.F 127 STREAMICE_ADV_FLUX_FL_Y
                psi = d0+d1*Cr
./pkg/streamice/streamice_adv_flux_fl_y.F 128 STREAMICE_ADV_FLUX_FL_Y
                phi = MAX(0. _d 0,MIN(MIN(1. _d 0,psi),
./pkg/streamice/streamice_adv_flux_fl_y.F 179 STREAMICE_ADV_FLUX_FL_Y
                psi = d0+d1*Cr
./pkg/streamice/streamice_adv_flux_fl_y.F 180 STREAMICE_ADV_FLUX_FL_Y
                phi = MAX(0. _d 0,MIN(MIN(1. _d 0,psi),
./pkg/streamice/streamice_adv_flux_fl_y.F 43 STREAMICE_ADV_FLUX_FL_Y
      _RL vface, phi, cfl, Cr, rdenom, d0, d1, psi
./verification/advect_cs/code/ini_vel.F 38 INI_VEL
      _RL psi,omegaprime,fac
./verification/advect_cs/code/ini_vel.F 41 INI_VEL
      psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj)
./verification/advect_cs/code/ini_vel.F 60 INI_VEL
     &      +(psi(i,j,bi,bj)-psi(i,jp1,bi,bj))*recip_dyG(i,j,bi,bj)
./verification/advect_cs/code/ini_vel.F 62 INI_VEL
     &      +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxG(i,j,bi,bj)
./verification/solid-body.cs-32x32x1/code/ini_vel.F 36 INI_VEL
      _RL psi,omegaprime,fac
./verification/solid-body.cs-32x32x1/code/ini_vel.F 38 INI_VEL
      psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj)
./verification/solid-body.cs-32x32x1/code/ini_vel.F 57 INI_VEL
     &      +(psi(i,j,bi,bj)-psi(i,jp1,bi,bj))*recip_dyg(i,j,bi,bj)
./verification/solid-body.cs-32x32x1/code/ini_vel.F 59 INI_VEL
     &      +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxg(i,j,bi,bj)