source: LMDZ.3.3/trunk/libf/dyn3d/iniconst.F @ 2

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