Symbol Description Uses
surfaceForcingS 58



File Line number Procedure Code
./pkg/kpp/kpp_calc.F 396 KPP_CALC
     I     surfaceForcingT, surfaceForcingS, surfaceForcingTice,
./pkg/kpp/kpp_transport_s.F 106 KPP_TRANSPORT_S
     &        *( surfaceForcingS(i,j,bi,bj)
./pkg/kpp/kpp_transport_s.F 90 KPP_TRANSPORT_S
     &        *( surfaceForcingS(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 379 OFFLINE_FIELDS_LOAD
          surfaceForcingS(i,j,bi,bj) =  bWght*sflx0(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 381 OFFLINE_FIELDS_LOAD
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/diags_oceanic_surf_flux.F 107 DIAGS_OCEANIC_SURF_FLUX
       CALL DIAGNOSTICS_SCALE_FILL( surfaceForcingS,tmpFac,1,
./model/src/diags_oceanic_surf_flux.F 147 DIAGS_OCEANIC_SURF_FLUX
     &      surfaceForcingS(i,j,bi,bj)*rUnit2mass
./pkg/salt_plume/salt_plume_forcing_surf.F 59 SALT_PLUME_FORCING_SURF
        surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing.F 508 EXTERNAL_FORCING_S
     &     +surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 102 EXTERNAL_FORCING_SURF
          surfaceForcingS(i,j,bi,bj) =
./model/src/external_forcing_surf.F 123 EXTERNAL_FORCING_SURF
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 134 EXTERNAL_FORCING_SURF
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 155 EXTERNAL_FORCING_SURF
     &           surfaceForcingS(1-OLx,1-OLy,bi,bj),tmpFac,1,
./model/src/external_forcing_surf.F 167 EXTERNAL_FORCING_SURF
          surfaceForcingS(i,j,bi,bj) = 0. _d 0
./model/src/external_forcing_surf.F 195 EXTERNAL_FORCING_SURF
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 257 EXTERNAL_FORCING_SURF
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 292 EXTERNAL_FORCING_SURF
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 318 EXTERNAL_FORCING_SURF
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 86 EXTERNAL_FORCING_SURF
          surfaceForcingS(i,j,bi,bj) =
./pkg/timeave/timeave_surf_flux.F 94 TIMEAVE_SURF_FLUX
     &    surfaceForcingS(i,j,bi,bj)*rUnit2mass
./verification/OpenAD/code/FFIELDS.h 212 NO PROCEDURE
     &                         surfaceForcingS, 
./verification/OpenAD/code/FFIELDS.h 217 NO PROCEDURE
      _RL  surfaceForcingS   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./model/src/ini_forcing.F 60 INI_FORCING
          surfaceForcingS (i,j,bi,bj) = 0. _d 0
./verification/rotating_tank/code/external_forcing.F 509 EXTERNAL_FORCING_S
     &     +surfaceForcingS(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 430 EXTERNAL_FORCING_S
     &     +surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h 205 NO PROCEDURE
     &                         surfaceForcingS,
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h 210 NO PROCEDURE
      _RL  surfaceForcingS   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 102 EXTERNAL_FORCING_SURF
          surfaceForcingS(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 123 EXTERNAL_FORCING_SURF
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 134 EXTERNAL_FORCING_SURF
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 155 EXTERNAL_FORCING_SURF
     &           surfaceForcingS(1-OLx,1-OLy,bi,bj),tmpFac,1,
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 167 EXTERNAL_FORCING_SURF
          surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 198 EXTERNAL_FORCING_SURF
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 260 EXTERNAL_FORCING_SURF
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 295 EXTERNAL_FORCING_SURF
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 321 EXTERNAL_FORCING_SURF
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 86 EXTERNAL_FORCING_SURF
          surfaceForcingS(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 59 INI_FORCING
          surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 63 PTRACERS_FORCING_SURF
     &               surfaceForcingS(i,j,bi,bj)
./pkg/dic/alk_surfforcing.F 61 ALK_SURFFORCING
              GALK(i,j)=gsm_ALK*surfaceForcingS(i,j,bi,bj)*
./pkg/dic/dic_surfforcing.F 197 DIC_SURFFORCING
              VirtualFlux(i,j)=gsm_DIC*surfaceForcingS(i,j,bi,bj)/gsm_s
./pkg/ebm/ebm_forcing_surf.F 80 EBM_FORCING_SURF
          surfaceForcingS(i,j,bi,bj) = 
./model/inc/FFIELDS.h 203 NO PROCEDURE
     &                         surfaceForcingS,
./model/inc/FFIELDS.h 208 NO PROCEDURE
      _RL  surfaceForcingS   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)