/[lmdze]/trunk/phylmd/ini_histrac.f
ViewVC logotype

Diff of /trunk/phylmd/ini_histrac.f

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

revision 130 by guez, Fri Feb 13 18:22:38 2015 UTC revision 131 by guez, Fri Feb 27 16:44:07 2015 UTC
# Line 18  contains Line 18  contains
18      USE histdef_m, ONLY : histdef      USE histdef_m, ONLY : histdef
19      USE histend_m, ONLY : histend      USE histend_m, ONLY : histend
20      USE histvert_m, ONLY : histvert      USE histvert_m, ONLY : histvert
21      use iniadvtrac_m, only: tnom, ttext      use iniadvtrac_m, only: tname, ttext
22      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
23      use temps, only: itau_phy      use temps, only: itau_phy
24      USE ymds2ju_m, only: ymds2ju      USE ymds2ju_m, only: ymds2ju
# Line 63  contains Line 63  contains
63      DO it = 1, nq_phys      DO it = 1, nq_phys
64         ! champ 2D         ! champ 2D
65         iq=it+2         iq=it+2
66         CALL histdef(nid_tra, tnom(iq), ttext(iq), "U/kga", iim, jjm+1, &         CALL histdef(nid_tra, tname(iq), ttext(iq), "U/kga", iim, jjm+1, &
67              nhori, llm, 1, llm, nvert, "ave(X)", zsto, zout)              nhori, llm, 1, llm, nvert, "ave(X)", zsto, zout)
68         if (lessivage) THEN         if (lessivage) THEN
69            CALL histdef(nid_tra, "fl"//tnom(iq), "Flux "//ttext(iq), &            CALL histdef(nid_tra, "fl"//tname(iq), "Flux "//ttext(iq), &
70                 "U/m2/s", iim, jjm+1, nhori, llm, 1, llm, nvert, &                 "U/m2/s", iim, jjm+1, nhori, llm, 1, llm, nvert, &
71                 "ave(X)", zsto, zout)                 "ave(X)", zsto, zout)
72         endif         endif
73    
74         !---Ajout Olivia         !---Ajout Olivia
75         CALL histdef(nid_tra, "d_tr_th_"//tnom(iq), &         CALL histdef(nid_tra, "d_tr_th_"//tname(iq), &
76              "tendance thermique"// ttext(iq), "?", &              "tendance thermique"// ttext(iq), "?", &
77              iim, jjm+1, nhori, llm, 1, llm, nvert, &              iim, jjm+1, nhori, llm, 1, llm, nvert, &
78              "ave(X)", zsto, zout)              "ave(X)", zsto, zout)
79         CALL histdef(nid_tra, "d_tr_cv_"//tnom(iq), &         CALL histdef(nid_tra, "d_tr_cv_"//tname(iq), &
80              "tendance convection"// ttext(iq), "?", &              "tendance convection"// ttext(iq), "?", &
81              iim, jjm+1, nhori, llm, 1, llm, nvert, &              iim, jjm+1, nhori, llm, 1, llm, nvert, &
82              "ave(X)", zsto, zout)              "ave(X)", zsto, zout)
83         CALL histdef(nid_tra, "d_tr_cl_"//tnom(iq), &         CALL histdef(nid_tra, "d_tr_cl_"//tname(iq), &
84              "tendance couche limite"// ttext(iq), "?", &              "tendance couche limite"// ttext(iq), "?", &
85              iim, jjm+1, nhori, llm, 1, llm, nvert, &              iim, jjm+1, nhori, llm, 1, llm, nvert, &
86              "ave(X)", zsto, zout)              "ave(X)", zsto, zout)
Legend:
Removed from v.130  
changed lines
  Added in v.131
  ViewVC Help
Powered by ViewVC 1.1.21