Changeset 1018 for XIOS/trunk/src/test/test_remap.f90

Timestamp:

01/10/17 13:52:53 (7 years ago)

Author:

mhnguyen

Message:

Improving missing-value processing
If detect_missing_value is activated, then all missing value will be converted to
NaN (Not-a-number) in input of data flow then they will be reconverted to missing value on output

+) Update SourceFilter?, TemporalFilter? and SpatialTransformFilter? with new processing
+) Update all transformations with new processing

Test
+) On Curie
+) Work

File:

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

XIOS/trunk/src/test/test_remap.f90

@@ -91 +91 @@
     IF (MOD(i,10)==0) THEN
       src_mask_2D(i)=.FALSE.
+      src_field_2D(i) = 100000
     ELSE
-      src_mask_2D(i)=.TRUE.
+      src_mask_2D(i)=.TRUE.      
     ENDIF
   ENDDO
@@ -99 +100 @@
     lval(i) = i*100
     src_field_pression(:,i) = i * 100
-    src_field_3D(:,i) = src_field_3D(:,i) + i * 10    
+    IF (MOD(i,3)==0) THEN
+      ! src_field_pression(:,i) = 100000
+      src_field_3D(:,i) = 100000
+    ELSE
+      ! src_field_pression(:,i) = i * 100
+      src_field_3D(:,i) = src_field_3D(:,i) + i * 10 
+    ENDIF
+    ! src_field_3D(:,i) = src_field_3D(:,i) + i * 10    
   ENDDO
 
   DO i=1,llm2
-    src_field_4D(:,:,i) = src_field_3D(:,:)
+    src_field_4D(:,:,i) = src_field_3D(:,:) + i * 100
   ENDDO
 
@@ -184 +192 @@
     CALL xios_send_field("src_field_2D_clone",src_field_2D)
     CALL xios_send_field("src_field_3D",src_field_3D)
+    CALL xios_send_field("src_field_3D_clone",src_field_3D)
     CALL xios_send_field("src_field_4D",src_field_4D)
     CALL xios_send_field("src_field_3D_pression",src_field_pression)