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_rotshift
00010 use def_ricci_tensor
00011 use def_metric_excurve_grid
00012 use def_shift_derivatives
00013 use def_shift_derivatives_grid
00014 use def_Lie_derivatives
00015 use def_Lie_derivatives_grid
00016 use def_matter_parameter
00017 use def_cristoffel
00018 use def_cristoffel_grid
00019 use def_matter
00020 use def_vector_x
00021 use def_vector_phi
00022 use make_array_2d
00023 use make_array_4d
00024 use make_array_4d
00025 use make_array_5d
00026 implicit none
00027
00028 call alloc_array4d(rs, 0, ntf, 0, npf)
00029 call alloc_array4d(em_d, 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00030 call alloc_array4d(utf_, 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00031 call alloc_array4d(lambda_, 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00032 call alloc_array4d(psi_, 0, nrg, 0, ntg, 0, npg,1,nmpt, 1, nmpt)
00033 call alloc_array4d(alph_, 0, nrg, 0, ntg, 0, npg,1,nmpt, 1, nmpt)
00034 call alloc_array4d(bvxd_, 0, nrg, 0, ntg, 0, npg,1,nmpt, 1, nmpt)
00035 call alloc_array4d(bvyd_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00036 call alloc_array4d(bvzd_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00037
00038 call alloc_array4d(alps2_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00039 call alloc_array4d(bvxu_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00040 call alloc_array4d(bvyu_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00041 call alloc_array4d(bvzu_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00042 call alloc_array4d(hxxd_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00043 call alloc_array4d(hxyd_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00044 call alloc_array4d(hxzd_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00045 call alloc_array4d(hyyd_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00046 call alloc_array4d(hyzd_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00047 call alloc_array4d(hzzd_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00048 call alloc_array4d(hxxu_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00049 call alloc_array4d(hxyu_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00050 call alloc_array4d(hxzu_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00051 call alloc_array4d(hyyu_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00052 call alloc_array4d(hyzu_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00053 call alloc_array4d(hzzu_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00054
00055
00056 call allocate_vector_x
00057 call allocate_vector_phi
00058
00059 end subroutine allocate_metric_and_matter_WL
