Changeset 1851


Ignore:
Timestamp:
01/20/20 15:14:00 (4 years ago)
Author:
ymipsl
Message:

fix compil bug for gfortran : line no more than 132 column in fortran

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/test/generic_testcase.f90

    r1674 r1851  
    192192    LOGICAL :: ok_field_XW, ok_field_YW, ok_field_XYW, ok_field_ZW, ok_field_XYZW, ok_field_XZW, ok_field_YZW 
    193193 
    194     LOGICAL :: ok_other_field2D, ok_other_field3D, ok_other_pressure, ok_other_field2D_sub, ok_other_field3D_sub,ok_other_field3D_recv, ok_other_field3D_send 
    195     LOGICAL :: ok_other_field_X, ok_other_field_Y, ok_other_field_XY, ok_other_field_Z, ok_other_field_XYZ, ok_other_field_XZ, ok_other_field_YZ 
    196     LOGICAL :: ok_other_field2D_W, ok_other_field3D_W, ok_other_pressure_W, ok_other_field2D_sub_W, ok_other_field3D_sub_W,ok_other_field3D_recv_W, ok_other_field3D_send_W 
    197     LOGICAL :: ok_other_field_XW, ok_other_field_YW, ok_other_field_XYW, ok_other_field_ZW, ok_other_field_XYZW, ok_other_field_XZW, ok_other_field_YZW 
     194    LOGICAL :: ok_other_field2D, ok_other_field3D, ok_other_pressure, ok_other_field2D_sub, ok_other_field3D_sub, & 
     195               ok_other_field3D_recv, ok_other_field3D_send 
     196    LOGICAL :: ok_other_field_X, ok_other_field_Y, ok_other_field_XY, ok_other_field_Z, ok_other_field_XYZ, & 
     197               ok_other_field_XZ, ok_other_field_YZ 
     198    LOGICAL :: ok_other_field2D_W, ok_other_field3D_W, ok_other_pressure_W, ok_other_field2D_sub_W, ok_other_field3D_sub_W, & 
     199               ok_other_field3D_recv_W, ok_other_field3D_send_W 
     200    LOGICAL :: ok_other_field_XW, ok_other_field_YW, ok_other_field_XYW, ok_other_field_ZW, ok_other_field_XYZW, & 
     201               ok_other_field_XZW, ok_other_field_YZW 
    198202     
    199203      !! XIOS Initialization (get the local communicator) 
    … …  
    900904    INTEGER :: ensemble_proc_size, ensemble_proc_rank 
    901905 
    902     CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, ensemble_proc_size, ensemble_proc_rank) 
     906    CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, & 
     907                           ensemble_proc_size, ensemble_proc_rank) 
    903908    ALLOCATE(return_value(0:0)) 
    904909    return_value(0)=ensemble_proc_rank 
    905910 
    906911    IF (xios_is_valid_axis(TRIM(ensemble_id))) THEN 
    907       CALL xios_set_axis_attr(ensemble_id, n_glo=ensemble_proc_size, begin=ensemble_proc_rank, n=1, value=return_value(:), unit='-')     
     912      CALL xios_set_axis_attr(ensemble_id, n_glo=ensemble_proc_size, begin=ensemble_proc_rank, n=1, value=return_value(:), & 
     913                              unit='-')     
    908914    ENDIF 
    909915     
    … …  
    9971003    CALL MPI_COMM_SIZE(comm,mpi_size,ierr) 
    9981004 
    999     CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, ensemble_proc_size, ensemble_proc_rank) 
     1005    CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, & 
     1006                           ensemble_proc_size, ensemble_proc_rank) 
    10001007 
    10011008    mpi_rank=domain_proc_rank 
    … …  
    11921199      CALL xios_set_domain_attr(TRIM(domain_id), type="unstructured", ni_glo=ncell_glo, ni=ncell, ibegin=0, i_index=i_index) 
    11931200      CALL xios_set_domain_attr(TRIM(domain_id), data_dim=1, data_ni=data_n_index, data_i_index=data_i_index, mask_1d=return_mask) 
    1194       CALL xios_set_domain_attr(TRIM(domain_id), lonvalue_1D=lon, latvalue_1D=lat, nvertex=4, bounds_lon_1D=bounds_lon, bounds_lat_1D=bounds_lat) 
     1201      CALL xios_set_domain_attr(TRIM(domain_id), lonvalue_1D=lon, latvalue_1D=lat, nvertex=4, bounds_lon_1D=bounds_lon, & 
     1202                                bounds_lat_1D=bounds_lat) 
    11951203    ENDIF 
    11961204 
    … …  
    12101218 
    12111219 
    1212   SUBROUTINE init_domain_dynamico(domain_id, comm, params, return_ni, return_nj,               & 
     1220  SUBROUTINE init_domain_dynamico(domain_id, comm, params, return_ni, return_nj,           & 
    12131221                              return_lon,return_lat,return_mask, return_index,             & 
    12141222                              return_X_lon,return_X_lat, return_X_mask, return_X_index,    & 
    … …  
    12521260    CALL MPI_COMM_SIZE(comm,mpi_size,ierr) 
    12531261 
    1254     CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, ensemble_proc_size, ensemble_proc_rank) 
     1262    CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, & 
     1263                           ensemble_proc_size, ensemble_proc_rank) 
    12551264 
    12561265    CALL xios_get_current_context(ctx_hdl) 
    … …  
    12581267    CALL xios_context_initialize("grid_dynamico",comm) 
    12591268    CALL xios_close_context_definition() 
    1260     CALL xios_get_domain_attr("domain_dynamico",ni_glo=ni_glo,nj_glo=nj_glo,ni=ni,nj=nj, ibegin=ibegin, jbegin=jbegin ,nvertex=nvertex) 
     1269    CALL xios_get_domain_attr("domain_dynamico",ni_glo=ni_glo,nj_glo=nj_glo,ni=ni,nj=nj, ibegin=ibegin, jbegin=jbegin , & 
     1270                              nvertex=nvertex) 
    12611271    ALLOCATE(lon(ni),lat(ni),bounds_lon(nvertex,ni),bounds_lat(nvertex,ni)) 
    1262     CALL xios_get_domain_attr("domain_dynamico", lonvalue_1d=lon, latvalue_1d=lat, bounds_lon_1d=bounds_lon, bounds_lat_1d=bounds_lat) 
     1272    CALL xios_get_domain_attr("domain_dynamico", lonvalue_1d=lon, latvalue_1d=lat, bounds_lon_1d=bounds_lon, & 
     1273                               bounds_lat_1d=bounds_lat) 
    12631274    CALL xios_context_finalize 
    12641275 
    … …  
    12781289    CALL MPI_AllgatherV(lon, ni, MPI_REAL8, lon_glo, ni_all, ibegin_all, MPI_REAL8, comm, ierr)  
    12791290    CALL MPI_AllgatherV(lat, ni, MPI_REAL8, lat_glo, ni_all, ibegin_all, MPI_REAL8, comm, ierr)  
    1280     CALL MPI_AllgatherV(bounds_lon, ni*nvertex, MPI_REAL8, bounds_lon_glo, ni_all*nvertex, ibegin_all*nvertex, MPI_REAL8, comm, ierr)  
    1281     CALL MPI_AllgatherV(bounds_lat, ni*nvertex, MPI_REAL8, bounds_lat_glo, ni_all*nvertex, ibegin_all*nvertex, MPI_REAL8, comm, ierr)  
     1291    CALL MPI_AllgatherV(bounds_lon, ni*nvertex, MPI_REAL8, bounds_lon_glo, ni_all*nvertex, ibegin_all*nvertex, & 
     1292                        MPI_REAL8, comm, ierr)  
     1293    CALL MPI_AllgatherV(bounds_lat, ni*nvertex, MPI_REAL8, bounds_lat_glo, ni_all*nvertex, ibegin_all*nvertex, & 
     1294                        MPI_REAL8, comm, ierr)  
    12821295 
    12831296     
    … …  
    13451358    IF (xios_is_valid_domain(TRIM(domain_id))) THEN 
    13461359      CALL xios_set_domain_attr(TRIM(domain_id), type="unstructured", ni_glo=ni_glo, ibegin=offset, ni=nbp, nvertex=nvertex) 
    1347       CALL xios_set_domain_attr(TRIM(domain_id), data_dim=1, lonvalue_1d=lon, latvalue_1d=lat, bounds_lon_1d=bounds_lon, bounds_lat_1d=bounds_lat, mask_1d=return_mask) 
     1360      CALL xios_set_domain_attr(TRIM(domain_id), data_dim=1, lonvalue_1d=lon, latvalue_1d=lat, bounds_lon_1d=bounds_lon, & 
     1361                                bounds_lat_1d=bounds_lat, mask_1d=return_mask) 
    13481362    ENDIF     
    13491363 
    … …  
    14011415    CALL MPI_COMM_SIZE(comm,mpi_size,ierr) 
    14021416 
    1403     CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, ensemble_proc_size, ensemble_proc_rank) 
     1417    CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, & 
     1418                           ensemble_proc_size, ensemble_proc_rank) 
    14041419    ni_glo=params%ni 
    14051420    nj_glo=params%nj 
    … …  
    14841499 
    14851500    IF (xios_is_valid_domain(TRIM(domain_id))) THEN 
    1486       CALL xios_set_domain_attr(TRIM(domain_id), type="rectilinear", ni_glo=ni_glo, ibegin=ibegin, ni=ni, nj_glo=nj_glo, jbegin=jbegin, nj=nj) 
     1501      CALL xios_set_domain_attr(TRIM(domain_id), type="rectilinear", ni_glo=ni_glo, ibegin=ibegin, ni=ni, nj_glo=nj_glo, & 
     1502                                jbegin=jbegin, nj=nj) 
    14871503      CALL xios_set_domain_attr(TRIM(domain_id), data_dim=2, lonvalue_1d=lon, latvalue_1d=lat, mask_1d=return_mask) 
    14881504    ENDIF 
    … …  
    15381554    CALL MPI_COMM_SIZE(comm,mpi_size,ierr) 
    15391555 
    1540     CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, ensemble_proc_size, ensemble_proc_rank) 
     1556    CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, & 
     1557                           ensemble_proc_size, ensemble_proc_rank) 
    15411558    ni_glo=params%ni 
    15421559    nj_glo=params%nj 
    … …  
    16831700 
    16841701    IF (xios_is_valid_domain(TRIM(domain_id))) THEN 
    1685       CALL xios_set_domain_attr(TRIM(domain_id), type="rectilinear", ni_glo=ni_glo, ibegin=ibegin, ni=ni, nj_glo=nj_glo, jbegin=jbegin, nj=nj) 
     1702      CALL xios_set_domain_attr(TRIM(domain_id), type="rectilinear", ni_glo=ni_glo, ibegin=ibegin, ni=ni, nj_glo=nj_glo, & 
     1703                                jbegin=jbegin, nj=nj) 
    16861704      CALL xios_set_domain_attr(TRIM(domain_id), data_dim=1, data_ni=size(return_index), data_i_index=return_index) 
    16871705      CALL xios_set_domain_attr(TRIM(domain_id), lonvalue_1d=lon, latvalue_1d=lat, mask_1d=mask) 
    … …  
    16891707     
    16901708    IF (xios_is_valid_axis(TRIM(domain_id)//"_X")) THEN 
    1691       CALL xios_set_axis_attr(TRIM(domain_id)//"_X", n_glo=ni_glo, begin=ibegin, n=ni, value=return_X_lon, data_n=size(return_X_index), data_index=return_X_index) 
     1709      CALL xios_set_axis_attr(TRIM(domain_id)//"_X", n_glo=ni_glo, begin=ibegin, n=ni, value=return_X_lon, & 
     1710                              data_n=size(return_X_index), data_index=return_X_index) 
    16921711    ENDIF 
    16931712 
    16941713    IF (xios_is_valid_axis(TRIM(domain_id)//"_Y")) THEN     
    1695       CALL xios_set_axis_attr(TRIM(domain_id)//"_Y", n_glo=nj_glo, begin=jbegin, n=nj, value=return_Y_lat, data_n=size(return_Y_index), data_index=return_Y_index) 
     1714      CALL xios_set_axis_attr(TRIM(domain_id)//"_Y", n_glo=nj_glo, begin=jbegin, n=nj, value=return_Y_lat, & 
     1715                              data_n=size(return_Y_index), data_index=return_Y_index) 
    16961716    ENDIF 
    16971717 
    … …  
    17421762    CALL MPI_COMM_SIZE(comm,mpi_size,ierr) 
    17431763 
    1744     CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, ensemble_proc_size, ensemble_proc_rank) 
     1764    CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, & 
     1765                           ensemble_proc_size, ensemble_proc_rank) 
    17451766    ni_glo=params%ni 
    17461767    nj_glo=params%nj 
    … …  
    19111932     
    19121933    IF (xios_is_valid_axis(TRIM(domain_id)//"_X")) THEN 
    1913       CALL xios_set_axis_attr(TRIM(domain_id)//"_X", n_glo=ni_glo, begin=ibegin, n=ni, data_begin=-offset_i, data_n=ni+2*offset_i, value=return_X_lon) 
    1914 !      CALL xios_set_axis_attr(TRIM(domain_id)//"_X", n_glo=ni_glo, begin=ibegin, n=ni, data_index=return_X_index, data_n=ni+2*offset_i, value=return_X_lon) 
     1934      CALL xios_set_axis_attr(TRIM(domain_id)//"_X", n_glo=ni_glo, begin=ibegin, n=ni, data_begin=-offset_i, & 
     1935                              data_n=ni+2*offset_i, value=return_X_lon) 
     1936!      CALL xios_set_axis_attr(TRIM(domain_id)//"_X", n_glo=ni_glo, begin=ibegin, n=ni, data_index=return_X_index,& 
     1937!                               data_n=ni+2*offset_i,  value=return_X_lon) 
    19151938    ENDIF 
    19161939 
    19171940    IF (xios_is_valid_axis(TRIM(domain_id)//"_Y")) THEN     
    1918       CALL xios_set_axis_attr(TRIM(domain_id)//"_Y", n_glo=nj_glo, begin=jbegin, n=nj, data_begin=-offset_j, data_n=nj+2*offset_j, value=return_Y_lat) 
    1919 !      CALL xios_set_axis_attr(TRIM(domain_id)//"_Y", n_glo=nj_glo, begin=jbegin, n=nj, data_index=return_Y_index, data_n=nj+2*offset_j, value=return_Y_lat) 
     1941      CALL xios_set_axis_attr(TRIM(domain_id)//"_Y", n_glo=nj_glo, begin=jbegin, n=nj, data_begin=-offset_j, & 
     1942                              data_n=nj+2*offset_j, value=return_Y_lat) 
     1943!      CALL xios_set_axis_attr(TRIM(domain_id)//"_Y", n_glo=nj_glo, begin=jbegin, n=nj, data_index=return_Y_index, & 
     1944!                               data_n=nj+2*offset_j, value=return_Y_lat) 
    19201945    ENDIF 
    19211946 
    … …  
    20032028    INTEGER :: ensemble_proc_size, ensemble_proc_rank 
    20042029 
    2005     CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, ensemble_proc_size, ensemble_proc_rank)      
     2030    CALL get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, & 
     2031                           ensemble_proc_size, ensemble_proc_rank)      
    20062032 
    20072033    nlev_glo=params%nlev 
    … …  
    20432069    return_mask=.TRUE. 
    20442070    CALL set_axis_mask(params,value,return_mask)     
    2045     CALL xios_set_axis_attr(axis_id, n_glo=nlev_glo, begin=begin, n=nlev, value=value*100000, mask=return_mask, bounds=bounds_value*100000, unit='Pa', positive='up')     
     2071    CALL xios_set_axis_attr(axis_id, n_glo=nlev_glo, begin=begin, n=nlev, value=value*100000, mask=return_mask, & 
     2072                            bounds=bounds_value*100000, unit='Pa', positive='up')     
    20462073    
    20472074 
    … …  
    22392266 
    22402267 
    2241    SUBROUTINE get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, ensemble_proc_size, ensemble_proc_rank) 
     2268   SUBROUTINE get_decomposition(comm, params, domain_proc_size, domain_proc_rank, axis_proc_size, axis_proc_rank, & 
     2269                                ensemble_proc_size, ensemble_proc_rank) 
    22422270   IMPLICIT NONE 
    22432271     INTEGER,INTENT(IN) :: comm 
Note: See TracChangeset for help on using the changeset viewer.