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

Diff of /trunk/phylmd/ini_histhf.f

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

trunk/libf/phylmd/ini_histhf.f90 revision 34 by guez, Wed Jun 2 11:01:12 2010 UTC trunk/phylmd/ini_histhf.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC
# Line 12  contains Line 12  contains
12      use temps, only: day_ref, annee_ref, itau_phy      use temps, only: day_ref, annee_ref, itau_phy
13      use dimphy, only: klon      use dimphy, only: klon
14      USE calendar, only: ymds2ju      USE calendar, only: ymds2ju
15      use histcom, only: histbeg_totreg, histvert, histend      USE histbeg_totreg_m, ONLY : histbeg_totreg
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 comvert, only: presnivs      use disvert_m, only: presnivs
20      use ini_histhf3d_m, only: ini_histhf3d      use ini_histhf3d_m, only: ini_histhf3d
21    
22      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
# Line 40  contains Line 42  contains
42      CALL histbeg_totreg("histhf", zx_lon(:, 1), zx_lat(1, :), 1, iim, 1, &      CALL histbeg_totreg("histhf", zx_lon(:, 1), zx_lat(1, :), 1, iim, 1, &
43           (jjm + 1), itau_phy, zjulian, dtime, nhori, nid_hf)           (jjm + 1), itau_phy, zjulian, dtime, nhori, nid_hf)
44    
45      CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", &      CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", presnivs/100., &
46           llm, presnivs/100., nvert)           nvert)
47    
48      call ini_histhf3d(dtime, nid_hf3d)      call ini_histhf3d(dtime, nid_hf3d)
49      CALL histend(nid_hf)      CALL histend(nid_hf)
Legend:
Removed from v.34  
changed lines
  Added in v.82
  ViewVC Help
Powered by ViewVC 1.1.21