Changeset 2992 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Sep 21, 2017, 11:51:25 AM (7 years ago)

Author:

oboucher

Message:

Adding p, z, and t of tropopause in output files.
Stratosphere_mask is streamlined a bit.
This includes a treatment of missing values.

File:

• LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (8 diffs)

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -430 +430 @@
 !$OMP THREADPRIVATE(sissnow,runoff,albsol3_lic)
 
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: p_tropopause, z_tropopause, t_tropopause
+!$OMP THREADPRIVATE(p_tropopause, z_tropopause, t_tropopause)
+
 #ifdef CPP_StratAer
 !
@@ -461 +464 @@
       REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: surf_PM25_sulf
 !$OMP THREADPRIVATE(surf_PM25_sulf)
-      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: p_tropopause
-!$OMP THREADPRIVATE(p_tropopause)
       REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: vsed_aer
 !$OMP THREADPRIVATE(vsed_aer)
@@ -499 +500 @@
 !$OMP THREADPRIVATE(budg_sed_part)
 #endif
-      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: pr_tropopause
-!$OMP THREADPRIVATE(pr_tropopause)
 
 CONTAINS
@@ -749 +748 @@
       ALLOCATE (sissnow(klon),runoff(klon),albsol3_lic(klon))
 
+      ALLOCATE (p_tropopause(klon))
+      ALLOCATE (z_tropopause(klon))
+      ALLOCATE (t_tropopause(klon))
+
 #ifdef CPP_StratAer
       ALLOCATE (R2SO4(klon,klev))
@@ -782 +785 @@
       ALLOCATE (budg_sed_part(klon))
       ALLOCATE (surf_PM25_sulf(klon))
-      ALLOCATE (p_tropopause(klon))
       ALLOCATE (vsed_aer(klon,klev))
 #endif
-      ALLOCATE (pr_tropopause(klon))
 
 END SUBROUTINE phys_local_var_init
@@ -1012 +1013 @@
       DEALLOCATE (zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic)
 
+      DEALLOCATE (p_tropopause)
+      DEALLOCATE (z_tropopause)
+      DEALLOCATE (t_tropopause)
+
 #ifdef CPP_StratAer
 ! variables for strat. aerosol CK
@@ -1028 +1033 @@
       DEALLOCATE (tausum_strat)
       DEALLOCATE (surf_PM25_sulf)
-      DEALLOCATE (p_tropopause)
       DEALLOCATE (vsed_aer)
       DEALLOCATE (budg_3D_ocs_to_so2)
@@ -1049 +1053 @@
       DEALLOCATE (budg_sed_part)
 #endif
-      DEALLOCATE (pr_tropopause)
 
 END SUBROUTINE phys_local_var_end