Changeset 2958 for LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

Timestamp:

Jul 18, 2017, 2:21:01 PM (7 years ago)

Author:

jbmadeleine

Message:

Added new outputs to cloudth_vert (level 10):
s_th, Thermal plume saturation deficit, kg/kg
s_env, Environment saturation deficit, kg/kg
sigma_th, Thermal plume gauss variance, kg/kg
sigma_env, Environment gauss variance, kg/kg

File:

• LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

@@ -38 +38 @@
   !$OMP THREADPRIVATE(d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_col)
 
+  ! Outputs used in cloudth_vert to extract the moments of the horizontal and 
+  ! vertical PDFs
+  REAL, SAVE, ALLOCATABLE :: cloudth_sth(:,:),cloudth_senv(:,:)
+  !$OMP THREADPRIVATE(cloudth_sth,cloudth_senv)
+  REAL, SAVE, ALLOCATABLE :: cloudth_sigmath(:,:),cloudth_sigmaenv(:,:)
+  !$OMP THREADPRIVATE(cloudth_sigmath,cloudth_sigmaenv)
+
 ! Marine
 ! Variables de sortie du simulateur AIRS
@@ -141 +148 @@
     d_h_qw_col=0. ; d_h_ql_col=0. ; d_h_qs_col=0. ; d_h_col=0.
 
+    ! Outputs used in cloudth_vert
+    allocate(cloudth_sth(klon,klev))
+    allocate(cloudth_senv(klon,klev))
+    cloudth_sth = 0. ; cloudth_senv = 0. 
+    allocate(cloudth_sigmath(klon,klev))
+    allocate(cloudth_sigmaenv(klon,klev))
+    cloudth_sigmath = 0. ; cloudth_sigmaenv = 0.
+
 ! Marine
 ! Variables de sortie simulateur AIRS
@@ -177 +192 @@
   &           , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_col)
 
+    ! Outputs used in cloudth_vert
+    deallocate(cloudth_sth)
+    deallocate(cloudth_senv)
+    deallocate(cloudth_sigmath)
+    deallocate(cloudth_sigmaenv)
+
 ! Marine
 ! Variables de sortie simulateur AIRS