Homec4science
Diffusion COSOlver (new_coulomb) Browse

cosolver/src/diagnose.f90
83b8f38f6c51new_coulomb

Last Change
Raw File

diagnose.f90
View Options

SUBROUTINE diagnose(diag)
! Diagnostics, writing simulation st
USE basic
USE output
USE futils, ONLY: creatf, creatg, creatd, closef, putarr, putfile, attach
USE model
USE prec_const
use grid
IMPLICIT NONE
INCLUDE 'srcinfo.h'
INTEGER, INTENT(in) :: diag
INTEGER :: rank, dims(1) = (/0/)
IF(DIAG .EQ. 0) THEN
!________________________________________________________________________________
!
! 1. Initial diagnostics
!
! defines output files
call create_filenames_output
!
IF (((eecolls .or. iicolls) ) .and. is_self) then
!
!
CALL creatf(fullpath_self ,selffidres,real_prec='d',mpicomm = comm_self)
!
!
!
IF(me .eq. 0) WRITE(*,*) trim(adjustl(fullpath_self)),' created ...'
!
! Create data group
CALL creatg(selffidres,"/Caapj","Hermite-Laguerre Moments")
CALL creatg(selffidres,"/files","input files")
!
IF(is_self) CALL putfile(selffidres,"/files/inputs","fort." //trim( adjustl(strlu_)),ionode =0)
!
!
ENDIF
!
IF ( eicolls .and. is_e) THEN
!
!
CALL creatf(fullpath_ei,eifidres,real_prec='d',mpicomm = comm_e)
!
IF( me .eq. 0) WRITE(*,*) trim(adjustl(fullpath_ei)),' created ...'
!
! Create data group
CALL creatg(eifidres,"/Ceipj","Hermite-Laguerre Moments")
CALL creatg(eifidres,"/files","input files")
!
IF(is_e) CALL putfile(eifidres, "/files/inputs","fort." //trim( adjustl(strlu_)),ionode =0)
!
ENDIF
!
IF ( iecolls .and. is_i) THEN
!
CALL creatf(fullpath_ie,iefidres,real_prec='d',mpicomm = comm_i)
IF( me .eq. 0) WRITE(*,*) trim(adjustl(fullpath_ie)),' created ...'
CALL creatg(iefidres,"/Ciepj","Hermite-Laguerre Moments")
CALL creatg(iefidres,"/files","input files")
!
IF(is_i) CALL putfile(iefidres,"/files/inputs","fort." //trim( adjustl(strlu_)),ionode =0)
!
ENDIF
!
!
ELSEIF(diag .EQ. -1) THEN
!
CALL write_output
!
ENDIF
END SUBROUTINE diagnose
c4science · Help