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

Diff of /trunk/dyn3d/disvert.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 83 by guez, Thu Mar 6 15:12:00 2014 UTC revision 90 by guez, Wed Mar 12 21:16:36 2014 UTC
# Line 18  contains Line 18  contains
18    
19    SUBROUTINE disvert    SUBROUTINE disvert
20    
21      ! From dyn3d/disvert.F, v 1.1.1.1 2004/05/19 12:53:05      ! From dyn3d/disvert.F, version 1.1.1.1, 2004/05/19 12:53:05
22      ! Author: P. Le Van      ! Author: P. Le Van
23    
24      ! This procedure sets the vertical grid. It defines the host      ! This procedure sets the vertical grid. It defines the host
# Line 36  contains Line 36  contains
36      ! the interface between layers "l" and "l-1"      ! the interface between layers "l" and "l-1"
37    
38      real ds(llm)      real ds(llm)
39      ! "ds(l)" : épaisseur de la couche "l" dans la coordonnée "s"      ! "ds(l)" : \'epaisseur de la couche "l" dans la coordonn\'ee "s"
40    
41      INTEGER l, unit      INTEGER l, unit
42      REAL alpha, x(llm)      REAL alpha, x(llm)
# Line 48  contains Line 48  contains
48      ! used only if vert_sampling == "param"      ! used only if vert_sampling == "param"
49    
50      ! These variables are used only in the case vert_sampling == "param":      ! These variables are used only in the case vert_sampling == "param":
51      real:: deltaz = 0.04 ! épaisseur de la première couche      real:: deltaz = 0.04 ! \'epaisseur de la premi\`ere couche
52      real:: beta = 1.3 ! facteur d'accroissement en haut      real:: beta = 1.3 ! facteur d'accroissement en haut
53      real:: k0 = 20. ! nombre de couches dans la transition surface      real:: k0 = 20. ! nombre de couches dans la transition surface
54      real:: k1 = 1.2 ! nombre de couches dans la transition haute      real:: k1 = 1.2 ! nombre de couches dans la transition haute
Legend:
Removed from v.83  
changed lines
  Added in v.90
  ViewVC Help
Powered by ViewVC 1.1.21