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

Diff of /trunk/dyn3d/init_dynzon.f

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

trunk/libf/dyn3d/init_dynzon.f90 revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC trunk/dyn3d/init_dynzon.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 22  contains Line 22  contains
22      USE histvert_m, ONLY: histvert      USE histvert_m, ONLY: histvert
23      USE calendar, ONLY: ymds2ju      USE calendar, ONLY: ymds2ju
24      USE dimens_m, ONLY: jjm, llm      USE dimens_m, ONLY: jjm, llm
25      USE comvert, ONLY: presnivs      USE disvert_m, ONLY: presnivs
26      USE comgeom, ONLY: rlatv      USE comgeom, ONLY: rlatv
27      USE temps, ONLY: annee_ref, day_ref, itau_dyn      USE temps, ONLY: annee_ref, day_ref, itau_dyn
28      USE nr_util, ONLY: pi      USE nr_util, ONLY: pi
# Line 73  contains Line 73  contains
73    
74      ! Appel à histvert pour la grille verticale      ! Appel à histvert pour la grille verticale
75    
76      call histvert(fileid, 'presnivs', 'Niveaux sigma', 'mb', llm, presnivs, &      call histvert(fileid, 'presnivs', 'Niveaux sigma', 'mb', presnivs, vertiid)
          vertiid)  
77    
78      ! Appels à histdef pour la définition des variables à sauvegarder      ! Appels à histdef pour la définition des variables à sauvegarder
79      do iQ = 1, nQ      do iQ = 1, nQ
Legend:
Removed from v.62  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21