Changeset 4887 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
- Timestamp:
- Apr 2, 2024, 1:14:33 PM (7 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
r4881 r4887 319 319 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: JrNt 320 320 !$OMP THREADPRIVATE(JrNt) 321 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: dthmin, evap, snowerosion, fder, plcl, plfc, prw, prlw, prsw, prbsw 322 !$OMP THREADPRIVATE(dthmin, evap, snowerosion, fder, plcl, plfc, prw, prlw, prsw, prbsw )321 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: dthmin, evap, snowerosion, fder, plcl, plfc, prw, prlw, prsw, prbsw, water_budget 322 !$OMP THREADPRIVATE(dthmin, evap, snowerosion, fder, plcl, plfc, prw, prlw, prsw, prbsw, water_budget) 323 323 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zustar, zu10m, zv10m, rh2m 324 324 !$OMP THREADPRIVATE(zustar, zu10m, zv10m, rh2m) … … 829 829 ALLOCATE(JrNt(klon)) 830 830 ALLOCATE(dthmin(klon), evap(klon), snowerosion(klon), fder(klon), plcl(klon), plfc(klon)) 831 ALLOCATE(prw(klon), prlw(klon), prsw(klon), prbsw(klon), zustar(klon), zu10m(klon), zv10m(klon), rh2m(klon))831 ALLOCATE(prw(klon), prlw(klon), prsw(klon), prbsw(klon), water_budget(klon), zustar(klon), zu10m(klon), zv10m(klon), rh2m(klon)) 832 832 ALLOCATE(s_lcl(klon)) 833 833 ALLOCATE(s_pblh(klon), s_pblt(klon), s_therm(klon)) … … 1163 1163 DEALLOCATE(JrNt) 1164 1164 DEALLOCATE(dthmin, evap, snowerosion, fder, plcl, plfc) 1165 DEALLOCATE(prw, prlw, prsw, prbsw, zustar, zu10m, zv10m, rh2m, s_lcl)1165 DEALLOCATE(prw, prlw, prsw, prbsw, water_budget, zustar, zu10m, zv10m, rh2m, s_lcl) 1166 1166 DEALLOCATE(s_pblh, s_pblt, s_therm) 1167 1167 !
Note: See TracChangeset
for help on using the changeset viewer.