FE-Project
Loading...
Searching...
No Matches
Public Member Functions | List of all members
scale_file_common_meshfield::file_common_meshfield_get_dims Interface Reference

Public Member Functions

subroutine file_common_meshfield_get_dims1d (mesh1d, dim_name_postfix, dimsinfo)
subroutine file_common_meshfield_get_dims2d (mesh2d, dim_name_postfix, dimsinfo)
subroutine file_common_meshfield_get_dims2d_cubedsphere (mesh2d, dim_name_postfix, dimsinfo)
subroutine file_common_meshfield_get_dims3d (mesh3d, dim_name_postfix, dimsinfo)
subroutine file_common_meshfield_get_dims3d_cubedsphere (mesh3d, dim_name_postfix, dimsinfo)

Detailed Description

Definition at line 56 of file scale_file_common_meshfield.F90.

Member Function/Subroutine Documentation

◆ file_common_meshfield_get_dims1d()

subroutine scale_file_common_meshfield::file_common_meshfield_get_dims::file_common_meshfield_get_dims1d ( class(meshbase1d), intent(in), target mesh1d,
character(len=h_short), intent(in) dim_name_postfix,
type(file_common_meshfield_diminfo), dimension(meshbase1d_dimtype_num), intent(out) dimsinfo )

Definition at line 128 of file scale_file_common_meshfield.F90.

130 implicit none
131 class(MeshBase1D), target, intent(in) :: mesh1D
132 character(len=H_SHORT), intent(in) :: dim_name_postfix
133 type(FILE_common_meshfield_diminfo), intent(out) :: dimsinfo(MeshBase1D_DIMTYPE_NUM)
134
135 integer :: i_size
136 type(MeshDimInfo), pointer :: diminfo
137 type(MeshDimInfo), pointer :: diminfo_x
138 !-------------------------------------------------
139
140 i_size = mesh1d%NeG * mesh1d%refElem1D%Np
141
142 diminfo_x => mesh1d%dimInfo(meshbase1d_dimtypeid_x)
143 call set_dimension( dimsinfo(meshbase1d_dimtypeid_x), &
144 diminfo_x, "X", 1, (/ diminfo_x%name /), (/ i_size /), &
145 dim_name_postfix )
146
147 diminfo => mesh1d%dimInfo(meshbase1d_dimtypeid_xt)
148 call set_dimension( dimsinfo(meshbase1d_dimtypeid_xt), &
149 diminfo, "XT", 1, (/ diminfo_x%name /), (/ i_size /), &
150 dim_name_postfix )
151
152 return

References scale_mesh_base1d::meshbase1d_dimtypeid_x, and scale_mesh_base1d::meshbase1d_dimtypeid_xt.

◆ file_common_meshfield_get_dims2d()

subroutine scale_file_common_meshfield::file_common_meshfield_get_dims::file_common_meshfield_get_dims2d ( class(meshrectdom2d), intent(in), target mesh2d,
character(len=h_short), intent(in) dim_name_postfix,
type(file_common_meshfield_diminfo), dimension(meshbase2d_dimtype_num), intent(out) dimsinfo )

Definition at line 340 of file scale_file_common_meshfield.F90.

