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

Timestamp:

Apr 13, 2005, 10:58:34 AM (19 years ago)

Author:

lmdzadmin

Message:

Mise a jour pour INCA.2.0 Anne C
MAFi+LF

File:

• LMDZ4/trunk/libf/phylmd/ini_histrac.h (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/ini_histrac.h

@@ -87 +87 @@
      .                "ave(X)", zsto,zout)
 
-#ifdef INCA_CH4
+#ifdef INCA
 #ifdef INCAINFO
          DO it=1, phtcnt
@@ -244 +244 @@
 
 #ifdef INCA
-#ifdef INCA_CH4
+!#ifdef INCA_CH4
          CALL histdef(nid_tra, "O3_column", "O3_column",
      .           "DU", iim,jjm+1,nhori, 1,1,1, -99, 32,
@@ -275 +275 @@
 !    .                "t_sum(X)", zsto,zout)
 
-#endif
+!#ENDIF
+
+!!! Ajout Anne
+!#ifdef INCA_AER
+!! for sulfur cycle
+!         CALL histdef(nid_tra, "SO2_p_dmsoh", "SO2_p_dmsoh", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "SO2_p_dmsno3", "SO2_p_dmsno3", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "SO2_p_h2soh", "SO2_p_h2soh", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "SO2_p_dmsooh", "SO2_p_dmsooh", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "DMSO_p_dmsoh", "DMSO_p_dmsoh", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "ASMSAM_p_dmsooh", "ASMSAM_p_dmsooh", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "ASSO4M_p_so2oh", "ASSO4M_p_so2oh", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "ASSO4M_p_so2h2o2", "ASSO4M_p_h2o2","CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "ASSO4M_p_so2o3", "ASSO4M_p_so2o3", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!
+!         CALL histdef(nid_tra, "Wet3D_SO2", "Wet3D_SO2",
+!     .           "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .           "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "Wet3D_DMS", "Wet3D_DMS",
+!     .           "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .           "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "Wet3D_HNO3", "Wet3D_HNO3",
+!     .           "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .           "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "Wet3D_H2O2", "Wet3D_H2O2",
+!     .           "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .           "ave(X)", zsto,zout)
+!
+!         CALL histdef(nid_tra, "PH_HIST", "pH over physics time step", "1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!#endif
+!
+!#ifdef INCA_NMHC
+!         CALL histdef(nid_tra, "CO2_basprod", "CO2_basprod", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "CO2_nmhcprod", "CO2_nmhcprod", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "CO2_radicalprod", "CO2_radicalprod", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "HNO3_prod", "HNO3_prod", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "HNO3_loss", "HNO3_loss", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "CO_prod", "CO_prod", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!         CALL histdef(nid_tra, "CO_loss", "CO_loss", "CM-3 S-1",
+!     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+!     .                "ave(X)", zsto,zout)
+!#endif
+!! Fin ajout Anne
 #else
          CALL histdef(nid_tra, "pyu1", "Vent niv 1", "-",