Symbol Description Uses
lat Temporary variables used to hold latitude values. 84


File Line number Procedure Code
./pkg/fizhi/fizhi_init_chem.F 104 READ_QZ 
      do  lat = 1,nlat
./pkg/fizhi/fizhi_init_chem.F 105 READ_QZ 
      qz(lat,lev,time0) = qz(lat,lev,time0)*voltomas
./pkg/fizhi/fizhi_init_chem.F 140 READ_OZ 
      integer lat
./pkg/fizhi/fizhi_init_chem.F 152 READ_OZ 
      do   lat = 1,nlat
./pkg/fizhi/fizhi_init_chem.F 153 READ_OZ 
      lats(lat) = -90. + (lat-1)*5.
./pkg/fizhi/fizhi_init_chem.F 176 READ_OZ 
           do lat=1,nlat
./pkg/fizhi/fizhi_init_chem.F 177 READ_OZ 
           oz(lat,nlev-lev+1,time0) = o3(lat)
./pkg/fizhi/fizhi_init_chem.F 72 READ_QZ 
      integer lat
./pkg/fizhi/fizhi_init_chem.F 83 READ_QZ 
      do   lat = 1,nlat
./pkg/fizhi/fizhi_init_chem.F 84 READ_QZ 
      lats(lat) = -85. + (lat-1)*10.
./pkg/fizhi/fizhi_init_chem.F 95 READ_QZ 
      do  lat=1,nlat
./pkg/fizhi/fizhi_init_chem.F 96 READ_QZ 
      read(ku,1000) (qz(lat,lev,time0),lev=1,nlev)
./pkg/kpp/kpp_calc.F 193 KPP_CALC 
      _RL lat ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy                  )
