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

Timestamp:

Oct 27, 2014, 6:47:03 PM (10 years ago)

Author:

lguez

Message:

Add the module from ecmwf model for water production by methane oxydation
and photolysis. Activated if def file option: ok_qch4=y.
LG, D.Cugnet

File:

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

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -73 +73 @@
       REAL, SAVE, ALLOCATABLE :: d_t_hin(:,:)
       !$OMP THREADPRIVATE(d_t_hin)
+! tendance due a l'oxydation du methane
+      REAL, SAVE, ALLOCATABLE :: d_q_ch4(:,:)
+      !$OMP THREADPRIVATE(d_q_ch4)
 
 ! tendance du a la conersion Ec -> E thermique
@@ -338 +341 @@
       allocate(topswcf_aero(klon,3), solswcf_aero(klon,3))
       allocate(d_u_hin(klon,klev),d_v_hin(klon,klev),d_t_hin(klon,klev))
+      allocate(d_q_ch4(klon,klev))
 !      allocate(tausum_aero(klon,nwave,naero_spc))
 !      allocate(tau3d_aero(klon,klev,nwave,naero_spc)) 
@@ -535 +539 @@
       deallocate(load_tmp7)
       deallocate(d_u_hin,d_v_hin,d_t_hin)
+      deallocate(d_q_ch4)
 
 !IM ajout variables CFMIP2/CMIP5
@@ -603 +608 @@
 END SUBROUTINE phys_local_var_end
 
-END MODULE phys_local_var_mod
+END MODULE phys_local_var_mod