Changeset 759 for LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/ini_histrac.h
- Timestamp:
- May 22, 2007, 3:55:22 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/ini_histrac.h
r740 r759 17 17 18 18 #ifdef INCA_AER 19 CALL histbeg("histrac_aer", iim,zx_lon , jjm+1,zx_lat,19 CALL histbeg("histrac_aer", iim,zx_lon(:,1), jjm+1,zx_lat(1,:), 20 20 . 1,iim,1,jjm+1, itau_phy, zjulian, pdtphys, 21 21 . nhori, nid_tra2) … … 25 25 . nhori, nid_tra3) 26 26 27 call histvert(nid_tra2, "presnivs", " presnivs", "mb",27 call histvert(nid_tra2, "presnivs", "Vertical levels", "mb", 28 28 . klev, presnivs, nvert) 29 29 call histvert(nid_tra3, "presnivs", "presnivs", "mb", … … 92 92 #ifdef INCA 93 93 #ifdef INCAINFO 94 95 #ifdef INCA_CH4 94 96 DO it=1, phtcnt 95 97 WRITE(str2,'(i2.2)') it … … 111 113 . "ave(X)", zsto,zout) 112 114 ENDDO 113 115 #endif 116 #ifdef INCA_NMHC 117 DO it=1, phtcnt 118 WRITE(str2,'(i2.2)') it 119 CALL histdef(nid_tra, "j"//str2,"j"//str2, "CM-3 S-1", 120 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 121 . "ave(X)", zsto,zout) 122 ENDDO 123 DO it=1, hetcnt 124 WRITE(str2,'(i2.2)') it 125 CALL histdef(nid_tra, "w"//str2,"w"//str2, "S-1", 126 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 127 . "ave(X)", zsto,zout) 128 ENDDO 129 DO it=1, extcnt 130 WRITE(str2,'(i2.2)') it 131 CALL histdef(nid_tra, "ext"//str2,"ext"//str2, "CM-3 S-1", 132 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 133 . "ave(X)", zsto,zout) 134 ENDDO 135 #endif 114 136 DO it=1, nfs 115 137 WRITE(str2,'(i2.2)') it … … 120 142 121 143 #else 144 145 #ifdef INCA_NMHC 122 146 CALL histdef(nid_tra, "jO3","jO3", "CM-3 S-1", 123 147 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, … … 139 163 . "ave(X)", zsto,zout) 140 164 #endif 141 142 DO it=1, grpcnt 143 CALL histdef(nid_tra, grpsym(it), grpsym(it), "VMR", 144 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 145 . "ave(X)", zsto,zout) 146 ENDDO 165 #ifdef INCA_CH4 166 CALL histdef(nid_tra, "jO3","jO3", "CM-3 S-1", 167 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 168 . "ave(X)", zsto,zout) 169 CALL histdef(nid_tra, "jNO2","jNO2", "CM-3 S-1", 170 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 171 . "ave(X)", zsto,zout) 172 CALL histdef(nid_tra, "jH2O2","jH2O2", "CM-3 S-1", 173 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 174 . "ave(X)", zsto,zout) 175 CALL histdef(nid_tra, "wHNO3","wHNO3", "S-1", 176 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 177 . "ave(X)", zsto,zout) 178 CALL histdef(nid_tra, "kN2O5", "kN2O5","CM-3 S-1", 179 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 180 . "ave(X)", zsto,zout) 181 CALL histdef(nid_tra, "LghtNO","LghtNO", "CM-3 S-1", 182 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 183 . "ave(X)", zsto,zout) 184 #endif 185 #endif 186 187 ! DO it=1, grpcnt 188 ! CALL histdef(nid_tra, grpsym(it), grpsym(it), "VMR", 189 ! . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 190 ! . "ave(X)", zsto,zout) 191 ! ENDDO 147 192 #endif 148 193 … … 349 394 #endif 350 395 396 #ifdef INCA_CH4 397 DO it=1, grpcnt 398 CALL histdef(nid_tra, grpsym(it), grpsym(it), "VMR", 399 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 400 . "ave(X)", zsto,zout) 401 ENDDO 402 403 #endif 404 405 351 406 #ifdef INCA_NMHC 352 407 CALL histdef(nid_tra, "CO2_basprod", "CO2_basprod", "CM-3 S-1", … … 371 426 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 372 427 . "ave(X)", zsto,zout) 428 429 DO it=1, grpcnt 430 CALL histdef(nid_tra, grpsym(it), grpsym(it), "VMR", 431 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 432 . "ave(X)", zsto,zout) 433 ENDDO 434 435 373 436 #endif 374 437 ! Fin ajout Anne … … 376 439 CALL histdef(nid_tra, "pyu1", "Vent niv 1", "-", 377 440 . iim,jjm+1,nhori, 1,1,1, -99, 32, 378 . "inst(X)", zsto,zout)441 . "inst(X)", zout,zout) 379 442 380 443 CALL histdef(nid_tra, "pyv1", "Vent niv 1", "-", 381 444 . iim,jjm+1,nhori, 1,1,1, -99, 32, 382 . "inst(X)", z sto,zout)445 . "inst(X)", zout,zout) 383 446 CALL histdef(nid_tra, "psrf1", "nature sol", "-", 384 447 . iim,jjm+1,nhori, 1,1,1, -99, 32, 385 . "inst(X)", z sto,zout)448 . "inst(X)", zout,zout) 386 449 CALL histdef(nid_tra, "psrf2", "nature sol", "-", 387 450 . iim,jjm+1,nhori, 1,1,1, -99, 32, 388 . "inst(X)", z sto,zout)451 . "inst(X)", zout,zout) 389 452 CALL histdef(nid_tra, "psrf3", "nature sol", "-", 390 453 . iim,jjm+1,nhori, 1,1,1, -99, 32, 391 . "inst(X)", z sto,zout)454 . "inst(X)", zout,zout) 392 455 CALL histdef(nid_tra, "psrf4", "nature sol", "-", 393 456 . iim,jjm+1,nhori, 1,1,1, -99, 32, 394 . "inst(X)", z sto,zout)457 . "inst(X)", zout,zout) 395 458 CALL histdef(nid_tra, "ftsol1", "temper sol", "-", 396 459 . iim,jjm+1,nhori, 1,1,1, -99, 32, 397 . "inst(X)", z sto,zout)460 . "inst(X)", zout,zout) 398 461 CALL histdef(nid_tra, "ftsol2", "temper sol", "-", 399 462 . iim,jjm+1,nhori, 1,1,1, -99, 32, 400 . "inst(X)", z sto,zout)463 . "inst(X)", zout,zout) 401 464 CALL histdef(nid_tra, "ftsol3", "temper sol", "-", 402 465 . iim,jjm+1,nhori, 1,1,1, -99, 32, 403 . "inst ", zsto,zout)466 . "inst(X)", zout,zout) 404 467 CALL histdef(nid_tra, "ftsol4", "temper sol", "-", 405 468 . iim,jjm+1,nhori, 1,1,1, -99, 32, 406 . "inst(X)", z sto,zout)469 . "inst(X)", zout,zout) 407 470 CALL histdef(nid_tra, "pplay", "flux u mont","-", 408 471 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 409 . "inst(X)", z sto,zout)472 . "inst(X)", zout,zout) 410 473 CALL histdef(nid_tra, "t", "flux u mont","-", 411 474 . iim,jjm+1,nhori, klev,1,klev,nvert, 32, 412 . "inst(X)", z sto,zout)475 . "inst(X)", zout,zout) 413 476 CALL histdef(nid_tra, "mfu", "flux u mont","-", 414 477 . iim,jjm+1,nhori, klev,1,klev,nvert, 32,
Note: See TracChangeset
for help on using the changeset viewer.