Changeset 2582 for LMDZ5/trunk/libf

Timestamp:

Jun 29, 2016, 5:24:29 PM (8 years ago)

Author:

idelkadi

Message:

Correction d'ereur d'allocation de tableaux introduite lors de l'implementation du simulateur AIRS

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

@@ -122 +122 @@
 ! Variables de sortie simulateur AIRS
 
+     if (ok_airs) then
       allocate (map_prop_hc(klon),map_prop_hist(klon))
       allocate (alt_tropo(klon))
-      allocate &
-     & (map_emis_hc(klon),map_iwp_hc(klon),map_deltaz_hc(klon))
+      allocate (map_emis_hc(klon),map_iwp_hc(klon),map_deltaz_hc(klon))
       allocate (map_pcld_hc(klon),map_tcld_hc(klon))
       allocate (map_emis_hist(klon),map_iwp_hist(klon),map_deltaz_hist(klon))
@@ -134 +134 @@
       allocate (map_emis_ThCi(klon),map_pcld_ThCi(klon),map_tcld_ThCi(klon))
       allocate (map_emis_Anv(klon),map_pcld_Anv(klon),map_tcld_Anv(klon))
+     endif
 
     IF (ok_hines) allocate(zustr_gwd_hines(klon), zvstr_gwd_hines(klon))
@@ -147 +148 @@
     IMPLICIT NONE
 
+    include "clesphys.h"
+
     deallocate(snow_o,zfra_o,itau_con)
     deallocate (bils_ec,bils_ech,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
@@ -153 +156 @@
 ! Variables de sortie simulateur AIRS
 
+     if (ok_airs) then
       deallocate (map_prop_hc,map_prop_hist)
       deallocate (alt_tropo)
-      deallocate &
-     & (map_emis_hc,map_iwp_hc,map_deltaz_hc)
+      deallocate (map_emis_hc,map_iwp_hc,map_deltaz_hc)
       deallocate (map_pcld_hc,map_tcld_hc)
       deallocate (map_emis_hist,map_iwp_hist,map_deltaz_hist)
@@ -165 +168 @@
       deallocate (map_emis_ThCi,map_pcld_ThCi,map_tcld_ThCi)
       deallocate (map_emis_Anv,map_pcld_Anv,map_tcld_Anv)
+     endif
 
   END SUBROUTINE phys_output_var_end