Changeset 3817 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
- Timestamp:
- Feb 3, 2021, 8:58:55 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
r3780 r3817 378 378 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: t2m_min_mon, t2m_max_mon 379 379 !$OMP THREADPRIVATE(t2m_min_mon, t2m_max_mon) 380 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zq2m_cor, zt2m_cor381 !$OMP THREADPRIVATE(zq2m_cor, zt2m_cor)382 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zu10m_cor, zv10m_cor383 !$OMP THREADPRIVATE(zu10m_cor, zv10m_cor)384 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zrh2m_cor, zqsat2m_cor385 !$OMP THREADPRIVATE(zrh2m_cor, zqsat2m_cor)386 380 REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: weak_inversion 387 381 !$OMP THREADPRIVATE(weak_inversion) … … 473 467 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: p_tropopause, z_tropopause, t_tropopause 474 468 !$OMP THREADPRIVATE(p_tropopause, z_tropopause, t_tropopause) 469 470 INTEGER,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zn2mout 471 !$OMP THREADPRIVATE(zn2mout) 475 472 476 473 #ifdef CPP_StratAer … … 757 754 ALLOCATE(zt2m_min_mon(klon), zt2m_max_mon(klon)) 758 755 ALLOCATE(t2m_min_mon(klon), t2m_max_mon(klon)) 759 ALLOCATE(zq2m_cor(klon), zt2m_cor(klon), zu10m_cor(klon), zv10m_cor(klon))760 ALLOCATE(zrh2m_cor(klon), zqsat2m_cor(klon))761 756 ALLOCATE(sens(klon), flwp(klon), fiwp(klon)) 762 757 ALLOCATE(alp_bl_conv(klon), alp_bl_det(klon)) … … 828 823 ALLOCATE (z_tropopause(klon)) 829 824 ALLOCATE (t_tropopause(klon)) 825 826 ALLOCATE(zn2mout(klon,6)) 830 827 831 828 #ifdef CPP_StratAer … … 1054 1051 DEALLOCATE(zt2m_min_mon, zt2m_max_mon) 1055 1052 DEALLOCATE(t2m_min_mon, t2m_max_mon) 1056 DEALLOCATE(zq2m_cor, zt2m_cor, zu10m_cor, zv10m_cor)1057 DEALLOCATE(zrh2m_cor, zqsat2m_cor)1058 1053 DEALLOCATE(sens, flwp, fiwp) 1059 1054 DEALLOCATE(alp_bl_conv,alp_bl_det) … … 1116 1111 DEALLOCATE (z_tropopause) 1117 1112 DEALLOCATE (t_tropopause) 1113 DEALLOCATE(zn2mout) 1118 1114 1119 1115 #ifdef CPP_StratAer
Note: See TracChangeset
for help on using the changeset viewer.