Symbol Description Uses
surfaceForcingT 53



File Line number Procedure Code
./pkg/kpp/kpp_calc.F 396 KPP_CALC
     I     surfaceForcingT, surfaceForcingS, surfaceForcingTice,
./pkg/kpp/kpp_transport_t.F 80 KPP_TRANSPORT_T
     &          *( surfaceForcingT(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 95 KPP_TRANSPORT_T
     &          *( surfaceForcingT(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 375 OFFLINE_FIELDS_LOAD
          surfaceForcingT(i,j,bi,bj) = bWght*hflx0(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 377 OFFLINE_FIELDS_LOAD
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/diags_oceanic_surf_flux.F 102 DIAGS_OCEANIC_SURF_FLUX
       CALL DIAGNOSTICS_SCALE_FILL( surfaceForcingT,tmpFac,1,
./model/src/diags_oceanic_surf_flux.F 120 DIAGS_OCEANIC_SURF_FLUX
     &      (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(i,j,bi,bj))
./model/src/external_forcing.F 324 EXTERNAL_FORCING_T
     &     +surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 101 EXTERNAL_FORCING_SURF
          surfaceForcingT(i,j,bi,bj) =
./model/src/external_forcing_surf.F 125 EXTERNAL_FORCING_SURF
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 136 EXTERNAL_FORCING_SURF
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 153 EXTERNAL_FORCING_SURF
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 170 EXTERNAL_FORCING_SURF
     &           surfaceForcingT(1-OLx,1-OLy,bi,bj),tmpFac,1,
./model/src/external_forcing_surf.F 187 EXTERNAL_FORCING_SURF
          surfaceForcingT(i,j,bi,bj) = 0. _d 0
./model/src/external_forcing_surf.F 220 EXTERNAL_FORCING_SURF
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 278 EXTERNAL_FORCING_SURF
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 313 EXTERNAL_FORCING_SURF
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 339 EXTERNAL_FORCING_SURF
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 85 EXTERNAL_FORCING_SURF
          surfaceForcingT(i,j,bi,bj) =
./pkg/timeave/timeave_surf_flux.F 71 TIMEAVE_SURF_FLUX
     &    (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(I,J,bi,bj))
./model/src/ini_forcing.F 59 INI_FORCING
          surfaceForcingT (i,j,bi,bj) = 0. _d 0
./verification/rotating_tank/code/external_forcing.F 325 EXTERNAL_FORCING_T
     &     +surfaceForcingT(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 313 EXTERNAL_FORCING_T
     &     +surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h 204 NO PROCEDURE
     &                         surfaceForcingT,
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h 209 NO PROCEDURE
      _RL  surfaceForcingT   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 101 EXTERNAL_FORCING_SURF
          surfaceForcingT(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 125 EXTERNAL_FORCING_SURF
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 136 EXTERNAL_FORCING_SURF
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 153 EXTERNAL_FORCING_SURF
     &           surfaceForcingT(1-OLx,1-OLy,bi,bj),tmpFac,1,
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 170 EXTERNAL_FORCING_SURF
          surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 203 EXTERNAL_FORCING_SURF
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 264 EXTERNAL_FORCING_SURF
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 299 EXTERNAL_FORCING_SURF
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 325 EXTERNAL_FORCING_SURF
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 85 EXTERNAL_FORCING_SURF
          surfaceForcingT(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 58 INI_FORCING
          surfaceForcingT(i,j,bi,bj) = 0. _d 0
./pkg/ebm/ebm_forcing_surf.F 73 EBM_FORCING_SURF
          surfaceForcingT(i,j,bi,bj) = 
./model/inc/FFIELDS.h 202 NO PROCEDURE
     &                         surfaceForcingT,
./model/inc/FFIELDS.h 207 NO PROCEDURE
      _RL  surfaceForcingT   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)