Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_GridComp) | :: | comp | ||||
type(ESMF_State) | :: | importState | ||||
type(ESMF_State) | :: | exportState | ||||
type(ESMF_Clock) | :: | clock | ||||
integer, | intent(out) | :: | rc |
subroutine user_init2(comp, importState, exportState, clock, rc) type(ESMF_GridComp) :: comp type(ESMF_State) :: importState, exportState type(ESMF_Clock) :: clock integer, intent(out) :: rc ! ! Local variables type(ESMF_Field) :: humidity type(mydata), pointer :: mydatablock type(wrapper) :: mywrapper rc = ESMF_SUCCESS print *, "User Comp Init 2 starting" ! This is where the model specific setup code goes. call ESMF_GridCompPrint(comp, rc=rc) if (rc/=ESMF_SUCCESS) return ! bail on error call ESMF_StatePrint(exportState, options="", rc=rc) if (rc/=ESMF_SUCCESS) return ! bail on error print *, "init, ready to call get data ptr" nullify(mydatablock) mywrapper%wrap => mydatablock call ESMF_GridCompGetInternalState(comp, mywrapper, rc) if (rc/=ESMF_SUCCESS) return ! bail on error mydatablock => mywrapper%wrap print *, "init, back from data ptr" print *, "init, data = ", mydatablock%index, & mydatablock%scale_factor, mydatablock%flag ! Add an empty "humidity" field to the export state. humidity = ESMF_FieldEmptyCreate(name="humidity", rc=rc) if (rc/=ESMF_SUCCESS) return ! bail on error call ESMF_StateAdd(exportState, (/humidity/), rc=rc) if (rc/=ESMF_SUCCESS) return ! bail on error call ESMF_StatePrint(exportState, rc=rc) if (rc/=ESMF_SUCCESS) return ! bail on error print *, "User Comp Init returning" end subroutine user_init2