test_uninit_array Subroutine

subroutine test_uninit_array(rc)

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: rc

Calls

proc~~test_uninit_array~~CallsGraph proc~test_uninit_array test_uninit_array esmf_fieldcreate esmf_fieldcreate proc~test_uninit_array->esmf_fieldcreate interface~esmf_distgridcreate ESMF_DistGridCreate proc~test_uninit_array->interface~esmf_distgridcreate interface~esmf_gridcreate ESMF_GridCreate proc~test_uninit_array->interface~esmf_gridcreate proc~esmf_logfounderror ESMF_LogFoundError proc~test_uninit_array->proc~esmf_logfounderror proc~esmf_distgridcreatedb ESMF_DistGridCreateDB interface~esmf_distgridcreate->proc~esmf_distgridcreatedb proc~esmf_distgridcreatedbai ESMF_DistGridCreateDBAI interface~esmf_distgridcreate->proc~esmf_distgridcreatedbai proc~esmf_distgridcreatedbai1d ESMF_DistGridCreateDBAI1D interface~esmf_distgridcreate->proc~esmf_distgridcreatedbai1d proc~esmf_distgridcreatedbai1d1de ESMF_DistGridCreateDBAI1D1DE interface~esmf_distgridcreate->proc~esmf_distgridcreatedbai1d1de proc~esmf_distgridcreatedbai1d1dei8 ESMF_DistGridCreateDBAI1D1DEI8 interface~esmf_distgridcreate->proc~esmf_distgridcreatedbai1d1dei8 proc~esmf_distgridcreatedbf ESMF_DistGridCreateDBF interface~esmf_distgridcreate->proc~esmf_distgridcreatedbf proc~esmf_distgridcreatedbt ESMF_DistGridCreateDBT interface~esmf_distgridcreate->proc~esmf_distgridcreatedbt proc~esmf_distgridcreatedbtf ESMF_DistGridCreateDBTF interface~esmf_distgridcreate->proc~esmf_distgridcreatedbtf proc~esmf_distgridcreatedg ESMF_DistGridCreateDG interface~esmf_distgridcreate->proc~esmf_distgridcreatedg proc~esmf_distgridcreatedgt ESMF_DistGridCreateDGT interface~esmf_distgridcreate->proc~esmf_distgridcreatedgt proc~esmf_distgridcreaterd ESMF_DistGridCreateRD interface~esmf_distgridcreate->proc~esmf_distgridcreaterd proc~esmf_distgridcreaterdf ESMF_DistGridCreateRDF interface~esmf_distgridcreate->proc~esmf_distgridcreaterdf proc~esmf_distgridcreaterdt ESMF_DistGridCreateRDT interface~esmf_distgridcreate->proc~esmf_distgridcreaterdt proc~esmf_distgridcreaterdtf ESMF_DistGridCreateRDTF interface~esmf_distgridcreate->proc~esmf_distgridcreaterdtf proc~esmf_gridcreatecopyfromnewdg ESMF_GridCreateCopyFromNewDG interface~esmf_gridcreate->proc~esmf_gridcreatecopyfromnewdg proc~esmf_gridcreatecopyfromreg ESMF_GridCreateCopyFromReg interface~esmf_gridcreate->proc~esmf_gridcreatecopyfromreg proc~esmf_gridcreateedgeconna ESMF_GridCreateEdgeConnA interface~esmf_gridcreate->proc~esmf_gridcreateedgeconna proc~esmf_gridcreateedgeconni ESMF_GridCreateEdgeConnI interface~esmf_gridcreate->proc~esmf_gridcreateedgeconni proc~esmf_gridcreateedgeconnr ESMF_GridCreateEdgeConnR interface~esmf_gridcreate->proc~esmf_gridcreateedgeconnr proc~esmf_gridcreatefrmdistgrid ESMF_GridCreateFrmDistGrid interface~esmf_gridcreate->proc~esmf_gridcreatefrmdistgrid proc~esmf_gridcreatefrmdistgridarb ESMF_GridCreateFrmDistGridArb interface~esmf_gridcreate->proc~esmf_gridcreatefrmdistgridarb proc~esmf_gridcreatefrmncfile ESMF_GridCreateFrmNCFile interface~esmf_gridcreate->proc~esmf_gridcreatefrmncfile proc~esmf_gridcreatefrmncfiledg ESMF_GridCreateFrmNCFileDG interface~esmf_gridcreate->proc~esmf_gridcreatefrmncfiledg 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

Called by

proc~~test_uninit_array~~CalledByGraph proc~test_uninit_array test_uninit_array program~esmf_fieldcreategetutest ESMF_FieldCreateGetUTest program~esmf_fieldcreategetutest->proc~test_uninit_array

Source Code

    subroutine test_uninit_array(rc)

        integer, intent(out)                :: rc

        type(ESMF_Array)                    :: array
        type(ESMF_Field)                    :: field
        type(ESMF_DistGrid)                 :: distgrid
        type(ESMF_Grid)                     :: grid
        integer                             :: localrc

        rc = ESMF_SUCCESS
        localrc = ESMF_SUCCESS

        distgrid = ESMF_DistGridCreate(minIndex=(/1, 1/), maxIndex=(/10, 10/), rc=localrc)
        if (ESMF_LogFoundError(localrc, &
            ESMF_ERR_PASSTHRU, &
            ESMF_CONTEXT, rcToReturn=rc)) return
        
        grid = ESMF_GridCreate(distgrid=distgrid, rc=localrc)
        if (ESMF_LogFoundError(localrc, &
            ESMF_ERR_PASSTHRU, &
            ESMF_CONTEXT, rcToReturn=rc)) return

        field = ESMF_FieldCreate(grid, array, datacopyflag=ESMF_DATACOPY_VALUE, rc=localrc)
        if (ESMF_LogFoundError(localrc, &
            ESMF_ERR_PASSTHRU, &
            ESMF_CONTEXT, rcToReturn=rc)) return

    end subroutine test_uninit_array