Symbol Description Uses
y 1rst order moment of tracer distribution, in x,y,z direction 85


File Line number Procedure Code
./model/src/gsw_teos10.F 139 NO PROCEDURE 
      _RL x2, x, y, cp0
./model/src/gsw_teos10.F 148 NO PROCEDURE 
      y    = pt*0.025 _d 0
./model/src/gsw_teos10.F 151 NO PROCEDURE 
     &     y*(168776.46138048015 _d 0 +
./model/src/gsw_teos10.F 152 NO PROCEDURE 
     &     y*(-2735.2785605119625 _d 0 + y*(2574.2164453821433 _d 0 +
./model/src/gsw_teos10.F 153 NO PROCEDURE 
     &     y*(-1536.6644434977543 _d 0 + y*(545.7340497931629 _d 0 +
./model/src/gsw_teos10.F 154 NO PROCEDURE 
     &     (-50.91091728474331 _d 0 - 18.30489878927802 _d 0*y)*y))))) +
./model/src/gsw_teos10.F 155 NO PROCEDURE 
     &     x2*(268.5520265845071 _d 0 + y*(-12019.028203559312 _d 0 +
./model/src/gsw_teos10.F 156 NO PROCEDURE 
     &     y *(3734.858026725145 _d 0 + y*(-2046.7671145057618 _d 0 +
./model/src/gsw_teos10.F 157 NO PROCEDURE 
     &     y*(465.28655623826234 _d 0 + (-0.6370820302376359 _d 0 -
./model/src/gsw_teos10.F 158 NO PROCEDURE 
     &     10.650848542359153 _d 0*y)*y)))) +
./model/src/gsw_teos10.F 159 NO PROCEDURE 
     &     x*(937.2099110620707 _d 0 + y*(588.1802812170108 _d 0 +
./model/src/gsw_teos10.F 160 NO PROCEDURE 
     &     y*(248.39476522971285 _d 0 + (-3.871557904936333 _d 0 -
./model/src/gsw_teos10.F 161 NO PROCEDURE 
     &     2.6268019854268356 _d 0*y)*y)) +
./model/src/gsw_teos10.F 164 NO PROCEDURE 
     &     y*( 936.3206544460336 _d 0 +
./model/src/gsw_teos10.F 165 NO PROCEDURE 
     &     y*(-942.7827304544439 _d 0 + y*(369.4389437509002 _d 0 +
./model/src/gsw_teos10.F 166 NO PROCEDURE 
     &     (-33.83664947895248 _d 0 - 9.987880382780322 _d 0*y)*y))))))
./model/src/gsw_teos10.F 206 NO PROCEDURE 
      _RL sfac, x2, x, y, g03, g08
./model/src/gsw_teos10.F 214 NO PROCEDURE 
      y    = pt0*0.025 _d 0
./model/src/gsw_teos10.F 217 NO PROCEDURE 
     &     y*(4420.4472249096725 +
./model/src/gsw_teos10.F 218 NO PROCEDURE 
     &     y*(-1778.231237203896 +
./model/src/gsw_teos10.F 219 NO PROCEDURE 
     &     y*(1160.5182516851419 +
./model/src/gsw_teos10.F 220 NO PROCEDURE 
     &     y*(-569.531539542516  + y*128.13429152494615))))
./model/src/gsw_teos10.F 223 NO PROCEDURE 
     &     x*( -137.1145018408982  + y*(296.20061691375236 +
./model/src/gsw_teos10.F 224 NO PROCEDURE 
     &     y* (-205.67709290374563 + 49.9394019139016*y))) +
./model/src/gsw_teos10.F 225 NO PROCEDURE 
     &     y*(  -60.136422517125   + y*10.50720794170734)) +
./model/src/gsw_teos10.F 226 NO PROCEDURE 
     &     y*(-1351.605895580406   + y*(1097.1125373015109 +
./model/src/gsw_teos10.F 227 NO PROCEDURE 
     &     y*( -433.20648175062206 + 63.905091254154904*y))))
./pkg/streamice/streamice_init_fixed.F 318 STREAMICE_INIT_FIXED 
          y = yC(i,j,bi,bj)
./pkg/streamice/streamice_init_fixed.F 325 STREAMICE_INIT_FIXED 
           IF ((y .gt. min_y_noflow_WEST) .AND.
./pkg/streamice/streamice_init_fixed.F 326 STREAMICE_INIT_FIXED 
     &         (y .le. max_y_noflow_WEST)) THEN
./pkg/streamice/streamice_init_fixed.F 329 STREAMICE_INIT_FIXED 
           IF ((y .gt. min_y_noStress_WEST) .AND.
./pkg/streamice/streamice_init_fixed.F 330 STREAMICE_INIT_FIXED 
     &         (y .le. max_y_noStress_WEST)) THEN
./pkg/streamice/streamice_init_fixed.F 333 STREAMICE_INIT_FIXED 
           IF ((y .gt. min_y_FluxBdry_WEST) .AND.
./pkg/streamice/streamice_init_fixed.F 334 STREAMICE_INIT_FIXED 
     &         (y .le. max_y_FluxBdry_WEST)) THEN
./pkg/streamice/streamice_init_fixed.F 338 STREAMICE_INIT_FIXED 
           IF ((y .gt. min_y_Dirich_WEST) .AND.
./pkg/streamice/streamice_init_fixed.F 339 STREAMICE_INIT_FIXED 
     &         (y .le. max_y_Dirich_WEST)) THEN
