Changeset 2243 for LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90
- Timestamp:
- Mar 24, 2015, 2:28:51 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90
r2240 r2243 24 24 REAL, ALLOCATABLE, SAVE :: ftsol(:,:) 25 25 !$OMP THREADPRIVATE(ftsol) 26 REAL,ALLOCATABLE,SAVE :: qsol(:),fevap(:,:),z0m(:,:),z0h(:,:),agesno(:,:) 27 !$OMP THREADPRIVATE(qsol,fevap,z0m,z0h,agesno) 26 28 ! character(len=6), SAVE :: ocean 27 29 !!!!!!$OMP THREADPRIVATE(ocean) … … 418 420 ALLOCATE(pctsrf(klon,nbsrf)) 419 421 ALLOCATE(ftsol(klon,nbsrf)) 422 ALLOCATE(qsol(klon),fevap(klon,nbsrf)) 423 ALLOCATE(z0m(klon,nbsrf+1),z0h(klon,nbsrf+1),agesno(klon,nbsrf)) 420 424 ALLOCATE(falb1(klon,nbsrf)) 421 425 ALLOCATE(falb2(klon,nbsrf)) … … 589 593 590 594 deallocate(rlat, rlon, pctsrf, ftsol, falb1, falb2) 595 deallocate(qsol,fevap,z0m,z0h,agesno) 591 596 deallocate(rain_fall, snow_fall, solsw, sollw, radsol) 592 597 deallocate(zmea, zstd, zsig, zgam)
Note: See TracChangeset
for help on using the changeset viewer.