/[lmdze]/trunk/Sources/phylmd/phystokenc.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/phystokenc.f

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

revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC revision 189 by guez, Tue Mar 29 15:20:23 2016 UTC
# Line 12  contains Line 12  contains
12      ! Author: Fr\'ed\'eric Hourdin      ! Author: Fr\'ed\'eric Hourdin
13      ! Objet : \'ecriture des variables pour transport offline      ! Objet : \'ecriture des variables pour transport offline
14    
15      use gr_fi_ecrit_m, only: gr_fi_ecrit      use gr_phy_write_m, only: gr_phy_write
16      USE histwrite_m, ONLY: histwrite      USE histwrite_m, ONLY: histwrite
17      USE histsync_m, ONLY: histsync      USE histsync_m, ONLY: histsync
18      USE dimens_m, ONLY: iim, jjm      USE dimens_m, ONLY: iim, jjm
# Line 115  contains Line 115  contains
115      END IF      END IF
116    
117      i = itap      i = itap
118      CALL gr_fi_ecrit(1, klon, iim, jjm+1, pphis, zx_tmp_2d)      zx_tmp_2d = gr_phy_write(pphis)
119      CALL histwrite(physid, 'phis', i, zx_tmp_2d)      CALL histwrite(physid, 'phis', i, zx_tmp_2d)
120    
121      i = itap      i = itap
122      CALL gr_fi_ecrit(1, klon, iim, jjm+1, paire, zx_tmp_2d)      zx_tmp_2d = gr_phy_write(paire)
123      CALL histwrite(physid, 'aire', i, zx_tmp_2d)      CALL histwrite(physid, 'aire', i, zx_tmp_2d)
124    
125      iadvtr = iadvtr + 1      iadvtr = iadvtr + 1
# Line 222  contains Line 222  contains
222    
223         irec = irec + 1         irec = irec + 1
224    
225         CALL gr_fi_ecrit(klev, klon, iim, jjm+1, t, zx_tmp_3d)         zx_tmp_3d = gr_phy_write(t)
226         CALL histwrite(physid, 't', itap, zx_tmp_3d)         CALL histwrite(physid, 't', itap, zx_tmp_3d)
227    
228         CALL gr_fi_ecrit(klev, klon, iim, jjm+1, mfu, zx_tmp_3d)         zx_tmp_3d = gr_phy_write(mfu)
229         CALL histwrite(physid, 'mfu', itap, zx_tmp_3d)         CALL histwrite(physid, 'mfu', itap, zx_tmp_3d)
230         CALL gr_fi_ecrit(klev, klon, iim, jjm+1, mfd, zx_tmp_3d)         zx_tmp_3d = gr_phy_write(mfd)
231         CALL histwrite(physid, 'mfd', itap, zx_tmp_3d)         CALL histwrite(physid, 'mfd', itap, zx_tmp_3d)
232         CALL gr_fi_ecrit(klev, klon, iim, jjm+1, en_u, zx_tmp_3d)         zx_tmp_3d = gr_phy_write(en_u)
233         CALL histwrite(physid, 'en_u', itap, zx_tmp_3d)         CALL histwrite(physid, 'en_u', itap, zx_tmp_3d)
234         CALL gr_fi_ecrit(klev, klon, iim, jjm+1, de_u, zx_tmp_3d)         zx_tmp_3d = gr_phy_write(de_u)
235         CALL histwrite(physid, 'de_u', itap, zx_tmp_3d)         CALL histwrite(physid, 'de_u', itap, zx_tmp_3d)
236         CALL gr_fi_ecrit(klev, klon, iim, jjm+1, en_d, zx_tmp_3d)         zx_tmp_3d = gr_phy_write(en_d)
237         CALL histwrite(physid, 'en_d', itap, zx_tmp_3d)         CALL histwrite(physid, 'en_d', itap, zx_tmp_3d)
238         CALL gr_fi_ecrit(klev, klon, iim, jjm+1, de_d, zx_tmp_3d)         zx_tmp_3d = gr_phy_write(de_d)
239         CALL histwrite(physid, 'de_d', itap, zx_tmp_3d)         CALL histwrite(physid, 'de_d', itap, zx_tmp_3d)
240         CALL gr_fi_ecrit(klev, klon, iim, jjm+1, coefh, zx_tmp_3d)         zx_tmp_3d = gr_phy_write(coefh)
241         CALL histwrite(physid, 'coefh', itap, zx_tmp_3d)         CALL histwrite(physid, 'coefh', itap, zx_tmp_3d)
242    
243         DO k = 1, klev         DO k = 1, klev
# Line 246  contains Line 246  contains
246            END DO            END DO
247         END DO         END DO
248    
249         CALL gr_fi_ecrit(klev, klon, iim, jjm+1, fm_therm1, zx_tmp_3d)         zx_tmp_3d = gr_phy_write(fm_therm1)
250         CALL histwrite(physid, 'fm_th', itap, zx_tmp_3d)         CALL histwrite(physid, 'fm_th', itap, zx_tmp_3d)
251    
252         CALL gr_fi_ecrit(klev, klon, iim, jjm+1, entr_therm, zx_tmp_3d)         zx_tmp_3d = gr_phy_write(entr_therm)
253         CALL histwrite(physid, 'en_th', itap, zx_tmp_3d)         CALL histwrite(physid, 'en_th', itap, zx_tmp_3d)
254         !ccc         !ccc
255         CALL gr_fi_ecrit(klev, klon, iim, jjm+1, frac_impa, zx_tmp_3d)         zx_tmp_3d = gr_phy_write(frac_impa)
256         CALL histwrite(physid, 'frac_impa', itap, zx_tmp_3d)         CALL histwrite(physid, 'frac_impa', itap, zx_tmp_3d)
257    
258         CALL gr_fi_ecrit(klev, klon, iim, jjm+1, frac_nucl, zx_tmp_3d)         zx_tmp_3d = gr_phy_write(frac_nucl)
259         CALL histwrite(physid, 'frac_nucl', itap, zx_tmp_3d)         CALL histwrite(physid, 'frac_nucl', itap, zx_tmp_3d)
260    
261         CALL gr_fi_ecrit(1, klon, iim, jjm+1, pyu1, zx_tmp_2d)         zx_tmp_2d = gr_phy_write(pyu1)
262         CALL histwrite(physid, 'pyu1', itap, zx_tmp_2d)         CALL histwrite(physid, 'pyu1', itap, zx_tmp_2d)
263    
264         CALL gr_fi_ecrit(1, klon, iim, jjm+1, pyv1, zx_tmp_2d)         zx_tmp_2d = gr_phy_write(pyv1)
265         CALL histwrite(physid, 'pyv1', itap, zx_tmp_2d)         CALL histwrite(physid, 'pyv1', itap, zx_tmp_2d)
266    
267         CALL gr_fi_ecrit(1, klon, iim, jjm+1, pftsol1, zx_tmp_2d)         zx_tmp_2d = gr_phy_write(pftsol1)
268         CALL histwrite(physid, 'ftsol1', itap, zx_tmp_2d)         CALL histwrite(physid, 'ftsol1', itap, zx_tmp_2d)
269         CALL gr_fi_ecrit(1, klon, iim, jjm+1, pftsol2, zx_tmp_2d)         zx_tmp_2d = gr_phy_write(pftsol2)
270         CALL histwrite(physid, 'ftsol2', itap, zx_tmp_2d)         CALL histwrite(physid, 'ftsol2', itap, zx_tmp_2d)
271         CALL gr_fi_ecrit(1, klon, iim, jjm+1, pftsol3, zx_tmp_2d)         zx_tmp_2d = gr_phy_write(pftsol3)
272         CALL histwrite(physid, 'ftsol3', itap, zx_tmp_2d)         CALL histwrite(physid, 'ftsol3', itap, zx_tmp_2d)
273         CALL gr_fi_ecrit(1, klon, iim, jjm+1, pftsol4, zx_tmp_2d)         zx_tmp_2d = gr_phy_write(pftsol4)
274         CALL histwrite(physid, 'ftsol4', itap, zx_tmp_2d)         CALL histwrite(physid, 'ftsol4', itap, zx_tmp_2d)
275    
276         CALL gr_fi_ecrit(1, klon, iim, jjm+1, ppsrf1, zx_tmp_2d)         zx_tmp_2d = gr_phy_write(ppsrf1)
277         CALL histwrite(physid, 'psrf1', itap, zx_tmp_2d)         CALL histwrite(physid, 'psrf1', itap, zx_tmp_2d)
278         CALL gr_fi_ecrit(1, klon, iim, jjm+1, ppsrf2, zx_tmp_2d)         zx_tmp_2d = gr_phy_write(ppsrf2)
279         CALL histwrite(physid, 'psrf2', itap, zx_tmp_2d)         CALL histwrite(physid, 'psrf2', itap, zx_tmp_2d)
280         CALL gr_fi_ecrit(1, klon, iim, jjm+1, ppsrf3, zx_tmp_2d)         zx_tmp_2d = gr_phy_write(ppsrf3)
281         CALL histwrite(physid, 'psrf3', itap, zx_tmp_2d)         CALL histwrite(physid, 'psrf3', itap, zx_tmp_2d)
282         CALL gr_fi_ecrit(1, klon, iim, jjm+1, ppsrf4, zx_tmp_2d)         zx_tmp_2d = gr_phy_write(ppsrf4)
283         CALL histwrite(physid, 'psrf4', itap, zx_tmp_2d)         CALL histwrite(physid, 'psrf4', itap, zx_tmp_2d)
284    
285         IF (ok_sync) CALL histsync(physid)         IF (ok_sync) CALL histsync(physid)
Legend:
Removed from v.186  
changed lines
  Added in v.189
  ViewVC Help
Powered by ViewVC 1.1.21