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

Diff of /trunk/libf/bibio/inithist.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 83  contains Line 83  contains
83         enddo         enddo
84      enddo      enddo
85    
86      call histbeg_totreg(infile, iip1, rlong(:,1), jjp1, rlat(1,:), &      call histbeg_totreg(infile, rlong(:,1), rlat(1,:), &
87           1, iip1, 1, jjp1, &           1, iip1, 1, jjp1, &
88           tau0, zjulian, tstep, uhoriid, fileid)           tau0, zjulian, tstep, uhoriid, fileid)
89      !      !
# Line 98  contains Line 98  contains
98         enddo         enddo
99      enddo      enddo
100    
101      call histbeg_totreg('dyn_histv.nc', iip1, rlong(:,1), jjm, rlat(1,:jjm), &      call histbeg_totreg('dyn_histv.nc', rlong(:,1), rlat(1,:jjm), &
102           1, iip1, 1, jjm, &           1, iip1, 1, jjm, &
103           tau0, zjulian, tstep, vhoriid, filevid)           tau0, zjulian, tstep, vhoriid, filevid)
104      !      !
# Line 111  contains Line 111  contains
111         enddo         enddo
112      enddo      enddo
113    
114      call histhori(fileid, iip1, rlong, jjp1, rlat, 'scalar', &      call histhori_regular(fileid, iip1, rlong, jjp1, rlat, 'scalar', &
115           'Grille points scalaires', thoriid)           'Grille points scalaires', thoriid)
116      !      !
117      !  Appel a histvert pour la grille verticale      !  Appel a histvert pour la grille verticale
# Line 128  contains Line 128  contains
128      !      !
129      call histdef(fileid, 'ucov', 'vents u covariants', 'm/s', &      call histdef(fileid, 'ucov', 'vents u covariants', 'm/s', &
130           iip1, jjp1, uhoriid, llm, 1, llm, zvertiid, &           iip1, jjp1, uhoriid, llm, 1, llm, zvertiid, &
131           32, 'inst(X)', t_ops, t_wrt)           'inst(X)', t_ops, t_wrt)
132      !      !
133      !  Vents V      !  Vents V
134      !      !
135      call histdef(filevid, 'vcov', 'vents v covariants', 'm/s', &      call histdef(filevid, 'vcov', 'vents v covariants', 'm/s', &
136           iip1, jjm, vhoriid, llm, 1, llm, zvertiid, &           iip1, jjm, vhoriid, llm, 1, llm, zvertiid, &
137           32, 'inst(X)', t_ops, t_wrt)           'inst(X)', t_ops, t_wrt)
138    
139      !      !
140      !  Temperature potentielle      !  Temperature potentielle
141      !      !
142      call histdef(fileid, 'teta', 'temperature potentielle', '-', &      call histdef(fileid, 'teta', 'temperature potentielle', '-', &
143           iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &           iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
144           32, 'inst(X)', t_ops, t_wrt)           'inst(X)', t_ops, t_wrt)
145      !      !
146      !  Geopotentiel      !  Geopotentiel
147      !      !
148      call histdef(fileid, 'phi', 'geopotentiel instantane', '-', &      call histdef(fileid, 'phi', 'geopotentiel instantane', '-', &
149           iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &           iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
150           32, 'inst(X)', t_ops, t_wrt)           'inst(X)', t_ops, t_wrt)
151      !      !
152      !  Traceurs      !  Traceurs
153      !      !
154      DO iq=1,nq      DO iq=1,nq
155         call histdef(fileid, ttext(iq),  ttext(iq), '-', &         call histdef(fileid, ttext(iq),  ttext(iq), '-', &
156              iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &              iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
157              32, 'inst(X)', t_ops, t_wrt)              'inst(X)', t_ops, t_wrt)
158      enddo      enddo
159      !      !
160      !  Masse      !  Masse
161      !      !
162      call histdef(fileid, 'masse', 'masse', 'kg', &      call histdef(fileid, 'masse', 'masse', 'kg', &
163           iip1, jjp1, thoriid, 1, 1, 1, -99, &           iip1, jjp1, thoriid, 1, 1, 1, -99, &
164           32, 'inst(X)', t_ops, t_wrt)           'inst(X)', t_ops, t_wrt)
165      !      !
166      !  Pression au sol      !  Pression au sol
167      !      !
168      call histdef(fileid, 'ps', 'pression naturelle au sol', 'Pa', &      call histdef(fileid, 'ps', 'pression naturelle au sol', 'Pa', &
169           iip1, jjp1, thoriid, 1, 1, 1, -99, &           iip1, jjp1, thoriid, 1, 1, 1, -99, &
170           32, 'inst(X)', t_ops, t_wrt)           'inst(X)', t_ops, t_wrt)
171      !      !
172      !  Pression au sol      !  Pression au sol
173      !      !
174      call histdef(fileid, 'phis', 'geopotentiel au sol', '-', &      call histdef(fileid, 'phis', 'geopotentiel au sol', '-', &
175           iip1, jjp1, thoriid, 1, 1, 1, -99, &           iip1, jjp1, thoriid, 1, 1, 1, -99, &
176           32, 'inst(X)', t_ops, t_wrt)           'inst(X)', t_ops, t_wrt)
177      !      !
178      !  Fin      !  Fin
179      !      !
Legend:
Removed from v.14  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.21