53 lines
1.4 KiB
Fortran
53 lines
1.4 KiB
Fortran
! This code has been written since 2011.01.08
|
|
! This code is written by Dongkyu Lee (THDHRKDG)
|
|
! Purpose of this code is to postprocess results of stagnating DNS code
|
|
|
|
PROGRAM post_dns
|
|
USE m_openmpi
|
|
USE post
|
|
USE Compact
|
|
USE m_build_info
|
|
IMPLICIT NONE
|
|
|
|
CHARACTER(100) :: num1char = ""
|
|
|
|
!First, make sure the right number of inputs have been provided
|
|
IF(COMMAND_ARGUMENT_COUNT() > 1) THEN
|
|
|
|
WRITE(*,*) 'ERROR, TOO MANY COMMAND-LINE ARGUMENTS(MORE THAN ONE). STOPPING'
|
|
STOP
|
|
|
|
ELSE IF(COMMAND_ARGUMENT_COUNT() > 0) THEN
|
|
|
|
CALL GET_COMMAND_ARGUMENT(1,num1char) !first, read in the two values
|
|
|
|
IF(num1char=="-h") THEN
|
|
WRITE(*,*) "usage: x-edge-cold-bc-uPrime-hybrid [-h|-v]"
|
|
WRITE(*,*) ""
|
|
WRITE(*,*) "optional arguments:"
|
|
WRITE(*,*) " -h show this help message and exit"
|
|
WRITE(*,*) " -v print version information"
|
|
WRITE(*,*) " -x print latex equations"
|
|
ELSE IF(num1char=="-v") THEN
|
|
WRITE(*,*) trim(build_info_str)
|
|
ELSE IF(num1char=="-x") THEN
|
|
WRITE(*,*) trim(latex_equations_str)
|
|
ELSE
|
|
WRITE(*,*) 'ERROR, OPTION NOT SUPPORTED ', num1char
|
|
END IF
|
|
|
|
STOP
|
|
|
|
ELSE
|
|
|
|
CALL m_openmpi_init
|
|
|
|
if (iammaster) write(*,*) trim(build_info_str)
|
|
|
|
CALL main
|
|
|
|
CALL m_openmpi_exit
|
|
|
|
ENDIF
|
|
|
|
END PROGRAM
|