Changeset 2010 for XIOS/dev/dev_ym


Ignore:
Timestamp:
01/12/21 22:57:33 (4 years ago)
Author:
ymipsl
Message:

fix pressure in Pa in generic testcase.
YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1953 r2010  
    362362    pressure=1e20 
    363363    DO j=0,z-1 
    364       pressure(:,j)=axis_value(j) ; 
     364      pressure(:,j)=axis_value(j)*100000 ; ! Pa 
    365365      DO i=0,xy-1 
    366366        IF (domain_index(i)/=-1) THEN 
    … …  
    570570    ENDDO 
    571571          
    572     pressure=1e20 
     572    other_pressure=1e20 
    573573    DO j=0,z-1 
    574       pressure(:,j)=axis_value(j) ; 
     574      other_pressure(:,j)=axis_value(j)*100000 ; ! Pa 
    575575      DO i=0,xy-1 
    576576        IF (domain_index(i)/=-1) THEN 
Note: See TracChangeset for help on using the changeset viewer.