ESMF_FileFormatAsString Subroutine

private subroutine ESMF_FileFormatAsString(String, FileFormat)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(out) :: String
type(ESMF_FileFormat_Flag), intent(in) :: FileFormat

Called by

proc~~esmf_fileformatasstring~~CalledByGraph proc~esmf_fileformatasstring ESMF_FileFormatAsString interface~assignment (=)~2 assignment (=) interface~assignment (=)~2->proc~esmf_fileformatasstring

Source Code

subroutine ESMF_FileFormatAsString(String, FileFormat)
  character(len=*), intent(out) :: String
  type(ESMF_FileFormat_Flag), intent(in) :: FileFormat

  if (FileFormat == ESMF_FILEFORMAT_UNKNOWN) then
     String = 'ESMF_FILEFORMAT_UNKNOWN'
  else if (FileFormat == ESMF_FILEFORMAT_VTK) then
     String = 'ESMF_FILEFORMAT_VTK'
  else if (FileFormat == ESMF_FILEFORMAT_SCRIP) then
     String = 'ESMF_FILEFORMAT_SCRIP'
  else if (FileFormat == ESMF_FILEFORMAT_ESMFMESH) then
     String = 'ESMF_FILEFORMAT_ESMFMESH'
  else if (FileFormat == ESMF_FILEFORMAT_ESMFGRID) then
     String = 'ESMF_FILEFORMAT_ESMFGRID'
  else if (FileFormat == ESMF_FILEFORMAT_UGRID) then
     String = 'ESMF_FILEFORMAT_UGRID'
  else if (FileFormat == ESMF_FILEFORMAT_CFGRID) then
     ! Note that ESMF_FILEFORMAT_CFGRID is the same as ESMF_FILEFORMAT_GRIDSPEC
     String = 'ESMF_FILEFORMAT_CFGRID/ESMF_FILEFORMAT_GRIDSPEC'
  else if (FileFormat == ESMF_FILEFORMAT_MOSAIC) then
     String = 'ESMF_FILEFORMAT_MOSAIC'
  else if (FileFormat == ESMF_FILEFORMAT_TILE) then
     String = 'ESMF_FILEFORMAT_TILE'
  else
     String = '(Unexpected ESMF_FILEFORMAT value)'
  end if
end subroutine ESMF_FileFormatAsString