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



Karsten Bolding 2012-12-28