mirror of
https://gitlab.com/scemama/eplf
synced 2024-12-23 04:43:52 +01:00
40 lines
924 B
Fortran
40 lines
924 B
Fortran
program eplf
|
|
implicit none
|
|
provide mpi_rank
|
|
|
|
if (comp_eplf) then
|
|
call set_grid_data_eplf(grid_eplf)
|
|
FREE grid_eplf
|
|
endif
|
|
if (comp_eplf_grad.or.comp_eplf_lapl) then
|
|
call set_grid_data_eplf_grad(grid_eplf_grad)
|
|
call set_grid_data_eplf_lapl(grid_eplf_lapl)
|
|
FREE grid_eplf_grad
|
|
FREE grid_eplf_lapl
|
|
endif
|
|
|
|
if (comp_elf) then
|
|
call set_grid_data_elf(grid_elf)
|
|
FREE grid_elf
|
|
endif
|
|
if (comp_elf_grad.or.comp_elf_lapl) then
|
|
call set_grid_data_elf_grad(grid_elf_grad)
|
|
call set_grid_data_elf_lapl(grid_elf_lapl)
|
|
FREE grid_elf_grad
|
|
FREE grid_elf_lapl
|
|
endif
|
|
|
|
if (comp_density) then
|
|
call set_grid_data_density(grid_density)
|
|
FREE grid_density
|
|
endif
|
|
if (comp_density_grad.or.comp_density_lapl) then
|
|
call set_grid_data_density_grad(grid_density_grad)
|
|
call set_grid_data_density_lapl(grid_density_lapl)
|
|
FREE grid_density_grad
|
|
FREE grid_density_lapl
|
|
endif
|
|
call finish()
|
|
end
|
|
|