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