pkg/bbl/bbl_diagnostics_state.F

53b68b7823 Dimi*0001 #include "BBL_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: BBL_DIAGNOSTICS_STATE
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE BBL_DIAGNOSTICS_STATE(
                0009      I                     myTime, myIter, myThid )
                0010
                0011 C     !DESCRIPTION:
                0012 C     Fill-in diagnostics array for BBL state variables
                0013
                0014 C     !USES:
                0015       IMPLICIT NONE
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 #include "PARAMS.h"
                0019 #include "BBL.h"
                0020
                0021 C     !INPUT PARAMETERS:
                0022 C     myTime   :: Current time of simulation ( s )
                0023 C     myIter   :: Current iteration number in simulation
                0024 C     myThid   :: my Thread Id number
                0025       _RL     myTime
                0026       INTEGER myIter, myThid
                0027 CEOP
                0028
                0029 #ifdef ALLOW_BBL
                0030 C     !LOCAL VARIABLES:
                0031
                0032 #ifdef ALLOW_DIAGNOSTICS
                0033       IF ( useDiagnostics ) THEN
                0034
                0035          CALL DIAGNOSTICS_FILL( bbl_theta    , 'BBLtheta',
                0036      &                          0, 1, 0, 1, 1, myThid )
                0037          CALL DIAGNOSTICS_FILL( bbl_salt     , 'BBLsalt ',
                0038      &                          0, 1, 0, 1, 1, myThid )
                0039          CALL DIAGNOSTICS_FILL( bbl_eta      , 'BBLeta  ',
                0040      &                          0, 1, 0, 1, 1, myThid )
                0041          CALL DIAGNOSTICS_FILL( bbl_TendTheta, 'BBLtendT',
                0042      &                          0, 1, 0, 1, 1, myThid )
                0043          CALL DIAGNOSTICS_FILL( bbl_TendSalt , 'BBLtendS',
                0044      &                          0, 1, 0, 1, 1, myThid )
                0045
                0046       ENDIF
                0047 #endif /* ALLOW_DIAGNOSTICS */
                0048
                0049 #endif /* ALLOW_BBL */
                0050
                0051       RETURN
                0052       END