/[lmdze]/trunk/Sources/phylmd/initphysto.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/initphysto.f

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

revision 207 by guez, Thu Apr 14 15:15:56 2016 UTC revision 208 by guez, Wed Dec 7 16:44:53 2016 UTC
# Line 68  contains Line 68  contains
68      ! Appel a histvert pour la grille verticale      ! Appel a histvert pour la grille verticale
69    
70      DO l = 1, llm      DO l = 1, llm
71         nivsigs(l) = float(l)         nivsigs(l) = real(l)
72      END DO      END DO
73    
74      CALL histvert(fileid, 'sig_s', 'Niveaux sigma', 'sigma_level', nivsigs, &      CALL histvert(fileid, 'sig_s', 'Niveaux sigma', 'sigma_level', nivsigs, &
Legend:
Removed from v.207  
changed lines
  Added in v.208
  ViewVC Help
Powered by ViewVC 1.1.21