/[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 66 by guez, Thu Sep 20 13:00:41 2012 UTC trunk/dyn3d/init_dynzon.f revision 92 by guez, Wed Mar 26 18:16:05 2014 UTC
# Line 15  contains Line 15  contains
15    
16      ! From LMDZ4/libf/dyn3d/bilan_dyn.F, version 1.5 2005/03/16 10:12:17      ! From LMDZ4/libf/dyn3d/bilan_dyn.F, version 1.5 2005/03/16 10:12:17
17    
18        USE comgeom, ONLY: rlatv
19      USE conf_gcm_m, ONLY: day_step, iperiod, periodav      USE conf_gcm_m, ONLY: day_step, iperiod, periodav
20        USE dimens_m, ONLY: jjm, llm
21        USE disvert_m, ONLY: presnivs
22      USE histbeg_totreg_m, ONLY: histbeg_totreg      USE histbeg_totreg_m, ONLY: histbeg_totreg
23      USE histdef_m, ONLY: histdef      USE histdef_m, ONLY: histdef
24      USE histend_m, ONLY: histend      USE histend_m, ONLY: histend
25      USE histvert_m, ONLY: histvert      USE histvert_m, ONLY: histvert
     USE calendar, ONLY: ymds2ju  
     USE dimens_m, ONLY: jjm, llm  
     USE disvert_m, ONLY: presnivs  
     USE comgeom, ONLY: rlatv  
     USE temps, ONLY: annee_ref, day_ref, itau_dyn  
26      USE nr_util, ONLY: pi      USE nr_util, ONLY: pi
27        USE temps, ONLY: annee_ref, day_ref, itau_dyn
28        USE ymds2ju_m, ONLY: ymds2ju
29    
30      real, intent(in):: dt_app      real, intent(in):: dt_app
31    
# 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.66  
changed lines
  Added in v.92
  ViewVC Help
Powered by ViewVC 1.1.21