source: LMDZ.3.3/trunk/libf/dyn3d/inicons0.F @ 69

Last change on this file since 69 was 2, checked in by lmdz, 25 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1      SUBROUTINE inicons0
2      IMPLICIT NONE
3c
4c  P. Le Van
5c
6c-----------------------------------------------------------------------
7c   Declarations:
8c   -------------
9c
10#include "dimensions.h"
11#include "paramet.h"
12#include "comconst.h"
13#include "temps.h"
14#include "control.h"
15#include "comvert.h"
16#include "comdissnew.h"
17
18
19c
20c
21      EXTERNAL disvert0
22c
23c-----------------------------------------------------------------------
24c   dimension des boucles:
25c   ----------------------
26
27      im      = iim
28      jm      = jjm
29      lllm    = llm
30      imp1    = iim
31      jmp1    = jjm + 1
32      lllmm1  = llm - 1
33      lllmp1  = llm + 1
34
35c-----------------------------------------------------------------------
36
37      dtdiss  = idissip * dtvr
38      dtphys  = iphysiq * dtvr
39      unsim   = 1./iim
40      pi      = 2.*ASIN( 1. )
41
42c-----------------------------------------------------------------------
43      r       = cpp * kappa
44
45      PRINT*,' Cp R  kappa ',  cpp, r , kappa
46c
47c-----------------------------------------------------------------------
48
49       CALL disvert0(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
50c
51c
52       RETURN
53       END
Note: See TracBrowser for help on using the repository browser.