Changeset 2806 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Mar 2, 2017, 8:46:14 PM (7 years ago)

Author:

oboucher

Message:

Adding od443aer diagnostic for CMIP6.
Removing od670aer and AI calculations as they are not used.

File:

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

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -163 +163 @@
       REAL, SAVE, ALLOCATABLE :: lcc3dstra(:,:)
       !$OMP THREADPRIVATE(lcc3dstra)
+      REAL, SAVE, ALLOCATABLE :: od443aer(:) 
+      !$OMP THREADPRIVATE(od443aer) 
       REAL, SAVE, ALLOCATABLE :: od550aer(:) 
       !$OMP THREADPRIVATE(od550aer) 
@@ -580 +582 @@
       allocate(lcc3dcon(klon, klev))
       allocate(lcc3dstra(klon, klev))
+      allocate(od443aer(klon))
       allocate(od550aer(klon))
       allocate(od865aer(klon))
@@ -840 +843 @@
       deallocate(lcc3dcon)
       deallocate(lcc3dstra)
+      deallocate(od443aer)
       deallocate(od550aer)
       deallocate(od865aer)