./pkg/streamice/streamice_init_fixed.F 343 STREAMICE_INIT_FIXED 
           IF ((y .gt. min_y_CFBC_WEST) .AND.
./pkg/streamice/streamice_init_fixed.F 344 STREAMICE_INIT_FIXED 
     &         (y .le. max_y_CFBC_WEST)) THEN
./pkg/streamice/streamice_init_fixed.F 351 STREAMICE_INIT_FIXED 
           IF ((y .gt. min_y_noflow_EAST) .AND.
./pkg/streamice/streamice_init_fixed.F 352 STREAMICE_INIT_FIXED 
     &         (y .le. max_y_noflow_EAST)) THEN
./pkg/streamice/streamice_init_fixed.F 355 STREAMICE_INIT_FIXED 
           IF ((y .gt. min_y_noStress_EAST) .AND.
./pkg/streamice/streamice_init_fixed.F 356 STREAMICE_INIT_FIXED 
     &         (y .le. max_y_noStress_EAST)) THEN
./pkg/streamice/streamice_init_fixed.F 359 STREAMICE_INIT_FIXED 
           IF ((y .gt. min_y_FluxBdry_EAST) .AND.
./pkg/streamice/streamice_init_fixed.F 360 STREAMICE_INIT_FIXED 
     &         (y .le. max_y_FluxBdry_EAST)) THEN
./pkg/streamice/streamice_init_fixed.F 364 STREAMICE_INIT_FIXED 
           IF ((y .gt. min_y_Dirich_EAST) .AND.
./pkg/streamice/streamice_init_fixed.F 365 STREAMICE_INIT_FIXED 
     &         (y .le. max_y_Dirich_EAST)) THEN
./pkg/streamice/streamice_init_fixed.F 369 STREAMICE_INIT_FIXED 
           IF ((y .gt. min_y_CFBC_EAST) .AND.
./pkg/streamice/streamice_init_fixed.F 370 STREAMICE_INIT_FIXED 
     &         (y .le. max_y_CFBC_EAST)) THEN
./pkg/streamice/streamice_init_fixed.F 38 STREAMICE_INIT_FIXED 
      _RL x, y
./pkg/streamice/streamice_init_varia.F 41 STREAMICE_INIT_VARIA 
      _RL slope_pos, c1, x, y, lenx, leny
./pkg/streamice/streamice_init_varia.F 430 STREAMICE_INIT_VARIA 
           y = yC(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F 434 STREAMICE_INIT_VARIA 
     &           sin(2*streamice_ky_b_init*PI*y/leny)))
./pkg/streamice/streamice_init_varia.F 448 STREAMICE_INIT_VARIA 
           y = yC(i,j,bi,bj)
./pkg/cheapaml/cheapaml_coare3_flux.F 289 CHEAPAML_COARE3_FLUX 
      _RL x,y,psik,psic,f,c
./pkg/cheapaml/cheapaml_coare3_flux.F 295 CHEAPAML_COARE3_FLUX 
       y = (1. - 10.15 _d 0*zL)**.3333 _d 0     !Convective
./pkg/cheapaml/cheapaml_coare3_flux.F 296 CHEAPAML_COARE3_FLUX 
       psic = 1.5*LOG((1.+y+y*y)/3.)
./pkg/cheapaml/cheapaml_coare3_flux.F 297 CHEAPAML_COARE3_FLUX 
     &      - SQRT(3. _d 0)*ATAN( (1.+2.*y)/SQRT(3. _d 0) )
./pkg/cheapaml/cheapaml_coare3_flux.F 327 CHEAPAML_COARE3_FLUX 
      _RL x,y,psik,psic,f,c
./pkg/cheapaml/cheapaml_coare3_flux.F 333 CHEAPAML_COARE3_FLUX 
       y = (1. - 34.15 _d 0*zL)**.3333 _d 0     !Convective
./pkg/cheapaml/cheapaml_coare3_flux.F 334 CHEAPAML_COARE3_FLUX 
       psic = 1.5*LOG((1.+y+y*y)/3.)
./pkg/cheapaml/cheapaml_coare3_flux.F 335 CHEAPAML_COARE3_FLUX 
     &      - SQRT(3. _d 0)*ATAN( (1.+2.*y)/SQRT(3. _d 0) )
./pkg/ebm/ebm_wind_perturb.F 106 EBM_WIND_PERTURB 
         y(j) = j
./pkg/ebm/ebm_wind_perturb.F 107 EBM_WIND_PERTURB 
         ya(j) = y(j) - MOD(y(j),6.0)
./pkg/ebm/ebm_wind_perturb.F 117 EBM_WIND_PERTURB 
     &        ((y(j)-ya(j))*temp2(i,INT(ya2(j)))+
./pkg/ebm/ebm_wind_perturb.F 118 EBM_WIND_PERTURB 
     &        (6.0-y(j)+ya(j))*temp2(i,INT(ya(j)))))
./pkg/ebm/ebm_wind_perturb.F 39 EBM_WIND_PERTURB 
      _RS y(1-OLy:sNy+OLy), x(1-OLx:sNx+OLx)
./pkg/ebm/ebm_wind_perturb.F 56 EBM_WIND_PERTURB 
         y(j) = 0.0