anchor.diff:  REAL(DbKi)                            :: dt_global                               ! we're limiting our simulation to lock-step time steps for now
   REAL(DbKi)                            :: t_global                                ! Current simulation time
   REAL(DbKi)                            :: t_global_next                           ! next simulation time (t_global + p_FAST%dt)
  -REAL(DbKi), PARAMETER                 :: t_initial = 0.0                         ! Initial time
  +REAL(DbKi), PARAMETER                 :: t_initial = 0.0_DbKi                    ! Initial time
   REAL(DbKi)                            :: OutTime                                 ! Used to determine if output should be generated at this simulation time
   
   REAL(ReKi)                            :: PrevClockTime                           ! Clock time at start of simulation in seconds
  
positive.code:    Step          = 0                                                    ! The first step counter
  
     AbortErrLev   = ErrID_Fatal                                          ! Until we read otherwise from the FAST input file, we abort only on FATAL errors
  
     
        ! ... Initialize NWTC Library (open console, set pi constants) ...
     CALL NWTC_Init( ProgNameIN=FAST_ver%Name, EchoLibVer=.FALSE. )       ! sets the pi constants, open console for output, etc...
  
negative.code:       INTEGER(IntKi)                       :: ErrStat2                                    ! Error status
        CHARACTER(LEN(ErrMsg))               :: ErrMsg2                                     ! Error message
  
        
        
        !...............................................................................................................................
  