Symbol Description Uses
kSurface index of surface layer 107


File Line number Procedure Code
./pkg/ebm/ebm_forcing_surf.F 52 EBM_FORCING_SURF 
      INTEGER kSurface
./pkg/ebm/ebm_forcing_surf.F 56 EBM_FORCING_SURF 
       kSurface        = Nr
./pkg/ebm/ebm_forcing_surf.F 58 EBM_FORCING_SURF 
       kSurface        = 1
./pkg/ebm/ebm_forcing_surf.F 70 EBM_FORCING_SURF 
     &            *drF(kSurface)*hFacW(i,j,kSurface,bi,bj)
./pkg/ebm/ebm_forcing_surf.F 77 EBM_FORCING_SURF 
     &      -lambdaThetaZonRelax*maskC(i,j,kSurface,bi,bj)*
./pkg/ebm/ebm_forcing_surf.F 78 EBM_FORCING_SURF 
     &         (theta(i,j,kSurface,bi,bj)-ZonalMeanSST(j,bj))
./pkg/ebm/ebm_forcing_surf.F 79 EBM_FORCING_SURF 
     &        *drF(kSurface)*hFacC(i,j,kSurface,bi,bj)
./pkg/ebm/ebm_forcing_surf.F 86 EBM_FORCING_SURF 
     &      -lambdaSaltClimRelax(i,j,bi,bj)*maskC(i,j,kSurface,bi,bj)
./pkg/ebm/ebm_forcing_surf.F 87 EBM_FORCING_SURF 
     &        *(salt(i,j,kSurface,bi,bj)-SSS(i,j,bi,bj))
./pkg/ebm/ebm_forcing_surf.F 88 EBM_FORCING_SURF 
     &        *drF(kSurface)*hFacC(i,j,kSurface,bi,bj)
./pkg/ptracers/ptracers_forcing.F 56 PTRACERS_FORCING 
      INTEGER kSurface
./pkg/ptracers/ptracers_forcing.F 60 PTRACERS_FORCING 
       kSurface = Nr
./pkg/ptracers/ptracers_forcing.F 62 PTRACERS_FORCING 
       kSurface = 1
./pkg/ptracers/ptracers_forcing.F 75 PTRACERS_FORCING 
       IF ( .NOT. useGCHEM .AND. k .EQ. kSurface ) THEN
./pkg/shelfice/shelfice_forcing.F 126 SHELFICE_FORCING_S 
      INTEGER kSurface
./pkg/shelfice/shelfice_forcing.F 130 SHELFICE_FORCING_S 
       kSurface = 0
./pkg/shelfice/shelfice_forcing.F 132 SHELFICE_FORCING_S 
       kSurface = Nr
./pkg/shelfice/shelfice_forcing.F 134 SHELFICE_FORCING_S 
       kSurface = 1
./pkg/shelfice/shelfice_forcing.F 53 SHELFICE_FORCING_T 
      INTEGER kSurface
./pkg/shelfice/shelfice_forcing.F 57 SHELFICE_FORCING_T 
       kSurface = 0
./pkg/shelfice/shelfice_forcing.F 59 SHELFICE_FORCING_T 
       kSurface = Nr
./pkg/shelfice/shelfice_forcing.F 61 SHELFICE_FORCING_T 
       kSurface = 1
./model/src/taueddy_external_forcing.F 124 TAUEDDY_EXTERNAL_FORCING_V 
      INTEGER kSurface, Kp1
./model/src/taueddy_external_forcing.F 128 TAUEDDY_EXTERNAL_FORCING_V 
       kSurface = 0
./model/src/taueddy_external_forcing.F 130 TAUEDDY_EXTERNAL_FORCING_V 
       kSurface = Nr
./model/src/taueddy_external_forcing.F 132 TAUEDDY_EXTERNAL_FORCING_V 
       kSurface = 1
./model/src/taueddy_external_forcing.F 50 TAUEDDY_EXTERNAL_FORCING_U 
      INTEGER kSurface, Kp1
