Changeset 3940 for LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90
- Timestamp:
- Jun 15, 2021, 1:18:14 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90
r3927 r3940 1 1 ! 2 ! $Id: phys_local_var_mod.F90 3 662 2020-04-12 16:41:53Z oboucher$2 ! $Id: phys_local_var_mod.F90 3888 2021-05-05 10:50:37Z jyg $ 3 3 ! 4 4 MODULE phys_local_var_mod … … 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) … … 334 333 !!!OMP THREADPRIVATE(d_s_the, d_dens_the) 335 334 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: d_deltat_ajs_cv, d_deltaq_ajs_cv 336 !$OMP THREADPRIVATE(d_deltat_ajs_cv, d_deltaq_ajs_cv) 335 !$OMP THREADPRIVATE(d_deltat_ajs_cv, d_deltaq_ajs_cv) 337 336 #ifdef ISO 338 337 REAL, SAVE, ALLOCATABLE,DIMENSION(:,:,:) :: d_deltaxt_wk … … 355 354 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cldh, cldl, cldm, cldq, cldt, qsat2m 356 355 !$OMP THREADPRIVATE(cldh, cldl, cldm, cldq, cldt, qsat2m ) 357 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cldhjn, cldljn, cldmjn,cldtjn 358 !$OMP THREADPRIVATE(cldhjn, cldljn, cldmjn, cldtjn) 356 !AS: cldhjn, cldljn, cldmjn,cldtjn pas utilisés en tant que variables, juste noms de diagnostics 359 357 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: JrNt 360 358 !$OMP THREADPRIVATE(JrNt) … … 411 409 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxfluxlat_x, zxfluxlat_w 412 410 !$OMP THREADPRIVATE(zxfluxlat_x, zxfluxlat_w) 411 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: delta_qsurf 412 !$OMP THREADPRIVATE(delta_qsurf) 413 413 !jyg< 414 414 !!! Entrees supplementaires couche-limite … … 455 455 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: t2m_min_mon, t2m_max_mon 456 456 !$OMP THREADPRIVATE(t2m_min_mon, t2m_max_mon) 457 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zq2m_cor, zt2m_cor458 !$OMP THREADPRIVATE(zq2m_cor, zt2m_cor)459 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zu10m_cor, zv10m_cor460 !$OMP THREADPRIVATE(zu10m_cor, zv10m_cor)461 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zrh2m_cor, zqsat2m_cor462 !$OMP THREADPRIVATE(zrh2m_cor, zqsat2m_cor)463 457 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: weak_inversion 464 458 !$OMP THREADPRIVATE(weak_inversion) … … 567 561 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ref_liq_pi, ref_ice_pi 568 562 !$OMP THREADPRIVATE(ref_liq_pi, ref_ice_pi) 569 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zx_rh 570 !$OMP THREADPRIVATE(zx_rh )563 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zx_rh, zx_rhl, zx_rhi 564 !$OMP THREADPRIVATE(zx_rh, zx_rhl, zx_rhi) 571 565 REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: prfl, psfl, fraca 572 566 !$OMP THREADPRIVATE(prfl, psfl, fraca) … … 604 598 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: p_tropopause, z_tropopause, t_tropopause 605 599 !$OMP THREADPRIVATE(p_tropopause, z_tropopause, t_tropopause) 600 601 INTEGER,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zn2mout 602 !$OMP THREADPRIVATE(zn2mout) 606 603 607 604 #ifdef CPP_StratAer … … 694 691 ALLOCATE(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev)) 695 692 ALLOCATE(u_seri(klon,klev),v_seri(klon,klev)) 696 ALLOCATE(l_mixmin(klon,klev+1,nbsrf), l_mix(klon,klev+1,nbsrf) )697 l_mix(:,:,:)=0. ; l_mixmin(:,:,:)=0. ! doit etre initialse car pas toujours remplis693 ALLOCATE(l_mixmin(klon,klev+1,nbsrf), l_mix(klon,klev+1,nbsrf), tke_dissip(klon,klev+1,nbsrf)) 694 l_mix(:,:,:)=0. ; l_mixmin(:,:,:)=0. ; tke_dissip(:,:,:)=0. ! doit etre initialse car pas toujours remplis 698 695 699 696 ALLOCATE(tr_seri(klon,klev,nbtr)) … … 882 879 ALLOCATE(cdragm(klon), cdragh(klon), cldh(klon), cldl(klon)) 883 880 ALLOCATE(cldm(klon), cldq(klon), cldt(klon), qsat2m(klon)) 884 ALLOCATE(cldhjn(klon), cldljn(klon), cldmjn(klon), cldtjn(klon))885 881 ALLOCATE(JrNt(klon)) 886 882 ALLOCATE(dthmin(klon), evap(klon), fder(klon), plcl(klon), plfc(klon)) … … 915 911 ALLOCATE(sens_x(klon), sens_w(klon)) 916 912 ALLOCATE(zxfluxlat_x(klon), zxfluxlat_w(klon)) 913 ALLOCATE(delta_qsurf(klon)) 917 914 !jyg< 918 915 !! ALLOCATE(t_x(klon,klev), t_w(klon,klev)) … … 940 937 ALLOCATE(zt2m_min_mon(klon), zt2m_max_mon(klon)) 941 938 ALLOCATE(t2m_min_mon(klon), t2m_max_mon(klon)) 942 ALLOCATE(zq2m_cor(klon), zt2m_cor(klon), zu10m_cor(klon), zv10m_cor(klon))943 ALLOCATE(zrh2m_cor(klon), zqsat2m_cor(klon))944 939 ALLOCATE(sens(klon), flwp(klon), fiwp(klon)) 945 940 ALLOCATE(alp_bl_conv(klon), alp_bl_det(klon)) … … 962 957 ALLOCATE(ref_liq(klon, klev), ref_ice(klon, klev), theta(klon, klev)) 963 958 ALLOCATE(ref_liq_pi(klon, klev), ref_ice_pi(klon, klev)) 964 ALLOCATE(zphi(klon, klev), zx_rh(klon, klev) )959 ALLOCATE(zphi(klon, klev), zx_rh(klon, klev), zx_rhl(klon,klev), zx_rhi(klon,klev)) 965 960 ALLOCATE(pmfd(klon, klev), pmfu(klon, klev)) 966 961 … … 1039 1034 ALLOCATE (z_tropopause(klon)) 1040 1035 ALLOCATE (t_tropopause(klon)) 1036 1037 ALLOCATE(zn2mout(klon,6)) 1041 1038 1042 1039 #ifdef CPP_StratAer … … 1089 1086 DEALLOCATE(t_seri,q_seri,ql_seri,qs_seri) 1090 1087 DEALLOCATE(u_seri,v_seri) 1091 DEALLOCATE(l_mixmin,l_mix )1088 DEALLOCATE(l_mixmin,l_mix, tke_dissip) 1092 1089 1093 1090 DEALLOCATE(tr_seri) … … 1253 1250 DEALLOCATE(cdragm, cdragh, cldh, cldl) 1254 1251 DEALLOCATE(cldm, cldq, cldt, qsat2m) 1255 DEALLOCATE( cldljn, cldmjn, cldhjn, cldtjn,JrNt)1252 DEALLOCATE(JrNt) 1256 1253 DEALLOCATE(dthmin, evap, fder, plcl, plfc) 1257 1254 DEALLOCATE(prw, prlw, prsw, zustar, zu10m, zv10m, rh2m, s_lcl) … … 1274 1271 DEALLOCATE(sens_x, sens_w) 1275 1272 DEALLOCATE(zxfluxlat_x, zxfluxlat_w) 1273 DEALLOCATE(delta_qsurf) 1276 1274 !jyg< 1277 1275 !! DEALLOCATE(t_x, t_w) … … 1303 1301 DEALLOCATE(zt2m_min_mon, zt2m_max_mon) 1304 1302 DEALLOCATE(t2m_min_mon, t2m_max_mon) 1305 DEALLOCATE(zq2m_cor, zt2m_cor, zu10m_cor, zv10m_cor)1306 DEALLOCATE(zrh2m_cor, zqsat2m_cor)1307 1303 DEALLOCATE(sens, flwp, fiwp) 1308 1304 DEALLOCATE(alp_bl_conv,alp_bl_det) … … 1322 1318 DEALLOCATE(ref_liq, ref_ice, theta) 1323 1319 DEALLOCATE(ref_liq_pi, ref_ice_pi) 1324 DEALLOCATE(zphi, zx_rh )1320 DEALLOCATE(zphi, zx_rh, zx_rhl, zx_rhi) 1325 1321 DEALLOCATE(pmfd, pmfu) 1326 1322 … … 1391 1387 DEALLOCATE (z_tropopause) 1392 1388 DEALLOCATE (t_tropopause) 1389 DEALLOCATE(zn2mout) 1393 1390 1394 1391 #ifdef CPP_StratAer
Note: See TracChangeset
for help on using the changeset viewer.