00001 subroutine allocate_metric_and_matter_WL
00002 use phys_constant, only : long
00003 use grid_parameter
00004 use def_metric
00005 use def_matter
00006 use def_gamma_crist
00007 use def_gamma_crist_grid
00008 use def_metric_hij
00009 use def_metric_hij_dirac
00010 use def_metric_rotshift
00011 use def_ricci_tensor
00012 use def_metric_excurve_grid
00013 use def_shift_derivatives
00014 use def_shift_derivatives_grid
00015 use def_Lie_derivatives
00016 use def_Lie_derivatives_grid
00017 use def_matter_parameter
00018 use def_cristoffel
00019 use def_cristoffel_grid
00020 use def_vector_x
00021 use def_vector_phi
00022 use make_array_2d
00023 use make_array_3d
00024 use make_array_4d
00025 use make_array_5d
00026 implicit none
00027
00028 call alloc_array2d(rs, 0, ntf, 0, npf)
00029 call alloc_array3d(emdg, 0, nrg, 0, ntg, 0, npg)
00030 call alloc_array3d(emd, 0, nrf, 0, ntf, 0, npf)
00031 call alloc_array3d(utg, 0, nrg, 0, ntg, 0, npg)
00032 call alloc_array3d(utf, 0, nrf, 0, ntf, 0, npf)
00033 call alloc_array3d(lambda, 0, nrf, 0, ntf, 0, npf)
00034
00035 call allocate_metric_WL
00036 call allocate_metric_on_SFC_WL
00037
00038 call allocate_vector_x
00039 call allocate_vector_phi
00040 call allocate_metric_on_SFC_WL
00041
00042 end subroutine allocate_metric_and_matter_WL
