/[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 48 by guez, Tue Jul 19 12:54:20 2011 UTC revision 53 by guez, Fri Oct 7 13:11:58 2011 UTC
# Line 37  contains Line 37  contains
37      ! "ds(l)" : épaisseur de la couche "l" dans la coordonnée "s"      ! "ds(l)" : épaisseur de la couche "l" dans la coordonnée "s"
38    
39      INTEGER l, unit      INTEGER l, unit
40      REAL alpha, x(llm), trash      REAL alpha, x(llm)
41    
42      character(len=7):: s_sampling = "LMD5"      character(len=7):: s_sampling = "LMD5"
43      ! (other allowed values are "param", "strato1", "strato2" and "read")      ! (other allowed values are "param", "strato1", "strato2" and "read")
# Line 120  contains Line 120  contains
120              position="rewind")              position="rewind")
121         read(unit, fmt=*) ! skip title line         read(unit, fmt=*) ! skip title line
122         do l = 1, llm + 1         do l = 1, llm + 1
123            read(unit, fmt=*) trash, s(l)            read(unit, fmt=*) s(l)
124         end do         end do
125         close(unit)         close(unit)
126         ! Quick check:         ! Quick check:
Legend:
Removed from v.48  
changed lines
  Added in v.53
  ViewVC Help
Powered by ViewVC 1.1.21