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

Timestamp:

May 22, 2024, 3:16:36 PM (4 months ago)

Author:

lebasn

Message:

StratAer?: New model version (microphysic, composition routine, code cleaning, new params...)

File:

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

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -579 +579 @@
       REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: R2SO4
 !$OMP THREADPRIVATE(R2SO4)
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: R2SO4B
+!$OMP THREADPRIVATE(R2SO4B)
       REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: DENSO4
 !$OMP THREADPRIVATE(DENSO4)
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:, :) :: DENSO4B
+!$OMP THREADPRIVATE(DENSO4B)      
       REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: f_r_wet
 !$OMP THREADPRIVATE(f_r_wet)
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:, :) :: f_r_wetB
+!$OMP THREADPRIVATE(f_r_wetB)
       REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: decfluxaer
 !$OMP THREADPRIVATE(decfluxaer)
@@ -664 +670 @@
 USE phys_output_var_mod
 USE phys_state_var_mod
+#ifdef CPP_StratAer
+USE infotrac_phy, ONLY : nbtr_bin
+#endif
 
 IMPLICIT NONE
@@ -973 +982 @@
       ALLOCATE (d_q_emiss(klon,klev))
       ALLOCATE (R2SO4(klon,klev))
+      ALLOCATE (R2SO4B(klon,klev,nbtr_bin))
       ALLOCATE (DENSO4(klon,klev))
+      ALLOCATE (DENSO4B(klon,klev,nbtr_bin))
       ALLOCATE (f_r_wet(klon,klev))
+      ALLOCATE (f_r_wetB(klon,klev,nbtr_bin))
       ALLOCATE (decfluxaer(klon,nbtr))
       ALLOCATE (mdw(nbtr))
@@ -1289 +1301 @@
 ! variables for strat. aerosol CK
       DEALLOCATE (d_q_emiss)
-      DEALLOCATE (R2SO4)
-      DEALLOCATE (DENSO4)
-      DEALLOCATE (f_r_wet)
+      DEALLOCATE (R2SO4, R2SO4B)
+      DEALLOCATE (DENSO4, DENSO4B)
+      DEALLOCATE (f_r_wet, f_r_wetB)
       DEALLOCATE (decfluxaer)
       DEALLOCATE (mdw)