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

Timestamp:

May 14, 2014, 11:18:03 AM (10 years ago)

Author:

fhourdin

Message:

Ajout d'un diagnostique pour la conservation de l'energie.
Added diagnostic for energie conservation.

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

@@ -17 +17 @@
   !$OMP THREADPRIVATE(itau_con)
   REAL, ALLOCATABLE :: bils_ec(:) ! Contribution of energy conservation
+  REAL, ALLOCATABLE :: bils_ech(:) ! Contribution of energy conservation
   REAL, ALLOCATABLE :: bils_tke(:) ! Contribution of energy conservation
   REAL, ALLOCATABLE :: bils_diss(:) ! Contribution of energy conservation
@@ -22 +23 @@
   REAL, ALLOCATABLE :: bils_enthalp(:) ! bilan de chaleur au sol
   REAL, ALLOCATABLE :: bils_latent(:) ! bilan de chaleur au sol
-  !$OMP THREADPRIVATE(bils_ec,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
+  !$OMP THREADPRIVATE(bils_ec,bils_ech,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
 
 
@@ -83 +84 @@
     allocate(snow_o(klon), zfra_o(klon))
     allocate(itau_con(klon))
-    allocate (bils_ec(klon),bils_tke(klon),bils_diss(klon),bils_kinetic(klon),bils_enthalp(klon),bils_latent(klon))
+    allocate (bils_ec(klon),bils_ech(klon),bils_tke(klon),bils_diss(klon),bils_kinetic(klon),bils_enthalp(klon),bils_latent(klon))
 
     IF (ok_gwd_rando) allocate(zustr_gwd_rando(klon), zvstr_gwd_rando(klon))
@@ -95 +96 @@
 
     deallocate(snow_o,zfra_o,itau_con)
-    deallocate (bils_ec,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
+    deallocate (bils_ec,bils_ech,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
 
   END SUBROUTINE phys_output_var_end