Changeset 3496 for LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90
- Timestamp:
- May 10, 2019, 12:17:35 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90
r3479 r3496 202 202 REAL,ALLOCATABLE,SAVE :: ema_pcb(:), ema_pct(:) 203 203 !$OMP THREADPRIVATE(ema_pcb,ema_pct) 204 REAL,ALLOCATABLE,SAVE :: Ma(:,:) ! undilute upward mass flux 204 REAL,ALLOCATABLE,SAVE :: Mipsh(:,:) ! mass flux shed from adiab. ascents 205 !$OMP THREADPRIVATE(Mipsh) 206 REAL,ALLOCATABLE,SAVE :: Ma(:,:) ! undilute upward mass flux 205 207 !$OMP THREADPRIVATE(Ma) 206 208 REAL,ALLOCATABLE,SAVE :: qcondc(:,:) ! in-cld water content from convect … … 541 543 ALLOCATE(ema_pcb(klon), ema_pct(klon)) 542 544 ! 545 ALLOCATE(Mipsh(klon,klev)) 543 546 ALLOCATE(Ma(klon,klev)) 544 547 ALLOCATE(qcondc(klon,klev)) … … 699 702 deallocate(ema_cbmf) 700 703 deallocate(ema_pcb, ema_pct) 701 deallocate(M a, qcondc)704 deallocate(Mipsh, Ma, qcondc) 702 705 deallocate(wd, sigd) 703 706 deallocate(cin, ALE, ALP)
Note: See TracChangeset
for help on using the changeset viewer.