/[lmdze]/trunk/libf/bibio/writedynav.f
ViewVC logotype

Diff of /trunk/libf/bibio/writedynav.f

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

revision 14 by guez, Wed Feb 27 13:16:39 2008 UTC revision 15 by guez, Fri Aug 1 15:24:12 2008 UTC
# Line 87  C Line 87  C
87  C  Vents U scalaire  C  Vents U scalaire
88  C  C
89        call gr_u_scal(llm, unat, us)        call gr_u_scal(llm, unat, us)
90        call histwrite(histid, 'u', itau_w, us,        call histwrite(histid, 'u', itau_w, us)
      .               iip1*jjp1*llm, ndex3d)  
91  C  C
92  C  Vents V scalaire  C  Vents V scalaire
93  C  C
94        call gr_v_scal(llm, vnat, vs)        call gr_v_scal(llm, vnat, vs)
95        call histwrite(histid, 'v', itau_w, vs,        call histwrite(histid, 'v', itau_w, vs)
      .               iip1*jjp1*llm, ndex3d)  
96  C  C
97  C  Temperature potentielle moyennee  C  Temperature potentielle moyennee
98  C  C
99        call histwrite(histid, 'theta', itau_w, teta,        call histwrite(histid, 'theta', itau_w, teta)
      .                iip1*jjp1*llm, ndex3d)  
100  C  C
101  C  Temperature moyennee  C  Temperature moyennee
102  C  C
103        do ii = 1, ijp1llm        do ii = 1, ijp1llm
104          tm(ii) = teta(ii) * ppk(ii)/cpp          tm(ii) = teta(ii) * ppk(ii)/cpp
105        enddo        enddo
106        call histwrite(histid, 'temp', itau_w, tm,        call histwrite(histid, 'temp', itau_w, tm)
      .                iip1*jjp1*llm, ndex3d)  
107  C  C
108  C  Geopotentiel  C  Geopotentiel
109  C  C
110        call histwrite(histid, 'phi', itau_w, phi,        call histwrite(histid, 'phi', itau_w, phi)
      .                iip1*jjp1*llm, ndex3d)  
111  C  C
112  C  Traceurs  C  Traceurs
113  C  C
114          DO iq=1,nq          DO iq=1,nq
115            call histwrite(histid, ttext(iq), itau_w, q(:,:,iq),            call histwrite(histid, ttext(iq), itau_w, q(:,:,iq))
      .                   iip1*jjp1*llm, ndex3d)  
116          enddo          enddo
117  C  C
118  C  Masse  C  Masse
119  C  C
120         call histwrite(histid, 'masse', itau_w, masse, iip1*jjp1, ndex2d)         call histwrite(histid, 'masse', itau_w, masse)
121  C  C
122  C  Pression au sol  C  Pression au sol
123  C  C
124         call histwrite(histid, 'ps', itau_w, ps, iip1*jjp1, ndex2d)         call histwrite(histid, 'ps', itau_w, ps)
125  C  C
126  C  Geopotentiel au sol  C  Geopotentiel au sol
127  C  C
128         call histwrite(histid, 'phis', itau_w, phis, iip1*jjp1, ndex2d)         call histwrite(histid, 'phis', itau_w, phis)
129  C  C
130  C  Fin  C  Fin
131  C  C
Legend:
Removed from v.14  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.21