output_rank_filename Function

public function output_rank_filename(base_dir, prefix, rank) result(fname)

Generate a per-rank filename: /_rank_NNNNNN.nc

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: base_dir

Output directory
character(len=*), intent(in) :: prefix

File prefix (e.g. “output” or “restart”)
integer, intent(in) :: rank

MPI rank number

Return Value character(len=512)


Called by

proc~~output_rank_filename~~CalledByGraph proc~output_rank_filename output_rank_filename proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~output_rank_filename proc~engine_setup engine_setup proc~driver_run_ocean->proc~engine_setup proc~engine_configure_diag engine_configure_diag proc~engine_configure_diag->proc~output_rank_filename proc~engine_setup->proc~output_rank_filename proc~engine_setup->proc~engine_configure_diag proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create

Source Code

   function output_rank_filename(base_dir, prefix, rank) result(fname)
      !! Generate a per-rank filename: <base_dir>/<prefix>_rank_NNNNNN.nc
      character(len=*), intent(in) :: base_dir
         !! Output directory
      character(len=*), intent(in) :: prefix
         !! File prefix (e.g. "output" or "restart")
      integer, intent(in) :: rank
         !! MPI rank number
      character(len=512) :: fname

      write (fname, '(A,"/",A,"_rank_",I6.6,".nc")') &
         trim(base_dir), trim(prefix), rank

   end function output_rank_filename