Changeset 1030 for LMDZ4/trunk/libf/phylmd/write_histrac.h
- Timestamp:
- Oct 24, 2008, 5:16:20 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/write_histrac.h
r959 r1030 10 10 itau_w = itau_phy + nstep 11 11 12 cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d)13 12 CALL histwrite_phy(nid_tra,"phis",itau_w,pphis) 14 13 C 15 cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,airephy,zx_tmp_2d)16 14 CALL histwrite_phy(nid_tra,"aire",itau_w,airephy) 17 15 … … 20 18 21 19 22 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,tr_seri(1,1,it),zx_tmp_3d)23 20 CALL histwrite_phy(nid_tra,tnom(it+2),itau_w,tr_seri(:,:,it)) 24 21 if (lessivage) THEN 25 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,flestottr(1,1,it),zx_tmp_3d)26 22 CALL histwrite_phy(nid_tra,"fl"//tnom(it+2),itau_w, 27 23 . flestottr(:,:,it)) … … 29 25 30 26 c----Olivia 31 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_th(1,1,it),zx_tmp_3d)32 27 CALL histwrite_phy(nid_tra,"d_tr_th_"//tnom(it+2),itau_w, 33 28 . d_tr_th(:,:,it)) 34 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_cv(1,1,it),zx_tmp_3d) 29 30 if(iflag_con.GE.2) then 35 31 CALL histwrite_phy(nid_tra,"d_tr_cv_"//tnom(it+2),itau_w, 36 32 . d_tr_cv(:,:,it)) 37 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_cl(1,1,it),zx_tmp_3d) 33 endif !(iflag_con.GE.2) then 38 34 CALL histwrite_phy(nid_tra,"d_tr_cl_"//tnom(it+2),itau_w, 39 35 . d_tr_cl(:,:,it)) … … 44 40 45 41 C abder 46 cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,yu1,zx_tmp_2d)47 42 CALL histwrite_phy(nid_tra,"pyu1",itau_w,yu1) 48 43 49 cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,yv1,zx_tmp_2d)50 44 CALL histwrite_phy(nid_tra,"pyv1",itau_w,yv1) 51 45 52 cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol1,zx_tmp_2d)53 46 CALL histwrite_phy(nid_tra,"ftsol1",itau_w,pftsol1) 54 47 55 cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol2,zx_tmp_2d)56 48 CALL histwrite_phy(nid_tra,"ftsol2",itau_w,pftsol2) 57 49 58 cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol3,zx_tmp_2d)59 50 CALL histwrite_phy(nid_tra,"ftsol3",itau_w,pftsol3) 60 51 61 cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol4,zx_tmp_2d)62 52 CALL histwrite_phy(nid_tra,"ftsol4",itau_w,pftsol4) 63 53 64 cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf1,zx_tmp_2d)65 54 CALL histwrite_phy(nid_tra,"psrf1",itau_w,ppsrf1) 66 55 67 cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf2,zx_tmp_2d)68 56 CALL histwrite_phy(nid_tra,"psrf2",itau_w,ppsrf2) 69 57 70 cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf3,zx_tmp_2d)71 58 CALL histwrite_phy(nid_tra,"psrf3",itau_w,ppsrf3) 72 59 73 cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf4,zx_tmp_2d)74 60 CALL histwrite_phy(nid_tra,"psrf4",itau_w,ppsrf4) 75 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pplay,zx_tmp_3d)76 61 CALL histwrite_phy(nid_tra,"pplay",itau_w,pplay) 77 62 78 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,t_seri,zx_tmp_3d)79 63 CALL histwrite_phy(nid_tra,"t",itau_w,t_seri) 80 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pmfu,zx_tmp_3d)81 64 CALL histwrite_phy(nid_tra,"mfu",itau_w,pmfu) 82 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pmfd,zx_tmp_3d)83 65 CALL histwrite_phy(nid_tra,"mfd",itau_w,pmfd) 84 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pen_u,zx_tmp_3d)85 66 CALL histwrite_phy(nid_tra,"en_u",itau_w,pen_u) 86 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pen_d,zx_tmp_3d)87 67 CALL histwrite_phy(nid_tra,"en_d",itau_w,pen_d) 88 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pde_d,zx_tmp_3d)89 68 CALL histwrite_phy(nid_tra,"de_d",itau_w,pde_d) 90 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pde_u,zx_tmp_3d)91 69 CALL histwrite_phy(nid_tra,"de_u",itau_w,pde_u) 92 cym CALL gr_fi_ecrit(klev,klon,iim,jjm+1,coefh,zx_tmp_3d)93 70 CALL histwrite_phy(nid_tra,"coefh",itau_w,coefh) 94 71
Note: See TracChangeset
for help on using the changeset viewer.