/[lmdze]/trunk/libf/dyn3d/bilan_dyn.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/bilan_dyn.f

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

revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# Line 141  cym      character*10 zunites(ntr,nQ) Line 141  cym      character*10 zunites(ntr,nQ)
141  c   Initialisation du fichier contenant les moyennes zonales.  c   Initialisation du fichier contenant les moyennes zonales.
142  c   ---------------------------------------------------------  c   ---------------------------------------------------------
143    
       character*10 infile  
   
144        integer fileid        integer fileid
145        integer thoriid, zvertiid        integer thoriid, zvertiid
146        save fileid        save fileid
# Line 151  c   ------------------------------------ Line 149  c   ------------------------------------
149    
150  C   Variables locales  C   Variables locales
151  C  C
       integer tau0  
152        real zjulian        real zjulian
153        character*3 str        character*3 str
154        character*10 ctrac        character*10 ctrac
# Line 211  c   ncum est la frequence de stokage en Line 208  c   ncum est la frequence de stokage en
208  c   Initialisation du fichier contenant les moyennes zonales.  c   Initialisation du fichier contenant les moyennes zonales.
209  c   ---------------------------------------------------------  c   ---------------------------------------------------------
210    
       infile='dynzon'  
   
211        zan = annee_ref        zan = annee_ref
212        dayref = day_ref        dayref = day_ref
213        CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)        CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
       tau0 = itau_dyn  
214                
215        rlong=0.        rlong=0.
216        rlatg=rlatv*180./pi        rlatg=rlatv*180./pi
217                
218        call histbeg_totreg(infile, rlong(:1), rlatg,        call histbeg_totreg('dynzon', rlong(:1), rlatg,
219       .             1, 1, 1, jjm,       .             1, 1, 1, jjm,
220       .             tau0, zjulian, dt_cum, thoriid, fileid)       .             itau_dyn, zjulian, dt_cum, thoriid, fileid)
221    
222  C  C
223  C  Appel a histvert pour la grille verticale  C  Appel a histvert pour la grille verticale
Legend:
Removed from v.20  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21