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

Diff of /trunk/phylmd/initphysto.f

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

revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC revision 67 by guez, Tue Oct 2 15:50:56 2012 UTC
# Line 101  SUBROUTINE initphysto(infile,rlon,rlat,t Line 101  SUBROUTINE initphysto(infile,rlon,rlat,t
101       nivsigs(l) = float(l)       nivsigs(l) = float(l)
102    END DO    END DO
103    
104    CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',llm,nivsigs, &    CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',nivsigs, &
105         zvertiid)         zvertiid)
106    
107    !  Appels a histdef pour la definition des variables a sauvegarder    !  Appels a histdef pour la definition des variables a sauvegarder
Legend:
Removed from v.61  
changed lines
  Added in v.67
  ViewVC Help
Powered by ViewVC 1.1.21