Changeset 1761 for LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90
- Timestamp:
- Jun 4, 2013, 12:11:38 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90
r1742 r1761 63 63 !$OMP THREADPRIVATE(ratqs) 64 64 REAL, ALLOCATABLE, SAVE :: pbl_tke(:,:,:) ! turb kinetic energy 65 !$OMP THREADPRIVATE(pbl_tke) 65 REAL, ALLOCATABLE, SAVE :: coefh(:,:,:) ! Kz enthalpie 66 REAL, ALLOCATABLE, SAVE :: coefm(:,:,:) ! Kz momentum 67 !$OMP THREADPRIVATE(pbl_tke, coefh,coefm) 66 68 REAL, ALLOCATABLE, SAVE :: zmax0(:), f0(:) ! 67 69 !$OMP THREADPRIVATE(zmax0,f0) … … 394 396 ALLOCATE(clwcon(klon,klev),rnebcon(klon,klev)) 395 397 ALLOCATE(ratqs(klon,klev)) 396 ALLOCATE(pbl_tke(klon,klev+1,nbsrf)) 398 ALLOCATE(pbl_tke(klon,klev+1,nbsrf+1)) 399 ALLOCATE(coefh(klon,klev+1,nbsrf+1)) 400 ALLOCATE(coefm(klon,klev+1,nbsrf+1)) 397 401 ALLOCATE(zmax0(klon), f0(klon)) 398 402 ALLOCATE(ema_work1(klon,klev), ema_work2(klon,klev)) … … 530 534 deallocate( u_ancien, v_ancien ) 531 535 deallocate( tr_ancien) !RomP 532 deallocate(ratqs, pbl_tke )536 deallocate(ratqs, pbl_tke,coefh,coefm) 533 537 deallocate(zmax0, f0) 534 538 deallocate(ema_work1, ema_work2)
Note: See TracChangeset
for help on using the changeset viewer.