./pkg/kpp/kpp_calc.F 653 KPP_CALC 
              lat(i,j) = YC(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 660 KPP_CALC 
     I       lon,lat,
./pkg/kpp/kpp_routines.F 111 KPPMIX 
      _RL lat  (imt   )
./pkg/kpp/kpp_routines.F 213 KPPMIX 
     I     , lon,lat
./pkg/kpp/kpp_routines.F 301 BLDEPTH 
     I     , lon,lat
./pkg/kpp/kpp_routines.F 375 BLDEPTH 
      _RL lat (imt)
./pkg/kpp/kpp_routines.F 37 KPPMIX 
     I     , lon,lat
./pkg/kpp/kpp_routines.F 496 BLDEPTH 
     I         lon,lat,
./pkg/kpp/kpp_routines.F 659 BLDEPTH 
     I         lon,lat,
./pkg/kpp/kpp_routines.F 782 BLDEPTH 
     I         lon,lat,
./pkg/salt_plume/salt_plume_frac.F 12 SALT_PLUME_FRAC 
     I                  lon,lat,
./pkg/salt_plume/salt_plume_frac.F 66 SALT_PLUME_FRAC 
      _RL     lon(imax), lat(imax)
./pkg/salt_plume/salt_plume_frac.F 89 SALT_PLUME_FRAC 
         IF(lat(imax).LT. 85.0 .AND. lat(imax).GT. 71.0
./pkg/salt_plume/salt_plume_tendency_apply_s.F 134 SALT_PLUME_TENDENCY_APPLY_S 
         lat(1) = YC(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 135 SALT_PLUME_TENDENCY_APPLY_S 
         lat(2) = YC(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 140 SALT_PLUME_TENDENCY_APPLY_S 
     I                   lon,lat,
./pkg/salt_plume/salt_plume_tendency_apply_s.F 65 SALT_PLUME_TENDENCY_APPLY_S 
      _RL lon(two2), lat(two2)
./pkg/sbo/sbo_calc.F 107 SBO_CALC 
      _RL lat, lon, darea, dvolume
./pkg/sbo/sbo_calc.F 272 SBO_CALC 
            lat = yC(i,j,bi,bj) * deg2rad
./pkg/sbo/sbo_calc.F 274 SBO_CALC 
            COSlat(i,j,bi,bj) = COS(lat)
./pkg/sbo/sbo_calc.F 275 SBO_CALC 
            SINlat(i,j,bi,bj) = SIN(lat)
./pkg/zonal_filt/zonal_filt_init.F 64 ZONAL_FILT_INIT 
      _RS lat
./pkg/zonal_filt/zonal_filt_init.F 65 ZONAL_FILT_INIT 
      ampfact(lat,i) = MIN( oneRL,
./pkg/zonal_filt/zonal_filt_init.F 66 ZONAL_FILT_INIT 
     &   ( COS( ABS(lat)*deg2rad )
./model/src/ini_spherical_polar_grid.F 103 INI_SPHERICAL_POLAR_GRID 
          lat = yC(i,j,bi,bj)
./model/src/ini_spherical_polar_grid.F 106 INI_SPHERICAL_POLAR_GRID 
          dxF(i,j,bi,bj) = rSphere*COS(lat*deg2rad)*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 118 INI_SPHERICAL_POLAR_GRID 
          lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F 121 INI_SPHERICAL_POLAR_GRID 
          dxG(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 187 INI_SPHERICAL_POLAR_GRID 
          lat=0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F 191 INI_SPHERICAL_POLAR_GRID 
     &        *ABS( SIN((lat+dlat)*deg2rad)-SIN(lat*deg2rad) )
./model/src/ini_spherical_polar_grid.F 193 INI_SPHERICAL_POLAR_GRID 
          lat = yC(i,j,bi,bj) - delYloc(j)*0.5 _d 0
./model/src/ini_spherical_polar_grid.F 196 INI_SPHERICAL_POLAR_GRID 
     &    *rSphere*(SIN(dlat*deg2rad)-SIN(lat*deg2rad))
./model/src/ini_spherical_polar_grid.F 219 INI_SPHERICAL_POLAR_GRID 
          lat=yC(i,j,bi,bj)
./model/src/ini_spherical_polar_grid.F 226 INI_SPHERICAL_POLAR_GRID 
     &        *ABS( SIN(lat*deg2rad)-SIN((lat-dlat)*deg2rad) )
./model/src/ini_spherical_polar_grid.F 227 INI_SPHERICAL_POLAR_GRID 
          IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAs(i,j,bi,bj)=0.
./model/src/ini_spherical_polar_grid.F 235 INI_SPHERICAL_POLAR_GRID 
          lat  = 0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1))
./model/src/ini_spherical_polar_grid.F 239 INI_SPHERICAL_POLAR_GRID 
     &     *ABS( SIN(lat*deg2rad)-SIN((lat-dlat)*deg2rad) )
./model/src/ini_spherical_polar_grid.F 240 INI_SPHERICAL_POLAR_GRID 
          IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAz(i,j,bi,bj)=0.
./model/src/ini_spherical_polar_grid.F 247 INI_SPHERICAL_POLAR_GRID 
          lat=0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1))
./model/src/ini_spherical_polar_grid.F 248 INI_SPHERICAL_POLAR_GRID 
          tanPhiAtU(i,j,bi,bj)=TAN(lat*deg2rad)
./model/src/ini_spherical_polar_grid.F 249 INI_SPHERICAL_POLAR_GRID 
          lat=0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F 250 INI_SPHERICAL_POLAR_GRID 
          tanPhiAtV(i,j,bi,bj)=TAN(lat*deg2rad)
./model/src/ini_spherical_polar_grid.F 261 INI_SPHERICAL_POLAR_GRID 
          lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1))
./model/src/ini_spherical_polar_grid.F 262 INI_SPHERICAL_POLAR_GRID 
          cosFacU(j,bi,bj) = ABS( COS(lat*deg2rad) )**cosPower
./model/src/ini_spherical_polar_grid.F 263 INI_SPHERICAL_POLAR_GRID 
          lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F 264 INI_SPHERICAL_POLAR_GRID 
          cosFacV(j,bi,bj) = ABS( COS(lat*deg2rad) )**cosPower
./model/src/ini_spherical_polar_grid.F 56 INI_SPHERICAL_POLAR_GRID 
      _RL lat, dlat, dlon
./pkg/bling/bling_light.F 124 BLING_LIGHT 
          lat=YC(1,j,1,bj)*deg2rad
./pkg/bling/bling_light.F 128 BLING_LIGHT 
     &         lat = asin( fCori(1,j,1,bj)/(2. _d 0*omega) )
./pkg/bling/bling_light.F 129 BLING_LIGHT 
          sun1 = -sin(delta)/cos(delta) * sin(lat)/cos(lat)
./pkg/bling/bling_light.F 133 BLING_LIGHT 
          cosz = ( sin(delta)*sin(lat)+              !average zenith angle
./pkg/bling/bling_light.F 134 BLING_LIGHT 
     &            (cos(delta)*cos(lat)*sin(dayhrs)/dayhrs) )
./pkg/bling/bling_light.F 70 BLING_LIGHT 
      _RL lat, sun1, dayhrs
./pkg/dic/insol.F 42 INSOL 
       _RL  lat, sun1, dayhrs
./pkg/dic/insol.F 68 INSOL 
          lat=YC(1,j,1,bj)*deg2rad
./pkg/dic/insol.F 72 INSOL 
     &         lat = asin( fCori(1,j,1,bj)/(2. _d 0*omega) )
./pkg/dic/insol.F 73 INSOL 
          sun1 = -sin(delta)/cos(delta) * sin(lat)/cos(lat)
./pkg/dic/insol.F 77 INSOL 
          cosz = ( sin(delta)*sin(lat)+              !average zenith angle
./pkg/dic/insol.F 78 INSOL 
     &            (cos(delta)*cos(lat)*sin(dayhrs)/dayhrs) )