Changeset 718 for LMDZ4/branches/V3_test


Ignore:
Timestamp:
Oct 6, 2006, 12:26:45 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Corrections bugs divers YM
LF

Location:
LMDZ4/branches/V3_test/libf
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/V3_test/libf/dyn3dpar/mod_hallo.F90

    r709 r718  
    430430      type(request_SR),pointer :: Req
    431431      type(Hallo),pointer :: PtrHallo
    432       integer, dimension(4) :: TabRequest
    433       integer, dimension(MPI_STATUS_SIZE,4) :: TabStatus
     432      integer, dimension(2*mpi_size) :: TabRequest
     433      integer, dimension(MPI_STATUS_SIZE,2*mpi_size) :: TabStatus
    434434      integer :: NbRequest
    435435      integer :: i,rank,pos,ij,l,ierr
    … …  
    512512      type(request_SR),pointer :: Req
    513513      type(Hallo),pointer :: PtrHallo
    514       integer, dimension(4) :: TabRequest
    515       integer, dimension(MPI_STATUS_SIZE,4) :: TabStatus
     514      integer, dimension(mpi_size) :: TabRequest
     515      integer, dimension(MPI_STATUS_SIZE,mpi_size) :: TabStatus
    516516      integer :: NbRequest
    517517      integer :: i,rank,pos,ij,l,ierr
    … …  
    553553      type(request_SR),pointer :: Req
    554554      type(Hallo),pointer :: PtrHallo
    555       integer, dimension(4) :: TabRequest
    556       integer, dimension(MPI_STATUS_SIZE,4) :: TabStatus
     555      integer, dimension(mpi_size) :: TabRequest
     556      integer, dimension(MPI_STATUS_SIZE,mpi_size) :: TabStatus
    557557      integer :: NbRequest
    558558      integer :: i,rank,pos,ij,l,ierr

  • LMDZ4/branches/V3_test/libf/phylmd/ini_histISCCP.h

    r704 r718  
    7070          jmin_ins=1
    7171          jmax_ins=jjmp1
    72           do i=1,iim-1
    73              if(zx_lon(i,1).lt.lonmin_ins) imin_ins=i
    74              if(zx_lon(i,1).le.lonmax_ins) imax_ins=i+1
    75           enddo
    76           do j=1,jjmp1
    77              if(zx_lat(1,j).ge.latmin_ins) jmax_ins=j
    78              if(zx_lat(1,j).gt.latmax_ins) jmin_ins=j
    79           enddo
     72cym          do i=1,iim-1
     73cym             if(zx_lon(i,1).lt.lonmin_ins) imin_ins=i
     74cym             if(zx_lon(i,1).le.lonmax_ins) imax_ins=i+1
     75cym          enddo
     76cym          do j=1,jjmp1
     77cym             if(zx_lat(1,j).ge.latmin_ins) jmax_ins=j
     78cym             if(zx_lat(1,j).gt.latmax_ins) jmin_ins=j
     79cym          enddo
    8080c
    8181          print*,'On stoke le fichier histISCCP instantanne sur ',

  • LMDZ4/branches/V3_test/libf/phylmd/interface_surf.F90

    r704 r718  
    917917
    918918    if (.not. allocated(run_off_lic)) then
    919       allocate(run_off_lic(knon), stat = error)
     919      allocate(run_off_lic(klon), stat = error)
    920920      if (error /= 0) then
    921921        abort_message='Pb allocation run_off_lic'
    … …  
    10341034
    10351035  USE intersurf
    1036   USE parallel, only : pole_nord,pole_sud
    10371036  USE dimphy, klon_x=>klon
    10381037  IMPLICIT NONE
    … …  
    14741473  SUBROUTINE Get_orchidee_communicator(knon,orch_comm)
    14751474  USE dimphy, only : phy_rank
     1475#ifdef CPP_PARA
    14761476  USE parallel, only : COMM_LMDZ
     1477#endif
    14771478  IMPLICIT NONE
    14781479#ifdef CPP_PARA
    … …  
    14991500   
    15001501  SUBROUTINE Init_neighbours(iim,jjm,knon,neighbours,ktindex,pctsrf)
     1502#ifdef CPP_PARA
    15011503  USE parallel,only : COMM_LMDZ
     1504#endif 
    15021505  USE dimphy
    15031506  IMPLICIT NONE

  • LMDZ4/branches/V3_test/libf/phylmd/mod_phys_mpi.F90

    r711 r718  
    233233      if (monocpu) then
    234234        Fieldr(:,:)=Fields(:,:)
    235 #ifdef CPP_PARA     
    236235      else
     236#ifdef CPP_PARA
    237237        call MPI_Gatherv(Fields,klon_mpi*ll,MPI_REAL8,Field_tmp,sendcounts,  &
    238238                         displs,MPI_REAL8,0,COMM_LMDZ,ierr)
    239 #endif
    240       endif
    241      
    242      Pos=1     
    243      do rank=0,phy_size-1
    244        klon_b=klon_para_begin(rank)
    245        klon_e=klon_para_end(rank)
    246        Nb=klon_para_nb(rank)
    247        do l=1,ll
    248          Fieldr(klon_b:klon_e,l)=Field_tmp(Pos:Pos+Nb-1)
    249          Pos=Pos+Nb
    250        enddo
    251      enddo
     239        Pos=1     
     240        do rank=0,phy_size-1
     241          klon_b=klon_para_begin(rank)
     242          klon_e=klon_para_end(rank)
     243          Nb=klon_para_nb(rank)
     244          do l=1,ll
     245           Fieldr(klon_b:klon_e,l)=Field_tmp(Pos:Pos+Nb-1)
     246           Pos=Pos+Nb
     247          enddo
     248        enddo
     249#endif
     250     endif
    252251     
    253252   end subroutine GatherField
Note: See TracChangeset for help on using the changeset viewer.