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

Timestamp:

Jun 3, 2016, 4:12:16 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Computation of heat fluxes associated with solid and liquid precipitations
over ocean and seaice. Quantities are sent to the coupler
LF

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

@@ -76 +76 @@
   END TYPE ctrl_out
 
+  REAL, SAVE, ALLOCATABLE :: sens_prec_liq_o(:,:), sens_prec_sol_o(:,:)
+  REAL, SAVE, ALLOCATABLE :: lat_prec_liq_o(:,:), lat_prec_sol_o(:,:)
+ !$OMP THREADPRIVATE(sens_prec_liq_o, sens_prec_sol_o,lat_prec_liq_o,lat_prec_sol_o)
+
 CONTAINS
 
@@ -90 +94 @@
     allocate(snow_o(klon), zfra_o(klon))
     allocate(itau_con(klon))
+    allocate(sens_prec_liq_o(klon,2))
+    allocate(sens_prec_sol_o(klon,2))
+    allocate(lat_prec_liq_o(klon,2))
+    allocate(lat_prec_sol_o(klon,2))
+    sens_prec_liq_o = 0.0 ; sens_prec_sol_o = 0.0
+    lat_prec_liq_o = 0.0 ; lat_prec_sol_o = 0.0
+
     allocate (bils_ec(klon),bils_ech(klon),bils_tke(klon),bils_diss(klon),bils_kinetic(klon),bils_enthalp(klon),bils_latent(klon))