/[lmdze]/trunk/libf/bibio/initdynav.f90
ViewVC logotype

Diff of /trunk/libf/bibio/initdynav.f90

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 82  contains Line 82  contains
82         enddo         enddo
83      enddo      enddo
84    
85      call histbeg_totreg(infile, iip1, rlong(:,1), jjp1, rlat(1,:), &      call histbeg_totreg(infile, rlong(:,1), rlat(1,:), &
86           1, iip1, 1, jjp1, &           1, iip1, 1, jjp1, &
87           tau0, zjulian, tstep, thoriid, fileid)           tau0, zjulian, tstep, thoriid, fileid)
88    
# Line 99  contains Line 99  contains
99      write(6,*)'inithistave',tstep      write(6,*)'inithistave',tstep
100      call histdef(fileid, 'u', 'vents u scalaires moyennes', &      call histdef(fileid, 'u', 'vents u scalaires moyennes', &
101           'm/s', iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &           'm/s', iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
102           32, 'ave(X)', t_ops, t_wrt)           'ave(X)', t_ops, t_wrt)
103    
104      !      !
105      !  Vents V      !  Vents V
106      !      !
107      call histdef(fileid, 'v', 'vents v scalaires moyennes', &      call histdef(fileid, 'v', 'vents v scalaires moyennes', &
108           'm/s', iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &           'm/s', iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
109           32, 'ave(X)', t_ops, t_wrt)           'ave(X)', t_ops, t_wrt)
110    
111      !      !
112      !  Temperature      !  Temperature
113      !      !
114      call histdef(fileid, 'temp', 'temperature moyennee', 'K', &      call histdef(fileid, 'temp', 'temperature moyennee', 'K', &
115           iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &           iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
116           32, 'ave(X)', t_ops, t_wrt)           'ave(X)', t_ops, t_wrt)
117      !      !
118      !  Temperature potentielle      !  Temperature potentielle
119      !      !
120      call histdef(fileid, 'theta', 'temperature potentielle', 'K', &      call histdef(fileid, 'theta', 'temperature potentielle', 'K', &
121           iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &           iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
122           32, 'ave(X)', t_ops, t_wrt)           'ave(X)', t_ops, t_wrt)
123    
124    
125      !      !
# Line 127  contains Line 127  contains
127      !      !
128      call histdef(fileid, 'phi', 'geopotentiel moyenne', '-', &      call histdef(fileid, 'phi', 'geopotentiel moyenne', '-', &
129           iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &           iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
130           32, 'ave(X)', t_ops, t_wrt)           'ave(X)', t_ops, t_wrt)
131      !      !
132      !  Traceurs      !  Traceurs
133      !      !
134      DO iq=1,nq      DO iq=1,nq
135         call histdef(fileid, ttext(iq), ttext(iq), '-', &         call histdef(fileid, ttext(iq), ttext(iq), '-', &
136              iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &              iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
137              32, 'ave(X)', t_ops, t_wrt)              'ave(X)', t_ops, t_wrt)
138      enddo      enddo
139      !      !
140      !  Masse      !  Masse
141      !      !
142      call histdef(fileid, 'masse', 'masse', 'kg', &      call histdef(fileid, 'masse', 'masse', 'kg', &
143           iip1, jjp1, thoriid, 1, 1, 1, -99, &           iip1, jjp1, thoriid, 1, 1, 1, -99, &
144           32, 'ave(X)', t_ops, t_wrt)           'ave(X)', t_ops, t_wrt)
145      !      !
146      !  Pression au sol      !  Pression au sol
147      !      !
148      call histdef(fileid, 'ps', 'pression naturelle au sol', 'Pa', &      call histdef(fileid, 'ps', 'pression naturelle au sol', 'Pa', &
149           iip1, jjp1, thoriid, 1, 1, 1, -99, &           iip1, jjp1, thoriid, 1, 1, 1, -99, &
150           32, 'ave(X)', t_ops, t_wrt)           'ave(X)', t_ops, t_wrt)
151      !      !
152      !  Pression au sol      !  Pression au sol
153      !      !
154      call histdef(fileid, 'phis', 'geopotentiel au sol', '-', &      call histdef(fileid, 'phis', 'geopotentiel au sol', '-', &
155           iip1, jjp1, thoriid, 1, 1, 1, -99, &           iip1, jjp1, thoriid, 1, 1, 1, -99, &
156           32, 'ave(X)', t_ops, t_wrt)           'ave(X)', t_ops, t_wrt)
157      !      !
158      !  Fin      !  Fin
159      !      !
Legend:
Removed from v.14  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.21