Changeset 4703 for LMDZ6/trunk/libf/phylmd
- Timestamp:
- Sep 20, 2023, 3:09:14 PM (10 months ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 4 edited
-
phys_local_var_mod.F90 (modified) (3 diffs)
-
phys_output_var_mod.F90 (modified) (3 diffs)
-
phys_output_write_mod.F90 (modified) (2 diffs)
-
physiq_mod.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
r4677 r4703 161 161 REAL, SAVE, ALLOCATABLE :: tau3d_aero(:,:,:,:) 162 162 !$OMP THREADPRIVATE(tau3d_aero) 163 REAL, SAVE, ALLOCATABLE :: scdnc(:,:)164 !$OMP THREADPRIVATE(scdnc)165 163 REAL, SAVE, ALLOCATABLE :: dNovrN(:) 166 164 !$OMP THREADPRIVATE(dNovrN) 167 REAL, SAVE, ALLOCATABLE :: cldncl(:)168 !$OMP THREADPRIVATE(cldncl)169 REAL, SAVE, ALLOCATABLE :: reffclwtop(:)170 !$OMP THREADPRIVATE(reffclwtop)171 REAL, SAVE, ALLOCATABLE :: lcc(:)172 !$OMP THREADPRIVATE(lcc)173 REAL, SAVE, ALLOCATABLE :: reffclws(:,:)174 !$OMP THREADPRIVATE(reffclws)175 REAL, SAVE, ALLOCATABLE :: reffclwc(:,:)176 !$OMP THREADPRIVATE(reffclwc)177 REAL, SAVE, ALLOCATABLE :: cldnvi(:)178 !$OMP THREADPRIVATE(cldnvi)179 REAL, SAVE, ALLOCATABLE :: lcc3d(:,:)180 !$OMP THREADPRIVATE(lcc3d)181 REAL, SAVE, ALLOCATABLE :: lcc3dcon(:,:)182 !$OMP THREADPRIVATE(lcc3dcon)183 REAL, SAVE, ALLOCATABLE :: lcc3dstra(:,:)184 !$OMP THREADPRIVATE(lcc3dstra)185 REAL, SAVE, ALLOCATABLE :: icc3dcon(:,:)186 !$OMP THREADPRIVATE(icc3dcon)187 REAL, SAVE, ALLOCATABLE :: icc3dstra(:,:)188 !$OMP THREADPRIVATE(icc3dstra)189 165 REAL, SAVE, ALLOCATABLE :: zfice(:,:) 190 166 !$OMP THREADPRIVATE(zfice) … … 726 702 ALLOCATE(drytausum_aero(klon,naero_tot)) 727 703 ALLOCATE(tau3d_aero(klon,klev,nwave,naero_tot)) 728 ALLOCATE(scdnc(klon, klev))729 704 ALLOCATE(dNovrN(klon)) 730 ALLOCATE(cldncl(klon))731 ALLOCATE(reffclwtop(klon))732 ALLOCATE(lcc(klon))733 ALLOCATE(reffclws(klon, klev))734 ALLOCATE(reffclwc(klon, klev))735 ALLOCATE(cldnvi(klon))736 ALLOCATE(lcc3d(klon, klev))737 ALLOCATE(lcc3dcon(klon, klev))738 ALLOCATE(lcc3dstra(klon, klev))739 ALLOCATE(icc3dcon(klon, klev))740 ALLOCATE(icc3dstra(klon, klev))741 705 ALLOCATE(zfice(klon, klev)) 742 706 ALLOCATE(od443aer(klon)) … … 1067 1031 DEALLOCATE(drytausum_aero) 1068 1032 DEALLOCATE(tau3d_aero) 1069 DEALLOCATE(scdnc)1070 1033 DEALLOCATE(dNovrN) 1071 DEALLOCATE(cldncl)1072 DEALLOCATE(reffclwtop)1073 DEALLOCATE(lcc)1074 DEALLOCATE(reffclws)1075 DEALLOCATE(reffclwc)1076 DEALLOCATE(cldnvi)1077 DEALLOCATE(lcc3d)1078 DEALLOCATE(lcc3dcon)1079 DEALLOCATE(lcc3dstra)1080 DEALLOCATE(icc3dcon)1081 DEALLOCATE(icc3dstra)1082 1034 DEALLOCATE(zfice) 1083 1035 DEALLOCATE(od443aer) -
LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90
r4523 r4703 67 67 !$OMP THREADPRIVATE(map_emis_Cb,map_pcld_Cb,map_tcld_Cb,map_emis_ThCi) 68 68 REAL, SAVE, ALLOCATABLE :: map_emis_Anv(:),map_pcld_Anv(:),map_tcld_Anv(:) 69 !$OMP THREADPRIVATE(map_pcld_ThCi,map_tcld_ThCi,map_emis_Anv,map_pcld_Anv,map_tcld_Anv) 69 !$OMP THREADPRIVATE(map_pcld_ThCi,map_tcld_ThCi,map_emis_Anv,map_pcld_Anv,map_tcld_Anv) 70 71 ! variables deplacees de phys_local_var_mod 72 REAL, SAVE, ALLOCATABLE :: scdnc(:,:) 73 !$OMP THREADPRIVATE(scdnc) 74 REAL, SAVE, ALLOCATABLE :: cldncl(:) 75 !$OMP THREADPRIVATE(cldncl) 76 REAL, SAVE, ALLOCATABLE :: reffclwtop(:) 77 !$OMP THREADPRIVATE(reffclwtop) 78 REAL, SAVE, ALLOCATABLE :: lcc(:) 79 !$OMP THREADPRIVATE(lcc) 80 REAL, SAVE, ALLOCATABLE :: reffclws(:,:) 81 !$OMP THREADPRIVATE(reffclws) 82 REAL, SAVE, ALLOCATABLE :: reffclwc(:,:) 83 !$OMP THREADPRIVATE(reffclwc) 84 REAL, SAVE, ALLOCATABLE :: cldnvi(:) 85 !$OMP THREADPRIVATE(cldnvi) 86 REAL, SAVE, ALLOCATABLE :: lcc3d(:,:) 87 !$OMP THREADPRIVATE(lcc3d) 88 REAL, SAVE, ALLOCATABLE :: lcc3dcon(:,:) 89 !$OMP THREADPRIVATE(lcc3dcon) 90 REAL, SAVE, ALLOCATABLE :: lcc3dstra(:,:) 91 !$OMP THREADPRIVATE(lcc3dstra) 92 REAL, SAVE, ALLOCATABLE :: icc3dcon(:,:) 93 !$OMP THREADPRIVATE(icc3dcon) 94 REAL, SAVE, ALLOCATABLE :: icc3dstra(:,:) 95 !$OMP THREADPRIVATE(icc3dstra) 70 96 71 97 … … 213 239 sss(klon)) 214 240 241 ! Sorties de lmdz_cloud_optics_pro 242 ALLOCATE(scdnc(klon, klev)) 243 ALLOCATE(cldncl(klon)) 244 ALLOCATE(reffclwtop(klon)) 245 ALLOCATE(lcc(klon)) 246 ALLOCATE(reffclws(klon, klev)) 247 ALLOCATE(reffclwc(klon, klev)) 248 ALLOCATE(cldnvi(klon)) 249 ALLOCATE(lcc3d(klon, klev)) 250 ALLOCATE(lcc3dcon(klon, klev)) 251 ALLOCATE(lcc3dstra(klon, klev)) 252 ALLOCATE(icc3dcon(klon, klev)) 253 ALLOCATE(icc3dstra(klon, klev)) 254 215 255 END SUBROUTINE phys_output_var_init 216 256 … … 251 291 ! endif 252 292 293 DEALLOCATE(scdnc) 294 DEALLOCATE(cldncl) 295 DEALLOCATE(reffclwtop) 296 DEALLOCATE(lcc) 297 DEALLOCATE(reffclws) 298 DEALLOCATE(reffclwc) 299 DEALLOCATE(cldnvi) 300 DEALLOCATE(lcc3d) 301 DEALLOCATE(lcc3dcon) 302 DEALLOCATE(lcc3dstra) 303 DEALLOCATE(icc3dcon) 304 DEALLOCATE(icc3dstra) 305 253 306 END SUBROUTINE phys_output_var_end 254 307 -
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r4677 r4703 342 342 toplwad_aero, toplwad0_aero, sollwad_aero, & 343 343 sollwad0_aero, toplwai_aero, sollwai_aero, & 344 scdnc, cldncl, reffclws, reffclwc, cldnvi, stratomask,& 345 lcc, lcc3d, lcc3dcon, lcc3dstra, & 346 icc3dcon, icc3dstra, zfice, reffclwtop, & 344 stratomask,& 345 zfice, & 347 346 ec550aer, flwc, fiwc, t_seri, theta, q_seri, & 348 347 ql_seri, qs_seri, qbs_seri, tr_seri, qbs_seri,& … … 378 377 ! offline 379 378 da, mp, phi, wght_cvfd 380 379 USE phys_output_var_mod, ONLY: scdnc, cldncl, reffclwtop, lcc, reffclws, & 380 reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra 381 381 382 382 383 #ifdef CPP_StratAer -
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r4692 r4703 358 358 zxfluxt,zxfluxq 359 359 ! 360 USE phys_local_var_mod, ONLY: scdnc, cldncl, reffclwtop, lcc, reffclws, &361 reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, &362 zfice, dNovrN, ptconv360 USE phys_local_var_mod, ONLY: zfice, dNovrN, ptconv 361 USE phys_output_var_mod, ONLY: scdnc, cldncl, reffclwtop, lcc, reffclws, & 362 reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra 363 363 USE output_physiqex_mod, ONLY: output_physiqex 364 364
Note: See TracChangeset
for help on using the changeset viewer.
