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

Timestamp:

Apr 1, 2017, 6:09:13 PM (7 years ago)

Author:

oboucher

Message:

Removing absvisaer from calculations and outputs
Adding abs550aer in rrtm/aeropt_5wv_rrtm and outputs
Absorption aerosol optical depth at 550 nm

File:

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

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -167 +167 @@
       REAL, SAVE, ALLOCATABLE :: od550aer(:) 
       !$OMP THREADPRIVATE(od550aer) 
-      REAL, SAVE, ALLOCATABLE :: absvisaer(:) 
-      !$OMP THREADPRIVATE(absvisaer) 
+      REAL, SAVE, ALLOCATABLE :: abs550aer(:) 
+      !$OMP THREADPRIVATE(abs550aer) 
       REAL, SAVE, ALLOCATABLE :: od865aer(:) 
       !$OMP THREADPRIVATE(od865aer) 
@@ -579 +579 @@
       allocate(od550aer(klon))
       allocate(od865aer(klon))
-      allocate(absvisaer(klon))
+      allocate(abs550aer(klon))
       allocate(ec550aer(klon,klev))
       allocate(od550lt1aer(klon))
@@ -838 +838 @@
       deallocate(od550aer)
       deallocate(od865aer)
-      deallocate(absvisaer)
+      deallocate(abs550aer)
       deallocate(ec550aer)
       deallocate(od550lt1aer)