My Project
 All Classes Files Functions Variables Macros
adaptdt.F
Go to the documentation of this file.
1 !
2 ! $Id: adaptdt.F 1403 2010-07-01 09:02:53Z fairhead $
3 !
4  subroutine adaptdt(nadv,dtbon,n,pbaru,
5  c masse)
6 
7  USE control_mod
8 
9  IMPLICIT NONE
10 
11 #include "dimensions.h"
12 c#include "paramr2.h"
13 #include "paramet.h"
14 #include "comconst.h"
15 #include "comdissip.h"
16 #include "comvert.h"
17 #include "comgeom2.h"
18 #include "logic.h"
19 #include "temps.h"
20 #include "ener.h"
21 #include "description.h"
22 
23 c----------------------------------------------------------
24 c Arguments
25 c----------------------------------------------------------
26  INTEGER n,nadv
27  REAL dtbon
28  REAL pbaru(iip1,jjp1,llm)
29  REAL masse(iip1,jjp1,llm)
30 c----------------------------------------------------------
31 c Local
32 c----------------------------------------------------------
33  INTEGER i,j,l
34  REAL cflmax,aaa,bbb
35 
36  cflmax=0.
37  do l=1,llm
38  do j=2,jjm
39  do i=1,iim
40  aaa=pbaru(i,j,l)*dtvr/masse(i,j,l)
41  cflmax=max(cflmax,aaa)
42  bbb=-pbaru(i,j,l)*dtvr/masse(i+1,j,l)
43  cflmax=max(cflmax,bbb)
44  enddo
45  enddo
46  enddo
47  n=int(cflmax)+1
48 c pour reproduire cas VL du code qui appele x,y,z,y,x
49 c if (nadv.eq.30) n=n/2 ! Pour Prather
50  dtbon=dtvr/n
51 
52  return
53  end
54 
55 
56 
57 
58 
59 
60