Ignore:
Timestamp:
12/17/18 10:19:12 (5 years ago)
Author:
oabramkina
Message:

Trunk: limiting the line length to 132 characters in the Fortran interface + updating the interface.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/iinterpolate_domain_attr.F90

    r1492 r1626  
    1313  SUBROUTINE xios(set_interpolate_domain_attr)  & 
    1414    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  & 
    15     , renormalize, weight_filename, write_weight ) 
     15    , renormalize, use_area, weight_filename, write_weight ) 
    1616 
    1717    IMPLICIT NONE 
    … …  
    2727      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize 
    2828      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
     29      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area 
     30      LOGICAL (KIND=C_BOOL) :: use_area_tmp 
    2931      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename 
    3032      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight 
    … …  
    3537      CALL xios(set_interpolate_domain_attr_hdl_)   & 
    3638      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    37       , renormalize, weight_filename, write_weight ) 
     39      , renormalize, use_area, weight_filename, write_weight ) 
    3840 
    3941  END SUBROUTINE xios(set_interpolate_domain_attr) 
    … …  
    4143  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  & 
    4244    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    43     , renormalize, weight_filename, write_weight ) 
     45    , renormalize, use_area, weight_filename, write_weight ) 
    4446 
    4547    IMPLICIT NONE 
    … …  
    5456      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize 
    5557      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
     58      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area 
     59      LOGICAL (KIND=C_BOOL) :: use_area_tmp 
    5660      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename 
    5761      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight 
    … …  
    6064      CALL xios(set_interpolate_domain_attr_hdl_)  & 
    6165      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    62       , renormalize, weight_filename, write_weight ) 
     66      , renormalize, use_area, weight_filename, write_weight ) 
    6367 
    6468  END SUBROUTINE xios(set_interpolate_domain_attr_hdl) 
    … …  
    6670  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   & 
    6771    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  & 
    68     , renormalize_, weight_filename_, write_weight_ ) 
     72    , renormalize_, use_area_, weight_filename_, write_weight_ ) 
    6973 
    7074    IMPLICIT NONE 
    … …  
    7983      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_ 
    8084      LOGICAL (KIND=C_BOOL) :: renormalize__tmp 
     85      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area_ 
     86      LOGICAL (KIND=C_BOOL) :: use_area__tmp 
    8187      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename_ 
    8288      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight_ 
    … …  
    116122      ENDIF 
    117123 
     124      IF (PRESENT(use_area_)) THEN 
     125        use_area__tmp = use_area_ 
     126        CALL cxios_set_interpolate_domain_use_area & 
     127      (interpolate_domain_hdl%daddr, use_area__tmp) 
     128      ENDIF 
     129 
    118130      IF (PRESENT(weight_filename_)) THEN 
    119131        CALL cxios_set_interpolate_domain_weight_filename & 
    … …  
    131143  SUBROUTINE xios(get_interpolate_domain_attr)  & 
    132144    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  & 
    133     , renormalize, weight_filename, write_weight ) 
     145    , renormalize, use_area, weight_filename, write_weight ) 
    134146 
    135147    IMPLICIT NONE 
    … …  
    145157      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize 
    146158      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
     159      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area 
     160      LOGICAL (KIND=C_BOOL) :: use_area_tmp 
    147161      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename 
    148162      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight 
    … …  
    153167      CALL xios(get_interpolate_domain_attr_hdl_)   & 
    154168      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    155       , renormalize, weight_filename, write_weight ) 
     169      , renormalize, use_area, weight_filename, write_weight ) 
    156170 
    157171  END SUBROUTINE xios(get_interpolate_domain_attr) 
    … …  
    159173  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  & 
    160174    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    161     , renormalize, weight_filename, write_weight ) 
     175    , renormalize, use_area, weight_filename, write_weight ) 
    162176 
    163177    IMPLICIT NONE 
    … …  
    172186      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize 
    173187      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
     188      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area 
     189      LOGICAL (KIND=C_BOOL) :: use_area_tmp 
    174190      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename 
    175191      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight 
    … …  
    178194      CALL xios(get_interpolate_domain_attr_hdl_)  & 
    179195      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    180       , renormalize, weight_filename, write_weight ) 
     196      , renormalize, use_area, weight_filename, write_weight ) 
    181197 
    182198  END SUBROUTINE xios(get_interpolate_domain_attr_hdl) 
    … …  
    184200  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   & 
    185201    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  & 
    186     , renormalize_, weight_filename_, write_weight_ ) 
     202    , renormalize_, use_area_, weight_filename_, write_weight_ ) 
    187203 
    188204    IMPLICIT NONE 
    … …  
    197213      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_ 
    198214      LOGICAL (KIND=C_BOOL) :: renormalize__tmp 
     215      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area_ 
     216      LOGICAL (KIND=C_BOOL) :: use_area__tmp 
    199217      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename_ 
    200218      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight_ 
    … …  
    234252      ENDIF 
    235253 
     254      IF (PRESENT(use_area_)) THEN 
     255        CALL cxios_get_interpolate_domain_use_area & 
     256      (interpolate_domain_hdl%daddr, use_area__tmp) 
     257        use_area_ = use_area__tmp 
     258      ENDIF 
     259 
    236260      IF (PRESENT(weight_filename_)) THEN 
    237261        CALL cxios_get_interpolate_domain_weight_filename & 
    … …  
    249273  SUBROUTINE xios(is_defined_interpolate_domain_attr)  & 
    250274    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  & 
    251     , renormalize, weight_filename, write_weight ) 
     275    , renormalize, use_area, weight_filename, write_weight ) 
    252276 
    253277    IMPLICIT NONE 
    … …  
    266290      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize 
    267291      LOGICAL(KIND=C_BOOL) :: renormalize_tmp 
     292      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area 
     293      LOGICAL(KIND=C_BOOL) :: use_area_tmp 
    268294      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename 
    269295      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp 
    … …  
    275301      CALL xios(is_defined_interpolate_domain_attr_hdl_)   & 
    276302      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    277       , renormalize, weight_filename, write_weight ) 
     303      , renormalize, use_area, weight_filename, write_weight ) 
    278304 
    279305  END SUBROUTINE xios(is_defined_interpolate_domain_attr) 
    … …  
    281307  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  & 
    282308    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    283     , renormalize, weight_filename, write_weight ) 
     309    , renormalize, use_area, weight_filename, write_weight ) 
    284310 
    285311    IMPLICIT NONE 
    … …  
    297323      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize 
    298324      LOGICAL(KIND=C_BOOL) :: renormalize_tmp 
     325      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area 
     326      LOGICAL(KIND=C_BOOL) :: use_area_tmp 
    299327      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename 
    300328      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp 
    … …  
    304332      CALL xios(is_defined_interpolate_domain_attr_hdl_)  & 
    305333      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  & 
    306       , renormalize, weight_filename, write_weight ) 
     334      , renormalize, use_area, weight_filename, write_weight ) 
    307335 
    308336  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl) 
    … …  
    310338  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   & 
    311339    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  & 
    312     , renormalize_, weight_filename_, write_weight_ ) 
     340    , renormalize_, use_area_, weight_filename_, write_weight_ ) 
    313341 
    314342    IMPLICIT NONE 
    … …  
    326354      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_ 
    327355      LOGICAL(KIND=C_BOOL) :: renormalize__tmp 
     356      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area_ 
     357      LOGICAL(KIND=C_BOOL) :: use_area__tmp 
    328358      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename_ 
    329359      LOGICAL(KIND=C_BOOL) :: weight_filename__tmp 
    … …  
    367397      ENDIF 
    368398 
     399      IF (PRESENT(use_area_)) THEN 
     400        use_area__tmp = cxios_is_defined_interpolate_domain_use_area & 
     401      (interpolate_domain_hdl%daddr) 
     402        use_area_ = use_area__tmp 
     403      ENDIF 
     404 
    369405      IF (PRESENT(weight_filename_)) THEN 
    370406        weight_filename__tmp = cxios_is_defined_interpolate_domain_weight_filename & 
Note: See TracChangeset for help on using the changeset viewer.