Changeset 2240 for LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90
- Timestamp:
- Mar 23, 2015, 5:07:43 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90
r2227 r2240 304 304 REAL,ALLOCATABLE,SAVE :: sollwdown(:) 305 305 !$OMP THREADPRIVATE(sollwdown) 306 REAL,ALLOCATABLE,SAVE :: gustiness(:) 307 !$OMP THREADPRIVATE(gustiness) 306 308 REAL,ALLOCATABLE,SAVE :: sollwdownclr(:) 307 309 !$OMP THREADPRIVATE(sollwdownclr) … … 544 546 ALLOCATE(albplap(klon)) 545 547 ALLOCATE(solswp(klon), sollwp(klon)) 548 ALLOCATE(gustiness(klon)) 546 549 ALLOCATE(sollwdownp(klon)) 547 550 ALLOCATE(topsw0p(klon),toplw0p(klon)) … … 664 667 deallocate(topsw, toplw) 665 668 deallocate(sollwdown, sollwdownclr) 669 deallocate(gustiness) 666 670 deallocate(toplwdown, toplwdownclr) 667 671 deallocate(topsw0,toplw0,solsw0,sollw0)
Note: See TracChangeset
for help on using the changeset viewer.