./model/src/taueddy_external_forcing.F 54 TAUEDDY_EXTERNAL_FORCING_U 
       kSurface = 0
./model/src/taueddy_external_forcing.F 56 TAUEDDY_EXTERNAL_FORCING_U 
       kSurface = Nr
./model/src/taueddy_external_forcing.F 58 TAUEDDY_EXTERNAL_FORCING_U 
       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 185 EXTERNAL_FORCING_V 
      IF ( kLev .EQ. kSurface ) THEN
./model/src/external_forcing.F 258 EXTERNAL_FORCING_T 
      INTEGER kSurface
./model/src/external_forcing.F 269 EXTERNAL_FORCING_T 
       kSurface = 0
./model/src/external_forcing.F 271 EXTERNAL_FORCING_T 
       kSurface = Nr
./model/src/external_forcing.F 273 EXTERNAL_FORCING_T 
       kSurface = 1
./model/src/external_forcing.F 296 EXTERNAL_FORCING_T 
      IF ( kLev .EQ. kSurface ) THEN
./model/src/external_forcing.F 402 EXTERNAL_FORCING_S 
      INTEGER kSurface
./model/src/external_forcing.F 406 EXTERNAL_FORCING_S 
       kSurface = 0
./model/src/external_forcing.F 408 EXTERNAL_FORCING_S 
       kSurface = Nr
./model/src/external_forcing.F 410 EXTERNAL_FORCING_S 
       kSurface = 1
./model/src/external_forcing.F 433 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 81 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/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 301 EXTERNAL_FORCING_T 
       kSurface = 0
./verification/rotating_tank/code/external_forcing.F 303 EXTERNAL_FORCING_T 
       kSurface = Nr
./verification/rotating_tank/code/external_forcing.F 305 EXTERNAL_FORCING_T 
       kSurface = 1
./verification/rotating_tank/code/external_forcing.F 322 EXTERNAL_FORCING_T 
      IF ( kLev .EQ. kSurface ) THEN
./verification/rotating_tank/code/external_forcing.F 481 EXTERNAL_FORCING_S 
      INTEGER kSurface
./verification/rotating_tank/code/external_forcing.F 485 EXTERNAL_FORCING_S 
       kSurface = 0
./verification/rotating_tank/code/external_forcing.F 487 EXTERNAL_FORCING_S 
       kSurface = Nr
./verification/rotating_tank/code/external_forcing.F 489 EXTERNAL_FORCING_S 
       kSurface = 1
./verification/rotating_tank/code/external_forcing.F 506 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
./pkg/opps/opps_interface.F 114 OPPS_INTERFACE 
        IF ( hFacC(I,J,kSurface,bi,bj) .gt. 0. _d 0 ) THEN
./pkg/opps/opps_interface.F 70 OPPS_INTERFACE 
      INTEGER i, j, K, kSurface, kMax, ktr, nTracerInUse
./pkg/opps/opps_interface.F 94 OPPS_INTERFACE 
       kSurface = 1
./pkg/opps/opps_interface.F 96 OPPS_INTERFACE 
       kSurface = Nr
./pkg/opps/opps_interface.F 98 OPPS_INTERFACE 
       kSurface = Nr
./pkg/seaice/growth.F 123 GROWTH 
          TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) + 0.0901 _d 0
./pkg/seaice/growth.F 125 GROWTH 
          YNEG(I,J,bi,bj)=(theta(I,J,kSurface,bi,bj)-TBC)
./pkg/seaice/growth.F 272 GROWTH 
     &         *maskC(I,J,kSurface,bi,bj)
./pkg/seaice/growth.F 274 GROWTH 
     &         *drF(kSurface)*hFacC(i,j,kSurface,bi,bj)
./pkg/seaice/growth.F 296 GROWTH 
          EmPmR(I,J,bi,bj)= maskC(I,J,kSurface,bi,bj)*(
./pkg/seaice/growth.F 47 GROWTH 
      INTEGER kSurface
./pkg/seaice/growth.F 50 GROWTH 
       kSurface        = Nr
./pkg/seaice/growth.F 52 GROWTH 
       kSurface        = 1