Changeset 3496 for LMDZ6/trunk/libf/phylmd/phys_local_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_local_var_mod.F90
r3489 r3496 416 416 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: pmflxr, pmflxs 417 417 !$OMP THREADPRIVATE(pmflxr, pmflxs) 418 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: wdtrainA, wdtrain M419 !$OMP THREADPRIVATE(wdtrainA, wdtrain M)418 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: wdtrainA, wdtrainS, wdtrainM 419 !$OMP THREADPRIVATE(wdtrainA, wdtrainS, wdtrainM) 420 420 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: da, mp 421 421 !$OMP THREADPRIVATE(da, mp) … … 428 428 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ev 429 429 !$OMP THREADPRIVATE(ev) 430 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: qtaa 431 !$OMP THREADPRIVATE(qtaa) 430 432 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: clw 431 433 !$OMP THREADPRIVATE(clw) … … 791 793 ! Deep convective variables used in phytrac 792 794 ALLOCATE(pmflxr(klon, klev+1), pmflxs(klon, klev+1)) 793 ALLOCATE(wdtrainA(klon,klev),wdtrain M(klon,klev))795 ALLOCATE(wdtrainA(klon,klev),wdtrainS(klon,klev),wdtrainM(klon,klev)) 794 796 ALLOCATE(dnwd(klon, klev), upwd(klon, klev) ) 795 797 ALLOCATE(ep(klon,klev)) ! epmax_cape … … 801 803 ALLOCATE(ev(klon,klev) ) 802 804 ALLOCATE(elij(klon,klev,klev) ) 805 ALLOCATE(qtaa(klon,klev) ) 803 806 ALLOCATE(clw(klon,klev) ) 804 807 ALLOCATE(epmlmMm(klon,klev,klev), eplaMm(klon,klev) ) … … 1082 1085 1083 1086 DEALLOCATE(pmflxr, pmflxs) 1084 DEALLOCATE(wdtrainA, wdtrain M)1087 DEALLOCATE(wdtrainA, wdtrainS, wdtrainM) 1085 1088 DEALLOCATE(upwd, dnwd) 1086 1089 DEALLOCATE(ep) … … 1092 1095 DEALLOCATE(ev ) 1093 1096 DEALLOCATE(elij ) 1097 DEALLOCATE(qtaa ) 1094 1098 DEALLOCATE(clw ) 1095 1099 DEALLOCATE(epmlmMm, eplaMm )
Note: See TracChangeset
for help on using the changeset viewer.