2009-11-06 00:27:24 +01:00
|
|
|
program eplf
|
|
|
|
|
implicit none
|
|
|
|
|
provide mpi_rank
|
|
|
|
|
|
|
|
|
|
if (comp_eplf) then
|
2010-06-23 15:57:49 +02:00
|
|
|
PROVIDE grid_eplf
|
2009-11-06 00:27:24 +01:00
|
|
|
FREE grid_eplf
|
|
|
|
|
endif
|
|
|
|
|
if (comp_eplf_grad.or.comp_eplf_lapl) then
|
2010-06-23 15:57:49 +02:00
|
|
|
PROVIDE grid_eplf_grad
|
|
|
|
|
PROVIDE grid_eplf_lapl
|
2009-11-06 00:27:24 +01:00
|
|
|
FREE grid_eplf_grad
|
|
|
|
|
FREE grid_eplf_lapl
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
if (comp_elf) then
|
2010-06-23 15:57:49 +02:00
|
|
|
PROVIDE grid_elf
|
2009-11-06 00:27:24 +01:00
|
|
|
FREE grid_elf
|
|
|
|
|
endif
|
|
|
|
|
if (comp_elf_grad.or.comp_elf_lapl) then
|
2010-06-23 15:57:49 +02:00
|
|
|
PROVIDE grid_elf_grad
|
|
|
|
|
PROVIDE grid_elf_lapl
|
2009-11-06 00:27:24 +01:00
|
|
|
FREE grid_elf_grad
|
|
|
|
|
FREE grid_elf_lapl
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
if (comp_density) then
|
2010-06-23 15:57:49 +02:00
|
|
|
PROVIDE grid_density
|
2009-11-06 00:27:24 +01:00
|
|
|
FREE grid_density
|
|
|
|
|
endif
|
|
|
|
|
if (comp_density_grad.or.comp_density_lapl) then
|
2010-06-23 15:57:49 +02:00
|
|
|
PROVIDE grid_density_grad
|
|
|
|
|
PROVIDE grid_density_lapl
|
2009-11-06 00:27:24 +01:00
|
|
|
FREE grid_density_grad
|
|
|
|
|
FREE grid_density_lapl
|
|
|
|
|
endif
|
2010-06-24 10:40:51 +02:00
|
|
|
|
|
|
|
|
if (comp_elf_partition) then
|
|
|
|
|
PROVIDE grid_elf_partition
|
|
|
|
|
FREE grid_elf_partition
|
|
|
|
|
endif
|
|
|
|
|
if (comp_eplf_partition) then
|
|
|
|
|
PROVIDE grid_eplf_partition
|
|
|
|
|
FREE grid_eplf_partition
|
|
|
|
|
endif
|
|
|
|
|
if (comp_density_partition) then
|
|
|
|
|
PROVIDE grid_density_partition
|
|
|
|
|
FREE grid_density_partition
|
|
|
|
|
endif
|
2009-11-06 00:27:24 +01:00
|
|
|
call finish()
|
|
|
|
|
end
|
|
|
|
|
|
