pkg/mypackage/mypackage_diagnostics_state.F

5b141690f8 Jean*0001 #include "MYPACKAGE_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
64811cb024 Jean*0004 CBOP
5b141690f8 Jean*0005 C !ROUTINE: MYPACKAGE_DIAGNOSTICS_STATE
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE MYPACKAGE_DIAGNOSTICS_STATE(
                0009      I                     myTime, myIter, myThid )
                0010
                0011 C     !DESCRIPTION:
                0012 C     Fill-in diagnostics array for MYPACKAGE state variables
                0013
                0014 C     !USES:
                0015       IMPLICIT NONE
64811cb024 Jean*0016 C     == Global variables ===
5b141690f8 Jean*0017 #include "SIZE.h"
                0018 #include "EEPARAMS.h"
                0019 #include "PARAMS.h"
9759ecefff Jean*0020 C  put following include within #ifdef in case this file is copied to local
                0021 C  code dir but pkg/mypackage is not compiled (missing file MYPACKAGE.h).
                0022 #ifdef ALLOW_MYPACKAGE
5b141690f8 Jean*0023 #include "MYPACKAGE.h"
9759ecefff Jean*0024 #endif
5b141690f8 Jean*0025
                0026 C     !INPUT PARAMETERS:
                0027 C     myTime   :: Current time of simulation ( s )
                0028 C     myIter   :: Current iteration number in simulation
                0029 C     myThid   :: my Thread Id number
                0030       _RL     myTime
                0031       INTEGER myIter, myThid
                0032 CEOP
                0033
                0034 #ifdef ALLOW_MYPACKAGE
                0035 C     !LOCAL VARIABLES:
                0036
                0037 #ifdef ALLOW_DIAGNOSTICS
                0038       IF ( useDiagnostics ) THEN
                0039
                0040 #ifdef MYPACKAGE_3D_STATE
                0041          CALL DIAGNOSTICS_FILL( mypa_StatScal1,'MYPaSta1',
                0042      &                          0,Nr, 0, 1, 1, myThid )
                0043          CALL DIAGNOSTICS_FILL( mypa_StatScal2,'MYPaSta2',
                0044      &                          0,Nr, 0, 1, 1, myThid )
                0045          CALL DIAGNOSTICS_FILL( mypa_StatVelU, 'MYPaStaU',
                0046      &                          0,Nr, 0, 1, 1, myThid )
                0047          CALL DIAGNOSTICS_FILL( mypa_StatVelV, 'MYPaStaV',
                0048      &                          0,Nr, 0, 1, 1, myThid )
                0049 #endif /* MYPACKAGE_3D_STATE */
                0050
                0051 #ifdef MYPACKAGE_2D_STATE
                0052          CALL DIAGNOSTICS_FILL( mypa_Surf1 ,   'MYPaSur1',
                0053      &                          0, 1, 0, 1, 1, myThid )
                0054          CALL DIAGNOSTICS_FILL( mypa_Surf2 ,   'MYPaSur2',
                0055      &                          0, 1, 0, 1, 1, myThid )
                0056 #endif /* MYPACKAGE_2D_STATE */
                0057
                0058       ENDIF
                0059 #endif /* ALLOW_DIAGNOSTICS */
                0060
                0061 #endif /* ALLOW_MYPACKAGE */
                0062
                0063       RETURN
                0064       END