ESMF_FieldSMMStoreFromFile Subroutine

private subroutine ESMF_FieldSMMStoreFromFile(srcField, dstField, filename, routehandle, keywordEnforcer, ignoreUnmatchedIndices, srcTermProcessing, pipeLineDepth, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Field), intent(in) :: srcField
type(ESMF_Field), intent(inout) :: dstField
character(len=*), intent(in) :: filename
type(ESMF_RouteHandle), intent(inout) :: routehandle
type(ESMF_KeywordEnforcer), optional :: keywordEnforcer
logical, intent(in), optional :: ignoreUnmatchedIndices
integer, intent(inout), optional :: srcTermProcessing
integer, intent(inout), optional :: pipeLineDepth
integer, intent(out), optional :: rc

Calls

proc~~esmf_fieldsmmstorefromfile~~CallsGraph proc~esmf_fieldsmmstorefromfile ESMF_FieldSMMStoreFromFile interface~esmf_fieldsmmstore ESMF_FieldSMMStore proc~esmf_fieldsmmstorefromfile->interface~esmf_fieldsmmstore proc~esmf_factorread ESMF_FactorRead proc~esmf_fieldsmmstorefromfile->proc~esmf_factorread proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_fieldsmmstorefromfile->proc~esmf_logfounderror interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorefromfile proc~esmf_fieldsmmstorefromfiletr ESMF_FieldSMMStoreFromFileTR interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorefromfiletr proc~esmf_fieldsmmstorei4 ESMF_FieldSMMStoreI4 interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorei4 proc~esmf_fieldsmmstorei4tr ESMF_FieldSMMStoreI4TR interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorei4tr proc~esmf_fieldsmmstorei8 ESMF_FieldSMMStoreI8 interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorei8 proc~esmf_fieldsmmstorei8tr ESMF_FieldSMMStoreI8TR interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorei8tr proc~esmf_fieldsmmstorenf ESMF_FieldSMMStoreNF interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorenf proc~esmf_fieldsmmstorenftr ESMF_FieldSMMStoreNFTR interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorenftr proc~esmf_fieldsmmstorer4 ESMF_FieldSMMStoreR4 interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorer4 proc~esmf_fieldsmmstorer4tr ESMF_FieldSMMStoreR4TR interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorer4tr proc~esmf_fieldsmmstorer8 ESMF_FieldSMMStoreR8 interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorer8 proc~esmf_fieldsmmstorer8tr ESMF_FieldSMMStoreR8TR interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorer8tr proc~esmf_logseterror ESMF_LogSetError proc~esmf_factorread->proc~esmf_logseterror esmf_breakpoint esmf_breakpoint proc~esmf_logfounderror->esmf_breakpoint proc~esmf_logrc2msg ESMF_LogRc2Msg proc~esmf_logfounderror->proc~esmf_logrc2msg proc~esmf_logwrite ESMF_LogWrite proc~esmf_logfounderror->proc~esmf_logwrite proc~esmf_fieldsmmstorefromfiletr->interface~esmf_fieldsmmstore proc~esmf_fieldsmmstorefromfiletr->proc~esmf_factorread proc~esmf_fieldsmmstorefromfiletr->proc~esmf_logfounderror proc~esmf_fieldsmmstorei4->proc~esmf_logfounderror esmf_fieldget esmf_fieldget proc~esmf_fieldsmmstorei4->esmf_fieldget interface~esmf_arraysmmstore ESMF_ArraySMMStore proc~esmf_fieldsmmstorei4->interface~esmf_arraysmmstore proc~esmf_fieldgetinit ESMF_FieldGetInit proc~esmf_fieldsmmstorei4->proc~esmf_fieldgetinit proc~esmf_imerr ESMF_IMErr proc~esmf_fieldsmmstorei4->proc~esmf_imerr proc~esmf_fieldsmmstorei4tr->proc~esmf_logfounderror proc~esmf_fieldsmmstorei4tr->esmf_fieldget proc~esmf_fieldsmmstorei4tr->interface~esmf_arraysmmstore proc~esmf_fieldsmmstorei4tr->proc~esmf_fieldgetinit proc~esmf_fieldsmmstorei4tr->proc~esmf_imerr proc~esmf_fieldsmmstorei8->proc~esmf_logfounderror proc~esmf_fieldsmmstorei8->esmf_fieldget proc~esmf_fieldsmmstorei8->interface~esmf_arraysmmstore proc~esmf_fieldsmmstorei8->proc~esmf_fieldgetinit proc~esmf_fieldsmmstorei8->proc~esmf_imerr proc~esmf_fieldsmmstorei8tr->proc~esmf_logfounderror proc~esmf_fieldsmmstorei8tr->esmf_fieldget proc~esmf_fieldsmmstorei8tr->interface~esmf_arraysmmstore proc~esmf_fieldsmmstorei8tr->proc~esmf_fieldgetinit proc~esmf_fieldsmmstorei8tr->proc~esmf_imerr proc~esmf_fieldsmmstorenf->proc~esmf_logfounderror proc~esmf_fieldsmmstorenf->esmf_fieldget proc~esmf_fieldsmmstorenf->interface~esmf_arraysmmstore proc~esmf_fieldsmmstorenf->proc~esmf_fieldgetinit proc~esmf_fieldsmmstorenf->proc~esmf_imerr proc~esmf_fieldsmmstorenftr->proc~esmf_logfounderror proc~esmf_fieldsmmstorenftr->esmf_fieldget proc~esmf_fieldsmmstorenftr->interface~esmf_arraysmmstore proc~esmf_fieldsmmstorenftr->proc~esmf_fieldgetinit proc~esmf_fieldsmmstorenftr->proc~esmf_imerr proc~esmf_fieldsmmstorer4->proc~esmf_logfounderror proc~esmf_fieldsmmstorer4->esmf_fieldget proc~esmf_fieldsmmstorer4->interface~esmf_arraysmmstore proc~esmf_fieldsmmstorer4->proc~esmf_fieldgetinit proc~esmf_fieldsmmstorer4->proc~esmf_imerr proc~esmf_fieldsmmstorer4tr->proc~esmf_logfounderror proc~esmf_fieldsmmstorer4tr->esmf_fieldget proc~esmf_fieldsmmstorer4tr->interface~esmf_arraysmmstore proc~esmf_fieldsmmstorer4tr->proc~esmf_fieldgetinit proc~esmf_fieldsmmstorer4tr->proc~esmf_imerr proc~esmf_fieldsmmstorer8->proc~esmf_logfounderror proc~esmf_fieldsmmstorer8->esmf_fieldget proc~esmf_fieldsmmstorer8->interface~esmf_arraysmmstore proc~esmf_fieldsmmstorer8->proc~esmf_fieldgetinit proc~esmf_fieldsmmstorer8->proc~esmf_imerr proc~esmf_fieldsmmstorer8tr->proc~esmf_logfounderror proc~esmf_fieldsmmstorer8tr->esmf_fieldget proc~esmf_fieldsmmstorer8tr->interface~esmf_arraysmmstore proc~esmf_fieldsmmstorer8tr->proc~esmf_fieldgetinit proc~esmf_fieldsmmstorer8tr->proc~esmf_imerr c_esmc_loggeterrormsg c_esmc_loggeterrormsg proc~esmf_logrc2msg->c_esmc_loggeterrormsg proc~esmf_logseterror->esmf_breakpoint proc~esmf_logseterror->proc~esmf_logrc2msg proc~esmf_logseterror->proc~esmf_logwrite c_esmc_vmwtime c_esmc_vmwtime proc~esmf_logwrite->c_esmc_vmwtime proc~esmf_logclose ESMF_LogClose proc~esmf_logwrite->proc~esmf_logclose proc~esmf_logflush ESMF_LogFlush proc~esmf_logwrite->proc~esmf_logflush proc~esmf_logopenfile ESMF_LogOpenFile proc~esmf_logwrite->proc~esmf_logopenfile proc~esmf_utiliounitflush ESMF_UtilIOUnitFlush proc~esmf_logwrite->proc~esmf_utiliounitflush proc~esmf_utilstring2array ESMF_UtilString2Array proc~esmf_logwrite->proc~esmf_utilstring2array

