Changeset 693
- Timestamp:
- 09/16/15 16:26:34 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/branchs/xios-1.0/src/test/test_unstruct_complete.f90
r501 r693 30 30 INTEGER,ALLOCATABLE :: i_index(:) 31 31 LOGICAL,ALLOCATABLE :: mask_glo(:),mask(:) 32 DOUBLE PRECISION,ALLOCATABLE :: lon(:),lat(:),field_A_srf(:,:), lonvalue(:) ;33 DOUBLE PRECISION,ALLOCATABLE :: bounds_lon(:,:),bounds_lat(:,:) ;32 DOUBLE PRECISION,ALLOCATABLE :: lon(:),lat(:),field_A_srf(:,:), lonvalue(:) 33 DOUBLE PRECISION,ALLOCATABLE :: bounds_lon(:,:),bounds_lat(:,:) 34 34 INTEGER :: ni,ibegin,iend,nj,jbegin,jend 35 35 INTEGER :: i,j,l,ts,n … … 105 105 j=(j1+j2)/2 106 106 n=NINT(COS(Pi/2-(j-0.5)*PI/nlat)*nlon) 107 np = MIN(n/ncell_x,rank+1) ;107 np = MIN(n/ncell_x,rank+1) 108 108 if (j2==1) np=rank+1 109 109 110 PRINT *,"domain ",j2,j1,rank,np ;110 PRINT *,"domain ",j2,j1,rank,np 111 111 DO j=j2,j1 112 112 n=NINT(COS(Pi/2-(j-0.5)*PI/nlat)*nlon) … … 133 133 j=(j1+j2)/2 134 134 n=NINT(COS(Pi/2-(j-0.5)*PI/nlat)*nlon) 135 np = MIN(n/ncell_x,mpi_size-rank) ;135 np = MIN(n/ncell_x,mpi_size-rank) 136 136 if (j2==nlat) np=mpi_size-rank 137 137 138 PRINT *,"domain ",j2,j1,rank,np ;138 PRINT *,"domain ",j2,j1,rank,np 139 139 DO j=j1,j2 140 140 n=NINT(COS(Pi/2-(j-0.5)*PI/nlat)*nlon) … … 201 201 CALL xios_set_current_context(ctx_hdl) 202 202 203 CALL xios_set_axis_attr("axis_srf",size=llm ,value=lval) ; 204 CALL xios_set_domain_attr("domain_srf",ni_glo=ncell_glo, ni=ncell, ibegin=1, i_index=RESHAPE(i_index,(/ncell,1/) )) 205 CALL xios_set_domain_attr("domain_srf",data_dim=1, data_ni=data_n_index, data_n_index=data_n_index, data_i_index=data_i_index, type='unstructured') 206 CALL xios_set_domain_attr("domain_srf",lonvalue=lon,latvalue=lat) 207 CALL xios_set_domain_attr("domain_srf", nvertex=4, bounds_lon=bounds_lon, bounds_lat=bounds_lat ) 203 CALL xios_set_axis_attr("axis_srf", size=llm ,value=lval) 204 CALL xios_set_domain_attr("domain_srf", ni_glo=ncell_glo, ni=ncell, ibegin=1, i_index=RESHAPE(i_index,(/ncell,1/))) 205 CALL xios_set_domain_attr("domain_srf", data_dim=1, data_ni=data_n_index, & 206 data_n_index=data_n_index, data_i_index=data_i_index, type='unstructured') 207 CALL xios_set_domain_attr("domain_srf", lonvalue=lon, latvalue=lat) 208 CALL xios_set_domain_attr("domain_srf", nvertex=4, bounds_lon=bounds_lon, bounds_lat=bounds_lat) 208 209 209 210
Note: See TracChangeset
for help on using the changeset viewer.