Changeset 666 for LMDZ4/trunk/libf/phylmd

Timestamp:

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

Author:

lmdzadmin

Message:

Modifications pour INCA_AER AC
MAF

Location:

LMDZ4/trunk/libf/phylmd

Files:

• ini_histrac.h (modified) (1 diff)
• phytrac.F (modified) (2 diffs)

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
 

LMDZ4/trunk/libf/phylmd/phytrac.F

@@ -347 +347 @@
      .                                         1,1,1,1,1,1,1,1,1,1,
      .                                         1,0,0
-#ifdef INCA_AER
-     .                                         ,1,1,1,1,0,1,1,1
-#endif
-#endif
-#ifdef INCA_AER
-c aerosol tracers
-     .                                        ,1,0,1,1,1,1,1,1,0,1,
-     .                                         0,1,1,1,1,1,0,1,0,1,1,1
 #endif
 #ifdef INCA_NMHC
@@ -366 +358 @@
      .                                          1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      .                                          1, 1, 1, 1, 1, 1, 1
+#endif
+#ifdef INCA_AER
+     .                                         ,1,1,1,1,0,1,1,1
+#endif
+#ifdef INCA_AER
+c aerosol tracers
+     .                                        ,1,0,1,1,1,1,1,1,0,1,
+     .                                         0,1,1,1,1,1,0,1,0,1,1,1
 #endif
      .                                         /)