/[lmdze]/trunk/libf/phylmd/ini_histday.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/ini_histday.f90

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

revision 60 by guez, Wed Jun 2 11:01:12 2010 UTC revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC
# Line 11  contains Line 11  contains
11      use dimens_m, only: iim, jjm, llm      use dimens_m, only: iim, jjm, llm
12      use temps, only: itau_phy, day_ref, annee_ref      use temps, only: itau_phy, day_ref, annee_ref
13      USE calendar, only: ymds2ju      USE calendar, only: ymds2ju
14      use histcom, only: histbeg_totreg, histvert, histend, histdef      USE histbeg_totreg_m, ONLY : histbeg_totreg
15        USE histdef_m, ONLY : histdef
16        USE histend_m, ONLY : histend
17        USE histvert_m, ONLY : histvert
18      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
19      use clesphys, only: ecrit_day      use clesphys, only: ecrit_day
20      use grid_change, only: gr_phy_write_2d      use grid_change, only: gr_phy_write_2d
# Line 39  contains Line 42  contains
42         if (nq <= 4) then         if (nq <= 4) then
43            call histdef(nid_day, "Sigma_O3_Royer", &            call histdef(nid_day, "Sigma_O3_Royer", &
44                 "column-density of ozone, in a cell, from Royer", "DU", &                 "column-density of ozone, in a cell, from Royer", "DU", &
45                 pxsize=iim, pysize=jjm+1, phoriid=nhori, pzsize=llm, &                 xsize=iim, ysize=jjm+1, horiid=nhori, pzsize=llm, par_oriz=1, &
46                 par_oriz=1, par_szz=llm, pzid=nvert, popp="ave(X)", &                 par_szz=llm, pzid=nvert, popp="ave(X)", pfreq_opp=dtime, &
47                 pfreq_opp=dtime, pfreq_wrt=real(ecrit_day))                 pfreq_wrt=real(ecrit_day))
48         end if         end if
49         CALL histend(nid_day)         CALL histend(nid_day)
50      ENDIF      ENDIF
Legend:
Removed from v.60  
changed lines
  Added in v.61
  ViewVC Help
Powered by ViewVC 1.1.21