1. Exascale FastForward
  2. ParallelIO

Source

Raw file
Source viewDiff to previous
    err = PIOc_writemap_from_f90(trim(file)//C_NULL_CHAR, ndims, gdims, int(size(dof),C_SIZE_T), dof, comm)
 
1
!>
2
!! @file pio_support.F90
3
!! @brief internal code for compiler workarounds, aborts and debug functions
4
!!
5
!<
6
module pio_support
7
  use pio_kinds
8
  use iso_c_binding
9
#ifndef NO_MPIMOD
10
  use mpi !_EXTERNAL
11
#endif
12
  implicit none
13
  private
14
#ifdef NO_MPIMOD
15
  include 'mpif.h'    ! _EXTERNAL
16
#endif
17
  public :: piodie
18
  public :: CheckMPIreturn
19
  public :: pio_readdof
20
  public :: pio_writedof
21
  public :: replace_c_null
22
​
23
  logical, public :: Debug=.FALSE.
24
  logical, public :: DebugIO=.FALSE.
25
  logical, public :: DebugAsync=.FALSE.
26
  integer,private,parameter :: versno = 1001
27
​
28
  character(len=*), parameter :: modName='pio_support'
29
​
30
contains
31
!>
32
!! @public
33
!! @brief Remove null termination (C-style) from strings for Fortran.
34
!<
35
  subroutine replace_c_null(istr)
36
    use iso_c_binding, only : C_NULL_CHAR
37
    character(len=*),intent(inout) :: istr
38
    integer :: i
39
    do i=1,len(istr)
40
       if(istr(i:i) == C_NULL_CHAR) exit
41
    end do
42
    istr(i:len(istr))=''
43
  end subroutine replace_c_null
44
​
45
!>
46
!! @public
47
!! @brief Abort the model for abnormal termination.
48
!! @param file : File where piodie is called from.
49
!! @param line : Line number where it is called.
50
!! @param msg,msg2,msg3,ival1,ival2,ival3,mpirank : Optional argument for error messages.
51
!<