Changeset 624 for LMDZ4/trunk/libf/phylmd/ini_histrac.h
- Timestamp:
- Apr 29, 2005, 9:58:12 AM (20 years ago)
- File:
-
- 1 edited
-
LMDZ4/trunk/libf/phylmd/ini_histrac.h (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/ini_histrac.h
r616 r624 277 277 !#ENDIF 278 278 279 !! !Ajout Anne280 !#ifdef INCA_AER281 ! !for sulfur cycle282 !CALL histdef(nid_tra, "SO2_p_dmsoh", "SO2_p_dmsoh", "CM-3 S-1",283 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,284 !. "ave(X)", zsto,zout)285 !CALL histdef(nid_tra, "SO2_p_dmsno3", "SO2_p_dmsno3", "CM-3 S-1",286 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,287 !. "ave(X)", zsto,zout)288 !CALL histdef(nid_tra, "SO2_p_h2soh", "SO2_p_h2soh", "CM-3 S-1",289 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,290 !. "ave(X)", zsto,zout)291 !CALL histdef(nid_tra, "SO2_p_dmsooh", "SO2_p_dmsooh", "CM-3 S-1",292 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,293 !. "ave(X)", zsto,zout)294 !CALL histdef(nid_tra, "DMSO_p_dmsoh", "DMSO_p_dmsoh", "CM-3 S-1",295 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,296 !. "ave(X)", zsto,zout)297 !CALL histdef(nid_tra, "ASMSAM_p_dmsooh", "ASMSAM_p_dmsooh", "CM-3 S-1",298 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,299 !. "ave(X)", zsto,zout)300 !CALL histdef(nid_tra, "ASSO4M_p_so2oh", "ASSO4M_p_so2oh", "CM-3 S-1",301 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,302 !. "ave(X)", zsto,zout)303 !CALL histdef(nid_tra, "ASSO4M_p_so2h2o2", "ASSO4M_p_h2o2","CM-3 S-1",304 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,305 !. "ave(X)", zsto,zout)306 !CALL histdef(nid_tra, "ASSO4M_p_so2o3", "ASSO4M_p_so2o3", "CM-3 S-1",307 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,308 !. "ave(X)", zsto,zout)309 ! 310 !CALL histdef(nid_tra, "Wet3D_SO2", "Wet3D_SO2",311 !. "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,312 !. "ave(X)", zsto,zout)313 !CALL histdef(nid_tra, "Wet3D_DMS", "Wet3D_DMS",314 !. "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,315 !. "ave(X)", zsto,zout)316 !CALL histdef(nid_tra, "Wet3D_HNO3", "Wet3D_HNO3",317 !. "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,318 !. "ave(X)", zsto,zout)319 !CALL histdef(nid_tra, "Wet3D_H2O2", "Wet3D_H2O2",320 !. "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,321 !. "ave(X)", zsto,zout)322 ! 323 !CALL histdef(nid_tra, "PH_HIST", "pH over physics time step", "1",324 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,325 !. "ave(X)", zsto,zout)326 !#endif327 ! 328 !#ifdef INCA_NMHC329 !CALL histdef(nid_tra, "CO2_basprod", "CO2_basprod", "CM-3 S-1",330 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,331 !. "ave(X)", zsto,zout)332 !CALL histdef(nid_tra, "CO2_nmhcprod", "CO2_nmhcprod", "CM-3 S-1",333 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,334 !. "ave(X)", zsto,zout)335 !CALL histdef(nid_tra, "CO2_radicalprod", "CO2_radicalprod", "CM-3 S-1",336 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,337 !. "ave(X)", zsto,zout)338 !CALL histdef(nid_tra, "HNO3_prod", "HNO3_prod", "CM-3 S-1",339 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,340 !. "ave(X)", zsto,zout)341 !CALL histdef(nid_tra, "HNO3_loss", "HNO3_loss", "CM-3 S-1",342 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,343 !. "ave(X)", zsto,zout)344 !CALL histdef(nid_tra, "CO_prod", "CO_prod", "CM-3 S-1",345 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,346 !. "ave(X)", zsto,zout)347 !CALL histdef(nid_tra, "CO_loss", "CO_loss", "CM-3 S-1",348 !. iim,jjm+1,nhori, klev,1,klev,nvert, 32,349 !. "ave(X)", zsto,zout)350 !#endif351 ! !Fin ajout Anne279 !! Ajout Anne 280 #ifdef INCA_AER 281 ! for sulfur cycle 282 CALL histdef(nid_tra, "SO2_p_dmsoh", "SO2_p_dmsoh", "CM-3 S-1", 283 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 284 . "ave(X)", zsto,zout) 285 CALL histdef(nid_tra, "SO2_p_dmsno3", "SO2_p_dmsno3", "CM-3 S-1", 286 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 287 . "ave(X)", zsto,zout) 288 CALL histdef(nid_tra, "SO2_p_h2soh", "SO2_p_h2soh", "CM-3 S-1", 289 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 290 . "ave(X)", zsto,zout) 291 CALL histdef(nid_tra, "SO2_p_dmsooh", "SO2_p_dmsooh", "CM-3 S-1", 292 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 293 . "ave(X)", zsto,zout) 294 CALL histdef(nid_tra, "DMSO_p_dmsoh", "DMSO_p_dmsoh", "CM-3 S-1", 295 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 296 . "ave(X)", zsto,zout) 297 CALL histdef(nid_tra, "ASMSAM_p_dmsooh", "ASMSAM_p_dmsooh", "CM-3 S-1", 298 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 299 . "ave(X)", zsto,zout) 300 CALL histdef(nid_tra, "ASSO4M_p_so2oh", "ASSO4M_p_so2oh", "CM-3 S-1", 301 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 302 . "ave(X)", zsto,zout) 303 CALL histdef(nid_tra, "ASSO4M_p_so2h2o2", "ASSO4M_p_h2o2","CM-3 S-1", 304 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 305 . "ave(X)", zsto,zout) 306 CALL histdef(nid_tra, "ASSO4M_p_so2o3", "ASSO4M_p_so2o3", "CM-3 S-1", 307 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 308 . "ave(X)", zsto,zout) 309 310 CALL histdef(nid_tra, "Wet3D_SO2", "Wet3D_SO2", 311 . "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32, 312 . "ave(X)", zsto,zout) 313 CALL histdef(nid_tra, "Wet3D_DMS", "Wet3D_DMS", 314 . "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32, 315 . "ave(X)", zsto,zout) 316 CALL histdef(nid_tra, "Wet3D_HNO3", "Wet3D_HNO3", 317 . "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32, 318 . "ave(X)", zsto,zout) 319 CALL histdef(nid_tra, "Wet3D_H2O2", "Wet3D_H2O2", 320 . "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32, 321 . "ave(X)", zsto,zout) 322 323 CALL histdef(nid_tra, "PH_HIST", "pH over physics time step", "1", 324 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 325 . "ave(X)", zsto,zout) 326 #endif 327 328 #ifdef INCA_NMHC 329 CALL histdef(nid_tra, "CO2_basprod", "CO2_basprod", "CM-3 S-1", 330 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 331 . "ave(X)", zsto,zout) 332 CALL histdef(nid_tra, "CO2_nmhcprod", "CO2_nmhcprod", "CM-3 S-1", 333 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 334 . "ave(X)", zsto,zout) 335 CALL histdef(nid_tra, "CO2_radicalprod", "CO2_radicalprod", "CM-3 S-1", 336 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 337 . "ave(X)", zsto,zout) 338 CALL histdef(nid_tra, "HNO3_prod", "HNO3_prod", "CM-3 S-1", 339 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 340 . "ave(X)", zsto,zout) 341 CALL histdef(nid_tra, "HNO3_loss", "HNO3_loss", "CM-3 S-1", 342 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 343 . "ave(X)", zsto,zout) 344 CALL histdef(nid_tra, "CO_prod", "CO_prod", "CM-3 S-1", 345 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 346 . "ave(X)", zsto,zout) 347 CALL histdef(nid_tra, "CO_loss", "CO_loss", "CM-3 S-1", 348 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 349 . "ave(X)", zsto,zout) 350 #endif 351 ! Fin ajout Anne 352 352 #else 353 353 CALL histdef(nid_tra, "pyu1", "Vent niv 1", "-",
Note: See TracChangeset
for help on using the changeset viewer.