Called by

proc~~esmf_fieldsmmstorefromfile~~CalledByGraph proc~esmf_fieldsmmstorefromfile ESMF_FieldSMMStoreFromFile interface~esmf_fieldsmmstore ESMF_FieldSMMStore proc~esmf_fieldsmmstorefromfile->interface~esmf_fieldsmmstore interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorefromfile proc~esmf_fieldsmmstorefromfiletr ESMF_FieldSMMStoreFromFileTR interface~esmf_fieldsmmstore->proc~esmf_fieldsmmstorefromfiletr proc~esmf_fieldregridstorex ESMF_FieldRegridStoreX proc~esmf_fieldregridstorex->interface~esmf_fieldsmmstore proc~esmf_fieldsmmstorefromfiletr->interface~esmf_fieldsmmstore proc~f_esmf_smmstore f_esmf_smmstore proc~f_esmf_smmstore->interface~esmf_fieldsmmstore proc~test_regrid_store_from_file test_regrid_store_from_file proc~test_regrid_store_from_file->interface~esmf_fieldsmmstore proc~test_regridmatrix test_regridMatrix proc~test_regridmatrix->interface~esmf_fieldsmmstore proc~test_regridmatrixfactor test_regridMatrixFactor proc~test_regridmatrixfactor->interface~esmf_fieldsmmstore proc~test_regridsmmarbgrid test_regridSMMArbGrid proc~test_regridsmmarbgrid->interface~esmf_fieldsmmstore proc~user_init~28 user_init proc~user_init~28->interface~esmf_fieldsmmstore proc~user_init~84 user_init proc~user_init~84->interface~esmf_fieldsmmstore program~fieldsmmex FieldSMMEx program~fieldsmmex->interface~esmf_fieldsmmstore interface~esmf_fieldregridstore ESMF_FieldRegridStore interface~esmf_fieldregridstore->proc~esmf_fieldregridstorex program~esmf_fieldsmmfromfileutest ESMF_FieldSMMFromFileUTest program~esmf_fieldsmmfromfileutest->proc~test_regrid_store_from_file

