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



Karsten Bolding 2012-01-24