hydro/OrchestratorLayer/io_manager.F90

   1 module io_manager_base
   2   use netcdf_layer_base
   3   implicit none
   4
   5   type :: IOManager_
   6      logical :: parallel = .false.
   7      class(NetCDF_layer_),allocatable :: netcdf_layer
   8    contains
   9   end type IOManager_
  10
  11   interface IOManager_
  12      module procedure IOManager_init
  13   end interface IOManager_
  14
  15 contains
  16
  17   type(IOManager_) function IOManager_init(parallel)
  18     implicit none
  19
  20     logical, optional, intent(in) :: parallel
  21
  22     if(.not.present(parallel)) then
  23        IOManager_init%parallel = .false.
  24     else
  25        IOManager_init%parallel = parallel
  26     end if
  27
  28     if( IOManager_init%parallel .eqv. .false.) then
  29        allocate(NetCDF_serial_ :: IOManager_init%netcdf_layer)
  30        IOManager_init%netcdf_layer%open_file => nf90_open
  31     else
  32        allocate(NetCDF_parallel_ :: IOManager_init%netcdf_layer)
  33        IOManager_init%netcdf_layer%open_file => nf90_open
  34     end if
  35
  36   end function IOManager_init
  37
  38 end module io_manager_base