+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
subroutine delete_patch(gp, pp)
type(entcelltype)
type(patch), pointer