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 #ifdef ALLOW_RUNCLOCK
                0002 
                0003 C     Package flag
                0004       logical RUNCLOCKisON
                0005       COMMON /RC_PACKAGE/ RUNCLOCKisON
                0006 
                0007 C     RUNCLOCK parameters
                0008       INTEGER RC_maxtime_hr, RC_maxtime_mi, RC_maxtime_sc
                0009       COMMON /RC_PARAMS/
                0010      &    RC_maxtime_hr, RC_maxtime_mi, RC_maxtime_sc
                0011 
                0012 C     RUNCLOCK internal state
                0013       Real*8  RC_start_tins,RC_prev_tins
                0014       INTEGER RC_start_yr, RC_start_mo, RC_start_dy
                0015       INTEGER RC_start_hr, RC_start_mi, RC_start_sc
                0016       COMMON /RC_INTERNAL/
                0017      &    RC_start_tins,RC_prev_tins,
                0018      &    RC_start_yr, RC_start_mo, RC_start_dy,
                0019      &    RC_start_hr, RC_start_mi, RC_start_sc
                0020 
                0021 #endif /* ALLOW_RUNCLCOK */