getfil

INTERFACE:

    subroutine getfil (fulpath, locfn, iflag)

DESCRIPTION:

Obtain local copy of file First check current working directory Next check full pathname[fulpath] on disk Finally check full pathname[fulpath] on archival system

USES:

      use shr_file_mod, only: shr_file_get
      use clm_varctl  , only: fget_archdev

ARGUMENTS:

      implicit none
      character(len=*), intent(in)  :: fulpath !Archival or permanent disk full pathname
      character(len=*), intent(out) :: locfn   !output local file name
      integer, optional, intent(in) :: iflag   !0=>abort if file not found 1=>do not abort

REVISION HISTORY:

   Created by Mariana Vertenstein

LOCAL VARIABLES: