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

Timestamp:

Mar 15, 2018, 8:07:03 PM (6 years ago)

Author:

oboucher

Message:

Implementing the MACspV2 aerosol plume climatology
which can be called by setting flag_aerosol=7
and aerosols1980.nc pointing to aerosols.nat.nc.
Also requires the MACv2.0-SP_v1.nc file.

File:

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

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -151 +151 @@
       REAL, SAVE, ALLOCATABLE :: scdnc(:,:)
       !$OMP THREADPRIVATE(scdnc)
+      REAL, SAVE, ALLOCATABLE :: dNovrN(:) 
+      !$OMP THREADPRIVATE(dNovrN) 
       REAL, SAVE, ALLOCATABLE :: cldncl(:)
       !$OMP THREADPRIVATE(cldncl)
@@ -608 +610 @@
       ALLOCATE(tau3d_aero(klon,klev,nwave,naero_tot)) 
       ALLOCATE(scdnc(klon, klev))
+      ALLOCATE(dNovrN(klon))
       ALLOCATE(cldncl(klon))
       ALLOCATE(reffclwtop(klon))
@@ -899 +902 @@
       DEALLOCATE(tau3d_aero) 
       DEALLOCATE(scdnc)
+      DEALLOCATE(dNovrN)
       DEALLOCATE(cldncl)
       DEALLOCATE(reffclwtop)