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

Timestamp:

Jul 31, 2024, 3:40:08 PM (3 months ago)

Author:

lebasn

Message:

StratAer?: add effective radius diag.

File:

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

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -768 +768 @@
       REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: SAD_sulfate
 !$OMP THREADPRIVATE(SAD_sulfate)
+!     Effective radius of wet surface aerosols (cm)
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: reff_sulfate
+!$OMP THREADPRIVATE(reff_sulfate)
 !     sulfate MMR in different modes (based on sulfmmr, it must be dry mmr)
       REAL, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: sulfmmr_mode
@@ -1277 +1280 @@
       ALLOCATE (sulfmmr(klon,klev))
       ALLOCATE (SAD_sulfate(klon,klev))
+      ALLOCATE (reff_sulfate(klon,klev))
       ALLOCATE (sulfmmr_mode(klon,klev,nbtr_bin))
       ALLOCATE (nd_mode(klon,klev,nbtr_bin))
@@ -1650 +1654 @@
       DEALLOCATE (sulfmmr)
       DEALLOCATE (SAD_sulfate)
+      DEALLOCATE (reff_sulfate)
       DEALLOCATE (sulfmmr_mode)
       DEALLOCATE (nd_mode)