Changeset 1600 for LMDZ5


Ignore:
Timestamp:
Dec 6, 2011, 2:16:30 PM (13 years ago)
Author:
jghattas
Message:

ce0l - Changed finalize_parallel into mpi_finalize because the program ce0l did not finish correctly for case ocean_type=couple.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3dpar/ce0l.F90

    r1563 r1600  
    1919  USE dimphy
    2020  USE comgeomphy
    21   USE mod_phys_lmdz_para
     21  USE mod_phys_lmdz_para, mpi_root_xx=>mpi_root
    2222  USE mod_const_mpi
    2323  USE infotrac
     
    4242#include "temps.h"
    4343#include "logic.h"
     44#ifdef CPP_MPI
     45      include 'mpif.h'
     46#endif
     47
    4448  INTEGER, PARAMETER            :: longcles=20
     49  INTEGER                       :: ierr
    4550  REAL,    DIMENSION(longcles)  :: clesphy0
    4651  REAL,    DIMENSION(iip1,jjp1) :: masque
     
    5055  CALL conf_gcm( 99, .TRUE. , clesphy0 )
    5156
     57#ifdef CPP_MPI
    5258  CALL init_mpi
     59#endif
    5360
    5461  CALL Init_Phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
     
    115122  END IF
    116123 
     124#ifdef CPP_MPI
    117125!$OMP MASTER
    118   CALL finalize_parallel
     126  CALL MPI_FINALIZE(ierr)
     127  IF (ierr /= 0) CALL abort_gcm('ce0l','Error in MPI_FINALIZE',1)
    119128!$OMP END MASTER
     129#endif
    120130
    121131#endif
Note: See TracChangeset for help on using the changeset viewer.