putfil

INTERFACE:

    subroutine putfil(locfn, fulpath, pass, irt, lremov)

DESCRIPTION:

Dispose to archival system only if nonzero retention period. Put mswrite command in background for asynchronous behavior. The string put into 'cmd' below needs to be changed to the appropriate archival command for the users system if a shell command 'mswrite' does not exist.

USES:

      use shr_file_mod, only: shr_file_put

ARGUMENTS:

      implicit none
      character(len=*), intent(in) :: locfn   ! Local filename
      character(len=*), intent(in) :: fulpath ! archive full pathname
      character(len=*), intent(in) :: pass    ! write password
      integer, intent(in) :: irt              ! Archival system retention time
      logical, intent(in) :: lremov           ! true=>remove local file

REVISION HISTORY:

   Created by Mariana Vertenstein

LOCAL VARIABLES: