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

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

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

revision 14 by guez, Mon Jul 21 16:05:07 2008 UTC revision 15 by guez, Fri Aug 1 15:24:12 2008 UTC
# Line 134  c Line 134  c
134        ndex3d = 0        ndex3d = 0
135        i=itap        i=itap
136        CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d)        CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d)
137        CALL histwrite(physid,"phis",i,zx_tmp_2d,iim*(jjm+1),ndex2d)        CALL histwrite(physid,"phis",i,zx_tmp_2d)
138  c  c
139        i=itap        i=itap
140        CALL gr_fi_ecrit(1,klon,iim,jjm+1,paire,zx_tmp_2d)        CALL gr_fi_ecrit(1,klon,iim,jjm+1,paire,zx_tmp_2d)
141        CALL histwrite(physid,"aire",i,zx_tmp_2d,iim*(jjm+1),ndex2d)        CALL histwrite(physid,"aire",i,zx_tmp_2d)
142    
143        iadvtr=iadvtr+1        iadvtr=iadvtr+1
144  c  c
# Line 245  c Line 245  c
245    
246  ccccc  ccccc
247           CALL gr_fi_ecrit(klev,klon,iim,jjm+1, t, zx_tmp_3d)           CALL gr_fi_ecrit(klev,klon,iim,jjm+1, t, zx_tmp_3d)
248           CALL histwrite(physid,"t",itap,zx_tmp_3d,           CALL histwrite(physid,"t",itap,zx_tmp_3d)
      .                                   iim*(jjm+1)*klev,ndex3d)  
249    
250           CALL gr_fi_ecrit(klev,klon,iim,jjm+1, mfu, zx_tmp_3d)           CALL gr_fi_ecrit(klev,klon,iim,jjm+1, mfu, zx_tmp_3d)
251        CALL histwrite(physid,"mfu",itap,zx_tmp_3d,        CALL histwrite(physid,"mfu",itap,zx_tmp_3d)
      .                                   iim*(jjm+1)*klev,ndex3d)  
252          CALL gr_fi_ecrit(klev,klon,iim,jjm+1, mfd, zx_tmp_3d)          CALL gr_fi_ecrit(klev,klon,iim,jjm+1, mfd, zx_tmp_3d)
253        CALL histwrite(physid,"mfd",itap,zx_tmp_3d,        CALL histwrite(physid,"mfd",itap,zx_tmp_3d)
      .                                   iim*(jjm+1)*klev,ndex3d)  
254          CALL gr_fi_ecrit(klev,klon,iim,jjm+1, en_u, zx_tmp_3d)          CALL gr_fi_ecrit(klev,klon,iim,jjm+1, en_u, zx_tmp_3d)
255        CALL histwrite(physid,"en_u",itap,zx_tmp_3d,        CALL histwrite(physid,"en_u",itap,zx_tmp_3d)
      .                                   iim*(jjm+1)*klev,ndex3d)  
256          CALL gr_fi_ecrit(klev,klon,iim,jjm+1, de_u, zx_tmp_3d)          CALL gr_fi_ecrit(klev,klon,iim,jjm+1, de_u, zx_tmp_3d)
257        CALL histwrite(physid,"de_u",itap,zx_tmp_3d,        CALL histwrite(physid,"de_u",itap,zx_tmp_3d)
      .                                   iim*(jjm+1)*klev,ndex3d)  
258          CALL gr_fi_ecrit(klev,klon,iim,jjm+1, en_d, zx_tmp_3d)          CALL gr_fi_ecrit(klev,klon,iim,jjm+1, en_d, zx_tmp_3d)
259        CALL histwrite(physid,"en_d",itap,zx_tmp_3d,        CALL histwrite(physid,"en_d",itap,zx_tmp_3d)
      .                                   iim*(jjm+1)*klev,ndex3d)  
260          CALL gr_fi_ecrit(klev,klon,iim,jjm+1, de_d, zx_tmp_3d)                CALL gr_fi_ecrit(klev,klon,iim,jjm+1, de_d, zx_tmp_3d)      
261        CALL histwrite(physid,"de_d",itap,zx_tmp_3d,            CALL histwrite(physid,"de_d",itap,zx_tmp_3d)
      .                                   iim*(jjm+1)*klev,ndex3d)  
262          CALL gr_fi_ecrit(klev,klon,iim,jjm+1, coefh, zx_tmp_3d)                  CALL gr_fi_ecrit(klev,klon,iim,jjm+1, coefh, zx_tmp_3d)        
263        CALL histwrite(physid,"coefh",itap,zx_tmp_3d,            CALL histwrite(physid,"coefh",itap,zx_tmp_3d)    
      .                                   iim*(jjm+1)*klev,ndex3d)        
264    
265  c ajou...  c ajou...
266          do k=1,klev          do k=1,klev
# Line 278  c ajou... Line 270  c ajou...
270          enddo          enddo
271    
272        CALL gr_fi_ecrit(klev,klon,iim,jjm+1, fm_therm1, zx_tmp_3d)        CALL gr_fi_ecrit(klev,klon,iim,jjm+1, fm_therm1, zx_tmp_3d)
273        CALL histwrite(physid,"fm_th",itap,zx_tmp_3d,        CALL histwrite(physid,"fm_th",itap,zx_tmp_3d)
      .                                 iim*(jjm+1)*klev,ndex3d)  
