/[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 15 by guez, Fri Aug 1 15:24:12 2008 UTC revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC
# Line 187  c   ncum est la frequence de stokage en Line 187  c   ncum est la frequence de stokage en
187    
188          if (i_sortie.eq.1) then          if (i_sortie.eq.1) then
189           file='dynzon'           file='dynzon'
190           call inigrads(ifile           call inigrads(ifile ,(/0./),180./pi,0.,0.,rlatv,-90.,90.,
191       s  ,(/0./),180./pi,0.,0.,rlatv,-90.,90.,180./pi       $        180./pi ,presnivs,1. ,dt_cum,file,'dyn_zon ')
      s  ,presnivs,1.  
      s  ,dt_cum,file,'dyn_zon ')  
192          endif          endif
193    
194          nom(itemp)='T'          nom(itemp)='T'
Legend:
Removed from v.15  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.21