Line data    Source code

       1              : !=======================================================================
       2              : 
       3              :       module icedrv_restart_shared
       4              : 
       5              :       use icedrv_kinds
       6              :       implicit none
       7              :       private
       8              :       public :: lenstr
       9              : 
      10              :       logical (kind=log_kind), public :: &
      11              :          restart          ! if true, initialize using restart file instead of defaults
      12              : 
      13              :       character (len=char_len_long), public :: &
      14              :          restart_file  , & ! output file for restart dump
      15              :          restart_dir       ! directory name for restart dump
      16              : 
      17              :       character (len=char_len), public :: &
      18              :          restart_format    ! format of restart files 'nc'
      19              : 
      20              : !=======================================================================
      21              : 
      22              :       contains
      23              : 
      24              : !=======================================================================
      25              : 
      26              : ! Compute length of string by finding first non-blank
      27              : ! character from the right.
      28              : 
      29         3693 :       integer function lenstr(label)
      30              : 
      31              :       character*(*) label
      32              : 
      33              :       ! local variables
      34              : 
      35              :       integer (kind=int_kind) :: &
      36              :          length, & ! length of character string
      37              :          n         ! loop index
      38              : 
      39              :       character(len=*), parameter :: subname='(lenstr)'
      40              : 
      41         3693 :       length = len(label)
      42       893508 :       do n=length, 1, -1
      43       893508 :          if( label(n:n) /= ' ' ) exit
      44              :       enddo
      45         3693 :       lenstr = n
      46              : 
      47         7386 :       end function lenstr
      48              : 
      49              : !=======================================================================
      50              : 
      51              :       end module icedrv_restart_shared
      52              : 
      53              : !=======================================================================