Changeset 3467


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

Needed when running in sequential mode and correcting en overinitialisation
LF

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r3465 r3467  
    12741274      ENDDO
    12751275     
     1276#ifdef CPP_MPI
    12761277      CALL MPI_ALLREDUCE(calving, calving_glo, nb_zone_calving, MPI_REAL_LMDZ, MPI_SUM, COMM_LMDZ_PHY, error)
     1278#endif
    12771279     
    12781280      tab_flds(:,:,ids_calvin) = 0

  • 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.