00001subroutine coordinate_patch_cartesian00002 use grid_parameter_cartesian00003 use coordinate_grav_xyz00004 implicit none00005 ! call subroutines. the order is important.00006 call read_parameter_cartesian00007 call grid_xyz00008 end subroutine coordinate_patch_cartesian00009