Changeset 2787 for LMDZ5/branches/testing/libf/phylmd/StratAer/interp_sulf_input.F90

Timestamp:

Jan 30, 2017, 5:54:45 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2727:2785 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/StratAer/interp_sulf_input.F90 (modified) (4 diffs)

LMDZ5/branches/testing/libf/phylmd/StratAer/interp_sulf_input.F90

@@ -8 +8 @@
   USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
   USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
-  USE phys_local_var_mod, ONLY : OCS_backgr_tend, SO2_backgr_tend
+  USE phys_local_var_mod, ONLY : budg_3D_backgr_ocs, budg_3D_backgr_so2
   USE phys_local_var_mod, ONLY : OCS_lifetime, SO2_lifetime
   USE mod_phys_lmdz_para 
@@ -34 +34 @@
   REAL OCS_tmp, SO2_tmp
   INTEGER, SAVE :: mth_pre
+!$OMP THREADPRIVATE(mth_pre)
 
 ! Champs reconstitues
@@ -244 +245 @@
         tr_seri(i,k,id_SO2_strat)=SO2_clim(i,k)
       ENDIF
-      OCS_backgr_tend(i,k)=tr_seri(i,k,id_OCS_strat)-OCS_tmp
-      SO2_backgr_tend(i,k)=tr_seri(i,k,id_SO2_strat)-SO2_tmp
+      budg_3D_backgr_ocs(i,k)=tr_seri(i,k,id_OCS_strat)-OCS_tmp
+      budg_3D_backgr_so2(i,k)=tr_seri(i,k,id_SO2_strat)-SO2_tmp
     ENDDO
   ENDDO
@@ -252 +253 @@
   DO i=1, klon
     DO k=1, klev
-      SO2_backgr_tend(i,k)=SO2_backgr_tend(i,k)*mSatom/mSO2mol*(paprs(i,k)-paprs(i,k+1))/RG/pdtphys
-      OCS_backgr_tend(i,k)=OCS_backgr_tend(i,k)*mSatom/mOCSmol*(paprs(i,k)-paprs(i,k+1))/RG/pdtphys
+      budg_3D_backgr_ocs(i,k)=budg_3D_backgr_ocs(i,k)*mSatom/mOCSmol*(paprs(i,k)-paprs(i,k+1))/RG/pdtphys
+      budg_3D_backgr_so2(i,k)=budg_3D_backgr_so2(i,k)*mSatom/mSO2mol*(paprs(i,k)-paprs(i,k+1))/RG/pdtphys
     ENDDO
   ENDDO