- Timestamp:
- Feb 21, 2006, 9:08:30 AM (19 years ago)
- Location:
- LMDZ4/trunk/libf/phylmd
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/ini_histrac.h
r673 r679 203 203 C champ 2D 204 204 #ifdef INCA 205 205 IF ( prt_flag_ts(it) == 0 ) CYCLE 206 206 CALL histdef(nid_tra, "Emi_"//solsym(it), "Emi_"//solsym(it), 207 207 . "kg/m2/s", iim,jjm+1,nhori, 1,1,1, -99, 32, -
LMDZ4/trunk/libf/phylmd/phytrac.F
r677 r679 346 346 INTEGER :: ncsec 347 347 348 INTEGER :: prt_flag_ts(nbtr)=(/ 349 #ifdef INCA_CH4 350 . 1,1,1,0,0,1,1,1,1,1, 351 . 0,1,0,0,0,0,0,1,0,0, 352 . 0,1,1,1,1,0,1,1,1,0, 353 . 1,1,1,1,1,1,1,1,1,1, 354 . 1,0,0 355 #ifdef INCA_AER 356 . ,1,1,1,1,0,1,1,1,1,0, 357 . 1,1,1,1,1,1,0,1,0,1, 358 . 1,1,1,1,0,1,0,1,1,1 359 #endif 360 #endif 361 #ifdef INCA_NMHC 362 . 1,1,1,1,1,1,1,1,1,1, 363 . 1,1,1,1,1,1,1,1,1,1, 364 . 1,1,1,1,1,1,1,1,1,1, 365 . 1,1,1,1,1,1,1,1,1,1, 366 . 1,1,1,1,1,1,1,1,1,1, 367 . 1,1,1,1,1,1,1,1,1,1, 368 . 1,1,1,1,1,1,1,1,1,1, 369 . 1,1,1,1,1,1,1,1,1,1, 370 . 1,1,1,1,1,1,1 371 #ifdef INCA_AER 372 . ,1,1,1,1,0,1,1,1,1,0, 373 . 1,1,1,1,1,1,0,1,0,1, 374 . 1,1,1,1,0,1,0,1,1,1 375 #endif 376 #endif 377 #if defined(INCA_AER) && !defined(INCA_CH4) && !defined(INCA_NMHC) 378 . 1,1,1,1,1,1,1,1,1,1, 379 . 1,1,1,1,1,1,1,1,1,1, 380 . 1,1,1,1,1,1,1,1,1 381 #endif 382 #if defined(INCA) && !defined(INCA_CH4) && !defined(INCA_NMHC) && !defined(INCA_AER) 383 . 1,1,1,1,1,1,1,1,1,1, 384 . 1 385 #endif 386 387 . /) 348 388 349 389 -
LMDZ4/trunk/libf/phylmd/write_histrac.h
r673 r679 219 219 C champs 2D 220 220 #ifdef INCA 221 IF ( prt_flag_ts(it) == 0 ) CYCLE 221 222 222 223 CALL gr_fi_ecrit(1, klon,iim,jjm+1, eflux(1,it),zx_tmp_2d)
Note: See TracChangeset
for help on using the changeset viewer.