Ignore:
Timestamp:
Jan 25, 2011, 12:12:55 PM (13 years ago)
Author:
jghattas
Message:

Bug correction for ce0l in dyn3dpar :

  • added missing MPI_FINALIZE
  • removed STOP before end of program


File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/ce0l.F90

    r1319 r1476  
    2222  USE mod_const_mpi
    2323  USE infotrac
     24  USE parallel, ONLY: finalize_parallel
    2425
    2526#ifdef CPP_IOIPSL
    … …  
    5657       CALL abort_gcm('ce0l','In parallel mode,                         &
    5758 &                 ce0l must be called only                             &
    58  &                 for 1 process and 1 task')
     59 &                 for 1 process and 1 task',1)
    5960  ENDIF
    6061
    … …  
    102103  END IF
    103104
     105!$OMP MASTER
     106  CALL finalize_parallel
     107!$OMP END MASTER
     108
    104109#endif
    105110! of #ifndef CPP_EARTH #else
    106   STOP
    107111
    108112END PROGRAM ce0l
Note: See TracChangeset for help on using the changeset viewer.