source: LMDZ4/trunk/libf/dyn3d/iniconst.F @ 802

Last change on this file since 802 was 524, checked in by lmdzadmin, 21 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1!
2! $Header$
3!
4      SUBROUTINE iniconst
5
6      IMPLICIT NONE
7c
8c      P. Le Van
9c
10c-----------------------------------------------------------------------
11c   Declarations:
12c   -------------
13c
14#include "dimensions.h"
15#include "paramet.h"
16#include "comconst.h"
17#include "temps.h"
18#include "control.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
37c-----------------------------------------------------------------------
38
39      dtdiss  = idissip * dtvr
40      dtphys  = iphysiq * dtvr
41      unsim   = 1./iim
42      pi      = 2.*ASIN( 1. )
43
44c-----------------------------------------------------------------------
45c
46
47      r       = cpp * kappa
48
49      PRINT*,' R  CP  Kappa ',  r , cpp,  kappa
50c
51c-----------------------------------------------------------------------
52
53       CALL disvert(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
54c
55c
56       RETURN
57       END
Note: See TracBrowser for help on using the repository browser.