342 implicit none
343
344 class(MeshRectDom2D), target, intent(in) :: mesh2D
345 character(len=H_SHORT), intent(in) :: dim_name_postfix
346 type(FILE_common_meshfield_diminfo), intent(out) :: dimsinfo(MeshBase2D_DIMTYPE_NUM)
347
348 type(LocalMesh2D), pointer :: lcmesh
349 integer :: i, j, n
350
351 integer :: i_size, j_size
352 type(MeshDimInfo), pointer :: diminfo
353 type(MeshDimInfo), pointer :: diminfo_x
354 type(MeshDimInfo), pointer :: diminfo_y
355 !-------------------------------------------------
356
357 i_size = 0
358 do i=1, size(mesh2d%rcdomIJ2LCMeshID,1)
359 n = mesh2d%rcdomIJ2LCMeshID(i,1)
360 lcmesh => mesh2d%lcmesh_list(n)
361 i_size =i_size + lcmesh%NeX * lcmesh%refElem2D%Nfp
362 end do
363
364 j_size = 0
365 do j=1, size(mesh2d%rcdomIJ2LCMeshID,2)
366 n = mesh2d%rcdomIJ2LCMeshID(1,j)
367 lcmesh => mesh2d%lcmesh_list(n)
368 j_size = j_size + lcmesh%NeY * lcmesh%refElem2D%Nfp
369 end do
370
371 diminfo_x => mesh2d%dimInfo(meshbase2d_dimtypeid_x)
372 call set_dimension( dimsinfo(meshbase2d_dimtypeid_x), &
373 diminfo_x, "X", 1, (/ diminfo_x%name /), (/ i_size /), &
374 dim_name_postfix )
375
376 diminfo_y => mesh2d%dimInfo(meshbase2d_dimtypeid_y)
377 call set_dimension( dimsinfo(meshbase2d_dimtypeid_y), &
378 diminfo_y, "Y", 1, (/ diminfo_y%name /), (/ j_size /), &
379 dim_name_postfix )
380
381 diminfo => mesh2d%dimInfo(meshbase2d_dimtypeid_xy)
382 call set_dimension( dimsinfo(meshbase2d_dimtypeid_xy), &
383 diminfo, "XY", 2, (/ diminfo_x%name, diminfo_y%name /), &
384 (/ i_size, j_size /), dim_name_postfix )
385
386 diminfo => mesh2d%dimInfo(meshbase2d_dimtypeid_xyt)
387 call set_dimension( dimsinfo(meshbase2d_dimtypeid_xyt), &
388 diminfo, "XYT", 2, (/ diminfo_x%name, diminfo_y%name /), &
389 (/ i_size, j_size /), dim_name_postfix )
390
391 return

References scale_mesh_base2d::meshbase2d_dimtypeid_x, scale_mesh_base2d::meshbase2d_dimtypeid_xy, scale_mesh_base2d::meshbase2d_dimtypeid_xyt, and scale_mesh_base2d::meshbase2d_dimtypeid_y.

◆ file_common_meshfield_get_dims2d_cubedsphere()

subroutine scale_file_common_meshfield::file_common_meshfield_get_dims::file_common_meshfield_get_dims2d_cubedsphere ( class(meshcubedspheredom2d), intent(in), target mesh2d,
character(len=h_short), intent(in) dim_name_postfix,
type(file_common_meshfield_diminfo), dimension(meshbase2d_dimtype_num), intent(out) dimsinfo )

Definition at line 395 of file scale_file_common_meshfield.F90.

397 implicit none
398
399 class(MeshCubedSphereDom2D), target, intent(in) :: mesh2D
400 character(len=H_SHORT), intent(in) :: dim_name_postfix
401 type(FILE_common_meshfield_diminfo), intent(out) :: dimsinfo(MeshBase2D_DIMTYPE_NUM)
402
403 type(LocalMesh2D), pointer :: lcmesh
404 integer :: i, j, n
405
406 integer :: i_size, j_size
407
408 type(MeshDimInfo), pointer :: diminfo
409 type(MeshDimInfo), pointer :: diminfo_x
410 type(MeshDimInfo), pointer :: diminfo_y
411 !-------------------------------------------------
412
413 i_size = 0
414 do i=1, size(mesh2d%rcdomIJP2LCMeshID,1)
415 n = mesh2d%rcdomIJP2LCMeshID(i,1,1)
416 lcmesh => mesh2d%lcmesh_list(n)
417 i_size =i_size + lcmesh%NeX * lcmesh%refElem2D%Nfp
418 end do
419
420 j_size = 0
421 do j=1, size(mesh2d%rcdomIJP2LCMeshID,2)
422 n = mesh2d%rcdomIJP2LCMeshID(1,j,1)
423 lcmesh => mesh2d%lcmesh_list(n)
424 j_size = j_size + lcmesh%NeY * lcmesh%refElem2D%Nfp
425 end do
426
427 j_size = j_size * size(mesh2d%rcdomIJP2LCMeshID,3)
428
429 diminfo_x => mesh2d%dimInfo(meshbase2d_dimtypeid_x)
430 call set_dimension( dimsinfo(meshbase2d_dimtypeid_x), &
431 diminfo_x, "X", 1, (/ diminfo_x%name /), (/ i_size /), &
432 dim_name_postfix )
433
434 diminfo_y => mesh2d%dimInfo(meshbase2d_dimtypeid_y)
435 call set_dimension( dimsinfo(meshbase2d_dimtypeid_y), &
436 diminfo_y, "Y", 1, (/ diminfo_y%name /), (/ j_size /), &
437 dim_name_postfix )
438
439 diminfo => mesh2d%dimInfo(meshbase2d_dimtypeid_xy)
440 call set_dimension( dimsinfo(meshbase2d_dimtypeid_xy), &
441 diminfo, "XY", 2, (/ diminfo_x%name, diminfo_y%name /), &
442 (/ i_size, j_size /), dim_name_postfix )
443
444 diminfo => mesh2d%dimInfo(meshbase2d_dimtypeid_xyt)
445 call set_dimension( dimsinfo(meshbase2d_dimtypeid_xyt), &
446 diminfo, "XYT", 2, (/ diminfo_x%name, diminfo_y%name /), &
447 (/ i_size, j_size /), dim_name_postfix )
448
449 return