274  c  c
275        CALL gr_fi_ecrit(klev,klon,iim,jjm+1, entr_therm, zx_tmp_3d)        CALL gr_fi_ecrit(klev,klon,iim,jjm+1, entr_therm, zx_tmp_3d)
276        CALL histwrite(physid,"en_th",itap,zx_tmp_3d,        CALL histwrite(physid,"en_th",itap,zx_tmp_3d)
      .                                iim*(jjm+1)*klev,ndex3d)  
277  cccc  cccc
278         CALL gr_fi_ecrit(klev,klon,iim,jjm+1,frac_impa,zx_tmp_3d)         CALL gr_fi_ecrit(klev,klon,iim,jjm+1,frac_impa,zx_tmp_3d)
279          CALL histwrite(physid,"frac_impa",itap,zx_tmp_3d,          CALL histwrite(physid,"frac_impa",itap,zx_tmp_3d)
      .  iim*(jjm+1)*klev,ndex3d)  
280    
281          CALL gr_fi_ecrit(klev,klon,iim,jjm+1,frac_nucl,zx_tmp_3d)          CALL gr_fi_ecrit(klev,klon,iim,jjm+1,frac_nucl,zx_tmp_3d)
282          CALL histwrite(physid,"frac_nucl",itap,zx_tmp_3d,          CALL histwrite(physid,"frac_nucl",itap,zx_tmp_3d)
      .  iim*(jjm+1)*klev,ndex3d)  
283    
284          CALL gr_fi_ecrit(1, klon,iim,jjm+1, pyu1,zx_tmp_2d)          CALL gr_fi_ecrit(1, klon,iim,jjm+1, pyu1,zx_tmp_2d)
285        CALL histwrite(physid,"pyu1",itap,zx_tmp_2d,iim*(jjm+1),        CALL histwrite(physid,"pyu1",itap,zx_tmp_2d)
      .                                                ndex2d)  
286                    
287          CALL gr_fi_ecrit(1, klon,iim,jjm+1, pyv1,zx_tmp_2d)          CALL gr_fi_ecrit(1, klon,iim,jjm+1, pyv1,zx_tmp_2d)
288        CALL histwrite(physid,"pyv1",itap,zx_tmp_2d,iim*(jjm+1)        CALL histwrite(physid,"pyv1",itap,zx_tmp_2d)
      .                                                ,ndex2d)  
289                    
290          CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol1, zx_tmp_2d)          CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol1, zx_tmp_2d)
291        CALL histwrite(physid,"ftsol1",itap,zx_tmp_2d,        CALL histwrite(physid,"ftsol1",itap,zx_tmp_2d)
      .                                   iim*(jjm+1),ndex2d)  
292           CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol2, zx_tmp_2d)           CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol2, zx_tmp_2d)
293        CALL histwrite(physid,"ftsol2",itap,zx_tmp_2d,        CALL histwrite(physid,"ftsol2",itap,zx_tmp_2d)
      .                                   iim*(jjm+1),ndex2d)  
294            CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol3, zx_tmp_2d)            CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol3, zx_tmp_2d)
295        CALL histwrite(physid,"ftsol3",itap,zx_tmp_2d,        CALL histwrite(physid,"ftsol3",itap,zx_tmp_2d)
      .                                   iim*(jjm+1),ndex2d)  
296           CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol4, zx_tmp_2d)           CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol4, zx_tmp_2d)
297        CALL histwrite(physid,"ftsol4",itap,zx_tmp_2d,        CALL histwrite(physid,"ftsol4",itap,zx_tmp_2d)
      .                                   iim*(jjm+1),ndex2d)  
298    
299          CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf1, zx_tmp_2d)          CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf1, zx_tmp_2d)
300        CALL histwrite(physid,"psrf1",itap,zx_tmp_2d,          CALL histwrite(physid,"psrf1",itap,zx_tmp_2d)
      .                                   iim*(jjm+1),ndex2d)  
301          CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf2, zx_tmp_2d)          CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf2, zx_tmp_2d)
302        CALL histwrite(physid,"psrf2",itap,zx_tmp_2d,        CALL histwrite(physid,"psrf2",itap,zx_tmp_2d)
      .                                   iim*(jjm+1),ndex2d)  
303          CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf3, zx_tmp_2d)          CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf3, zx_tmp_2d)
304        CALL histwrite(physid,"psrf3",itap,zx_tmp_2d,        CALL histwrite(physid,"psrf3",itap,zx_tmp_2d)
      .                                   iim*(jjm+1),ndex2d)  
305          CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf4, zx_tmp_2d)          CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf4, zx_tmp_2d)
306        CALL histwrite(physid,"psrf4",itap,zx_tmp_2d,        CALL histwrite(physid,"psrf4",itap,zx_tmp_2d)
      .                                   iim*(jjm+1),ndex2d)  
307    
308        if (ok_sync) call histsync(physid)        if (ok_sync) call histsync(physid)
309  c     if (ok_sync) call histsync  c     if (ok_sync) call histsync
Legend:
Removed from v.14  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.21