source: trunk/LMDZ.GENERIC/libf/dyn3d/iniconst.F @ 2236

Last change on this file since 2236 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.3 KB
Line 
1      SUBROUTINE iniconst
2
3      use control_mod, only: iphysiq, dissip_period
4      USE comconst_mod, ONLY: im,jm,lllm,imp1,jmp1,lllmp1,lllmm1,
5     .                  dtdiss,dtvr,dtphys,pi,r,cpp,kappa,unsim
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
43!      print*,'iphysiq=',iphysiq
44!      print*,'dtvr=',dtvr
45!      print*,'dtphys=',dtphys
46!      stop
47
48c-----------------------------------------------------------------------
49c
50
51      r       = cpp * kappa
52
53      PRINT*,' R  CPP  Kappa ',  r , cpp,  kappa
54c
55c-----------------------------------------------------------------------
56      CALL disvert
57c
58c
59      RETURN
60      END
Note: See TracBrowser for help on using the repository browser.