Changeset 5219 for LMDZ6/branches/Amaury_dev/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Sep 23, 2024, 2:25:05 PM (14 hours ago)

Author:

abarral

Message:

Merge r5150 from trunk which had been missed in previous merges

Location:

LMDZ6/branches/Amaury_dev

Files:

• . (modified) (1 prop)
• libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/phys_local_var_mod.F90

@@ -763 +763 @@
   REAL, ALLOCATABLE, SAVE, DIMENSION(:, :) :: SAD_sulfate
   !$OMP THREADPRIVATE(SAD_sulfate)
-  !     sulfate MMR in different modes (based on sulfmmr, it must be dry mmr)
+  !     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
   !$OMP THREADPRIVATE(sulfmmr_mode)
@@ -1265 +1268 @@
       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))
@@ -1638 +1642 @@
       DEALLOCATE (sulfmmr)
       DEALLOCATE (SAD_sulfate)
+      DEALLOCATE (reff_sulfate)
       DEALLOCATE (sulfmmr_mode)
       DEALLOCATE (nd_mode)