/[lmdze]/trunk/libf/dyn3d/comvert.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/comvert.f90

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

revision 21 by guez, Wed Oct 15 16:19:57 2008 UTC revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC
# Line 8  module comvert Line 8  module comvert
8    
9    real ap(llm+1), pa ! in Pa    real ap(llm+1), pa ! in Pa
10    real bp(llm+1), dpres(llm)    real bp(llm+1), dpres(llm)
11    real presnivs(llm) ! pressions approximatives des milieux couches, en Pa    real presnivs(llm) ! pressions approximatives des milieux de couches, en Pa
12    real, parameter:: preff = 101325. ! in Pa    real, parameter:: preff = 101325. ! in Pa
13    real nivsigs(llm), nivsig(llm+1)    real nivsigs(llm), nivsig(llm+1)
14    
# Line 26  contains Line 26  contains
26      ! "nivsigs" and "nivsig".      ! "nivsigs" and "nivsig".
27      ! "pa" should be defined before this procedure is called.      ! "pa" should be defined before this procedure is called.
28    
29      use comconst, only: pi      use numer_rec, only: pi
30    
31      REAL s(llm+1)      REAL s(llm+1)
32      ! (atmospheric hybrid sigma-pressure coordinate at the interface      ! "s(l)" is the atmospheric hybrid sigma-pressure coordinate at
33      ! between layers "l" and "l-1")      ! the interface between layers "l" and "l-1"
34    
35      real ds(llm)      real ds(llm)
36      ! "ds(l)" : épaisseur de la couche "l" dans la coordonnée "s"      ! "ds(l)" : épaisseur de la couche "l" dans la coordonnée "s"
Legend:
Removed from v.21  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.21