SUBROUTINE pr_mesh_size(msh)
USE psb_base_mod
IMPLICIT NONE
TYPE(mesh), INTENT(IN) :: msh
WRITE(*,*) 'Size of v2c: ', msh%v2c%nemo_sizeof()
WRITE(*,*) 'Size of v2f:' , msh%v2f%nemo_sizeof()
WRITE(*,*) 'Size of f2c:' , msh%f2c%nemo_sizeof()
WRITE(*,*) 'Size of c2g:' , msh%c2g%nemo_sizeof()
WRITE(*,*) 'Size of v2v:' , msh%v2v%nemo_sizeof()
WRITE(*,*) 'Size of f2f:' , msh%f2f%nemo_sizeof()
WRITE(*,*) 'Size of c2c:' , msh%c2c%nemo_sizeof()
WRITE(*,*) 'Size of v2b:' , msh%v2b%nemo_sizeof()
WRITE(*,*) 'Size of f2b:' , msh%f2b%nemo_sizeof()
WRITE(*,*) 'Size of v2c_sup:' , msh%ov2c_sup%nemo_sizeof()
WRITE(*,*) 'Size of c2ov_sup:', msh%c2ov_sup%nemo_sizeof()
WRITE(*,*) 'Size of v2f_sup:' , msh%ov2f_sup%nemo_sizeof()
WRITE(*,*) 'Size of f2ov_sup:' , msh%f2ov_sup%nemo_sizeof()
IF (ALLOCATED(msh%verts))&
& WRITE(*,*) 'Size of verts:' , SUM(msh%verts%nemo_sizeof())
IF (ALLOCATED(msh%faces))&
& WRITE(*,*) 'Size of faces:' , SUM(msh%faces%nemo_sizeof())
IF (ALLOCATED(msh%cells))&
& WRITE(*,*) 'Size of cells:' , SUM(msh%cells%nemo_sizeof())
WRITE(*,*) 'Size of desc_v:' , psb_sizeof(msh%desc_v)
WRITE(*,*) 'Size of desc_f:' , psb_sizeof(msh%desc_f)
WRITE(*,*) 'Size of desc_c:' , psb_sizeof(msh%desc_c)
IF (ALLOCATED(msh%area))&
& WRITE(*,*) 'Size of msh%area:' , nemo_sizeof_dp * SIZE(msh%area)
IF (ALLOCATED(msh%dist))&
& WRITE(*,*) 'Size of msh%dist:' , nemo_sizeof_dp * SIZE(msh%dist)
IF (ALLOCATED(msh%interp))&
& WRITE(*,*) 'Size of mesh&interp:' , nemo_sizeof_dp * SIZE(msh%interp)
IF (ALLOCATED(msh%face_cntr))&
& WRITE(*,*) 'Size of msh&face_cntr:' , SUM(msh%face_cntr%nemo_sizeof())
IF (ALLOCATED(msh%af))&
& WRITE(*,*) 'Size of msh%af:' , SUM(msh%af%nemo_sizeof())
IF (ALLOCATED(msh%df))&
& WRITE(*,*) 'Size of msh%df:' , SUM(msh%df%nemo_sizeof())
IF (ALLOCATED(msh%vol))&
& WRITE(*,*) 'Size of msh%vol:' , nemo_sizeof_dp * SIZE(msh%vol)
IF (ALLOCATED(msh%cell_cntr))&
& WRITE(*,*) 'Size of msh%cell_cntr:' , SUM(msh%cell_cntr%nemo_sizeof())
IF (ALLOCATED(msh%lsr))&
& WRITE(*,*) 'Size of msh%lsr:' , SUM(msh%lsr%nemo_sizeof())
IF (ALLOCATED(msh%surf))&
& WRITE(*,*) 'Size of msh%surf:' , SUM(msh%surf%nemo_sizeof())
END SUBROUTINE pr_mesh_size