Changeset 666 for LMDZ4/trunk/libf/phylmd/ini_histrac.h

Timestamp:

Oct 4, 2005, 10:35:44 AM (19 years ago)

Author:

lmdzadmin

Message:

Modifications pour INCA_AER AC
MAF

File:

• LMDZ4/trunk/libf/phylmd/ini_histrac.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/ini_histrac.h

@@ -17 +17 @@
 
 #ifdef INCA_AER
-         CALL histbeg("histrac_aer", iim,zx_lon, jjm+1,zx_lat,
+         CALL histbeg("histrac_aer", iim,zx_lon(:,1), jjm+1,zx_lat(1,:),
      .                 1,iim,1,jjm+1,  itau_phy, zjulian, pdtphys,
      .                 nhori, nid_tra2)
 
-         CALL histbeg("histrac_inst", iim,zx_lon, jjm+1,zx_lat,
+         CALL histbeg("histrac_inst", iim,zx_lon(:,1), jjm+1,zx_lat(1,:),
      .                 1,iim,1,jjm+1,  itau_phy, zjulian, pdtphys,
      .                 nhori, nid_tra3)
 
-         call histvert(nid_tra2, "presnivs", "presnivs", "mb",
+         call histvert(nid_tra2, "presnivs", "Vertical levels", "mb",
      .                 klev, presnivs, nvert)
-         call histvert(nid_tra3, "presnivs", "presnivs", "mb",
+
+         call histvert(nid_tra3, "presnivs", "Vertical levels", "mb",
      .                 klev, presnivs, nvert)
-#endif
-
-#ifdef INCA
-!        call histvert(nid_tra, "ap", "Hybrid A parameter", "-",
-!    .                 klev+1, ap, nverta)
-!        call histvert(nid_tra, "bp", "Hybrid B parameter", "-",
-!    .                 klev+1, bp, nvertb)
 #endif