References scale_mesh_base2d::meshbase2d_dimtypeid_x, scale_mesh_base2d::meshbase2d_dimtypeid_xy, scale_mesh_base2d::meshbase2d_dimtypeid_xyt, and scale_mesh_base2d::meshbase2d_dimtypeid_y.

◆ file_common_meshfield_get_dims3d()

subroutine scale_file_common_meshfield::file_common_meshfield_get_dims::file_common_meshfield_get_dims3d ( class(meshcubedom3d), intent(in), target mesh3d,
character(len=h_short), intent(in) dim_name_postfix,
type(file_common_meshfield_diminfo), dimension(meshbase3d_dimtype_num), intent(out) dimsinfo )

Definition at line 863 of file scale_file_common_meshfield.F90.

865 implicit none
866
867 class(MeshCubeDom3D), target, intent(in) :: mesh3D
868 character(len=H_SHORT), intent(in) :: dim_name_postfix
869 type(FILE_common_meshfield_diminfo), intent(out) :: dimsinfo(MESHBASE3D_DIMTYPE_NUM)
870
871 type(LocalMesh3D), pointer :: lcmesh
872 integer :: i, j, k, n
873 integer :: i_size, j_size, k_size
874
875 type(MeshDimInfo), pointer :: dimInfo
876 type(MeshDimInfo), pointer :: dimInfo_x
877 type(MeshDimInfo), pointer :: dimInfo_y
878 type(MeshDimInfo), pointer :: dimInfo_z
879 !-------------------------------------------------
880
881 i_size = 0
882 do i=1, size(mesh3d%rcdomIJK2LCMeshID,1)
883 n = mesh3d%rcdomIJK2LCMeshID(i,1,1)
884 lcmesh => mesh3d%lcmesh_list(n)
885 i_size = i_size + lcmesh%NeX * lcmesh%refElem3D%Nnode_h1D
886 end do
887
888 j_size = 0
889 do j=1, size(mesh3d%rcdomIJK2LCMeshID,2)
890 n = mesh3d%rcdomIJK2LCMeshID(1,j,1)
891 lcmesh => mesh3d%lcmesh_list(n)
892 j_size = j_size + lcmesh%NeY * lcmesh%refElem3D%Nnode_h1D
893 end do
894
895 k_size = 0
896 do k=1, size(mesh3d%rcdomIJK2LCMeshID,3)
897 n = mesh3d%rcdomIJK2LCMeshID(1,1,k)
898 lcmesh => mesh3d%lcmesh_list(n)
899 k_size = k_size + lcmesh%NeZ * lcmesh%refElem3D%Nnode_v
900 end do
901
902 diminfo_x => mesh3d%dimInfo(meshbase3d_dimtypeid_x)
903 call set_dimension( dimsinfo(meshbase3d_dimtypeid_x), &
904 diminfo_x, "X", 1, (/ diminfo_x%name /), (/ i_size /), &
905 dim_name_postfix )
906
907 diminfo_y => mesh3d%dimInfo(meshbase3d_dimtypeid_y)
908 call set_dimension( dimsinfo(meshbase3d_dimtypeid_y), &
909 diminfo_y, "Y", 1, (/ diminfo_y%name /), (/ j_size /), &
910 dim_name_postfix )
911
912 diminfo_z => mesh3d%dimInfo(meshbase3d_dimtypeid_z)
913 call set_dimension( dimsinfo(meshbase3d_dimtypeid_z), &
914 diminfo_z, "Z", 1, (/ diminfo_z%name /), (/ k_size /), &
915 dim_name_postfix, positive_down=(/ diminfo_z%positive_down /) )
916
917 diminfo => mesh3d%dimInfo(meshbase3d_dimtypeid_zt)
918 call set_dimension( dimsinfo(meshbase3d_dimtypeid_zt), &
919 diminfo, "ZT", 1, (/ diminfo_z%name /), (/ k_size /), &
920 dim_name_postfix )
921
922 diminfo => mesh3d%dimInfo(meshbase3d_dimtypeid_xy)
923 call set_dimension( dimsinfo(meshbase3d_dimtypeid_xy), &
924 diminfo, "XY", 2, (/ diminfo_x%name, diminfo_y%name /), &
925 (/ i_size, j_size /), dim_name_postfix )
926
927 diminfo => mesh3d%dimInfo(meshbase3d_dimtypeid_xyt)
928 call set_dimension( dimsinfo(meshbase3d_dimtypeid_xyt), &
929 diminfo, "XY", 2, (/ diminfo_x%name, diminfo_y%name /), &
930 (/ i_size, j_size /), dim_name_postfix )
931
932 diminfo => mesh3d%dimInfo(meshbase3d_dimtypeid_xyz)
933 call set_dimension( dimsinfo(meshbase3d_dimtypeid_xyz), &
934 diminfo, "XYZ", 3, (/ diminfo_x%name, diminfo_y%name, diminfo_z%name /), &
935 (/ i_size, j_size, k_size /), dim_name_postfix )
936
937 diminfo => mesh3d%dimInfo(meshbase3d_dimtypeid_xyzt)
938 call set_dimension( dimsinfo(meshbase3d_dimtypeid_xyzt), &
939 diminfo, "XYZT", 3, (/ diminfo_x%name, diminfo_y%name, diminfo_z%name /), &
940 (/ i_size, j_size, k_size /), dim_name_postfix )
941
942 return

