Skip to content

Commit

Permalink
Fix comments and spacing
Browse files Browse the repository at this point in the history
Fix comments and spacing in response to review.
  • Loading branch information
rljacob committed Sep 8, 2021
1 parent 5cb4bce commit 7cc7a61
Showing 1 changed file with 3 additions and 4 deletions.
7 changes: 3 additions & 4 deletions driver-mct/main/cime_comp_mod.F90
Expand Up @@ -693,7 +693,6 @@ subroutine cime_pre_init1(esmf_log_option)
integer(i8) :: end_count ! end time
integer(i8) :: irtc_rate ! factor to convert time to seconds


beg_count = shr_sys_irtc(irtc_rate)

call mpi_init(ierr)
Expand Down Expand Up @@ -1378,8 +1377,8 @@ end subroutine cime_pre_init2

subroutine cime_init()

104 format( A, i10.8, i8)
103 format( 5A )
104 format( A, i10.8, i8)

!-----------------------------------------------------------------------------
!| Component Initialization
Expand Down Expand Up @@ -2422,8 +2421,8 @@ subroutine cime_run()
integer :: hashint(hashcnt)
! Driver pause/resume
logical :: drv_pause ! Driver writes pause restart file
logical :: drv_resume ! Driver resets state from restart file
character(len=CL) :: drv_resume_file ! the restart file
logical :: drv_resume ! Driver resets state from restart file
character(len=CL) :: drv_resume_file ! The restart (resume) file
character(len=CL), pointer :: resume_files(:) ! Component resume files

type(ESMF_Time) :: etime_curr ! Current model time
Expand Down

0 comments on commit 7cc7a61

Please sign in to comment.