teardown Subroutine

public subroutine teardown(this)

Arguments

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

Calls

proc~~teardown~6~~CallsGraph proc~teardown~6 teardown esmf_fielddestroy esmf_fielddestroy proc~teardown~6->esmf_fielddestroy esmf_statedestroy esmf_statedestroy proc~teardown~6->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(extra_2d, noGarbage=.true.)
      call ESMF_FieldDestroy(extra_3d, noGarbage=.true.)
      call ESMF_FieldDestroy(mask_field, noGarbage=.true.)
      call ESMF_StateDestroy(state, noGarbage=.true.)
   end subroutine teardown