Changeset 1921 for XIOS/trunk/src/test/generic_testcase.f90
- Timestamp:
- 07/31/20 12:21:59 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/generic_testcase.f90
r1914 r1921 356 356 pressure=1e20 357 357 DO j=0,z-1 358 pressure(:,j)=axis_value(j) ;358 pressure(:,j)=axis_value(j) * 100000; 359 359 DO i=0,xy-1 360 360 IF (domain_index(i)/=-1) THEN … … 559 559 ENDDO 560 560 561 pressure=1e20561 other_pressure=1e20 562 562 DO j=0,z-1 563 pressure(:,j)=axis_value(j);563 other_pressure(:,j)=axis_value(j) * 100000 ; 564 564 DO i=0,xy-1 565 565 IF (domain_index(i)/=-1) THEN
Note: See TracChangeset
for help on using the changeset viewer.