Changeset 3888 for LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90
- Timestamp:
- May 5, 2021, 12:50:37 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90
r3856 r3888 32 32 REAL, ALLOCATABLE, SAVE :: ftsol(:,:) 33 33 !$OMP THREADPRIVATE(ftsol) 34 REAL, ALLOCATABLE, SAVE :: beta_aridity(:,:) 35 !$OMP THREADPRIVATE(beta_aridity) 34 36 REAL,ALLOCATABLE,SAVE :: qsol(:),fevap(:,:),z0m(:,:),z0h(:,:),agesno(:,:) 35 37 !$OMP THREADPRIVATE(qsol,fevap,z0m,z0h,agesno) … … 96 98 REAL, ALLOCATABLE, SAVE :: coefm(:,:,:) ! Kz momentum 97 99 !$OMP THREADPRIVATE(pbl_tke, coefh,coefm) 98 !nrlmd<99 REAL, ALLOCATABLE, SAVE :: delta_tsurf(:,:) ! Surface temperature difference inside-outside cold pool100 !$OMP THREADPRIVATE(delta_tsurf)101 !>nrlmd102 100 REAL, ALLOCATABLE, SAVE :: zmax0(:), f0(:) ! 103 101 !$OMP THREADPRIVATE(zmax0,f0) … … 276 274 REAL,ALLOCATABLE,SAVE :: wake_delta_pbl_TKE(:,:,:) 277 275 !$OMP THREADPRIVATE(wake_delta_pbl_TKE) 276 !nrlmd< 277 REAL, ALLOCATABLE, SAVE :: delta_tsurf(:,:) ! Surface temperature difference inside-outside cold pool 278 !$OMP THREADPRIVATE(delta_tsurf) 279 !>nrlmd 278 280 !>jyg 279 281 ! … … 478 480 ALLOCATE(pctsrf(klon,nbsrf)) 479 481 ALLOCATE(ftsol(klon,nbsrf)) 482 ALLOCATE(beta_aridity(klon,nbsrf)) 480 483 ALLOCATE(qsol(klon),fevap(klon,nbsrf)) 481 484 ALLOCATE(z0m(klon,nbsrf+1),z0h(klon,nbsrf+1),agesno(klon,nbsrf)) … … 674 677 675 678 DEALLOCATE(pctsrf, ftsol, falb1, falb2) 679 DEALLOCATE(beta_aridity) 676 680 DEALLOCATE(qsol,fevap,z0m,z0h,agesno) 677 681 !FC … … 687 691 DEALLOCATE(tr_ancien) !RomP 688 692 DEALLOCATE(ratqs, pbl_tke,coefh,coefm) 689 !nrlmd<690 DEALLOCATE(delta_tsurf)691 !>nrlmd692 693 DEALLOCATE(zmax0, f0) 693 694 DEALLOCATE(sig1, w01) … … 744 745 !jyg< 745 746 DEALLOCATE(wake_delta_pbl_TKE) 747 !nrlmd< 748 DEALLOCATE(delta_tsurf) 749 !>nrlmd 746 750 !>jyg 747 751 DEALLOCATE(pfrac_impa, pfrac_nucl)
Note: See TracChangeset
for help on using the changeset viewer.