Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:43:06 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
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