Changeset 3907 for LMDZ5/branches


Ignore:
Timestamp:
May 19, 2021, 2:59:23 PM (4 years ago)
Author:
Sebastien Nguyen
Message:

added #ifdef CPP_MPI for sequential compilation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/cpl_mod.F90

    r3889 r3907  
    12231223        ENDDO
    12241224      ENDDO
    1225      
     1225
     1226#ifdef CPP_MPI
     1227 
    12261228      CALL MPI_ALLREDUCE(calving, calving_glo, nb_zone_calving, MPI_REAL_LMDZ, MPI_SUM, COMM_LMDZ_PHY, error)
    12271229     
     1230#endif
     1231
    12281232      tab_flds(:,:,ids_calvin) = 0
    12291233      DO k=1,nb_zone_calving
    … …  
    12311235          j=(ind_calving(k)-1)/nbp_lon + 1
    12321236          i=MOD(ind_calving(k)-1,nbp_lon)+1
     1237#ifdef CPP_MPI
    12331238          tab_flds(i,j,ids_calvin) = calving_glo(k)
     1239#else
     1240          tab_flds(i,j,ids_calvin) = calving(k)
     1241#endif
    12341242        ENDIF
    12351243      ENDDO
Note: See TracChangeset for help on using the changeset viewer.