Changeset 4703 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Sep 20, 2023, 3:09:14 PM (13 months ago)

Author:

Laurent Fairhead

Message:

Moving around some variable declarations to their right place

File:

• LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -161 +161 @@
       REAL, SAVE, ALLOCATABLE :: tau3d_aero(:,:,:,:) 
       !$OMP THREADPRIVATE(tau3d_aero) 
-      REAL, SAVE, ALLOCATABLE :: scdnc(:,:)
-      !$OMP THREADPRIVATE(scdnc)
       REAL, SAVE, ALLOCATABLE :: dNovrN(:) 
       !$OMP THREADPRIVATE(dNovrN) 
-      REAL, SAVE, ALLOCATABLE :: cldncl(:)
-      !$OMP THREADPRIVATE(cldncl)
-      REAL, SAVE, ALLOCATABLE :: reffclwtop(:)
-      !$OMP THREADPRIVATE(reffclwtop)
-      REAL, SAVE, ALLOCATABLE :: lcc(:)
-      !$OMP THREADPRIVATE(lcc)
-      REAL, SAVE, ALLOCATABLE :: reffclws(:,:)
-      !$OMP THREADPRIVATE(reffclws)
-      REAL, SAVE, ALLOCATABLE :: reffclwc(:,:)
-      !$OMP THREADPRIVATE(reffclwc)
-      REAL, SAVE, ALLOCATABLE :: cldnvi(:) 
-      !$OMP THREADPRIVATE(cldnvi)
-      REAL, SAVE, ALLOCATABLE :: lcc3d(:,:)
-      !$OMP THREADPRIVATE(lcc3d)
-      REAL, SAVE, ALLOCATABLE :: lcc3dcon(:,:)
-      !$OMP THREADPRIVATE(lcc3dcon)
-      REAL, SAVE, ALLOCATABLE :: lcc3dstra(:,:)
-      !$OMP THREADPRIVATE(lcc3dstra)
-      REAL, SAVE, ALLOCATABLE :: icc3dcon(:,:)
-      !$OMP THREADPRIVATE(icc3dcon)
-      REAL, SAVE, ALLOCATABLE :: icc3dstra(:,:)
-      !$OMP THREADPRIVATE(icc3dstra)
       REAL, SAVE, ALLOCATABLE :: zfice(:,:)
       !$OMP THREADPRIVATE(zfice)
@@ -726 +702 @@
       ALLOCATE(drytausum_aero(klon,naero_tot))
       ALLOCATE(tau3d_aero(klon,klev,nwave,naero_tot)) 
-      ALLOCATE(scdnc(klon, klev))
       ALLOCATE(dNovrN(klon))
-      ALLOCATE(cldncl(klon))
-      ALLOCATE(reffclwtop(klon))
-      ALLOCATE(lcc(klon))
-      ALLOCATE(reffclws(klon, klev))
-      ALLOCATE(reffclwc(klon, klev))
-      ALLOCATE(cldnvi(klon))
-      ALLOCATE(lcc3d(klon, klev))
-      ALLOCATE(lcc3dcon(klon, klev))
-      ALLOCATE(lcc3dstra(klon, klev))
-      ALLOCATE(icc3dcon(klon, klev))
-      ALLOCATE(icc3dstra(klon, klev))
       ALLOCATE(zfice(klon, klev))
       ALLOCATE(od443aer(klon))
@@ -1067 +1031 @@
       DEALLOCATE(drytausum_aero) 
       DEALLOCATE(tau3d_aero) 
-      DEALLOCATE(scdnc)
       DEALLOCATE(dNovrN)
-      DEALLOCATE(cldncl)
-      DEALLOCATE(reffclwtop)
-      DEALLOCATE(lcc)
-      DEALLOCATE(reffclws)
-      DEALLOCATE(reffclwc)
-      DEALLOCATE(cldnvi)
-      DEALLOCATE(lcc3d)
-      DEALLOCATE(lcc3dcon)
-      DEALLOCATE(lcc3dstra)
-      DEALLOCATE(icc3dcon)
-      DEALLOCATE(icc3dstra)
       DEALLOCATE(zfice)
       DEALLOCATE(od443aer)