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

Timestamp:

Dec 3, 2017, 6:22:35 PM (6 years ago)

Author:

oboucher

Message:

Adding some diags for the StratAer? configuration

File:

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

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -482 +482 @@
 !
 !---2D budget variables
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_dry_ocs
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_dry_so2
       REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_dry_h2so4
       REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_dry_part
-!$OMP THREADPRIVATE(budg_dep_dry_h2so4,budg_dep_dry_part)
+!$OMP THREADPRIVATE(budg_dep_dry_ocs,budg_dep_dry_so2,budg_dep_dry_h2so4,budg_dep_dry_part)
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_wet_ocs
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_wet_so2
       REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_wet_h2so4
       REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_wet_part
-!$OMP THREADPRIVATE(budg_dep_wet_h2so4,budg_dep_wet_part)
+!$OMP THREADPRIVATE(budg_dep_wet_ocs,budg_dep_wet_so2,budg_dep_wet_h2so4,budg_dep_wet_part)
       REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_emi_ocs
       REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_emi_so2
@@ -771 +775 @@
       ALLOCATE (tau_strat_1020(klon,klev))
       ALLOCATE (tausum_strat(klon,3))
+      ALLOCATE (budg_dep_dry_ocs(klon))
+      ALLOCATE (budg_dep_wet_ocs(klon))
+      ALLOCATE (budg_dep_dry_so2(klon))
+      ALLOCATE (budg_dep_wet_so2(klon))
       ALLOCATE (budg_dep_dry_h2so4(klon))
       ALLOCATE (budg_dep_wet_h2so4(klon))
@@ -1039 +1047 @@
       DEALLOCATE (budg_3D_nucl)
       DEALLOCATE (budg_3D_cond_evap)
+      DEALLOCATE (budg_dep_dry_ocs)
+      DEALLOCATE (budg_dep_wet_ocs)
+      DEALLOCATE (budg_dep_dry_so2)
+      DEALLOCATE (budg_dep_wet_so2)
       DEALLOCATE (budg_dep_dry_h2so4)
       DEALLOCATE (budg_dep_wet_h2so4)