metric() - calculate metric coefficients

INTERFACE:

    subroutine metric()
    IMPLICIT NONE

DESCRIPTION:

Computes the grid increments and areas related to the metric coefficients.

REVISION HISTORY:

    Original author(s): Lars Umlauf

LOCAL VARIABLES:

    integer                   :: i,j