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



Karsten Bolding 2012-01-24