wout_converter.f

Go to the documentation of this file.

!*******************************************************************************
!*******************************************************************************
!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
      PROGRAM wout_converter
      USE read_wout_mod
      USE v3_utilities
 
      IMPLICIT NONE
 
!  local variables
      CHARACTER (len=100) :: filename
      INTEGER             :: num_cl_args
      INTEGER             :: i, status
 
!  Start of executable code
      num_cl_args = iargc()
 
      IF (num_cl_args .lt. 1) THEN
         CALL err_fatal('Expected wout filename for argument.')
      END IF
 
      CALL getarg(1, filename)
 
      CALL read_wout_file(filename, status)
      CALL assert_eq(0, status, 'Failed to load wout file ' // filename)
 
      IF (filename(1:5) .eq. 'wout_') THEN
         filename = trim(filename(6:len_trim(filename)))
      END IF
 
      i = index(filename, '.nc', back=.true.)
 
      IF (i .gt. 0) THEN
         filename = filename(1:i - 1)
      END IF
 
      CALL write_wout_text(filename, status)
      CALL assert_eq(0, status, 'Failed to write wout file')
 
      END PROGRAM