user_run Subroutine

public subroutine user_run(comp, importState, exportState, clock, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: comp
type(ESMF_State) :: importState
type(ESMF_State) :: exportState
type(ESMF_Clock) :: clock
integer, intent(out) :: rc

Calls

proc~~user_run~11~~CallsGraph proc~user_run~11 user_run esmf_arrayget esmf_arrayget proc~user_run~11->esmf_arrayget esmf_fieldget esmf_fieldget proc~user_run~11->esmf_fieldget esmf_stateget esmf_stateget proc~user_run~11->esmf_stateget interface~esmf_gridget ESMF_GridGet proc~user_run~11->interface~esmf_gridget proc~esmf_gridgetdefault ESMF_GridGetDefault interface~esmf_gridget->proc~esmf_gridgetdefault proc~esmf_gridgetplocalde ESMF_GridGetPLocalDe interface~esmf_gridget->proc~esmf_gridgetplocalde proc~esmf_gridgetplocaldepsloc ESMF_GridGetPLocalDePSloc interface~esmf_gridget->proc~esmf_gridgetplocaldepsloc proc~esmf_gridgetpsloc ESMF_GridGetPSloc interface~esmf_gridget->proc~esmf_gridgetpsloc proc~esmf_gridgetpslocptile ESMF_GridGetPSlocPTile interface~esmf_gridget->proc~esmf_gridgetpslocptile c_esmc_gridget c_esmc_gridget proc~esmf_gridgetdefault->c_esmc_gridget c_esmc_gridgetstatus c_esmc_gridgetstatus proc~esmf_gridgetdefault->c_esmc_gridgetstatus interface~c_esmc_getname c_ESMC_GetName proc~esmf_gridgetdefault->interface~c_esmc_getname interface~esmf_interarraycreate ESMF_InterArrayCreate proc~esmf_gridgetdefault->interface~esmf_interarraycreate proc~esmf_distgridsetinitcreated ESMF_DistGridSetInitCreated proc~esmf_gridgetdefault->proc~esmf_distgridsetinitcreated proc~esmf_gridgetdecomptype ESMF_GridGetDecompType proc~esmf_gridgetdefault->proc~esmf_gridgetdecomptype proc~esmf_gridgetinit ESMF_GridGetInit proc~esmf_gridgetdefault->proc~esmf_gridgetinit proc~esmf_imerr ESMF_IMErr proc~esmf_gridgetdefault->proc~esmf_imerr proc~esmf_interarraydestroy ESMF_InterArrayDestroy proc~esmf_gridgetdefault->proc~esmf_interarraydestroy proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_gridgetdefault->proc~esmf_logfounderror proc~esmf_logseterror ESMF_LogSetError proc~esmf_gridgetdefault->proc~esmf_logseterror proc~esmf_gridgetplocalde->interface~esmf_gridget c_esmc_gridgetplocalde c_esmc_gridgetplocalde proc~esmf_gridgetplocalde->c_esmc_gridgetplocalde proc~esmf_gridgetplocalde->interface~esmf_interarraycreate proc~esmf_gridgetplocalde->proc~esmf_gridgetdecomptype proc~esmf_gridgetplocalde->proc~esmf_gridgetinit proc~esmf_gridgetplocalde->proc~esmf_imerr proc~esmf_gridgetplocalde->proc~esmf_interarraydestroy proc~esmf_gridgetplocalde->proc~esmf_logfounderror proc~esmf_gridgetplocalde->proc~esmf_logseterror c_esmc_gridgetplocaldepsloc c_esmc_gridgetplocaldepsloc proc~esmf_gridgetplocaldepsloc->c_esmc_gridgetplocaldepsloc proc~esmf_gridgetplocaldepsloc->interface~esmf_interarraycreate proc~esmf_gridgetplocaldepsloc->proc~esmf_gridgetinit proc~esmf_gridgetplocaldepsloc->proc~esmf_imerr proc~esmf_gridgetplocaldepsloc->proc~esmf_interarraydestroy proc~esmf_gridgetplocaldepsloc->proc~esmf_logfounderror c_esmc_gridgetpsloc c_esmc_gridgetpsloc proc~esmf_gridgetpsloc->c_esmc_gridgetpsloc proc~esmf_gridgetpsloc->interface~esmf_interarraycreate proc~esmf_gridgetpsloc->proc~esmf_distgridsetinitcreated proc~esmf_gridgetpsloc->proc~esmf_gridgetinit proc~esmf_gridgetpsloc->proc~esmf_imerr proc~esmf_gridgetpsloc->proc~esmf_interarraydestroy proc~esmf_gridgetpsloc->proc~esmf_logfounderror c_esmc_gridgetpslocptile c_esmc_gridgetpslocptile proc~esmf_gridgetpslocptile->c_esmc_gridgetpslocptile proc~esmf_gridgetpslocptile->interface~esmf_interarraycreate proc~esmf_gridgetpslocptile->proc~esmf_gridgetinit proc~esmf_gridgetpslocptile->proc~esmf_imerr proc~esmf_gridgetpslocptile->proc~esmf_interarraydestroy proc~esmf_gridgetpslocptile->proc~esmf_logfounderror

Source Code

  subroutine user_run(comp, importState, exportState, clock, rc)
    type(ESMF_GridComp) :: comp
    type(ESMF_State) :: importState, exportState
    type(ESMF_Clock) :: clock
    integer, intent(out) :: rc

    ! Local variables
    real(ESMF_KIND_R8)    :: pi
    type(ESMF_Field)      :: field
    type(ESMF_Array)      :: array
    type(ESMF_Grid)       :: grid
    real(ESMF_KIND_R8), pointer :: farrayPtr(:,:)   ! matching F90 array pointer
    integer               :: i, j
    integer               :: compLBnd(2),compUBnd(2)
    
    ! Initialize return code
    rc = ESMF_SUCCESS

    print *, "User Comp2 Run starting"

    pi = 3.14159d0

    ! Get the destination Field from the import State
    call ESMF_StateGet(importState, itemName="field data", field=field, rc=rc)
    if (rc/=ESMF_SUCCESS) return ! bail out
   
    ! Get the Array from the Field
    call ESMF_FieldGet(field,grid=grid, array=array, rc=rc)
    if (rc/=ESMF_SUCCESS) return ! bail out

    ! Gain access to actual data via F90 array pointer
    call ESMF_ArrayGet(array, localDe=0, farrayPtr=farrayPtr, rc=rc)
    if (rc/=ESMF_SUCCESS) return ! bail out
      
    ! Get Bounds
    call ESMF_GridGet(grid, localDe=0, staggerloc=ESMF_STAGGERLOC_CENTER, &
           computationalLBound=compLBnd, computationalUBound=compUBnd, rc=rc)
    if (rc/=ESMF_SUCCESS) return ! bail out

    ! Test Array in import state against exact solution
    do j = compLBnd(2), compUBnd(2)
      do i = compLBnd(1), compUbnd(1)
        if (abs(farrayPtr(i,j) - (10.0d0 &
          + 5.0d0 * sin(real(i,ESMF_KIND_R8)/100.d0*pi) &
          + 2.0d0 * sin(real(j,ESMF_KIND_R8)/150.d0*pi))) > 1.d-8) then
          rc=ESMF_FAILURE
          write(*,*) "HERE!!!!!!"
          return ! bail out
        endif
      enddo
    enddo
 
    print *, "User Comp2 Run returning"

  end subroutine user_run