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

Timestamp:

Mar 5, 2026, 9:26:31 PM (5 weeks ago)

Author:

asima

Message:

For SP aerosols (flag_aerosol=7):

• new diagnostic od550SPaer,
• corrected diagnostics od550lt1aer and dryod550aer

File:

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

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -261 +261 @@
       !$OMP THREADPRIVATE(ec550aer) 
       REAL, SAVE, ALLOCATABLE :: od550lt1aer(:) 
-      !$OMP THREADPRIVATE(od550lt1aer) 
+      !$OMP THREADPRIVATE(od550lt1aer)
+      REAL, SAVE, ALLOCATABLE :: od550SPaer(:)
+      !$OMP THREADPRIVATE(od550SPaer)
       REAL, SAVE, ALLOCATABLE :: sconcso4(:) 
       !$OMP THREADPRIVATE(sconcso4) 
@@ -1001 +1003 @@
       ALLOCATE(ec550aer(klon,klev))
       ALLOCATE(od550lt1aer(klon))
+      ALLOCATE(od550SPaer(klon))
       ALLOCATE(sconcso4(klon))
       ALLOCATE(sconcno3(klon))
@@ -1471 +1474 @@
       DEALLOCATE(ec550aer)
       DEALLOCATE(od550lt1aer)
+      DEALLOCATE(od550SPaer)
       DEALLOCATE(sconcso4) 
       DEALLOCATE(sconcno3)