Changeset 1014


Ignore:
Timestamp:
Oct 15, 2008, 12:55:12 PM (16 years ago)
Author:
lsce
Message:

Bug fix, en cas de couple.

JG

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90

    r1008 r1014  
    3232       CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
    3333!$OMP END MASTER
     34#endif
    3435#ifdef CPP_MPI
    35       COMM_LMDZ=MPI_COMM_WORLD
    3636      MPI_REAL_LMDZ=MPI_REAL8
    37 #endif
    3837#endif
    3938    ELSE
Note: See TracChangeset for help on using the changeset viewer.