/[lmdze]/trunk/dyn3d/adaptdt.f
ViewVC logotype

Contents of /trunk/dyn3d/adaptdt.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 313 - (show annotations)
Mon Dec 10 15:54:30 2018 UTC (5 years, 5 months ago) by guez
File size: 1046 byte(s)
Remove module temps. Move variable itau_dyn from module temps to
module dynetat0_m, where it is defined.

Split module dynetat0_m into dynetat0_m and dynetat0_chosen_m. The
motivation is to create smaller modules. Procedures principal_cshift
and invert_zoomx had to stay in dynetat0_m because of circular
dependency. Now we will be able to move them away. Module variables
which are chosen by the user, not computed, in program ce0l go to
dynetat0_chosen_m: day_ref, annee_ref, clon, clat, grossismx,
grossismy, dzoomx, dzoomy, taux, tauy.

Move variable "pa" from module disvert_m to module
dynetat0_chosen_m. Define "pa" in dynetat0_chosen rather than etat0.

Define day_ref and annee_ref in procedure read_serre rather than
etat0.

1
2 ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/adaptdt.F,v 1.1.1.1 2004/05/19
3 ! 12:53:05 lmdzadmin Exp $
4
5 SUBROUTINE adaptdt(dtbon, n, pbaru, masse)
6
7 USE dimensions
8 USE paramet_m
9 USE comconst
10 USE disvert_m
11 USE conf_gcm_m
12 USE conf_gcm_m
13 USE comgeom
14
15 IMPLICIT NONE
16
17
18 ! ----------------------------------------------------------
19 ! Arguments
20 ! ----------------------------------------------------------
21 INTEGER n
22 REAL dtbon
23 REAL, INTENT (IN) :: pbaru(iip1, jjp1, llm)
24 REAL masse(iip1, jjp1, llm)
25 ! ----------------------------------------------------------
26 ! Local
27 ! ----------------------------------------------------------
28 INTEGER i, j, l
29 REAL cflmax, aaa, bbb
30
31 cflmax = 0.
32 DO l = 1, llm
33 DO j = 2, jjm
34 DO i = 1, iim
35 aaa = pbaru(i, j, l)*dtvr/masse(i, j, l)
36 cflmax = max(cflmax, aaa)
37 bbb = -pbaru(i, j, l)*dtvr/masse(i+1, j, l)
38 cflmax = max(cflmax, bbb)
39 END DO
40 END DO
41 END DO
42 n = int(cflmax) + 1
43 dtbon = dtvr/n
44
45 RETURN
46 END SUBROUTINE adaptdt
47
48
49
50
51
52
53

  ViewVC Help
Powered by ViewVC 1.1.21