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



Karsten Bolding 2012-12-28