Changeset 903


Ignore:
Timestamp:
07/25/16 14:31:08 (5 years ago)
Author:
mhnguyen
Message:

Fixing error with gfortran because of length of line

+) Break long line into smaller ones

Test
+) Local machine with gfortran
+) Compilation ok

Location:
XIOS/trunk/src
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/fortran/ixios_interfaces.F90

    r891 r903  
    8787USE ireduce_axis_to_scalar, ONLY : xios(get_reduce_axis_to_scalar_handle) 
    8888 
    89 USE ireduce_axis_to_scalar_attr, ONLY : xios(set_reduce_axis_to_scalar_attr_hdl), xios(get_reduce_axis_to_scalar_attr_hdl), xios(is_defined_reduce_axis_to_scalar_attr_hdl) 
     89USE ireduce_axis_to_scalar_attr, ONLY : xios(set_reduce_axis_to_scalar_attr_hdl), & 
     90                                        xios(get_reduce_axis_to_scalar_attr_hdl), & 
     91                                        xios(is_defined_reduce_axis_to_scalar_attr_hdl) 
    9092 
    9193USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),   & 
  • XIOS/trunk/src/interface/fortran/ixml_tree.F90

    r891 r903  
    623623   SUBROUTINE xios(add_reduceaxistoscalartoscalar)(parent_hdl, child_hdl, child_id) 
    624624      TYPE(txios(axis))                      , INTENT(IN) :: parent_hdl 
    625       TYPE(txios(inverse_axis))              , INTENT(OUT):: child_hdl 
     625      TYPE(txios(reduce_axis_to_scalar))     , INTENT(OUT):: child_hdl 
    626626      CHARACTER(len = *), OPTIONAL           , INTENT(IN) :: child_id 
    627627 
  • XIOS/trunk/src/test/test_new_features.f90

    r895 r903  
    106106  CALL Distribute_index(jbeginDomInterp, jendDomInterp, njDomInterp, njDomGlo, rank, size) 
    107107 
    108   ALLOCATE(field_A(0:ni+1,-1:nj+2,llm), field_A_2D(0:ni+1,-1:nj+2), field_Two_Axis(ni_glo,1:nj), field_Axis(nAxis), field_All_Axis(1:ni,1:nj,llm), & 
     108  ALLOCATE(field_A(0:ni+1,-1:nj+2,llm), field_A_2D(0:ni+1,-1:nj+2), & 
     109          field_Two_Axis(ni_glo,1:nj), field_Axis(nAxis), field_All_Axis(1:ni,1:nj,llm), & 
    109110          lon(ni,nj),lat(ni,nj), lonvalue(ni*nj), & 
    110111          lvaln(nAxis), lval_ni(ni), lval_nj(nj), lvalnInterp(nAxisinterp), & 
  • XIOS/trunk/src/test/test_remap.f90

    r873 r903  
    2020  DOUBLE PRECISION,ALLOCATABLE :: src_boundslon(:,:), dst_boundslon(:,:) 
    2121  DOUBLE PRECISION,ALLOCATABLE :: src_boundslat(:,:), dst_boundslat(:,:) 
    22   DOUBLE PRECISION,ALLOCATABLE :: src_field(:), tmp_field(:), tmp_field_1(:), tmp_field_2(:), src_field_3D(:,:), lval(:), lval1(:), src_field_pression(:,:) 
     22  DOUBLE PRECISION,ALLOCATABLE :: src_field(:) 
     23  DOUBLE PRECISION,ALLOCATABLE :: tmp_field(:), tmp_field_1(:), tmp_field_2(:) 
     24  DOUBLE PRECISION,ALLOCATABLE :: src_field_3D(:,:), lval(:), lval1(:), src_field_pression(:,:) 
    2325  LOGICAL,ALLOCATABLE :: src_mask_2D(:) 
    2426  INTEGER :: src_ni_glo, dst_ni_glo; 
Note: See TracChangeset for help on using the changeset viewer.