Ignore:
Timestamp:
Mar 14, 2019, 3:07:39 PM (5 years ago)
Author:
Laurent Fairhead
Message:

Needed when running in sequential mode and correcting en overinitialisation
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/phytrac_mod.F90

    r3465 r3467  
    351351    !                    -- INITIALIZATION --
    352352    !######################################################################
    353     IF (debutphy) THEN
    354        ALLOCATE(d_tr_cl(klon,klev,nbtr),d_tr_dry(klon,nbtr))
    355        ALLOCATE(flux_tr_dry(klon,nbtr),d_tr_dec(klon,klev,nbtr),d_tr_cv(klon,klev,nbtr))
    356        ALLOCATE(d_tr_insc(klon,klev,nbtr),d_tr_bcscav(klon,klev,nbtr))
    357        ALLOCATE(d_tr_evapls(klon,klev,nbtr),d_tr_ls(klon,klev,nbtr))
    358        ALLOCATE(qPrls(klon,nbtr),d_tr_trsp(klon,klev,nbtr))
    359        ALLOCATE(d_tr_sscav(klon,klev,nbtr),d_tr_sat(klon,klev,nbtr))
    360        ALLOCATE(d_tr_uscav(klon,klev,nbtr),qPr(klon,klev,nbtr),qDi(klon,klev,nbtr))
    361        ALLOCATE(qPa(klon,klev,nbtr),qMel(klon,klev,nbtr))
    362        ALLOCATE(qTrdi(klon,klev,nbtr),dtrcvMA(klon,klev,nbtr))
    363        ALLOCATE(d_tr_th(klon,klev,nbtr))
    364        ALLOCATE(d_tr_lessi_impa(klon,klev,nbtr),d_tr_lessi_nucl(klon,klev,nbtr))
    365     ENDIF
    366353
    367354    DO k=1,klev
Note: See TracChangeset for help on using the changeset viewer.