FE-Project
Loading...
Searching...
No Matches
scale_meshfield_analysis_numerror.F90
Go to the documentation of this file.
1!-------------------------------------------------------------------------------
10!-------------------------------------------------------------------------------
11#include "scaleFElib.h"
12module scale_meshfield_analysis_numerror
13 !-----------------------------------------------------------------------------
14 !
15 !++ used modules
16 !
17 use scale_precision
18 use scale_io
19 use scale_prc, only: &
20 prc_ismaster, prc_abort
21 use scale_time_manager, only: &
22 time_nstep
23
24 use scale_element_base, only: &
25 elementbase, &
26 elementbase1d, elementbase2d, elementbase3d
27 use scale_element_line, only: lineelement
28 use scale_element_quadrilateral, only: quadrilateralelement
29 use scale_element_hexahedral, only: hexahedralelement
30 use scale_localmesh_base, only: localmeshbase
31 use scale_localmeshfield_base, only: localmeshfieldbase
32 use scale_mesh_base, only: meshbase
33 use scale_mesh_base1d, only: meshbase1d
34 use scale_mesh_base2d, only: meshbase2d
35 use scale_mesh_base3d, only: meshbase3d
36 use scale_localmesh_1d, only: localmesh1d
37 use scale_localmesh_2d, only: localmesh2d
38 use scale_localmesh_3d, only: localmesh3d
39 use scale_meshfield_base, only: &
40 meshfieldbase, meshfield1d, meshfield2d, meshfield3d
41
42 use scale_meshfield_analysis_numerror_base, only: &
43 meshfieldanalysisnumerrorbase
44
45 !-----------------------------------------------------------------------------
46 implicit none
47 private
48
49 !-----------------------------------------------------------------------------
50 !
51 !++ Public type & procedure
52 !
53
54 type, public, extends(meshfieldanalysisnumerrorbase) :: meshfieldanalysisnumerror1d
55 contains
56 procedure :: init_1d => meshfield_analysis_numerror_1d_init
57 generic :: init => init_1d
58 procedure :: evaluate => meshfield_analysis_numerror_1d_evaluate
59 end type meshfieldanalysisnumerror1d
60
61 type, public, extends(meshfieldanalysisnumerrorbase) :: meshfieldanalysisnumerror2d
62 contains
63 procedure :: init_2d => meshfield_analysis_numerror_2d_init
64 generic :: init => init_2d
65 procedure :: evaluate => meshfield_analysis_numerror_2d_evaluate
66 end type meshfieldanalysisnumerror2d
67
68 type, public, extends(meshfieldanalysisnumerrorbase) :: meshfieldanalysisnumerror3d
69 contains
70 procedure :: init_3d => meshfield_analysis_numerror_3d_init
71 generic :: init => init_3d
72 procedure :: evaluate => meshfield_analysis_numerror_3d_evaluate
73 end type meshfieldanalysisnumerror3d
74
75 !-----------------------------------------------------------------------------
76 !
77 !++ Public parameters & variables
78 !
79
80 !-----------------------------------------------------------------------------
81 !
82 !++ Private parameters & variables
83 !
84
85 !-----------------------------------------------------------------------------
86 !
87 !++ Private parameters & variables
88 !
89
90contains
91
92!-- 1D --
93
94 !-----------------------------------------------------------------------------
96!OCL SERIAL
97 subroutine meshfield_analysis_numerror_1d_init( this, &
98 porder_error_check, log_fname_base, log_step_interval, &
99 refElem1D )
100 implicit none
101 class(meshfieldanalysisnumerror1d), intent(inout) :: this
102 integer, intent(in) :: porder_error_check
103 character(len=*), intent(in) :: log_fname_base
104 integer, intent(in) :: log_step_interval
105 type(lineelement), intent(in) :: refElem1D
106 !---------------------------------------------------------------------------
107
108 call this%MeshFieldAnalysisNumerrorBase%Init( &
109 porder_error_check, 1, refelem1d%Np, porder_error_check**1, &
110 log_fname_base, log_step_interval )
111
112 this%IntrpMat(:,:) = refelem1d%GenIntGaussLegendreIntrpMat( &
113 this%PolyOrderErrorCheck, & ! (in)
114 this%intw_intrp, this%epos_intrp(:,1) ) ! (out)
115
116 return
117 end subroutine meshfield_analysis_numerror_1d_init
118
119!OCL SERIAL
120 subroutine meshfield_analysis_numerror_1d_evaluate( &
121 this, tstep, tsec, mesh, set_data_lc )
122 implicit none
123 class(meshfieldanalysisnumerror1d), intent(inout) :: this
124 integer, intent(in) :: tstep
125 real(RP) :: tsec
126 class(meshbase1d), target, intent(in) :: mesh
127 interface
128 subroutine set_data_lc( this_, q, qexact, qexact_intrp, lcmesh, elem1D, intrp_epos )
129 import rp
130 import elementbase1d
131 import localmesh1d
132 import meshfieldanalysisnumerror1d
133 class(meshfieldanalysisnumerror1d), intent(in) :: this_
134 class(localmesh1d), intent(in) :: lcmesh
135 class(elementbase1d) :: elem1D
136 real(RP), intent(out) :: q(elem1D%Np,lcmesh%Ne,this_%var_num)
137 real(RP), intent(out) :: qexact(elem1D%Np,lcmesh%Ne,this_%var_num)
138 real(RP), intent(out) :: qexact_intrp(this_%intrp_np,lcmesh%Ne,this_%var_num)
139 real(RP), intent(in) :: intrp_epos(this_%intrp_np,this_%ndim)
140 end subroutine set_data_lc
141 end interface
142 !---------------------------------------------------------------------------
143
144 call this%Evaluate_base( tstep, tsec, mesh%dom_vol, evaluate_error_core, calc_covariance_core )
145
146 return
147 contains
148!OCL SERIAL
149 subroutine evaluate_error_core( base, &
150 num_error_l1_lc, num_error_l2_lc, num_error_linf_lc, &
151 numsol_mean_lc, exactsol_mean_lc )
152 implicit none
153 class(meshfieldanalysisnumerrorbase), intent(in) :: base
154 real(RP), intent(inout) :: num_error_l1_lc(base%var_num)
155 real(RP), intent(inout) :: num_error_l2_lc(base%var_num)
156 real(RP), intent(inout) :: num_error_linf_lc(base%var_num)
157 real(RP), intent(inout) :: numsol_mean_lc(base%var_num)
158 real(RP), intent(inout) :: exactsol_mean_lc(base%var_num)
159
160 integer :: lcdomid
161 class(localmesh1d), pointer :: lcmesh
162 real(RP), allocatable :: q(:,:,:)
163 real(RP), allocatable :: qexact(:,:,:)
164 real(RP), allocatable :: qexact_intrp(:,:,:)
165 !---------------------------------------------------------------------------
166
167 do lcdomid=1, mesh%LOCAL_MESH_NUM
168 lcmesh => mesh%lcmesh_list(lcdomid)
169 allocate( q(lcmesh%refElem1D%Np,lcmesh%Ne,base%var_num) )
170 allocate( qexact(lcmesh%refElem1D%Np,lcmesh%Ne,base%var_num) )
171 allocate( qexact_intrp(base%intrp_np,lcmesh%Ne,base%var_num) )
172
173 call set_data_lc( this, q, qexact, qexact_intrp, & ! (in)
174 lcmesh, lcmesh%refElem1D, base%epos_intrp ) ! (out)
175
176 call this%Evaluate_error_lc( &
177 num_error_l1_lc, num_error_l2_lc, num_error_linf_lc, &
178 numsol_mean_lc, exactsol_mean_lc, &
179 q, qexact, qexact_intrp, lcmesh, lcmesh%refElem1D )
180
181 deallocate( q, qexact, qexact_intrp )
182 end do
183
184 return
185 end subroutine evaluate_error_core
186
187!OCL SERIAL
188 subroutine calc_covariance_core( base, &
189 cov_numsol_numsol_lc, cov_numsol_exactsol_lc, cov_exactsol_exactsol_lc, &
190 numsol_mean, exactsol_mean )
191 implicit none
192 class(meshfieldanalysisnumerrorbase), intent(in) :: base
193 real(RP), intent(inout) :: cov_numsol_numsol_lc(base%var_num)
194 real(RP), intent(inout) :: cov_numsol_exactsol_lc(base%var_num)
195 real(RP), intent(inout) :: cov_exactsol_exactsol_lc(base%var_num)
196 real(RP), intent(in) :: numsol_mean(base%var_num)
197 real(RP), intent(in) :: exactsol_mean(base%var_num)
198
199 integer :: lcdomid
200 class(localmesh1d), pointer :: lcmesh
201 real(RP), allocatable :: q(:,:,:)
202 real(RP), allocatable :: qexact(:,:,:)
203 real(RP), allocatable :: qexact_intrp(:,:,:)
204 !---------------------------------------------------------------------------
205
206 do lcdomid=1, mesh%LOCAL_MESH_NUM
207 lcmesh => mesh%lcmesh_list(lcdomid)
208 allocate( q(lcmesh%refElem1D%Np,lcmesh%Ne,base%var_num) )
209 allocate( qexact(lcmesh%refElem1D%Np,lcmesh%Ne,base%var_num) )
210 allocate( qexact_intrp(base%intrp_np,lcmesh%Ne,base%var_num) )
211
212 call set_data_lc( this, q, qexact, qexact_intrp, & ! (in)
213 lcmesh, lcmesh%refElem1D, base%epos_intrp ) ! (out)
214
215 call this%Evaluate_covariance_lc( &
216 cov_numsol_exactsol_lc, cov_numsol_exactsol_lc, cov_exactsol_exactsol_lc, &
217 q, qexact, qexact_intrp, numsol_mean, exactsol_mean, lcmesh, lcmesh%refElem1D )
218
219 deallocate( q, qexact, qexact_intrp )
220 end do
221
222 return
223 end subroutine calc_covariance_core
224 end subroutine meshfield_analysis_numerror_1d_evaluate
225
226!-- 2D --
227
228 !-----------------------------------------------------------------------------
230!OCL SERIAL
231 subroutine meshfield_analysis_numerror_2d_init( this, &
232 porder_error_check, log_fname_base, log_step_interval, &
233 refElem2D )
234 implicit none
235 class(meshfieldanalysisnumerror2d), intent(inout) :: this
236 integer, intent(in) :: porder_error_check
237 character(len=*), intent(in) :: log_fname_base
238 integer, intent(in) :: log_step_interval
239 type(quadrilateralelement), intent(in) :: refElem2D
240 !---------------------------------------------------------------------------
241
242 call this%MeshFieldAnalysisNumerrorBase%Init( &
243 porder_error_check, 2, refelem2d%Np, porder_error_check**2, &
244 log_fname_base, log_step_interval )
245
246 this%IntrpMat(:,:) = refelem2d%GenIntGaussLegendreIntrpMat( &
247 this%PolyOrderErrorCheck, & ! (in)
248 this%intw_intrp, this%epos_intrp(:,1), this%epos_intrp(:,2) ) ! (out)
249
250 return
251 end subroutine meshfield_analysis_numerror_2d_init
252
253!OCL SERIAL
254 subroutine meshfield_analysis_numerror_2d_evaluate( &
255 this, tstep, tsec, mesh, set_data_lc )
256 implicit none
257 class(meshfieldanalysisnumerror2d), intent(inout) :: this
258 integer, intent(in) :: tstep
259 real(RP) :: tsec
260 class(meshbase2d), target, intent(in) :: mesh
261 interface
262 subroutine set_data_lc( this_, q, qexact, qexact_intrp, lcmesh, elem2D, intrp_epos )
263 import rp
264 import elementbase2d
265 import localmesh2d
266 import meshfieldanalysisnumerror2d
267 class(meshfieldanalysisnumerror2d), intent(in) :: this_
268 class(localmesh2d), intent(in) :: lcmesh
269 class(elementbase2d) :: elem2D
270 real(RP), intent(out) :: q(elem2D%Np,lcmesh%Ne,this_%var_num)
271 real(RP), intent(out) :: qexact(elem2D%Np,lcmesh%Ne,this_%var_num)
272 real(RP), intent(out) :: qexact_intrp(this_%intrp_np,lcmesh%Ne,this_%var_num)
273 real(RP), intent(in) :: intrp_epos(this_%intrp_np,this_%ndim)
274 end subroutine set_data_lc
275 end interface
276 !---------------------------------------------------------------------------
277
278 call this%Evaluate_base( tstep, tsec, mesh%dom_vol, evaluate_error_core, calc_covariance_core )
279
280 return
281 contains
282!OCL SERIAL
283 subroutine evaluate_error_core( base, &
284 num_error_l1_lc, num_error_l2_lc, num_error_linf_lc, &
285 numsol_mean_lc, exactsol_mean_lc )
286 implicit none
287 class(meshfieldanalysisnumerrorbase), intent(in) :: base
288 real(RP), intent(inout) :: num_error_l1_lc(base%var_num)
289 real(RP), intent(inout) :: num_error_l2_lc(base%var_num)
290 real(RP), intent(inout) :: num_error_linf_lc(base%var_num)
291 real(RP), intent(inout) :: numsol_mean_lc(base%var_num)
292 real(RP), intent(inout) :: exactsol_mean_lc(base%var_num)
293
294 integer :: lcdomid
295 class(localmesh2d), pointer :: lcmesh
296 real(RP), allocatable :: q(:,:,:)
297 real(RP), allocatable :: qexact(:,:,:)
298 real(RP), allocatable :: qexact_intrp(:,:,:)
299 !---------------------------------------------------------------------------
300
301 do lcdomid=1, mesh%LOCAL_MESH_NUM
302 lcmesh => mesh%lcmesh_list(lcdomid)
303 allocate( q(lcmesh%refElem2D%Np,lcmesh%Ne,base%var_num) )
304 allocate( qexact(lcmesh%refElem2D%Np,lcmesh%Ne,base%var_num) )
305 allocate( qexact_intrp(base%intrp_np,lcmesh%Ne,base%var_num) )
306
307 call set_data_lc( this, q, qexact, qexact_intrp, & ! (in)
308 lcmesh, lcmesh%refElem2D, base%epos_intrp ) ! (out)
309
310 call this%Evaluate_error_lc( &
311 num_error_l1_lc, num_error_l2_lc, num_error_linf_lc, &
312 numsol_mean_lc, exactsol_mean_lc, &
313 q, qexact, qexact_intrp, lcmesh, lcmesh%refElem2D )
314
315 deallocate( q, qexact, qexact_intrp )
316 end do
317
318 return
319 end subroutine evaluate_error_core
320
321!OCL SERIAL
322 subroutine calc_covariance_core( base, &
323 cov_numsol_numsol_lc, cov_numsol_exactsol_lc, cov_exactsol_exactsol_lc, &
324 numsol_mean, exactsol_mean )
325 implicit none
326 class(meshfieldanalysisnumerrorbase), intent(in) :: base
327 real(RP), intent(inout) :: cov_numsol_numsol_lc(base%var_num)
328 real(RP), intent(inout) :: cov_numsol_exactsol_lc(base%var_num)
329 real(RP), intent(inout) :: cov_exactsol_exactsol_lc(base%var_num)
330 real(RP), intent(in) :: numsol_mean(base%var_num)
331 real(RP), intent(in) :: exactsol_mean(base%var_num)
332
333 integer :: lcdomid
334 class(localmesh2d), pointer :: lcmesh
335 real(RP), allocatable :: q(:,:,:)
336 real(RP), allocatable :: qexact(:,:,:)
337 real(RP), allocatable :: qexact_intrp(:,:,:)
338 !---------------------------------------------------------------------------
339
340 do lcdomid=1, mesh%LOCAL_MESH_NUM
341 lcmesh => mesh%lcmesh_list(lcdomid)
342 allocate( q(lcmesh%refElem2D%Np,lcmesh%Ne,base%var_num) )
343 allocate( qexact(lcmesh%refElem2D%Np,lcmesh%Ne,base%var_num) )
344 allocate( qexact_intrp(base%intrp_np,lcmesh%Ne,base%var_num) )
345
346 call set_data_lc( this, q, qexact, qexact_intrp, & ! (in)
347 lcmesh, lcmesh%refElem2D, base%epos_intrp ) ! (out)
348
349 call this%Evaluate_covariance_lc( &
350 cov_numsol_exactsol_lc, cov_numsol_exactsol_lc, cov_exactsol_exactsol_lc, &
351 q, qexact, qexact_intrp, numsol_mean, exactsol_mean, lcmesh, lcmesh%refElem2D )
352
353 deallocate( q, qexact, qexact_intrp )
354 end do
355
356 return
357 end subroutine calc_covariance_core
358 end subroutine meshfield_analysis_numerror_2d_evaluate
359
360!-- 3D --
361
362 !-----------------------------------------------------------------------------
364!OCL SERIAL
365 subroutine meshfield_analysis_numerror_3d_init( this, &
366 porder_error_check, log_fname_base, log_step_interval, &
367 refElem3D )
368 implicit none
369 class(meshfieldanalysisnumerror3d), intent(inout) :: this
370 integer, intent(in) :: porder_error_check
371 character(len=*), intent(in) :: log_fname_base
372 integer, intent(in) :: log_step_interval
373 type(hexahedralelement), intent(in) :: refElem3D
374 !---------------------------------------------------------------------------
375
376 call this%MeshFieldAnalysisNumerrorBase%Init( &
377 porder_error_check, 3, refelem3d%Np, porder_error_check**3, &
378 log_fname_base, log_step_interval )
379
380 this%IntrpMat(:,:) = refelem3d%GenIntGaussLegendreIntrpMat( &
381 this%PolyOrderErrorCheck, & ! (in)
382 this%intw_intrp, this%epos_intrp(:,1), this%epos_intrp(:,2), this%epos_intrp(:,3) ) ! (out)
383
384 return
385 end subroutine meshfield_analysis_numerror_3d_init
386
387!OCL SERIAL
388 subroutine meshfield_analysis_numerror_3d_evaluate( &
389 this, tstep, tsec, mesh, set_data_lc )
390 implicit none
391 class(meshfieldanalysisnumerror3d), intent(inout) :: this
392 integer, intent(in) :: tstep
393 real(RP) :: tsec
394 class(meshbase3d), target, intent(in) :: mesh
395 interface
396 subroutine set_data_lc( this_, q, qexact, qexact_intrp, lcmesh, elem3D, intrp_epos )
397 import rp
398 import elementbase3d
399 import localmesh3d
400 import meshfieldanalysisnumerror3d
401 class(meshfieldanalysisnumerror3d), intent(in) :: this_
402 class(localmesh3d), intent(in) :: lcmesh
403 class(elementbase3d) :: elem3D
404 real(RP), intent(out) :: q(elem3D%Np,lcmesh%Ne,this_%var_num)
405 real(RP), intent(out) :: qexact(elem3D%Np,lcmesh%Ne,this_%var_num)
406 real(RP), intent(out) :: qexact_intrp(this_%intrp_np,lcmesh%Ne,this_%var_num)
407 real(RP), intent(in) :: intrp_epos(this_%intrp_np,this_%ndim)
408 end subroutine set_data_lc
409 end interface
410 !---------------------------------------------------------------------------
411
412 call this%Evaluate_base( tstep, tsec, mesh%dom_vol, evaluate_error_core, calc_covariance_core )
413
414 return
415 contains
416!OCL SERIAL
417 subroutine evaluate_error_core( base, &
418 num_error_l1_lc, num_error_l2_lc, num_error_linf_lc, &
419 numsol_mean_lc, exactsol_mean_lc )
420 implicit none
421 class(meshfieldanalysisnumerrorbase), intent(in) :: base
422 real(RP), intent(inout) :: num_error_l1_lc(base%var_num)
423 real(RP), intent(inout) :: num_error_l2_lc(base%var_num)
424 real(RP), intent(inout) :: num_error_linf_lc(base%var_num)
425 real(RP), intent(inout) :: numsol_mean_lc(base%var_num)
426 real(RP), intent(inout) :: exactsol_mean_lc(base%var_num)
427
428 integer :: lcdomid
429 class(localmesh3d), pointer :: lcmesh
430 real(RP), allocatable :: q(:,:,:)
431 real(RP), allocatable :: qexact(:,:,:)
432 real(RP), allocatable :: qexact_intrp(:,:,:)
433 !---------------------------------------------------------------------------
434
435 do lcdomid=1, mesh%LOCAL_MESH_NUM
436 lcmesh => mesh%lcmesh_list(lcdomid)
437 allocate( q(lcmesh%refElem3D%Np,lcmesh%Ne,base%var_num) )
438 allocate( qexact(lcmesh%refElem3D%Np,lcmesh%Ne,base%var_num) )
439 allocate( qexact_intrp(base%intrp_np,lcmesh%Ne,base%var_num) )
440
441 call set_data_lc( this, q, qexact, qexact_intrp, & ! (in)
442 lcmesh, lcmesh%refElem3D, base%epos_intrp ) ! (out)
443
444 call this%Evaluate_error_lc( &
445 num_error_l1_lc, num_error_l2_lc, num_error_linf_lc, &
446 numsol_mean_lc, exactsol_mean_lc, &
447 q, qexact, qexact_intrp, lcmesh, lcmesh%refElem3D )
448
449 deallocate( q, qexact, qexact_intrp )
450 end do
451
452 return
453 end subroutine evaluate_error_core
454
455!OCL SERIAL
456 subroutine calc_covariance_core( base, &
457 cov_numsol_numsol_lc, cov_numsol_exactsol_lc, cov_exactsol_exactsol_lc, &
458 numsol_mean, exactsol_mean )
459 implicit none
460 class(meshfieldanalysisnumerrorbase), intent(in) :: base
461 real(RP), intent(inout) :: cov_numsol_numsol_lc(base%var_num)
462 real(RP), intent(inout) :: cov_numsol_exactsol_lc(base%var_num)
463 real(RP), intent(inout) :: cov_exactsol_exactsol_lc(base%var_num)
464 real(RP), intent(in) :: numsol_mean(base%var_num)
465 real(RP), intent(in) :: exactsol_mean(base%var_num)
466
467 integer :: lcdomid
468 class(localmesh3d), pointer :: lcmesh
469 real(RP), allocatable :: q(:,:,:)
470 real(RP), allocatable :: qexact(:,:,:)
471 real(RP), allocatable :: qexact_intrp(:,:,:)
472 !---------------------------------------------------------------------------
473
474 do lcdomid=1, mesh%LOCAL_MESH_NUM
475 lcmesh => mesh%lcmesh_list(lcdomid)
476 allocate( q(lcmesh%refElem3D%Np,lcmesh%Ne,base%var_num) )
477 allocate( qexact(lcmesh%refElem3D%Np,lcmesh%Ne,base%var_num) )
478 allocate( qexact_intrp(base%intrp_np,lcmesh%Ne,base%var_num) )
479
480 call set_data_lc( this, q, qexact, qexact_intrp, & ! (in)
481 lcmesh, lcmesh%refElem3D, base%epos_intrp ) ! (out)
482
483 call this%Evaluate_covariance_lc( &
484 cov_numsol_exactsol_lc, cov_numsol_exactsol_lc, cov_exactsol_exactsol_lc, &
485 q, qexact, qexact_intrp, numsol_mean, exactsol_mean, lcmesh, lcmesh%refElem3D )
486
487 deallocate( q, qexact, qexact_intrp )
488 end do
489
490 return
491 end subroutine calc_covariance_core
492 end subroutine meshfield_analysis_numerror_3d_evaluate
493
494!--- private
495
496end module scale_meshfield_analysis_numerror
scale_element_base
module FElib / Element / Base
Definition scale_element_base.F90:11
scale_element_hexahedral
module FElib / Element / hexahedron
Definition scale_element_hexahedral.F90:10
scale_element_line
module FElib / Element / line
Definition scale_element_line.F90:10
scale_element_quadrilateral
module FElib / Element / Quadrilateral
Definition scale_element_quadrilateral.F90:10
scale_localmesh_1d
module FElib / Mesh / Local 1D
Definition scale_localmesh_1d.F90:10
scale_localmesh_2d
module FElib / Mesh / Local 2D
Definition scale_localmesh_2d.F90:10
scale_localmesh_3d
module FElib / Mesh / Local 3D
Definition scale_localmesh_3d.F90:10
scale_localmesh_base
module FElib / Mesh / Local, Base
Definition scale_localmesh_base.F90:10
scale_localmeshfield_base
module FElib / Data / base
Definition scale_localmeshfield_base.F90:10
scale_mesh_base1d
module FElib / Mesh / Base 1D
Definition scale_mesh_base1d.F90:10
scale_mesh_base2d
module FElib / Mesh / Base 2D
Definition scale_mesh_base2d.F90:10
scale_mesh_base3d
module FElib / Mesh / Base 3D
Definition scale_mesh_base3d.F90:10
scale_mesh_base
module FElib / Mesh / Base
Definition scale_mesh_base.F90:10
scale_meshfield_analysis_numerror_base
module FElib / Data / Statistics / numerical error
Definition scale_meshfield_analysis_numerror_base.F90:12
scale_meshfield_analysis_numerror
module FElib / Data / Statistics / numerical error
Definition scale_meshfield_analysis_numerror.F90:12
scale_meshfield_analysis_numerror::meshfield_analysis_numerror_1d_init
subroutine meshfield_analysis_numerror_1d_init(this, porder_error_check, log_fname_base, log_step_interval, refelem1d)
Initialize a object to evaluate numerical error for 1D field.
Definition scale_meshfield_analysis_numerror.F90:100
scale_meshfield_base
module FElib / Data / base
Definition scale_meshfield_base.F90:10
scale_time_manager
module common / time
Definition scale_time_manager.F90:11
scale_element_base::elementbase1d
Definition scale_element_base.F90:51
scale_element_base::elementbase2d
Definition scale_element_base.F90:68
scale_element_base::elementbase3d
Definition scale_element_base.F90:103
scale_element_base::elementbase
Definition scale_element_base.F90:29
scale_element_hexahedral::hexahedralelement
Definition scale_element_hexahedral.F90:29
scale_element_line::lineelement
Definition scale_element_line.F90:30
scale_element_quadrilateral::quadrilateralelement
Definition scale_element_quadrilateral.F90:30
scale_localmesh_1d::localmesh1d
Definition scale_localmesh_1d.F90:29
scale_localmesh_2d::localmesh2d
Definition scale_localmesh_2d.F90:29
scale_localmesh_3d::localmesh3d
Definition scale_localmesh_3d.F90:30
scale_localmesh_base::localmeshbase
Definition scale_localmesh_base.F90:30
scale_localmeshfield_base::localmeshfieldbase
Definition scale_localmeshfield_base.F90:42
scale_mesh_base1d::meshbase1d
Definition scale_mesh_base1d.F90:36
scale_mesh_base2d::meshbase2d
Definition scale_mesh_base2d.F90:34
scale_mesh_base3d::meshbase3d
Definition scale_mesh_base3d.F90:36
scale_mesh_base::meshbase
Definition scale_mesh_base.F90:38
scale_meshfield_analysis_numerror::meshfieldanalysisnumerror1d
Definition scale_meshfield_analysis_numerror.F90:54
scale_meshfield_analysis_numerror::meshfieldanalysisnumerror2d
Definition scale_meshfield_analysis_numerror.F90:61
scale_meshfield_analysis_numerror::meshfieldanalysisnumerror3d
Definition scale_meshfield_analysis_numerror.F90:68
scale_meshfield_analysis_numerror_base::meshfieldanalysisnumerrorbase
Definition scale_meshfield_analysis_numerror_base.F90:41
scale_meshfield_base::meshfield1d
Definition scale_meshfield_base.F90:65
scale_meshfield_base::meshfield2d
Definition scale_meshfield_base.F90:74
scale_meshfield_base::meshfield3d
Definition scale_meshfield_base.F90:83
scale_meshfield_base::meshfieldbase
Definition scale_meshfield_base.F90:44
Generated by doxygen 1.10.0