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

Timestamp:

05/21/12 17:57:22 (12 years ago)

Author:

ymipsl

Message:

• Supress lot of shared_ptr
• instrument code for vampir-trace and timer diagnostic

YM

File:

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

XIOS/trunk/src/test/test_cs.f90

@@ -31 +31 @@
   TYPE(xios_time)      :: dtime
   TYPE(xios_context) :: ctx_hdl
-  INTEGER,PARAMETER :: ni_glo=10 
-  INTEGER,PARAMETER :: nj_glo=10 
+  INTEGER,PARAMETER :: ni_glo=100 
+  INTEGER,PARAMETER :: nj_glo=100 
   TYPE(xios_field) :: field_hdl
   TYPE(xios_fieldgroup) :: fieldgroup_hdl
@@ -80 +80 @@
   CALL xios_set_context_attr("test",calendar_type="Gregorian") 
   CALL xios_set_domain_attr("domain_A",ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, ni=ni,jbegin=jbegin,nj=nj)
-  CALL xios_set_domain_attr("domain_A",zoom_ni=3,zoom_ibegin=3,zoom_nj=3,zoom_jbegin=6)
+  !CALL xios_set_domain_attr("domain_A",zoom_ni=3,zoom_ibegin=3,zoom_nj=3,zoom_jbegin=6)
   CALL xios_set_domain_attr("domain_A",data_dim=2, data_ibegin=-1, data_ni=ni+2, data_jbegin=-2, data_nj=nj+4)
   CALL xios_set_domain_attr("domain_A",lonvalue=RESHAPE(lon,(/ni*nj/)),latvalue=RESHAPE(lat,(/ni*nj/)))
@@ -106 +106 @@
     
     PRINT*,"field field_A is active ? ",xios_field_is_active("field_A")
-    DO ts=1,96
+    DO ts=1,96*200
       CALL xios_update_calendar(ts)
       CALL xios_send_field("field_A",field_A)