const_NNT

INTERFACE:

    subroutine const_NNT(nlev,z,T_top,S_const,NN,gravity,rho_0,T)

DESCRIPTION:

This routine creates a vertical profile prof with value v1

USES:

    use eqstate
    IMPLICIT NONE

INPUT PARAMETERS:

    integer,  intent(in)                :: nlev
    REALTYPE, intent(in)                :: z(0:nlev)
    REALTYPE, intent(in)                :: T_top,S_const,NN
    REALTYPE, intent(in)                :: gravity,rho_0

OUTPUT PARAMETERS:

    REALTYPE, intent(out)               :: T(0:nlev)

REVISION HISTORY:

    Original author(s): Lars Umlauf
    $Log: const_NNT.F90,v $
    Revision 1.1  2005-06-27 10:54:33  kbk
    new files needed