Source Code

    subroutine ESMF_FieldSMMStoreFromFile(srcField, dstField, filename, &
      routehandle, keywordEnforcer, ignoreUnmatchedIndices, &
      srcTermProcessing, pipelineDepth, rc)

! ! ARGUMENTS:
      type(ESMF_Field),       intent(in)              :: srcField  
      type(ESMF_Field),       intent(inout)           :: dstField
      character(len=*),       intent(in)              :: filename
      type(ESMF_RouteHandle), intent(inout)           :: routehandle
type(ESMF_KeywordEnforcer), optional:: keywordEnforcer ! must use keywords below
      logical,                intent(in),    optional :: ignoreUnmatchedIndices
      integer,                intent(inout), optional :: srcTermProcessing
      integer,                intent(inout), optional :: pipeLineDepth
      integer,                intent(out),   optional :: rc
!
! !DESCRIPTION:
!
! Compute an {\tt ESMF\_RouteHandle} using factors read from file.
!
! The arguments are:
!
! \begin{description}
!
! \item [srcField]
!       {\tt ESMF\_Field} with source data.
!
! \item [dstField]
!       {\tt ESMF\_Field} with destination data. The data in this Field may be
!       destroyed by this call.
!
! \item [filename]
!       Path to the file containing weights for creating an {\tt ESMF\_RouteHandle}.
!       See ~(\ref{sec:weightfileformat}) for a description of the SCRIP weight
!       file format. Only "row", "col", and "S" variables are required. They
!       must be one-dimensionsal with dimension "n\_s".
!
! \item [routehandle]
!       Handle to the {\tt ESMF\_RouteHandle}.
!
!   \item [{[ignoreUnmatchedIndices]}]
!     A logical flag that affects the behavior for when sequence indices
!     in the sparse matrix are encountered that do not have a match on the
!     {\tt srcField} or {\tt dstField} side. The default setting is
!     {\tt .false.}, indicating that it is an error when such a situation is
!     encountered. Setting {\tt ignoreUnmatchedIndices} to {\tt .true.} ignores
!     entries with unmatched indices.
!
!   \item [{[srcTermProcessing]}]
!     The {\tt srcTermProcessing} parameter controls how many source terms,
!     located on the same PET and summing into the same destination element,
!     are summed into partial sums on the source PET before being transferred
!     to the destination PET. A value of 0 indicates that the entire arithmetic
!     is done on the destination PET; source elements are neither multiplied
!     by their factors nor added into partial sums before being sent off by the
!     source PET. A value of 1 indicates that source elements are multiplied
!     by their factors on the source side before being sent to the destination
!     PET. Larger values of {\tt srcTermProcessing} indicate the maximum number
!     of terms in the partial sums on the source side.
!
!     Note that partial sums may lead to bit-for-bit differences in the results.
!     See section \ref{RH:bfb} for an in-depth discussion of {\em all}
!     bit-for-bit reproducibility aspects related to route-based communication
!     methods.
!
!     \begin{sloppypar}
!     The {\tt ESMF\_FieldSMMStore()} method implements an auto-tuning scheme
!     for the {\tt srcTermProcessing} parameter. The intent on the
!     {\tt srcTermProcessing} argument is "{\tt inout}" in order to
!     support both overriding and accessing the auto-tuning parameter.
!     If an argument $>= 0$ is specified, it is used for the
!     {\tt srcTermProcessing} parameter, and the auto-tuning phase is skipped.
!     In this case the {\tt srcTermProcessing} argument is not modified on
!     return. If the provided argument is $< 0$, the {\tt srcTermProcessing}
!     parameter is determined internally using the auto-tuning scheme. In this
!     case the {\tt srcTermProcessing} argument is re-set to the internally
!     determined value on return. Auto-tuning is also used if the optional
!     {\tt srcTermProcessing} argument is omitted.
!     \end{sloppypar}
!
!   \item [{[pipelineDepth]}]
!     The {\tt pipelineDepth} parameter controls how many messages a PET
!     may have outstanding during a sparse matrix exchange. Larger values
!     of {\tt pipelineDepth} typically lead to better performance. However,
!     on some systems too large a value may lead to performance degradation,
!     or runtime errors.
!
!     Note that the pipeline depth has no effect on the bit-for-bit
!     reproducibility of the results. However, it may affect the performance
!     reproducibility of the exchange.
!     The {\tt ESMF\_FieldSMMStore()} method implements an auto-tuning scheme
!     for the {\tt pipelineDepth} parameter. The intent on the
!     {\tt pipelineDepth} argument is "{\tt inout}" in order to
!     support both overriding and accessing the auto-tuning parameter.
!     If an argument $>= 0$ is specified, it is used for the
!     {\tt pipelineDepth} parameter, and the auto-tuning phase is skipped.
!     In this case the {\tt pipelineDepth} argument is not modified on
!     return. If the provided argument is $< 0$, the {\tt pipelineDepth}
!     parameter is determined internally using the auto-tuning scheme. In this
!     case the {\tt pipelineDepth} argument is re-set to the internally
!     determined value on return. Auto-tuning is also used if the optional
!     {\tt pipelineDepth} argument is omitted.
!
!   \item [{[rc]}]
!     Return code; equals {\tt ESMF\_SUCCESS} if there are no errors.
!
! \end{description}
!
!EOP
!-------------------------------------------------------------------------------

      ! LOCAL VARIABLES:
      real(ESMF_KIND_R8), dimension(:), allocatable :: factorList
      integer, dimension(:, :), allocatable :: factorIndexList
      integer :: localrc

      real(ESMF_KIND_R8), pointer :: src(:,:)

      ! Initialize return code; assume routine not implemented
      localrc = ESMF_RC_NOT_IMPL
      if (present(rc)) rc = ESMF_RC_NOT_IMPL

      ! Fill the factorList and factorIndexList.
      call ESMF_FactorRead(filename, &
                           factorList, &
                           factorIndexList, &
                           rc=localrc)
      if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
        ESMF_CONTEXT, rcToReturn=rc)) return

      ! Generate routeHandle from factorList and factorIndexList
      call ESMF_FieldSMMStore(srcField=srcField, &
                              dstField=dstField, &
                              routehandle=routeHandle, &
                              factorList=factorList, &
                              factorIndexList=factorIndexList,   &
                              ignoreUnmatchedIndices=ignoreUnmatchedIndices, &
                              srcTermProcessing=srcTermProcessing, &
                              pipeLineDepth=pipeLineDepth, &
                              rc=localrc)
      if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
        ESMF_CONTEXT, rcToReturn=rc)) return

      deallocate(factorList)
      deallocate(factorIndexList)

      if (present(rc)) rc = ESMF_SUCCESS

    end subroutine ESMF_FieldSMMStoreFromFile