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

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

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

revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC revision 67 by guez, Tue Oct 2 15:50:56 2012 UTC
# Line 20  contains Line 20  contains
20      USE histdef_m, ONLY : histdef      USE histdef_m, ONLY : histdef
21      USE histend_m, ONLY : histend      USE histend_m, ONLY : histend
22      USE histvert_m, ONLY : histvert      USE histvert_m, ONLY : histvert
23      use comvert, only: presnivs      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 49  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.61  
changed lines
  Added in v.67
  ViewVC Help
Powered by ViewVC 1.1.21