Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Scalar3D_t), | intent(in) | :: | this | |||
integer(kind=HID_T), | intent(in) | :: | fileId | |||
character, | intent(in) | :: | group |
subroutine WriteHDF5_Scalar3D_t(this,fileId,group)
implicit none
class(Scalar3D_t),intent(in) :: this
integer(HID_T),intent(in) :: fileId
character(*),intent(in) :: group
! Local
integer :: ivar
call CreateGroup_HDF5(fileId,trim(group))
do ivar = 1,this%nVar
call this%meta(ivar)%WriteHDF5(group,ivar,fileId)
call WriteArray_HDF5(fileId, &
trim(group)//trim(this%meta(ivar)%name), &
this%interior(:,:,:,:,ivar))
enddo
endsubroutine WriteHDF5_Scalar3D_t