Ignore:
Timestamp:
Nov 19, 2014, 5:52:35 PM (10 years ago)
Author:
fhourdin
Message:

Corrections cosmétiques pour RRTM
Bug fixing for RRTM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/readaerosolstrato.F90

    r2146 r2152  
    128128    CALL grid2dTo1d_glo(tauaerstrat_mois,tauaerstrat_mois_glo)
    129129
    130 !    DEALLOCATE(tauaerstrat)
    131 !    DEALLOCATE(tauaerstrat_mois)
    132 !    DEALLOCATE(tauaerstrat_mois_glo)
    133  
    134130    ENDIF !--is_mpi_root
    135131
    … …  
    139135!--keep memory of previous month
    140136    mth_pre=mth_cur
     137!
     138    IF (is_mpi_root) THEN
     139!
     140    DEALLOCATE(tauaerstrat)
     141    DEALLOCATE(tauaerstrat_mois)
     142    DEALLOCATE(tauaerstrat_mois_glo)
     143!
     144    ENDIF !-is_mpi_root
    141145
    142146    ENDIF !--debut ou nouveau mois
Note: See TracChangeset for help on using the changeset viewer.