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.
use shr_file_mod, only: shr_file_putARGUMENTS:
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 fileREVISION HISTORY:
Created by Mariana VertensteinLOCAL VARIABLES: