Line data    Source code

       1             : !=======================================================================
       2             : 
       3             :       module ice_restart_shared
       4             : 
       5             :       use ice_kinds_mod
       6             : 
       7             :       implicit none
       8             :       private
       9             :       public :: lenstr
      10             : 
      11             :       logical (kind=log_kind), public :: &
      12             :          restart    , &   ! if true, initialize using restart file instead of defaults   ! LCOV_EXCL_LINE
      13             :          restart_ext, &   ! if true, read/write extended grid (with ghost cells)   ! LCOV_EXCL_LINE
      14             :          restart_coszen, &   ! if true, read/write coszen   ! LCOV_EXCL_LINE
      15             :          use_restart_time ! if true, use time written in core restart file
      16             : 
      17             :       character (len=char_len), public :: &
      18             :          runtype           ! initial, continue, hybrid, branch
      19             : 
      20             :       character (len=char_len_long), public :: &
      21             :          restart_file  , & ! output file for restart dump   ! LCOV_EXCL_LINE
      22             :          restart_dir   , & ! directory name for restart dump   ! LCOV_EXCL_LINE
      23             :          runid             ! identifier for CESM coupled run or bering
      24             : 
      25             :       character (len=char_len_long), public :: &
      26             :          pointer_file      ! input pointer file for restarts
      27             : 
      28             :       character (len=char_len), public :: &
      29             :          restart_format    ! format of restart files 'nc'
      30             : 
      31             :       logical (kind=log_kind), public :: lcdf64
      32             : 
      33             : !=======================================================================
      34             : 
      35             :       contains
      36             : 
      37             : !=======================================================================
      38             : 
      39             : ! Compute length of string by finding first non-blank
      40             : ! character from the right.
      41             : 
      42         127 :       integer function lenstr(label)
      43             : 
      44             :       character(len=*) :: label
      45             : 
      46             :       character(len=*),parameter :: subname='(lenstr)'
      47             : 
      48             :       ! local variables
      49             : 
      50             :       integer (kind=int_kind) :: &
      51             :          length, & ! length of character string   ! LCOV_EXCL_LINE
      52             :          n         ! loop index
      53             : 
      54         127 :       length = len(label)
      55       31518 :       do n=length,1,-1
      56       31518 :         if( label(n:n) /= ' ' ) exit
      57             :       enddo
      58         127 :       lenstr = n
      59             : 
      60         254 :       end function lenstr
      61             : 
      62             : !=======================================================================
      63             : 
      64             :       end module ice_restart_shared
      65             : 
      66             : !=======================================================================