source: trunk/LMDZ.PLUTO.old/libf/dyn3d/iniconst.F @ 3436

Last change on this file since 3436 was 3175, checked in by emillour, 11 months ago

Pluto PCM:
Add the old Pluto LMDZ for reference (required prior step to making
an LMDZ.PLUTO using the same framework as the other physics packages).
TB+EM
File size: 1.2 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
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  = idissip * 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.