Ignore:
Timestamp:
06/21/17 09:09:59 (4 years ago)
Author:
yushan
Message:

save modif

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/branch_yushan_merged/src/test/test_remap_omp.f90

    r1153 r1176  
    5252  if(rank < size-2) then 
    5353 
    54   !$omp parallel default(firstprivate) firstprivate(dtime) 
     54  !$omp parallel default(private) firstprivate(dtime) 
    5555 
    5656!!! XIOS Initialization (get the local communicator) 
     
    6969 
    7070  ierr=NF90_INQ_VARID(ncid,"bounds_lon",varid) 
    71   ierr=NF90_INQUIRE_VARIABLE(ncid, varid,dimids=dimids) 
     71  ierr=NF90_INQUIRE_VARIABLE(ncid, varid, dimids=dimids) 
    7272  ierr=NF90_INQUIRE_DIMENSION(ncid, dimids(1), len=src_nvertex) 
    7373  ierr=NF90_INQUIRE_DIMENSION(ncid, dimids(2), len=src_ni_glo) 
     
    8282    src_ibegin= remain * (div+1) + (rank-remain) * div ; 
    8383  ENDIF 
     84 
     85  if(src_ni .LE. 0) CALL MPI_ABORT() 
     86 
    8487 
    8588  ALLOCATE(src_lon(src_ni), src_lon_tmp(src_ni)) 
     
    9598  ALLOCATE(lval1(interpolatedLlm)) 
    9699  ALLOCATE(lval2(llm2)) 
     100  lval2 = 0 
     101  lval=0 
     102  lval1=0 
    97103 
    98104  ierr=NF90_INQ_VARID(ncid,"lon",varid) 
     
    161167  ENDIF 
    162168 
     169  if(dst_ni .LE. 0) CALL MPI_ABORT() 
     170 
    163171  ALLOCATE(dst_lon(dst_ni)) 
    164172  ALLOCATE(dst_lat(dst_ni)) 
Note: See TracChangeset for help on using the changeset viewer.