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

phys_output_mod - Bug in write : bad second argument in ioget_mon_len function.

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

Location:
LMDZ4/branches/LMDZ4_AR5/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/ce0l.F90

    r1476 r1599  
    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
     
    4343#include "temps.h"
    4444#include "logic.h"
     45#ifdef CPP_MPI
     46      include 'mpif.h'
     47#endif
     48
    4549  INTEGER, PARAMETER            :: longcles=20
     50  INTEGER                       :: ierr
    4651  REAL,    DIMENSION(longcles)  :: clesphy0
    4752  REAL,    DIMENSION(iip1,jjp1) :: masque
    4853  CHARACTER(LEN=15)             :: calnd
     54 
    4955!-------------------------------------------------------------------------------
    5056  CALL conf_gcm( 99, .TRUE. , clesphy0 )
    5157
     58#ifdef CPP_MPI
    5259  CALL init_mpi
     60#endif
    5361
    5462  CALL Init_Phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
     
    103111  END IF
    104112
     113#ifdef CPP_MPI
    105114!$OMP MASTER
    106   CALL finalize_parallel
     115  CALL MPI_FINALIZE(ierr)
     116  IF (ierr /= 0) CALL abort_gcm('ce0l','Error in MPI_FINALIZE',1)
    107117!$OMP END MASTER
     118#endif
     119
    108120
    109121#endif
  • LMDZ4/branches/LMDZ4_AR5/libf/phylmd/phys_output_mod.F90

    r1543 r1599  
    18211821        if ( type == 'day'.or.type == 'days'.or.type == 'jours'.or.type == 'jour' ) timestep = ttt * dayseconde
    18221822        if ( type == 'mounths'.or.type == 'mth'.or.type == 'mois' ) then
    1823            print*,'annee_ref,day_ref mon_len',annee_ref,day_ref,ioget_mon_len(annee_ref,day_ref)
    1824 !IMbug     timestep = ttt * dayseconde * ioget_mon_len(annee_ref,day_ref)
     1823           print*,'annee_ref,day_ref mon_len',annee_ref,day_ref,mth_len
    18251824           timestep = ttt * dayseconde * mth_len
    18261825        endif
Note: See TracChangeset for help on using the changeset viewer.