Changeset 2010

Timestamp:

01/12/21 22:57:33 (3 years ago)

Author:

ymipsl

Message:

fix pressure in Pa in generic testcase.
YM

File:

• XIOS/dev/dev_ym/XIOS_COUPLING/src/test/generic_testcase.f90 (modified) (2 diffs)

XIOS/dev/dev_ym/XIOS_COUPLING/src/test/generic_testcase.f90

@@ -362 +362 @@
     pressure=1e20
     DO j=0,z-1
-      pressure(:,j)=axis_value(j) ;
+      pressure(:,j)=axis_value(j)*100000 ; ! Pa
       DO i=0,xy-1
         IF (domain_index(i)/=-1) THEN
@@ -570 +570 @@
     ENDDO
          
-    pressure=1e20
+    other_pressure=1e20
     DO j=0,z-1
-      pressure(:,j)=axis_value(j) ;
+      other_pressure(:,j)=axis_value(j)*100000 ; ! Pa
       DO i=0,xy-1
         IF (domain_index(i)/=-1) THEN