- Timestamp:
- Feb 22, 2021, 12:44:07 PM (4 years ago)
- Location:
- LMDZ6/branches/LMDZ-tracers
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ-tracers/libf/phylmd/phys_local_var_mod.F90
r3662 r3851 16 16 REAL, SAVE, ALLOCATABLE :: u_seri(:,:), v_seri(:,:) 17 17 !$OMP THREADPRIVATE(u_seri, v_seri) 18 REAL, SAVE, ALLOCATABLE :: l_mixmin(:,:,:), l_mix(:,:,:) 19 !$OMP THREADPRIVATE(l_mixmin, l_mix) 20 18 REAL, SAVE, ALLOCATABLE :: l_mixmin(:,:,:), l_mix(:,:,:), tke_dissip(:,:,:) 19 !$OMP THREADPRIVATE(l_mixmin, l_mix, tke_dissip) 21 20 REAL, SAVE, ALLOCATABLE :: tr_seri(:,:,:) 22 21 !$OMP THREADPRIVATE(tr_seri) … … 301 300 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cldh, cldl, cldm, cldq, cldt, qsat2m 302 301 !$OMP THREADPRIVATE(cldh, cldl, cldm, cldq, cldt, qsat2m ) 303 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cldhjn, cldljn, cldmjn,cldtjn 304 !$OMP THREADPRIVATE(cldhjn, cldljn, cldmjn, cldtjn) 302 !AS: cldhjn, cldljn, cldmjn,cldtjn pas utilisés en tant que variables, juste noms de diagnostics 305 303 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: JrNt 306 304 !$OMP THREADPRIVATE(JrNt) … … 380 378 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: t2m_min_mon, t2m_max_mon 381 379 !$OMP THREADPRIVATE(t2m_min_mon, t2m_max_mon) 382 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zq2m_cor, zt2m_cor383 !$OMP THREADPRIVATE(zq2m_cor, zt2m_cor)384 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zu10m_cor, zv10m_cor385 !$OMP THREADPRIVATE(zu10m_cor, zv10m_cor)386 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zrh2m_cor, zqsat2m_cor387 !$OMP THREADPRIVATE(zrh2m_cor, zqsat2m_cor)388 380 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: weak_inversion 389 381 !$OMP THREADPRIVATE(weak_inversion) … … 446 438 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ref_liq_pi, ref_ice_pi 447 439 !$OMP THREADPRIVATE(ref_liq_pi, ref_ice_pi) 448 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zx_rh 449 !$OMP THREADPRIVATE(zx_rh )440 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zx_rh, zx_rhl, zx_rhi 441 !$OMP THREADPRIVATE(zx_rh, zx_rhl, zx_rhi) 450 442 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: prfl, psfl, fraca 451 443 !$OMP THREADPRIVATE(prfl, psfl, fraca) … … 475 467 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: p_tropopause, z_tropopause, t_tropopause 476 468 !$OMP THREADPRIVATE(p_tropopause, z_tropopause, t_tropopause) 469 470 INTEGER,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zn2mout 471 !$OMP THREADPRIVATE(zn2mout) 477 472 478 473 #ifdef CPP_StratAer … … 562 557 ALLOCATE(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev)) 563 558 ALLOCATE(u_seri(klon,klev),v_seri(klon,klev)) 564 ALLOCATE(l_mixmin(klon,klev+1,nbsrf), l_mix(klon,klev+1,nbsrf) )565 l_mix(:,:,:)=0. ; l_mixmin(:,:,:)=0. ! doit etre initialse car pas toujours remplis559 ALLOCATE(l_mixmin(klon,klev+1,nbsrf), l_mix(klon,klev+1,nbsrf), tke_dissip(klon,klev+1,nbsrf)) 560 l_mix(:,:,:)=0. ; l_mixmin(:,:,:)=0. ; tke_dissip(:,:,:)=0. ! doit etre initialse car pas toujours remplis 566 561 567 562 ALLOCATE(tr_seri(klon,klev,nbtr)) … … 716 711 ALLOCATE(cdragm(klon), cdragh(klon), cldh(klon), cldl(klon)) 717 712 ALLOCATE(cldm(klon), cldq(klon), cldt(klon), qsat2m(klon)) 718 ALLOCATE(cldhjn(klon), cldljn(klon), cldmjn(klon), cldtjn(klon))719 713 ALLOCATE(JrNt(klon)) 720 714 ALLOCATE(dthmin(klon), evap(klon), fder(klon), plcl(klon), plfc(klon)) … … 760 754 ALLOCATE(zt2m_min_mon(klon), zt2m_max_mon(klon)) 761 755 ALLOCATE(t2m_min_mon(klon), t2m_max_mon(klon)) 762 ALLOCATE(zq2m_cor(klon), zt2m_cor(klon), zu10m_cor(klon), zv10m_cor(klon))763 ALLOCATE(zrh2m_cor(klon), zqsat2m_cor(klon))764 756 ALLOCATE(sens(klon), flwp(klon), fiwp(klon)) 765 757 ALLOCATE(alp_bl_conv(klon), alp_bl_det(klon)) … … 782 774 ALLOCATE(ref_liq(klon, klev), ref_ice(klon, klev), theta(klon, klev)) 783 775 ALLOCATE(ref_liq_pi(klon, klev), ref_ice_pi(klon, klev)) 784 ALLOCATE(zphi(klon, klev), zx_rh(klon, klev) )776 ALLOCATE(zphi(klon, klev), zx_rh(klon, klev), zx_rhl(klon,klev), zx_rhi(klon,klev)) 785 777 ALLOCATE(pmfd(klon, klev), pmfu(klon, klev)) 786 778 … … 831 823 ALLOCATE (z_tropopause(klon)) 832 824 ALLOCATE (t_tropopause(klon)) 825 826 ALLOCATE(zn2mout(klon,6)) 833 827 834 828 #ifdef CPP_StratAer … … 881 875 DEALLOCATE(t_seri,q_seri,ql_seri,qs_seri) 882 876 DEALLOCATE(u_seri,v_seri) 883 DEALLOCATE(l_mixmin,l_mix )877 DEALLOCATE(l_mixmin,l_mix, tke_dissip) 884 878 885 879 DEALLOCATE(tr_seri) … … 1017 1011 DEALLOCATE(cdragm, cdragh, cldh, cldl) 1018 1012 DEALLOCATE(cldm, cldq, cldt, qsat2m) 1019 DEALLOCATE( cldljn, cldmjn, cldhjn, cldtjn,JrNt)1013 DEALLOCATE(JrNt) 1020 1014 DEALLOCATE(dthmin, evap, fder, plcl, plfc) 1021 1015 DEALLOCATE(prw, prlw, prsw, zustar, zu10m, zv10m, rh2m, s_lcl) … … 1057 1051 DEALLOCATE(zt2m_min_mon, zt2m_max_mon) 1058 1052 DEALLOCATE(t2m_min_mon, t2m_max_mon) 1059 DEALLOCATE(zq2m_cor, zt2m_cor, zu10m_cor, zv10m_cor)1060 DEALLOCATE(zrh2m_cor, zqsat2m_cor)1061 1053 DEALLOCATE(sens, flwp, fiwp) 1062 1054 DEALLOCATE(alp_bl_conv,alp_bl_det) … … 1076 1068 DEALLOCATE(ref_liq, ref_ice, theta) 1077 1069 DEALLOCATE(ref_liq_pi, ref_ice_pi) 1078 DEALLOCATE(zphi, zx_rh )1070 DEALLOCATE(zphi, zx_rh, zx_rhl, zx_rhi) 1079 1071 DEALLOCATE(pmfd, pmfu) 1080 1072 … … 1119 1111 DEALLOCATE (z_tropopause) 1120 1112 DEALLOCATE (t_tropopause) 1113 DEALLOCATE(zn2mout) 1121 1114 1122 1115 #ifdef CPP_StratAer
Note: See TracChangeset
for help on using the changeset viewer.