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

Diff of /trunk/phylmd/ini_histhf3d.f

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

trunk/libf/phylmd/ini_histhf3d.f90 revision 34 by guez, Wed Jun 2 11:01:12 2010 UTC trunk/phylmd/ini_histhf3d.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 16  contains Line 16  contains
16      use clesphys, only: ecrit_hf      use clesphys, only: ecrit_hf
17      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
18      USE calendar, only: ymds2ju      USE calendar, only: ymds2ju
19      use histcom, only: histbeg_totreg, histvert, histend, histdef      USE histbeg_totreg_m, ONLY : histbeg_totreg
20      use comvert, only: presnivs      USE histdef_m, ONLY : histdef
21        USE histend_m, ONLY : histend
22        USE histvert_m, ONLY : histvert
23        use disvert_m, only: presnivs
24    
25      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
26      integer, intent(out):: nid_hf3d      integer, intent(out):: nid_hf3d
# Line 46  contains Line 49  contains
49           (jjm + 1), itau_phy, zjulian, dtime, nhori, nid_hf3d)           (jjm + 1), itau_phy, zjulian, dtime, nhori, nid_hf3d)
50    
51      CALL histvert(nid_hf3d, "presnivs", "Vertical levels", "mb", &      CALL histvert(nid_hf3d, "presnivs", "Vertical levels", "mb", &
52           llm, presnivs/100., nvert)           presnivs/100., nvert)
53    
54      ! Champs 3D:      ! Champs 3D:
55    
Legend:
Removed from v.34  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21