teardown Subroutine

public subroutine teardown(this)

Arguments

Type IntentOptional Attributes Name
class(ESMF_TestMethod), intent(inout) :: this

Calls

proc~~teardown~~CallsGraph proc~teardown teardown esmf_fielddestroy esmf_fielddestroy proc~teardown->esmf_fielddestroy esmf_statedestroy esmf_statedestroy proc~teardown->esmf_statedestroy

Source Code

   subroutine teardown(this)
      class(ESMF_TestMethod), intent(inout) :: this
      call ESMF_FieldDestroy(field_2d, noGarbage=.true.)
      call ESMF_FieldDestroy(field_3d, noGarbage=.true.)
      call ESMF_FieldDestroy(mask_field, noGarbage=.true.)
      call ESMF_StateDestroy(state, noGarbage=.true.)
   end subroutine teardown