source: LMDZ5/trunk/libf/iniconst.F @ 1630

Last change on this file since 1630 was 1630, checked in by Laurent Fairhead, 12 years ago

Importation initiale du répertoire dyn3dmem

Initial import of dyn3dmem directory
File size: 1.2 KB
Line 
1!
2! $Id: iniconst.F 1299 2010-01-20 14:27:21Z fairhead $
3!
4      SUBROUTINE iniconst
5
6      USE control_mod
7      IMPLICIT NONE
8c
9c      P. Le Van
10c
11c-----------------------------------------------------------------------
12c   Declarations:
13c   -------------
14c
15#include "dimensions.h"
16#include "paramet.h"
17#include "comconst.h"
18#include "temps.h"
19#include "comvert.h"
20
21
22c
23c
24c
25c-----------------------------------------------------------------------
26c   dimension des boucles:
27c   ----------------------
28
29      im      = iim
30      jm      = jjm
31      lllm    = llm
32      imp1    = iim
33      jmp1    = jjm + 1
34      lllmm1  = llm - 1
35      lllmp1  = llm + 1
36
37      if (planet_type=="earth") then
38        disvert_type=1
39      else
40        disvert_type=2
41      endif
42
43c-----------------------------------------------------------------------
44
45      dtdiss  = idissip * dtvr
46      dtphys  = iphysiq * dtvr
47      unsim   = 1./iim
48      pi      = 2.*ASIN( 1. )
49
50c-----------------------------------------------------------------------
51c
52
53      r       = cpp * kappa
54
55      PRINT*,' R  CP  Kappa ',  r , cpp,  kappa
56c
57c-----------------------------------------------------------------------
58
59       CALL disvert(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
60c
61c
62       RETURN
63       END
Note: See TracBrowser for help on using the repository browser.