comp2_init Subroutine

public subroutine comp2_init(gcomp, istate, ostate, clock, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: gcomp
type(ESMF_State) :: istate
type(ESMF_State) :: ostate
type(ESMF_Clock) :: clock
integer, intent(out) :: rc

Calls

proc~~comp2_init~~CallsGraph proc~comp2_init comp2_init esmf_fieldbundleadd esmf_fieldbundleadd proc~comp2_init->esmf_fieldbundleadd esmf_fieldbundlecreate esmf_fieldbundlecreate proc~comp2_init->esmf_fieldbundlecreate esmf_fieldcreate esmf_fieldcreate proc~comp2_init->esmf_fieldcreate esmf_fieldemptycreate esmf_fieldemptycreate proc~comp2_init->esmf_fieldemptycreate esmf_stateadd esmf_stateadd proc~comp2_init->esmf_stateadd interface~esmf_gridcreatenoperidim ESMF_GridCreateNoPeriDim proc~comp2_init->interface~esmf_gridcreatenoperidim proc~esmf_gridcompset ESMF_GridCompSet proc~comp2_init->proc~esmf_gridcompset proc~esmf_logfounderror ESMF_LogFoundError proc~comp2_init->proc~esmf_logfounderror proc~esmf_gridcreatenoperidima ESMF_GridCreateNoPeriDimA interface~esmf_gridcreatenoperidim->proc~esmf_gridcreatenoperidima proc~esmf_gridcreatenoperidimi ESMF_GridCreateNoPeriDimI interface~esmf_gridcreatenoperidim->proc~esmf_gridcreatenoperidimi proc~esmf_gridcreatenoperidimr ESMF_GridCreateNoPeriDimR interface~esmf_gridcreatenoperidim->proc~esmf_gridcreatenoperidimr proc~esmf_gridcompset->proc~esmf_logfounderror proc~esmf_clockgetinit ESMF_ClockGetInit proc~esmf_gridcompset->proc~esmf_clockgetinit proc~esmf_compset ESMF_CompSet proc~esmf_gridcompset->proc~esmf_compset proc~esmf_configgetinit ESMF_ConfigGetInit proc~esmf_gridcompset->proc~esmf_configgetinit proc~esmf_gridcompgetinit ESMF_GridCompGetInit proc~esmf_gridcompset->proc~esmf_gridcompgetinit proc~esmf_gridgetinit ESMF_GridGetInit proc~esmf_gridcompset->proc~esmf_gridgetinit proc~esmf_hconfiggetinit ESMF_HConfigGetInit proc~esmf_gridcompset->proc~esmf_hconfiggetinit proc~esmf_imerr ESMF_IMErr proc~esmf_gridcompset->proc~esmf_imerr 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

Source Code

subroutine comp2_init(gcomp, istate, ostate, clock, rc)
    type(ESMF_GridComp)  :: gcomp
    type(ESMF_State)     :: istate, ostate
    type(ESMF_Clock)     :: clock
    integer, intent(out) :: rc

    type(ESMF_Field)      :: field
    type(ESMF_FieldBundle):: fb
    type(ESMF_Grid)       :: grid
    integer               :: i
    character(40)         :: fieldName

    print *, "i am comp2_init"

    rc = ESMF_SUCCESS

    field = ESMF_FieldEmptyCreate(name="Comp2 Field", rc=rc)
    if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
      line=__LINE__, &
      file=FILENAME)) &
      return  ! bail out

    call ESMF_StateAdd(istate, (/field/), rc=rc)
    if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
      line=__LINE__, &
      file=FILENAME)) &
      return  ! bail out

    fb = ESMF_FieldBundleCreate(name="Comp2 FieldBundle", rc=rc)
    if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
      line=__LINE__, &
      file=FILENAME)) &
      return  ! bail out

    grid = ESMF_GridCreateNoPeriDim(name="Comp2 Grid", regDecomp=(/1,2/), &
      minIndex=(/1,1/), maxIndex=(/20,10/), rc=rc)
    if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
      line=__LINE__, &
      file=FILENAME)) &
      return  ! bail out

    do i=1,FB_MEMBER_COUNT
      write(fieldName,'("Comp2 Field ", I2, " in FB")') i

      field = ESMF_FieldCreate(name=trim(fieldName), grid=grid, &
        typekind=ESMF_TYPEKIND_R8, rc=rc)
      if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
        line=__LINE__, &
        file=FILENAME)) &
        return  ! bail out

      call ESMF_FieldBundleAdd(fb, (/field/), rc=rc)
      if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
        line=__LINE__, &
        file=FILENAME)) &
        return  ! bail out
    enddo

    call ESMF_StateAdd(istate, (/fb/), rc=rc)
    if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
      line=__LINE__, &
      file=FILENAME)) &
      return  ! bail out

    ! store the grid inside gcomp to provide access during run method for check
    call ESMF_GridCompSet(gcomp, grid=grid, rc=rc)
    if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
      line=__LINE__, &
      file=FILENAME)) &
      return  ! bail out

end subroutine comp2_init