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

Last change on this file since 1579 was 1422, checked in by milmd, 10 years ago

In GENERIC, MARS and COMMON models replace some include files by modules (usefull for decoupling physics with dynamics).

File size: 1.2 KB
Line 
1      SUBROUTINE iniconst
2
3      use control_mod, only: iphysiq, idissip
4      USE comconst_mod, ONLY: im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,
5     .                  dtdiss,dtvr,dtphys,unsim,r,cpp,kappa,pi
6      IMPLICIT NONE
7c
8c      P. Le Van
9c
10c-----------------------------------------------------------------------
11c   Declarations:
12c   -------------
13c
14#include "dimensions.h"
15#include "paramet.h"
16!#include "control.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.