const_NNS

INTERFACE:

    subroutine const_NNS(nlev,z,S_top,T_const,NN,gravity,rho_0,S)

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)                :: S_top,T_const,NN
    REALTYPE, intent(in)                :: gravity,rho_0

OUTPUT PARAMETERS:

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

REVISION HISTORY:

    Original author(s): Lars Umlauf
    $Log: const_NNS.F90,v $
    Revision 1.2  2008-05-15 10:08:49  lars
    fixed wrong sign
    Revision 1.1  2005-06-27 10:54:33  kbk
    new files needed