pkg/runclock/runclock_init.F

1eeb28fe07 Alis*0001 #include "RUNCLOCK_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: RUNCLOCK_INIT
                0005 C     !INTERFACE:
                0006       SUBROUTINE RUNCLOCK_INIT( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE RUNCLOCK_INIT
                0011 C     | o Routine to initialize RUNCLOCK variables
                0012 C     *==========================================================*
                0013 C     \ev
                0014 C     !USES:
                0015       IMPLICIT NONE
                0016
                0017 C     === Global variables ===
                0018 #include "EEPARAMS.h"
                0019 #include "RUNCLOCK.h"
                0020
                0021 C     !INPUT/OUTPUT PARAMETERS:
                0022 C     === Routine arguments ===
                0023 C     myThid ::  my Thread Id number
                0024       INTEGER myThid
                0025 CEOP
                0026
                0027 #ifdef ALLOW_RUNCLOCK
                0028
                0029 C     !LOCAL VARIABLES:
                0030 C     === Local variables ===
                0031       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0032
                0033       IF (.NOT.RUNCLOCKIsOn) THEN
                0034        WRITE(msgBuf,'(A)') ' RUNCLOCK_INIT: RUNCLOCK not turned on'
                0035        CALL PRINT_ERROR( msgBuf, myThid )
                0036       ENDIF
                0037
                0038
                0039 C     Record the wall-clock time
                0040       CALL runclock_gettime(
                0041      &   RC_start_yr,RC_start_mo,RC_start_dy,
                0042      &   RC_start_hr,RC_start_mi,RC_start_sc,
                0043      &   RC_start_tins)
                0044
                0045       CALL GLOBAL_MAX_R8(RC_start_tins,myThid)
                0046
                0047       RC_prev_tins=RC_start_tins
                0048
                0049 c     write(0,*) 'RUNCLOCK_INIT: yr mo dy hr mi sc',
                0050 c    &   RC_start_yr,RC_start_mo,RC_start_dy,
                0051 c    &   RC_start_hr,RC_start_mi,RC_start_sc,RC_start_tins
                0052
                0053 #endif /* ALLOW_RUNCLOCK */
                0054
                0055       RETURN
                0056       END