Symbol Description Uses
kSurface index of surface layer 87


File Line number Procedure Code
./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/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)
./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/ptracers/ptracers_forcing.F 52 PTRACERS_FORCING 
      INTEGER kSurface
./pkg/ptracers/ptracers_forcing.F 56 PTRACERS_FORCING 
       kSurface = Nr
./pkg/ptracers/ptracers_forcing.F 58 PTRACERS_FORCING 
       kSurface = 1
./pkg/ptracers/ptracers_forcing.F 71 PTRACERS_FORCING 
       IF ( .NOT. useGCHEM .AND. k .EQ. kSurface ) THEN
./pkg/seaice/growth.F 264 GROWTH 
     &         *drF(kSurface)*hFacC(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
./model/src/external_forcing.F 148 EXTERNAL_FORCING_V 
      INTEGER kSurface
./model/src/external_forcing.F 152 EXTERNAL_FORCING_V 
       kSurface = 0
./model/src/external_forcing.F 154 EXTERNAL_FORCING_V 
       kSurface = Nr
./model/src/external_forcing.F 156 EXTERNAL_FORCING_V 
       kSurface = 1
./model/src/external_forcing.F 173 EXTERNAL_FORCING_V 
      IF ( kLev .EQ. kSurface ) THEN
./model/src/external_forcing.F 246 EXTERNAL_FORCING_T 
      INTEGER kSurface
./model/src/external_forcing.F 257 EXTERNAL_FORCING_T 
       kSurface = 0
./model/src/external_forcing.F 259 EXTERNAL_FORCING_T 
       kSurface = Nr
./model/src/external_forcing.F 261 EXTERNAL_FORCING_T 
       kSurface = 1
./model/src/external_forcing.F 278 EXTERNAL_FORCING_T 
      IF ( kLev .EQ. kSurface ) THEN
./model/src/external_forcing.F 370 EXTERNAL_FORCING_S 
      INTEGER kSurface
./model/src/external_forcing.F 374 EXTERNAL_FORCING_S 
       kSurface = 0
./model/src/external_forcing.F 376 EXTERNAL_FORCING_S 
       kSurface = Nr
./model/src/external_forcing.F 378 EXTERNAL_FORCING_S 
       kSurface = 1
./model/src/external_forcing.F 395 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