• R/O
  • SSH

treelm: Commit

Repository of the treelm library.


Commit MetaInfo

Revisión3faed2ed6d65692f5a95ce1d3c526da2bbc584a2 (tree)
Tiempo2022-06-26 09:50:37
AutorHarald Klimach <harald.klimach@dlr....>
CommiterHarald Klimach

Log Message

Consider also spongelayer_plane_2d and spongelayer_plane_1d in the evaluation

Cambiar Resumen

Diferencia incremental

diff -r 3e072837cc18 -r 3faed2ed6d65 source/tem_spatial_module.f90
--- a/source/tem_spatial_module.f90 Wed Jun 22 15:58:53 2022 +0200
+++ b/source/tem_spatial_module.f90 Sun Jun 26 02:50:37 2022 +0200
@@ -1787,12 +1787,12 @@
17871787 case ('random')
17881788 res = tem_spatial_random_for(me%random, n)
17891789
1790- case( 'spongelayer_plane' )
1790+ case( 'spongelayer_plane', 'spongelayer_plane_2d', 'spongelayer_plane_1d' )
17911791 res = tem_spongeLayer_plane_for(me%spongePlane, treeids, tree, n)
17921792
17931793 case( 'spongelayer_box' )
17941794 res = tem_spongeLayer_box_for(me%spongeBox, treeids, tree, n)
1795-
1795+
17961796 case( 'spongelayer_box_2d' )
17971797 res = tem_spongeLayer_box2d_for(me%spongeBox, treeids, tree, n)
17981798
@@ -1817,7 +1817,7 @@
18171817
18181818 case( 'viscous_spongelayer_box' )
18191819 res = tem_viscSpongeLayer_box_for(me%spongeBox, treeids, tree, n)
1820-
1820+
18211821 case( 'viscous_spongelayer_box_2d' )
18221822 res = tem_viscSpongeLayer_box2d_for(me%spongeBox, treeids, tree, n)
18231823
@@ -1881,10 +1881,7 @@
18811881 & n = n, &
18821882 & ncomp = ncomp )
18831883
1884- case( 'spongelayer', 'spongelayer_2d', 'spongelayer_1d' )
1885- res = tem_spongelayer_plane_for(me%spongePlane, nComp, treeids, tree, n)
1886-
1887- case( 'spongelayer_plane' )
1884+ case( 'spongelayer_plane', 'spongelayer_plane_2d', 'spongelayer_plane_1d' )
18881885 res = tem_spongeLayer_plane_for(me%spongePlane, nComp, treeids, tree, n)
18891886
18901887 case( 'spongelayer_box' )
@@ -2104,13 +2101,13 @@
21042101 res = tem_eval_polygon_material_scal( me = me%polygon_material, &
21052102 & coord = coord, &
21062103 & n = n )
2107-
2104+
21082105 case('polygon_material_3d')
21092106 res = tem_eval_polygon_material_scal_3d( me = me%polygon_material, &
21102107 & coord = coord, &
21112108 & n = n )
21122109
2113- case( 'spongelayer_plane' )
2110+ case( 'spongelayer_plane', 'spongelayer_plane_2d', 'spongelayer_plane_1d' )
21142111 res = tem_spongeLayer_plane_for(me%spongePlane, coord, n)
21152112
21162113 case( 'spongelayer_box' )
@@ -2185,10 +2182,7 @@
21852182 case( 'lua_fun' )
21862183 res = tem_spatial_lua_for(me%lua_fun_ref, me%conf, coord, n, ncomp)
21872184
2188- case( 'spongelayer', 'spongelayer_2d', 'spongelayer_1d' )
2189- res = tem_spongelayer_plane_for(me%spongePlane, nComp, coord, n)
2190-
2191- case( 'spongelayer_plane' )
2185+ case( 'spongelayer_plane', 'spongelayer_plane_2d', 'spongelayer_plane_1d' )
21922186 res = tem_spongeLayer_plane_for(me%spongePlane, nComp, coord, n)
21932187
21942188 case( 'spongeLayer_box' )
Show on old repository browser