Changeset 3940


Ignore:
Timestamp:
06/25/18 09:56:20 (6 years ago)
Author:
lbedidi
Message:
  1. Bedidi: fixing 0D case
File:
1 edited

Legend:

Unmodified
Added
Removed
  • TOOLS/MOSAIX/src/MOSAIX/interpol.f90

    r3733 r3940  
    101101      lat_src (:,:) = SPREAD ( lat_src(1,:), DIM=1, ncopies=nj_src) 
    102102   CASE default 
    103       IF ( nj_src == 1 ) THEN 
     103      IF ( nj_src == 1 .AND. ni_src==1) THEN 
     104         WRITE (UNIT=nout, FMT="('-- ', 1I4.4, ' -- lecture lon lat src 2D ', 6I9)") rank 
     105         CALL xios_get_domain_attr ("domain_src", lonvalue_2d=lon_src(:,:), latvalue_2d=lat_src(:,:) ) 
     106      ELSE IF ( nj_src == 1 ) THEN 
    104107         WRITE (UNIT=nout, FMT="('-- ', 1I4.4, ' -- lecture lon lat src 1D ', 6I9)") rank 
    105108         CALL xios_get_domain_attr ("domain_src", lonvalue_1d=lon_src(:,1), latvalue_1d=lat_src(:,1) ) 
Note: See TracChangeset for help on using the changeset viewer.