get_fname_by_face Function

public function get_fname_by_face(fname, face) result(name)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: fname
integer, intent(in) :: face

Return Value character(len=:), allocatable


Calls

proc~~get_fname_by_face~~CallsGraph proc~get_fname_by_face NCIOMod::get_fname_by_face proc~i_to_string pFIO_UtilitiesMod::i_to_string proc~get_fname_by_face->proc~i_to_string interface~mapl_assert MAPL_ErrorHandlingMod::MAPL_Assert proc~i_to_string->interface~mapl_assert proc~mapl_return MAPL_ErrorHandlingMod::MAPL_Return proc~i_to_string->proc~mapl_return at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_ThrowMod::MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Called by

proc~~get_fname_by_face~~CalledByGraph proc~get_fname_by_face NCIOMod::get_fname_by_face proc~mapl_esmfstatereadfromfile MAPL_GenericMod::MAPL_ESMFStateReadFromFile proc~mapl_esmfstatereadfromfile->proc~get_fname_by_face proc~mapl_genericinitialize MAPL_GenericMod::MAPL_GenericInitialize proc~mapl_genericinitialize->proc~mapl_esmfstatereadfromfile proc~mapl_genericrefresh MAPL_GenericMod::MAPL_GenericRefresh proc~mapl_genericrefresh->proc~mapl_esmfstatereadfromfile proc~mapl_genericrefresh->proc~mapl_genericrefresh proc~mapl_genericstaterestore MAPL_GenericMod::MAPL_GenericStateRestore proc~mapl_genericstaterestore->proc~mapl_esmfstatereadfromfile proc~mapl_genericstaterestore->proc~mapl_genericstaterestore

Source Code

   function get_fname_by_face(fname, face) result(name)
     character(len=:), allocatable :: name
     character(len=*), intent(in) :: fname
     integer, intent(in) :: face
     integer :: i

     i= index(fname,'_checkpoint')
     if (i /= 0) then
        name = fname(1:i-1)//'_face_'//i_to_string(face)//trim(fname(i:))
        return
     end if
     i= index(fname,'_rst')
     if (i /= 0) then
        name = fname(1:i-1)//'_face_'//i_to_string(face)//trim(fname(i:))
        return
     endif
     name = trim(fname)//'_face_'//i_to_string(face)

   end function get_fname_by_face