Changeset 954


Ignore:
Timestamp:
09/30/16 09:47:15 (5 years ago)
Author:
ymipsl
Message:

Revert to rev 944 (file commited by error)

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/test/test_unstruct_complete.f90

    r953 r954  
    1717  INTEGER,PARAMETER :: ni_glo=100 
    1818  INTEGER,PARAMETER :: nj_glo=100 
    19   INTEGER,PARAMETER :: llm=1 
     19  INTEGER,PARAMETER :: llm=5 
    2020  DOUBLE PRECISION  :: lval(llm)=1 
    2121  TYPE(xios_field) :: field_hdl 
    2222  TYPE(xios_fieldgroup) :: fieldgroup_hdl 
    2323  TYPE(xios_file) :: file_hdl 
    24   TYPE(xios_domain) :: domain_hdl 
    2524  LOGICAL :: ok 
    2625 
     
    180179      IF (MOD(ind,8)>=0 .AND. MOD(ind,8)<2) THEN 
    181180        mask(ncell)=.FALSE. 
    182 !        data_n_index=data_n_index+1 
    183181      ELSE 
    184182        mask(ncell)=.TRUE. 
     
    221219  CALL xios_close_context_definition() 
    222220 
    223   CALL xios_field_get_domain("field_A_expand",domain_hdl) 
    224   CALL xios_get_attr(domain_hdl,ni=ni) 
    225   PRINT *, "Domain destination ni = ",ni, "Domain source n= ",ncell 
    226221  CALL xios_get_compute_connectivity_domain_attr("compute", n_neighbor_max=nbMax) 
    227222  ALLOCATE(local_neighbor(nbMax,ncell)) 
    228223  CALL xios_get_compute_connectivity_domain_attr("compute", n_neighbor=n_local, local_neighbor=local_neighbor) 
    229   PRINT *, "Connectivity max = ",nbMax 
    230  
    231    DO ts=1,1 
     224 
     225   DO ts=1,24*10 
    232226     CALL xios_update_calendar(ts) 
    233227     CALL xios_send_field("field_A_srf",field_A_compressed) 
Note: See TracChangeset for help on using the changeset viewer.