Changeset 1219


Ignore:
Timestamp:
Aug 5, 2009, 10:31:58 AM (15 years ago)
Author:
jghattas
Message:

Uniquement un process devrait faire l'appel a getin_dump sinon on
risque d'avoir des conflit de fermeture du meme fichier.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/abort_gcm.F

    r1200 r1219  
    99      USE IOIPSL
    1010#endif
     11      USE parallel
    1112#include "iniprint.h"
    1213 
    … …  
    2829      call histclo
    2930      call restclo
     31      if (MPI_rank .eq. 0) then
     32         call getin_dump
     33      endif
    3034c$OMP END MASTER
    3135#endif
    32       call getin_dump
    3336c     call histclo(2)
    3437c     call histclo(3)
Note: See TracChangeset for help on using the changeset viewer.