pkg/runclock/runclock_check.F

1eeb28fe07 Alis*0001 #include "RUNCLOCK_OPTIONS.h"
                0002
                0003       SUBROUTINE RUNCLOCK_CHECK( myThid )
                0004 C     /==========================================================\
                0005 C     | SUBROUTINE RUNCLOCK_CHECK                                  |
                0006 C     | o Check dependances with other packages                  |
                0007 C     |==========================================================|
                0008 C     \==========================================================/
                0009       IMPLICIT NONE
                0010
                0011 C     === Global variables ===
                0012 #include "EEPARAMS.h"
                0013 #include "RUNCLOCK.h"
                0014
                0015 C     === Routine arguments ===
                0016 C     myThid -  Number of this instances
                0017       INTEGER myThid
                0018
                0019 C     === Local variables ===
                0020 C     msgBuf      - Informational/error meesage buffer
                0021       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0022
                0023
                0024 #ifdef ALLOW_RUNCLOCK
                0025
                0026        WRITE(msgBuf,'(A)') 'RUNCLOCK_CHECK: #define RUNCLOCK'
                0027        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0028      &                    SQUEEZE_RIGHT , 1)
                0029
                0030
                0031 C--  Check parameters:
                0032
                0033       _BEGIN_MASTER(myThid)
                0034
                0035
                0036       _END_MASTER(myThid)
                0037
                0038 #endif /* ALLOW_RUNCLOCK */
                0039       RETURN
                0040       END