Symbol Description Uses
kSurface index of surface layer 132


File Line number Procedure Code
./pkg/ptracers/ptracers_forcing.F 51 PTRACERS_FORCING 
      INTEGER kSurface
./pkg/ptracers/ptracers_forcing.F 55 PTRACERS_FORCING 
       kSurface = Nr
./pkg/ptracers/ptracers_forcing.F 57 PTRACERS_FORCING 
       kSurface = 1
./pkg/ptracers/ptracers_forcing.F 72 PTRACERS_FORCING 
      IF ( k .EQ. kSurface ) THEN
./pkg/seaice/seaice_growth.F 1124 SEAICE_GROWTH 
          tmpscal3 = tmpscal1*salt(I,j,kSurface,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1165 SEAICE_GROWTH 
     &            *SEAICE_salinity*salt(I,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 1171 SEAICE_GROWTH 
     &            *(1-SEAICE_salinity)*salt(I,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 1389 SEAICE_GROWTH 
     &         * maskC(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 1442 SEAICE_GROWTH 
          EmPmR(I,J,bi,bj)  = maskC(I,J,kSurface,bi,bj)*(
./pkg/seaice/seaice_growth.F 1456 SEAICE_GROWTH 
          frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*(
./pkg/seaice/seaice_growth.F 205 SEAICE_GROWTH 
       kSurface        = Nr
./pkg/seaice/seaice_growth.F 207 SEAICE_GROWTH 
       kSurface        = 1
./pkg/seaice/seaice_growth.F 213 SEAICE_GROWTH 
      heffTooHeavy=dRf(kSurface) / 5. _d 0
./pkg/seaice/seaice_growth.F 502 SEAICE_GROWTH 
          TMIX(I,J,bi,bj)=theta(I,J,kSurface,bi,bj)+celsius2K
./pkg/seaice/seaice_growth.F 536 SEAICE_GROWTH 
     &          +0.5 _d 0*(uVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 537 SEAICE_GROWTH 
     &                    +uVel(i+1,j,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F 540 SEAICE_GROWTH 
     &          +0.5 _d 0*(vVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 541 SEAICE_GROWTH 
     &                    +vVel(i,j+1,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F 621 SEAICE_GROWTH 
            DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj) * (
./pkg/seaice/seaice_growth.F 631 SEAICE_GROWTH 
            DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj) *
./pkg/seaice/seaice_growth.F 640 SEAICE_GROWTH 
            DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj)*(
./pkg/seaice/seaice_growth.F 708 SEAICE_GROWTH 
           TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) + 0.0901 _d 0
./pkg/seaice/seaice_growth.F 710 SEAICE_GROWTH 
           IF ( theta(I,J,kSurface,bi,bj) .GE. TBC ) THEN
./pkg/seaice/seaice_growth.F 712 SEAICE_GROWTH 
     &             * (theta(I,J,kSurface,bi,bj)-TBC) * dRf(kSurface)
./pkg/seaice/seaice_growth.F 713 SEAICE_GROWTH 
     &             * hFacC(i,j,kSurface,bi,bj) *
./pkg/seaice/seaice_growth.F 717 SEAICE_GROWTH 
     &             * (theta(I,J,kSurface,bi,bj)-TBC) * dRf(kSurface)
./pkg/seaice/seaice_growth.F 718 SEAICE_GROWTH 
     &             * hFacC(i,j,kSurface,bi,bj) *
./pkg/seaice/seaice_growth.F 892 SEAICE_GROWTH 
            DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 89 SEAICE_GROWTH 
      INTEGER kSurface
./pkg/seaice/seaice_growth_if.F 163 SEAICE_GROWTH_IF 
         kSurface        = Nr
./pkg/seaice/seaice_growth_if.F 165 SEAICE_GROWTH_IF 
         kSurface        = 1
./pkg/seaice/seaice_growth_if.F 439 SEAICE_GROWTH_IF 
     &                 theta(I,J,kSurface,bi,bj) + TMELT
./pkg/seaice/seaice_growth_if.F 50 SEAICE_GROWTH_IF 
      INTEGER kSurface
./pkg/seaice/seaice_growth_if.F 610 SEAICE_GROWTH_IF 
                  TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) +
./pkg/seaice/seaice_growth_if.F 622 SEAICE_GROWTH_IF 
                  surf_theta = max(theta(I,J,kSurface,bi,bj), TBC)
./pkg/seaice/seaice_growth_if.F 931 SEAICE_GROWTH_IF 
                  EmPmR(I,J,bi,bj)  = maskC(I,J,kSurface,bi,bj)*(
./pkg/seaice/seaice_init_fixed.F 34 SEAICE_INIT_FIXED 
      INTEGER kSurface
./pkg/seaice/seaice_init_fixed.F 49 SEAICE_INIT_FIXED 
       kSurface        = Nr
./pkg/seaice/seaice_init_fixed.F 51 SEAICE_INIT_FIXED 
       kSurface        = 1
./pkg/seaice/seaice_init_fixed.F 88 SEAICE_INIT_FIXED 
          IF (_hFacC(i,j,kSurface,bi,bj).eq.0.)
./pkg/seaice/seaice_init_varia.F 395 SEAICE_INIT_VARIA 
           HSALT(i,j,bi,bj)=HEFF(i,j,bi,bj)*salt(i,j,kSurface,bi,bj)*
./pkg/seaice/seaice_init_varia.F 45 SEAICE_INIT_VARIA 
      INTEGER myIter, kSurface
./pkg/seaice/seaice_init_varia.F 59 SEAICE_INIT_VARIA 
       kSurface = Nr
./pkg/seaice/seaice_init_varia.F 61 SEAICE_INIT_VARIA 
       kSurface = 1
./model/src/external_forcing.F 154 EXTERNAL_FORCING_V 
      INTEGER kSurface
./model/src/external_forcing.F 158 EXTERNAL_FORCING_V 
       kSurface = 0
./model/src/external_forcing.F 160 EXTERNAL_FORCING_V 
       kSurface = Nr
./model/src/external_forcing.F 162 EXTERNAL_FORCING_V 
       kSurface = 1
./model/src/external_forcing.F 179 EXTERNAL_FORCING_V 
      IF ( kLev .EQ. kSurface ) THEN
./model/src/external_forcing.F 259 EXTERNAL_FORCING_T 
      INTEGER kSurface
./model/src/external_forcing.F 270 EXTERNAL_FORCING_T 
       kSurface = 0
./model/src/external_forcing.F 272 EXTERNAL_FORCING_T 
       kSurface = Nr
./model/src/external_forcing.F 274 EXTERNAL_FORCING_T 
       kSurface = 1
./model/src/external_forcing.F 320 EXTERNAL_FORCING_T 
      IF ( kLev .EQ. kSurface ) THEN
./model/src/external_forcing.F 450 EXTERNAL_FORCING_S 
      INTEGER kSurface
./model/src/external_forcing.F 454 EXTERNAL_FORCING_S 
       kSurface = 0
./model/src/external_forcing.F 456 EXTERNAL_FORCING_S 
       kSurface = Nr
./model/src/external_forcing.F 458 EXTERNAL_FORCING_S 
       kSurface = 1
./model/src/external_forcing.F 504 EXTERNAL_FORCING_S 
      IF ( kLev .EQ. kSurface ) THEN
./model/src/external_forcing.F 50 EXTERNAL_FORCING_U 
      INTEGER kSurface
./model/src/external_forcing.F 54 EXTERNAL_FORCING_U 
       kSurface = 0
./model/src/external_forcing.F 56 EXTERNAL_FORCING_U 
       kSurface = Nr
./model/src/external_forcing.F 58 EXTERNAL_FORCING_U 
       kSurface = 1
./model/src/external_forcing.F 75 EXTERNAL_FORCING_U 
      IF ( kLev .EQ. kSurface ) THEN
./verification/rotating_tank/code/external_forcing.F 148 EXTERNAL_FORCING_V 
      INTEGER kSurface
./verification/rotating_tank/code/external_forcing.F 152 EXTERNAL_FORCING_V 
       kSurface = 0
./verification/rotating_tank/code/external_forcing.F 154 EXTERNAL_FORCING_V 
       kSurface = Nr
./verification/rotating_tank/code/external_forcing.F 156 EXTERNAL_FORCING_V 
       kSurface = 1
./verification/rotating_tank/code/external_forcing.F 173 EXTERNAL_FORCING_V 
      IF ( kLev .EQ. kSurface ) THEN
./verification/rotating_tank/code/external_forcing.F 246 EXTERNAL_FORCING_T 
      INTEGER kSurface
./verification/rotating_tank/code/external_forcing.F 300 EXTERNAL_FORCING_T 
       kSurface = 0
./verification/rotating_tank/code/external_forcing.F 302 EXTERNAL_FORCING_T 
       kSurface = Nr
./verification/rotating_tank/code/external_forcing.F 304 EXTERNAL_FORCING_T 
       kSurface = 1
./verification/rotating_tank/code/external_forcing.F 321 EXTERNAL_FORCING_T 
      IF ( kLev .EQ. kSurface ) THEN
./verification/rotating_tank/code/external_forcing.F 480 EXTERNAL_FORCING_S 
      INTEGER kSurface
./verification/rotating_tank/code/external_forcing.F 484 EXTERNAL_FORCING_S 
       kSurface = 0
./verification/rotating_tank/code/external_forcing.F 486 EXTERNAL_FORCING_S 
       kSurface = Nr
./verification/rotating_tank/code/external_forcing.F 488 EXTERNAL_FORCING_S 
       kSurface = 1
./verification/rotating_tank/code/external_forcing.F 505 EXTERNAL_FORCING_S 
      IF ( kLev .EQ. kSurface ) THEN
./verification/rotating_tank/code/external_forcing.F 50 EXTERNAL_FORCING_U 
      INTEGER kSurface
./verification/rotating_tank/code/external_forcing.F 54 EXTERNAL_FORCING_U 
       kSurface = 0
./verification/rotating_tank/code/external_forcing.F 56 EXTERNAL_FORCING_U 
       kSurface = Nr
./verification/rotating_tank/code/external_forcing.F 58 EXTERNAL_FORCING_U 
       kSurface = 1
./verification/rotating_tank/code/external_forcing.F 75 EXTERNAL_FORCING_U 
      IF ( kLev .EQ. kSurface ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 179 EXTERNAL_FORCING_V 
      INTEGER kSurface
./verification/tidal_basin_2d/code/external_forcing.F 183 EXTERNAL_FORCING_V 
       kSurface = 0
./verification/tidal_basin_2d/code/external_forcing.F 185 EXTERNAL_FORCING_V 
       kSurface = Nr
./verification/tidal_basin_2d/code/external_forcing.F 187 EXTERNAL_FORCING_V 
       kSurface = 1
./verification/tidal_basin_2d/code/external_forcing.F 204 EXTERNAL_FORCING_V 
      IF ( kLev .EQ. kSurface ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 277 EXTERNAL_FORCING_T 
      INTEGER kSurface
./verification/tidal_basin_2d/code/external_forcing.F 288 EXTERNAL_FORCING_T 
       kSurface = 0
./verification/tidal_basin_2d/code/external_forcing.F 290 EXTERNAL_FORCING_T 
       kSurface = Nr
./verification/tidal_basin_2d/code/external_forcing.F 292 EXTERNAL_FORCING_T 
       kSurface = 1
./verification/tidal_basin_2d/code/external_forcing.F 309 EXTERNAL_FORCING_T 
      IF ( kLev .EQ. kSurface ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 401 EXTERNAL_FORCING_S 
      INTEGER kSurface
./verification/tidal_basin_2d/code/external_forcing.F 405 EXTERNAL_FORCING_S 
       kSurface = 0
./verification/tidal_basin_2d/code/external_forcing.F 407 EXTERNAL_FORCING_S 
       kSurface = Nr
./verification/tidal_basin_2d/code/external_forcing.F 409 EXTERNAL_FORCING_S 
       kSurface = 1
./verification/tidal_basin_2d/code/external_forcing.F 426 EXTERNAL_FORCING_S 
      IF ( kLev .EQ. kSurface ) THEN
./verification/tidal_basin_2d/code/external_forcing.F 50 EXTERNAL_FORCING_U 
      INTEGER kSurface
./verification/tidal_basin_2d/code/external_forcing.F 56 EXTERNAL_FORCING_U 
       kSurface = 0
./verification/tidal_basin_2d/code/external_forcing.F 58 EXTERNAL_FORCING_U 
       kSurface = Nr
./verification/tidal_basin_2d/code/external_forcing.F 60 EXTERNAL_FORCING_U 
       kSurface = 1
./verification/tidal_basin_2d/code/external_forcing.F 77 EXTERNAL_FORCING_U 
      IF ( kLev .EQ. kSurface ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 55 PTRACERS_FORCING 
      INTEGER kSurface
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 59 PTRACERS_FORCING 
       kSurface = Nr
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 61 PTRACERS_FORCING 
       kSurface = 1
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 76 PTRACERS_FORCING 
      IF ( k .EQ. kSurface ) THEN
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 84 PTRACERS_FORCING 
      ELSEIF ( k .NE. kSurface ) THEN
./model/src/taueddy_external_forcing.F 148 TAUEDDY_EXTERNAL_FORCING_V 
      INTEGER kSurface, Kp1
./model/src/taueddy_external_forcing.F 152 TAUEDDY_EXTERNAL_FORCING_V 
       kSurface = 0
./model/src/taueddy_external_forcing.F 154 TAUEDDY_EXTERNAL_FORCING_V 
       kSurface = Nr
./model/src/taueddy_external_forcing.F 156 TAUEDDY_EXTERNAL_FORCING_V 
       kSurface = 1
./model/src/taueddy_external_forcing.F 58 TAUEDDY_EXTERNAL_FORCING_U 
      INTEGER kSurface, Kp1
./model/src/taueddy_external_forcing.F 62 TAUEDDY_EXTERNAL_FORCING_U 
       kSurface = 0
./model/src/taueddy_external_forcing.F 64 TAUEDDY_EXTERNAL_FORCING_U 
       kSurface = Nr
./model/src/taueddy_external_forcing.F 66 TAUEDDY_EXTERNAL_FORCING_U 
       kSurface = 1
./pkg/ebm/ebm_forcing_surf.F 50 EBM_FORCING_SURF 
      INTEGER kSurface
./pkg/ebm/ebm_forcing_surf.F 54 EBM_FORCING_SURF 
       kSurface        = Nr
./pkg/ebm/ebm_forcing_surf.F 56 EBM_FORCING_SURF 
       kSurface        = 1
./pkg/ebm/ebm_forcing_surf.F 68 EBM_FORCING_SURF 
     &            *drF(kSurface)*hFacW(i,j,kSurface,bi,bj)
./pkg/ebm/ebm_forcing_surf.F 75 EBM_FORCING_SURF 
     &      -lambdaThetaZonRelax*maskC(i,j,kSurface,bi,bj)*
./pkg/ebm/ebm_forcing_surf.F 76 EBM_FORCING_SURF 
     &         (theta(i,j,kSurface,bi,bj)-ZonalMeanSST(j,bj))
./pkg/ebm/ebm_forcing_surf.F 77 EBM_FORCING_SURF 
     &        *drF(kSurface)*hFacC(i,j,kSurface,bi,bj)
./pkg/ebm/ebm_forcing_surf.F 84 EBM_FORCING_SURF 
     &      -lambdaSaltClimRelax(i,j,bi,bj)*maskC(i,j,kSurface,bi,bj)
./pkg/ebm/ebm_forcing_surf.F 85 EBM_FORCING_SURF 
     &        *(salt(i,j,kSurface,bi,bj)-SSS(i,j,bi,bj))
./pkg/ebm/ebm_forcing_surf.F 86 EBM_FORCING_SURF 
     &        *drF(kSurface)*hFacC(i,j,kSurface,bi,bj)