Changeset 2027 for XIOS/dev/dev_trunk_graph/src/test/generic_testcase.f90
- Timestamp:
- 02/01/21 12:42:26 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_trunk_graph/src/test/generic_testcase.f90
r2019 r2027 368 368 pressure=1e20 369 369 DO j=0,z-1 370 pressure(:,j)=axis_value(j) ;370 pressure(:,j)=axis_value(j)*100000 ; ! Pa 371 371 DO i=0,xy-1 372 372 IF (domain_index(i)/=-1) THEN … … 576 576 ENDDO 577 577 578 pressure=1e20578 other_pressure=1e20 579 579 DO j=0,z-1 580 pressure(:,j)=axis_value(j) ;580 other_pressure(:,j)=axis_value(j)*100000 ; ! Pa 581 581 DO i=0,xy-1 582 582 IF (domain_index(i)/=-1) THEN
Note: See TracChangeset
for help on using the changeset viewer.