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

Diff of /trunk/libf/phylmd/ini_histrac.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 21  contains Line 21  contains
21      use clesphys, only: ecrit_tra      use clesphys, only: ecrit_tra
22      use grid_change, only: gr_phy_write_2d      use grid_change, only: gr_phy_write_2d
23      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
24      use comvert, only: presnivs      use disvert_m, only: presnivs
25    
26      INTEGER, intent(out):: nid_tra      INTEGER, intent(out):: nid_tra
27      real, intent(in):: pdtphys  ! pas d'integration pour la physique (s)      real, intent(in):: pdtphys  ! pas d'integration pour la physique (s)
# Line 45  contains Line 45  contains
45      zx_lat(:, :) = gr_phy_write_2d(rlat)      zx_lat(:, :) = gr_phy_write_2d(rlat)
46      CALL histbeg_totreg("histrac", rlon(2:iim+1), zx_lat(1, :), &      CALL histbeg_totreg("histrac", rlon(2:iim+1), zx_lat(1, :), &
47           1, iim, 1, jjm+1, itau_phy, zjulian, pdtphys, nhori, nid_tra)           1, iim, 1, jjm+1, itau_phy, zjulian, pdtphys, nhori, nid_tra)
48      CALL histvert(nid_tra, "presnivs", "Vertical levels", "mb", llm, &      CALL histvert(nid_tra, "presnivs", "Vertical levels", "mb", presnivs, nvert)
          presnivs, nvert)  
49    
50      zsto = pdtphys      zsto = pdtphys
51      zout = pdtphys * REAL(ecrit_tra)      zout = pdtphys * REAL(ecrit_tra)
Legend:
Removed from v.61  
changed lines
  Added in v.67
  ViewVC Help
Powered by ViewVC 1.1.21