pkg/bling/bling_sgs.F

c0d1c06c15 Matt*0001 #include "BLING_OPTIONS.h"
                0002
                0003 CBOP
4e4ad91a39 Jean*0004       SUBROUTINE BLING_SGS(
c0d1c06c15 Matt*0005      I           bi, bj, imin, imax, jmin, jmax,
e0f9a7ba0b Matt*0006      I           myTime, myIter, myThid)
c0d1c06c15 Matt*0007
                0008 C     =================================================================
4ac06494d5 Matt*0009 C     | subroutine bling_sgs
                0010 C     | o Placeholder for sub-grid scale sediment stuff
c0d1c06c15 Matt*0011 C     =================================================================
                0012
e0f9a7ba0b Matt*0013       IMPLICIT NONE
                0014
c0d1c06c15 Matt*0015 C     === Global variables ===
                0016
                0017 #include "SIZE.h"
                0018 #include "DYNVARS.h"
                0019 #include "EEPARAMS.h"
                0020 #include "PARAMS.h"
                0021 #include "GRID.h"
                0022 #include "BLING_VARS.h"
                0023 #include "PTRACERS_SIZE.h"
                0024 #include "PTRACERS_PARAMS.h"
                0025
                0026 C     === Routine arguments ===
                0027 C     bi,bj         :: tile indices
                0028 C     iMin,iMax     :: computation domain: 1rst index range
                0029 C     jMin,jMax     :: computation domain: 2nd  index range
                0030 C     myTime        :: current time
                0031 C     myIter        :: current timestep
                0032 C     myThid        :: thread Id. number
                0033       INTEGER bi, bj, imin, imax, jmin, jmax
                0034       _RL     myTime
                0035       INTEGER myIter
                0036       INTEGER myThid
                0037 C     === Input ===
                0038 C     === Output ===
e0f9a7ba0b Matt*0039
c0d1c06c15 Matt*0040 #ifdef ALLOW_BLING
                0041 C     === Local variables ===
                0042 C     i,j,k         :: loop indices
e0f9a7ba0b Matt*0043 c     INTEGER i,j,k
c0d1c06c15 Matt*0044
                0045 CEOP
e0f9a7ba0b Matt*0046
c0d1c06c15 Matt*0047 c ---------------------------------------------------------------------
                0048 c  Initialize output and diagnostics
                0049
                0050 c---------------------------------------------------------------------
                0051 c SUBGRIDSCALE SEDIMENT FLUXES
                0052 c
e0f9a7ba0b Matt*0053 c The subgridscale sediment produces remineralization fluxes from sinking particles
c0d1c06c15 Matt*0054 c throughout the water column, and leads to 3-dimensional fields for benthic
e0f9a7ba0b Matt*0055 c iron fluxes and benthic denitrification.
c0d1c06c15 Matt*0056 c Note that the remineralization of particle flux intercepting the subgridscale
                0057 c sediment is implicit in the reminp terms.
                0058
93486f2c0a Jean*0059 c#ifdef use_sgs_sed
c0d1c06c15 Matt*0060 c!!
93486f2c0a Jean*0061 c#endif
c0d1c06c15 Matt*0062
                0063 c ---------------------------------------------------------------------
                0064
                0065 #ifdef ALLOW_DIAGNOSTICS
                0066       IF ( useDiagnostics ) THEN
                0067
                0068       ENDIF
                0069 #endif /* ALLOW_DIAGNOSTICS */
                0070
                0071 #endif /* ALLOW_BLING */
                0072
                0073       RETURN
                0074       END