source: LMDZ4/trunk/libf/dyn3d/inicons0.F @ 1068

Last change on this file since 1068 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
RevLine 
[524]1!
2! $Header$
3!
4      SUBROUTINE inicons0
5      IMPLICIT NONE
6c
7c  P. Le Van
8c
9c-----------------------------------------------------------------------
10c   Declarations:
11c   -------------
12c
13#include "dimensions.h"
14#include "paramet.h"
15#include "comconst.h"
16#include "temps.h"
17#include "control.h"
18#include "comvert.h"
19#include "comdissnew.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-----------------------------------------------------------------------
45      r       = cpp * kappa
46
47      PRINT*,' Cp R  kappa ',  cpp, r , kappa
48c
49c-----------------------------------------------------------------------
50
51       CALL disvert0(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
52c
53c
54       RETURN
55       END
Note: See TracBrowser for help on using the repository browser.