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  IMPLICIT NONE
9 
10 #include "dimensions.h"
11 c#include "paramr2.h"
12 #include "paramet.h"
13 #include "comconst.h"
14 #include "comdissip.h"
15 #include "comvert.h"
16 #include "comgeom2.h"
17 #include "logic.h"
18 #include "temps.h"
19 #include "ener.h"
20 #include "description.h"
21 
22 c----------------------------------------------------------
23 c Arguments
24 c----------------------------------------------------------
25  INTEGER n,nadv
26  REAL dtbon
27  REAL pbaru(iip1,jjp1,llm)
28  REAL masse(iip1,jjp1,llm)
29 c----------------------------------------------------------
30 c Local
31 c----------------------------------------------------------
32  INTEGER i,j,l
33  REAL cflmax,aaa,bbb
34 
35  cflmax=0.
36  do l=1,llm
37  do j=2,jjm
38  do i=1,iim
39  aaa=pbaru(i,j,l)*dtvr/masse(i,j,l)
40  cflmax=max(cflmax,aaa)
41  bbb=-pbaru(i,j,l)*dtvr/masse(i+1,j,l)
42  cflmax=max(cflmax,bbb)
43  enddo
44  enddo
45  enddo
46  n=int(cflmax)+1
47 c pour reproduire cas VL du code qui appele x,y,z,y,x
48 c if (nadv.eq.30) n=n/2 ! Pour Prather
49  dtbon=dtvr/n
50 
51  return
52  end
53 
54 
55 
56 
57 
58 
59