source: trunk/LMDZ.MARS/libf/dyn3d/iniconst.F @ 134

Last change on this file since 134 was 38, checked in by emillour, 14 years ago

Ajout du modè Martien (mon LMDZ.MARS.BETA, du 28/01/2011) dans le rértoire mars, pour pouvoir suivre plus facilement les modifs.
EM
File size: 1.1 KB
Line 
1      SUBROUTINE iniconst
2
3      IMPLICIT NONE
4c
5c      P. Le Van
6c
7c-----------------------------------------------------------------------
8c   Declarations:
9c   -------------
10c
11#include "dimensions.h"
12#include "paramet.h"
13#include "comconst.h"
14#include "temps.h"
15#include "control.h"
16#include "comvert.h"
17
18
19      INTEGER :: l
20c
21c
22      EXTERNAL disvert
23c
24c-----------------------------------------------------------------------
25c   dimension des boucles:
26c   ----------------------
27
28      im      = iim
29      jm      = jjm
30      lllm    = llm
31      imp1    = iim
32      jmp1    = jjm + 1
33      lllmm1  = llm - 1
34      lllmp1  = llm + 1
35
36c-----------------------------------------------------------------------
37
38      dtdiss  = idissip * dtvr
39      dtphys  = iphysiq * dtvr
40      unsim   = 1./iim
41      pi      = 2.*ASIN( 1. )
42
43c-----------------------------------------------------------------------
44c
45
46      r       = cpp * kappa
47
48      PRINT*,' R  CPP  Kappa ',  r , cpp,  kappa
49c
50c-----------------------------------------------------------------------
51      CALL disvert
52c
53c
54      RETURN
55      END
Note: See TracBrowser for help on using the repository browser.