pkg/diagnostics/diagnostics_init_fixed.F

09ceb40cd6 Jean*0001 #include "DIAG_OPTIONS.h"
9b091adb85 Jean*0002
09ceb40cd6 Jean*0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C     !ROUTINE: DIAGNOSTICS_INIT_FIXED
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE DIAGNOSTICS_INIT_FIXED(myThid)
                0009
                0010 C     !DESCRIPTION:
dd249f8e4f Jean*0011 C     finish setting up the list of available diagnostics and
                0012 C     prepare for storing selected diagnostics and statistics-diags.
9b091adb85 Jean*0013
09ceb40cd6 Jean*0014 C     !USES:
                0015       IMPLICIT NONE
                0016 #include "EEPARAMS.h"
                0017 #include "SIZE.h"
                0018 #include "DIAGNOSTICS_SIZE.h"
                0019 #include "DIAGNOSTICS.h"
333e96bf9c Andr*0020 #ifdef ALLOW_FIZHI
                0021 #include "PARAMS.h"
                0022 #endif
09ceb40cd6 Jean*0023
                0024 C     !INPUT PARAMETERS:
                0025       INTEGER myThid
                0026 CEOP
                0027
                0028 C     !LOCAL VARIABLES:
acacc28f7f Jean*0029 c#ifdef ALLOW_DIVIDED_ADJOINT
                0030       LOGICAL dummyBoolean
                0031 c#endif
09ceb40cd6 Jean*0032
dd249f8e4f Jean*0033 C--   Set number of levels for all available diagnostics
                0034 C     (cannot add diags to list anymore after this call)
09ceb40cd6 Jean*0035       CALL DIAGNOSTICS_SET_LEVELS( myThid )
                0036
                0037 C--   Calculate pointers for diagnostics set to non-zero frequency
                0038       CALL DIAGNOSTICS_SET_POINTERS( myThid )
9b091adb85 Jean*0039
c19aee9e8e Jean*0040 C--   Set parameters and variables used in post-processing diagnostics
                0041       CALL DIAGNOSTICS_SET_CALC( myThid )
                0042
9b091adb85 Jean*0043 C--   Define region-mask for regional statistics diagnostics
                0044       CALL DIAGSTATS_SET_REGIONS( myThid )
                0045
3e5de6a370 Jean*0046 C--   Calculate pointers for statistics-diags set to non-zero frequency
                0047       CALL DIAGSTATS_SET_POINTERS( myThid )
                0048
333e96bf9c Andr*0049 #ifdef ALLOW_FIZHI
acacc28f7f Jean*0050       IF ( useFIZHI ) THEN
                0051         CALL FIZHI_DIAGALARMS( myThid )
                0052       ENDIF
333e96bf9c Andr*0053 #endif
acacc28f7f Jean*0054 c#ifdef ALLOW_DIVIDED_ADJOINT
                0055       CALL DIAGS_TRACK_DIVA( dummyBoolean, -2, myThid )
                0056 c#endif
333e96bf9c Andr*0057
9b091adb85 Jean*0058       RETURN
09ceb40cd6 Jean*0059       END