source: LMDZ5/branches/testing/libf/dyn3dmem/iniconst.F @ 1669

!
! $Id: iniconst.F 1403 2010-07-01 09:02:53Z fairhead $
!
      SUBROUTINE iniconst

      USE control_mod

      IMPLICIT NONE
c
c      P. Le Van
c
c-----------------------------------------------------------------------
c   Declarations:
c   -------------
c
#include "dimensions.h"
#include "paramet.h"
#include "comconst.h"
#include "temps.h"
#include "comvert.h"
#include "iniprint.h"


c
c
c
c-----------------------------------------------------------------------
c   dimension des boucles:
c   ----------------------

      im      = iim
      jm      = jjm
      lllm    = llm
      imp1    = iim 
      jmp1    = jjm + 1
      lllmm1  = llm - 1
      lllmp1  = llm + 1

      if (planet_type=="earth") then
        disvert_type=1
      else
        disvert_type=2
      endif

c-----------------------------------------------------------------------

      dtdiss  = idissip * dtvr
      dtphys  = iphysiq * dtvr
      unsim   = 1./iim
      pi      = 2.*ASIN( 1. )

c-----------------------------------------------------------------------
c

      r       = cpp * kappa

      write(lunout,*)'iniconst: R  CP  Kappa ',  r , cpp,  kappa
c
c-----------------------------------------------------------------------

       CALL disvert(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
c
c
       RETURN
       END