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) |