- Timestamp:
- Jun 3, 2011, 7:28:17 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_AR5/libf/phylmd/phys_state_var_mod.F90
r1398 r1534 274 274 REAL,ALLOCATABLE,SAVE :: albpla(:) 275 275 !$OMP THREADPRIVATE(albpla) 276 277 !IM ajout variables CFMIP2/CMIP5 278 REAL,ALLOCATABLE,SAVE :: heatp(:,:), coolp(:,:) 279 !$OMP THREADPRIVATE(heatp, coolp) 280 REAL,ALLOCATABLE,SAVE :: heat0p(:,:), cool0p(:,:) 281 !$OMP THREADPRIVATE(heat0p, cool0p) 282 REAL,ALLOCATABLE,SAVE :: radsolp(:), topswp(:), toplwp(:) 283 !$OMP THREADPRIVATE(radsolp, topswp, toplwp) 284 REAL,ALLOCATABLE,SAVE :: albplap(:) 285 !$OMP THREADPRIVATE(albplap) 286 REAL,ALLOCATABLE,SAVE :: solswp(:), sollwp(:) 287 !$OMP THREADPRIVATE(solswp, sollwp) 288 REAL,ALLOCATABLE,SAVE :: sollwdownp(:) 289 !$OMP THREADPRIVATE(sollwdownp) 290 REAL,ALLOCATABLE,SAVE :: topsw0p(:),toplw0p(:) 291 REAL,ALLOCATABLE,SAVE :: solsw0p(:),sollw0p(:) 292 !$OMP THREADPRIVATE(topsw0p,toplw0p,solsw0p,sollw0p) 293 REAL,ALLOCATABLE,SAVE :: lwdn0p(:,:), lwdnp(:,:) 294 REAL,ALLOCATABLE,SAVE :: lwup0p(:,:), lwupp(:,:) 295 !$OMP THREADPRIVATE(lwdn0p, lwdnp, lwup0p, lwupp) 296 REAL,ALLOCATABLE,SAVE :: swdn0p(:,:), swdnp(:,:) 297 REAL,ALLOCATABLE,SAVE :: swup0p(:,:), swupp(:,:) 298 !$OMP THREADPRIVATE(swdn0p, swdnp, swup0p, swupp) 299 276 300 ! pbase : cloud base pressure 277 301 ! bbase : cloud base buoyancy … … 439 463 ALLOCATE(topsw0(klon),toplw0(klon),solsw0(klon),sollw0(klon)) 440 464 ALLOCATE(albpla(klon)) 465 !IM ajout variables CFMIP2/CMIP5 466 ALLOCATE(heatp(klon,klev), coolp(klon,klev)) 467 ALLOCATE(heat0p(klon,klev), cool0p(klon,klev)) 468 ALLOCATE(radsolp(klon), topswp(klon), toplwp(klon)) 469 ALLOCATE(albplap(klon)) 470 ALLOCATE(solswp(klon), sollwp(klon)) 471 ALLOCATE(sollwdownp(klon)) 472 ALLOCATE(topsw0p(klon),toplw0p(klon)) 473 ALLOCATE(solsw0p(klon),sollw0p(klon)) 474 ALLOCATE(lwdn0p(klon,klevp1), lwdnp(klon,klevp1)) 475 ALLOCATE(lwup0p(klon,klevp1), lwupp(klon,klevp1)) 476 ALLOCATE(swdn0p(klon,klevp1), swdnp(klon,klevp1)) 477 ALLOCATE(swup0p(klon,klevp1), swupp(klon,klevp1)) 478 441 479 ALLOCATE(cape(klon)) 442 480 ALLOCATE(pbase(klon),bbase(klon)) … … 532 570 deallocate(topsw0,toplw0,solsw0,sollw0) 533 571 deallocate(albpla) 572 !IM ajout variables CFMIP2/CMIP5 573 deallocate(heatp, coolp) 574 deallocate(heat0p, cool0p) 575 deallocate(radsolp, topswp, toplwp) 576 deallocate(albplap) 577 deallocate(solswp, sollwp) 578 deallocate(sollwdownp) 579 deallocate(topsw0p,toplw0p) 580 deallocate(solsw0p,sollw0p) 581 deallocate(lwdn0p, lwdnp) 582 deallocate(lwup0p, lwupp) 583 deallocate(swdn0p, swdnp) 584 deallocate(swup0p, swupp) 534 585 deallocate(cape) 535 586 deallocate(pbase,bbase)
Note: See TracChangeset
for help on using the changeset viewer.