References scale_mesh_base3d::meshbase3d_dimtypeid_x, scale_mesh_base3d::meshbase3d_dimtypeid_xy, scale_mesh_base3d::meshbase3d_dimtypeid_xyt, scale_mesh_base3d::meshbase3d_dimtypeid_xyz, scale_mesh_base3d::meshbase3d_dimtypeid_xyzt, scale_mesh_base3d::meshbase3d_dimtypeid_y, scale_mesh_base3d::meshbase3d_dimtypeid_z, and scale_mesh_base3d::meshbase3d_dimtypeid_zt.

◆ file_common_meshfield_get_dims3d_cubedsphere()

subroutine scale_file_common_meshfield::file_common_meshfield_get_dims::file_common_meshfield_get_dims3d_cubedsphere ( class(meshcubedspheredom3d), intent(in), target mesh3d,
character(len=h_short), intent(in) dim_name_postfix,
type(file_common_meshfield_diminfo), dimension(meshbase3d_dimtype_num), intent(out) dimsinfo )

Definition at line 946 of file scale_file_common_meshfield.F90.

948 implicit none
949
950 class(MeshCubedSphereDom3D), target, intent(in) :: mesh3D
951 character(len=H_SHORT), intent(in) :: dim_name_postfix
952 type(FILE_common_meshfield_diminfo), intent(out) :: dimsinfo(MESHBASE3D_DIMTYPE_NUM)
953
954 type(LocalMesh3D), pointer :: lcmesh
955 integer :: i, j, k, n
956
957 integer :: i_size, j_size, k_size
958
959 type(MeshDimInfo), pointer :: diminfo
960 type(MeshDimInfo), pointer :: diminfo_x
961 type(MeshDimInfo), pointer :: diminfo_y
962 type(MeshDimInfo), pointer :: diminfo_z
963 !-------------------------------------------------
964
965 i_size = 0
966 do i=1, size(mesh3d%rcdomIJKP2LCMeshID,1)
967 n = mesh3d%rcdomIJKP2LCMeshID(i,1,1,1)
968 lcmesh => mesh3d%lcmesh_list(n)
969 i_size =i_size + lcmesh%NeX * lcmesh%refElem3D%Nnode_h1D
970 end do
971
972 j_size = 0
973 do j=1, size(mesh3d%rcdomIJKP2LCMeshID,2)
974 n = mesh3d%rcdomIJKP2LCMeshID(1,j,1,1)
975 lcmesh => mesh3d%lcmesh_list(n)
976 j_size = j_size + lcmesh%NeY * lcmesh%refElem3D%Nnode_h1D
977 end do
978
979 k_size = 0
980 do k=1, size(mesh3d%rcdomIJKP2LCMeshID,3)
981 n = mesh3d%rcdomIJKP2LCMeshID(1,1,k,1)
982 lcmesh => mesh3d%lcmesh_list(n)
983 k_size = k_size + lcmesh%NeZ * lcmesh%refElem3D%Nnode_v
984 end do
985
986 k_size = k_size * size(mesh3d%rcdomIJKP2LCMeshID,4)
987
988 diminfo_x => mesh3d%dimInfo(meshbase3d_dimtypeid_x)
989 call set_dimension( dimsinfo(meshbase3d_dimtypeid_x), &
990 diminfo_x, "X", 1, (/ diminfo_x%name /), (/ i_size /), &
991 dim_name_postfix )
992
993 diminfo_y => mesh3d%dimInfo(meshbase3d_dimtypeid_y)
994 call set_dimension( dimsinfo(meshbase3d_dimtypeid_y), &
995 diminfo_y, "Y", 1, (/ diminfo_y%name /), (/ j_size /), &
996 dim_name_postfix )
997
998 diminfo_z => mesh3d%dimInfo(meshbase3d_dimtypeid_z)
999 call set_dimension( dimsinfo(meshbase3d_dimtypeid_z), &
1000 diminfo_z, "Z", 1, (/ diminfo_z%name /), (/ k_size /), &
1001 dim_name_postfix, positive_down=(/ diminfo_z%positive_down /) )
1002
1003 diminfo => mesh3d%dimInfo(meshbase3d_dimtypeid_zt)
1004 call set_dimension( dimsinfo(meshbase3d_dimtypeid_zt), &
1005 diminfo, "ZT", 1, (/ diminfo_z%name /), (/ k_size /), &
1006 dim_name_postfix )
1007
1008 diminfo => mesh3d%dimInfo(meshbase3d_dimtypeid_xy)
1009 call set_dimension( dimsinfo(meshbase3d_dimtypeid_xy), &
1010 diminfo, "XY", 2, (/ diminfo_x%name, diminfo_y%name /), &
1011 (/ i_size, j_size /), &
1012 dim_name_postfix )
1013
1014 diminfo => mesh3d%dimInfo(meshbase3d_dimtypeid_xyt)
1015 call set_dimension( dimsinfo(meshbase3d_dimtypeid_xyt), &
1016 diminfo, "XY", 2, (/ diminfo_x%name, diminfo_y%name /), &
1017 (/ i_size, j_size /), &
1018 dim_name_postfix )
1019
1020 diminfo => mesh3d%dimInfo(meshbase3d_dimtypeid_xyz)
1021 call set_dimension( dimsinfo(meshbase3d_dimtypeid_xyz), &
1022 diminfo, "XYZ", 3, (/ diminfo_x%name, diminfo_y%name, diminfo_z%name /), &
1023 (/ i_size, j_size, k_size /), &
1024 dim_name_postfix )
1025
1026 diminfo => mesh3d%dimInfo(meshbase3d_dimtypeid_xyzt)
1027 call set_dimension( dimsinfo(meshbase3d_dimtypeid_xyzt), &
1028 diminfo, "XYZT", 3, (/ diminfo_x%name, diminfo_y%name, diminfo_z%name /), &
1029 (/ i_size, j_size, k_size /), &
1030 dim_name_postfix )
1031
1032 return

References scale_mesh_base3d::meshbase3d_dimtypeid_x, scale_mesh_base3d::meshbase3d_dimtypeid_xy, scale_mesh_base3d::meshbase3d_dimtypeid_xyt, scale_mesh_base3d::meshbase3d_dimtypeid_xyz, scale_mesh_base3d::meshbase3d_dimtypeid_xyzt, scale_mesh_base3d::meshbase3d_dimtypeid_y, scale_mesh_base3d::meshbase3d_dimtypeid_z, and scale_mesh_base3d::meshbase3d_dimtypeid_zt.

The documentation for this interface was generated from the following file:
Generated by doxygen 1.14.0