C $Header: /u/gcmpack/MITgcm/pkg/bling/bling_sgs.F,v 1.2 2016/09/12 20:00:28 mmazloff Exp $ C $Name: $ #include "BLING_OPTIONS.h" CBOP subroutine BLING_SGS( I bi, bj, imin, imax, jmin, jmax, I myIter, myTime, myThid ) C ================================================================= C | subroutine bling_sgs C | o Placeholder for sub-grid scale sediment stuff C ================================================================= implicit none C === Global variables === #include "SIZE.h" #include "DYNVARS.h" #include "EEPARAMS.h" #include "PARAMS.h" #include "GRID.h" #include "BLING_VARS.h" #include "PTRACERS_SIZE.h" #include "PTRACERS_PARAMS.h" #ifdef ALLOW_AUTODIFF # include "tamc.h" #endif C === Routine arguments === C bi,bj :: tile indices C iMin,iMax :: computation domain: 1rst index range C jMin,jMax :: computation domain: 2nd index range C myTime :: current time C myIter :: current timestep C myThid :: thread Id. number INTEGER bi, bj, imin, imax, jmin, jmax _RL myTime INTEGER myIter INTEGER myThid C === Input === C === Output === #ifdef ALLOW_BLING C === Local variables === C i,j,k :: loop indices INTEGER i,j,k CEOP c --------------------------------------------------------------------- c Initialize output and diagnostics c--------------------------------------------------------------------- c SUBGRIDSCALE SEDIMENT FLUXES c c The subgridscale sediment produces remineralization fluxes from sinking particles c throughout the water column, and leads to 3-dimensional fields for benthic c iron fluxes and benthic denitrification. c Note that the remineralization of particle flux intercepting the subgridscale c sediment is implicit in the reminp terms. #ifdef use_sgs_sed c!! #endif c --------------------------------------------------------------------- #ifdef ALLOW_DIAGNOSTICS IF ( useDiagnostics ) THEN ENDIF #endif /* ALLOW_DIAGNOSTICS */ #endif /* ALLOW_BLING */ RETURN END