Changeset 313 for XIOS/trunk/src/test/test_cs.f90

Timestamp:

02/18/12 22:43:24 (12 years ago)

Author:

ymipsl

Message:

Fortran attribut interface are now automaticaly generated.
Add get attribut fonctionnality from fortran.

YM

File:

• XIOS/trunk/src/test/test_cs.f90 (modified) (3 diffs)

XIOS/trunk/src/test/test_cs.f90

@@ -39 +39 @@
   
   DOUBLE PRECISION,DIMENSION(ni_glo,nj_glo) :: lon_glo,lat_glo,field_A_glo
-  DOUBLE PRECISION,ALLOCATABLE :: lon(:,:),lat(:,:),field_A(:,:)
+  DOUBLE PRECISION,ALLOCATABLE :: lon(:,:),lat(:,:),field_A(:,:), lonvalue(:) ;
   INTEGER :: ni,ibegin,iend,nj,jbegin,jend
   INTEGER :: i,j,ts,n
@@ -62 +62 @@
   iend=ibegin+ni-1 ; jend=jbegin+nj-1
 
-  ALLOCATE(lon(ni,nj),lat(ni,nj),field_A(0:ni+1,-1:nj+2))
+  ALLOCATE(lon(ni,nj),lat(ni,nj),field_A(0:ni+1,-1:nj+2),lonvalue(ni*nj))
   lon(:,:)=lon_glo(ibegin:iend,jbegin:jend)
   lat(:,:)=lat_glo(ibegin:iend,jbegin:jend)
@@ -96 +96 @@
     dtime%second=3600
     CALL xios_set_timestep(dtime) 
+    
+    ni=0 ; lonvalue(:)=0
+    CALL xios_get_domain_attr("domain_A",ni=ni,lonvalue=lonvalue)
+    
+    print *,"ni",ni
+    print *,"lonvalue",lonvalue ;
 
     CALL xios_close_context_definition()