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

Last change on this file since 1662 was 1594, checked in by emillour, 8 years ago

Mars and Generic "old" dynamics: to further harmonize with LMDZ.COMMON, replace "idissip" with "dissip_period".
EM
File size: 1.2 KB
Line 
1      SUBROUTINE iniconst
2
3      use control_mod, only: iphysiq, dissip_period
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  = dissip_period * 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.