Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

    r2580 r2582  
    122122! Variables de sortie simulateur AIRS
    123123
     124     if (ok_airs) then
    124125      allocate (map_prop_hc(klon),map_prop_hist(klon))
    125126      allocate (alt_tropo(klon))
    126       allocate &
    127      & (map_emis_hc(klon),map_iwp_hc(klon),map_deltaz_hc(klon))
     127      allocate (map_emis_hc(klon),map_iwp_hc(klon),map_deltaz_hc(klon))
    128128      allocate (map_pcld_hc(klon),map_tcld_hc(klon))
    129129      allocate (map_emis_hist(klon),map_iwp_hist(klon),map_deltaz_hist(klon))
     
    134134      allocate (map_emis_ThCi(klon),map_pcld_ThCi(klon),map_tcld_ThCi(klon))
    135135      allocate (map_emis_Anv(klon),map_pcld_Anv(klon),map_tcld_Anv(klon))
     136     endif
    136137
    137138    IF (ok_hines) allocate(zustr_gwd_hines(klon), zvstr_gwd_hines(klon))
     
    147148    IMPLICIT NONE
    148149
     150    include "clesphys.h"
     151
    149152    deallocate(snow_o,zfra_o,itau_con)
    150153    deallocate (bils_ec,bils_ech,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
     
    153156! Variables de sortie simulateur AIRS
    154157
     158     if (ok_airs) then
    155159      deallocate (map_prop_hc,map_prop_hist)
    156160      deallocate (alt_tropo)
    157       deallocate &
    158      & (map_emis_hc,map_iwp_hc,map_deltaz_hc)
     161      deallocate (map_emis_hc,map_iwp_hc,map_deltaz_hc)
    159162      deallocate (map_pcld_hc,map_tcld_hc)
    160163      deallocate (map_emis_hist,map_iwp_hist,map_deltaz_hist)
     
    165168      deallocate (map_emis_ThCi,map_pcld_ThCi,map_tcld_ThCi)
    166169      deallocate (map_emis_Anv,map_pcld_Anv,map_tcld_Anv)
     170     endif
    167171
    168172  END SUBROUTINE phys_output_var_end
Note: See TracChangeset for help on using the changeset viewer.